Re: [delphi-br] Re: iGotDisk e iGotPC
Eurico, não sei se isso abaixo pode ajudar já que esta em HARBOUR.
Mas creio que talvez ajude...
Depois te mando o Executavel...
/*
* MiniGUI WMI Service Demo
*
* (c) 2008 Grigory Filatov [EMAIL PROTECTED]
*/
#include minigui.ch
Procedure Main
DEFINE WINDOW Form_1 ;
AT 0,0 ;
WIDTH 400 ;
HEIGHT 200 ;
TITLE 'WMI Service Demo' ;
MAIN ;
ON INTERACTIVECLOSE MsgYesNo ( 'Are You Sure ?', 'Exit' )
DEFINE BUTTON Button_1
ROW 10
COL 10
WIDTH 120
CAPTION 'Processor Info'
ACTION ProcessorInfo()
END BUTTON
DEFINE BUTTON Button_2
ROW 40
COL 10
WIDTH 120
CAPTION 'Disk Drive Info'
ACTION DiskDriveInfo()
END BUTTON
DEFINE BUTTON Button_3
ROW 70
COL 10
WIDTH 120
CAPTION 'Logical Disk Info'
ACTION LogicalDiskInfo()
END BUTTON
DEFINE BUTTON Button_4
ROW 100
COL 10
WIDTH 120
CAPTION 'Physical Media Info'
ACTION PhysicalMediaInfo()
END BUTTON
DEFINE BUTTON Button_5
ROW 130
COL 10
WIDTH 120
CAPTION 'Cancel'
ACTION ThisWindow.Release
END BUTTON
END WINDOW
Form_1.Button_4.Enabled := IsWinNT()
CENTER WINDOW Form_1
ACTIVATE WINDOW Form_1
Return
**
#translate IFNOTCHAR( exp1,exp2 ) ;
= ;
IF( VALTYPE( exp1 ) != C,exp2,exp1 )
#define IS_DATE(x) (VALTYPE(x) == D)
#define IS_LOGICAL(x)(VALTYPE(x) == L)
#define IS_NUMERIC(x)(VALTYPE(x) == N)
#define CASE_AT(x,y,z) z[AT(x,y)+1]
#define TRIM_NUMBER(x) LTRIM(STR(x))
#define NULL
#define XTOC(x) CASE_AT(VALTYPE(x), CNDLM, ;
{ NULL, ;
x, ;
IF(IS_NUMERIC(x),;
TRIM_NUMBER(x), ;
NULL), ;
IF(IS_DATE(x),DTOC(x),NULL),;
IF(IS_LOGICAL(x),;
IF(x,.T.,.F.), ;
NULL), ;
x })
**
FUNCTION ProcessorInfo()
Local oWmi, oProc
Local cInfo :=
oWmi := WmiService()
FOR EACH oProc IN oWmi:ExecQuery( SELECT * FROM Win32_Processor )
cInfo :=
cInfo += Manufacturer: + oProc:Manufacturer + CRLF
cInfo += Model: + oProc:Name + CRLF
cInfo += Description: + oProc:Description + CRLF
cInfo += Speed: + TRIM_NUMBER( oProc:CurrentClockSpeed ) + MHz +
CRLF
cInfo += ID: + oProc:ProcessorID
MsgInfo( cInfo, oProc:DeviceID )
NEXT
Return nil
FUNCTION DiskDriveInfo()
Local oWmi, oDrive
Local cInfo :=
oWmi := WmiService()
FOR EACH oDrive IN oWmi:ExecQuery( SELECT * FROM Win32_DiskDrive )
cInfo += Model: + oDrive:Model + CRLF
cInfo += Name: + STRTRAN(oDrive:Name, \\.\, ) + CRLF
if IsWinNT()
cInfo += Signature: + IF( IS_NUMERIC(oDrive:Signature), LTRIM( STR(
Abs( oDrive:Signature ), 20, 0 ) ), N/A ) + CRLF
endif
cInfo += CRLF
NEXT
MsgInfo( cInfo, Result )
Return nil
FUNCTION LogicalDiskInfo()
Local oWmi, oDrive, cSerialNumber
Local cInfo :=
oWmi := WmiService()
FOR EACH oDrive IN oWmi:ExecQuery( SELECT * FROM Win32_LogicalDisk )
cSerialNumber := XTOC( oDrive:VolumeSerialNumber )
cInfo += Volume: + oDrive:Name +Serial Number: + IFEMPTY(
cSerialNumber, N/A, cSerialNumber ) + CRLF
NEXT
MsgInfo( cInfo, Result )
Return nil
FUNCTION PhysicalMediaInfo()
Local oWmi, oDrive
Local cInfo :=
oWmi := WmiService()
FOR EACH oDrive IN oWmi:ExecQuery( SELECT * FROM Win32_PhysicalMedia )
cInfo := Serial: + IfNotChar( oDrive:SerialNumber, N/A )
MsgInfo( cInfo, IfNotChar( STRTRAN( oDrive:Tag, \\.\, ), N/A ) )
NEXT
Return nil
STATIC FUNCTION WMIService()
Static oWMI
Local oLocator
if oWMI == NIL
oLocator := CreateObject( wbemScripting.SwbemLocator )
oWMI := oLocator:ConnectServer()
Re: [delphi-br] Cadastro operação
boa noite alexandre. O exemplo do select não funcionou com o delphi, toda vez qeu coloco o sum da erro. Em 16/04/08, Alexandre Nicolas [EMAIL PROTECTED] escreveu: Isso mesmo, há 2 maneiras de obter o conteúdo de um campo de uma query: qBuscaCodigo.asstring neste caso só funciona caso você tenha adicionado os campos resultandos da consulta no Fields Editor (botão direito sobre a query) ou qBusca.FieldByName( 'Codigo' ).AsString []s Alexandre - Original Message - From: Eduardo Oliveira silva To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Sent: Wednesday, April 16, 2008 2:01 PM Subject: Re: [delphi-br] Cadastro operação Beleza Alexande , valeu mesmo. Tenho só uma pequena dúvida no código Edit1.Text := qBuscaCodigo.AsString o Codigo é o nome no banco de dados? ou não necessariamente. Em 15/04/08, Alexandre Nicolas [EMAIL PROTECTED]nicolas%40qualitysystem.com.br escreveu: vamos lá, supondo que o nome do query seja qBusca e que você já tenha adicionado no Fields Editor os campos resultantes da pesquisa: . . . qBusca.Open; Edit1.Text := qBuscaCodigo.AsString; //caso seja numérico será convertido para string Edit2.Text := qBuscaNome.AsString; Edit3.Text := qBuscaEndereco.AsString; Edit4.Text := qBuscaCredito.DisplayText; // caso vc tenha colocado a máscara ,0.00 na prop. DisplayFormat deste campo no Fields Editor Edit5.Text := qBuscaEmprestimos.DisplayText; // caso vc tenha colocado a máscara ,0.00 na prop. DisplayFormat deste campo no Fields Editor []s Alexandre Nicolas - Original Message - From: Eduardo Oliveira silva To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.brdelphi-br% 40yahoogrupos.com.br Sent: Tuesday, April 15, 2008 4:27 PM Subject: Re: [delphi-br] Cadastro operação beleza, é isso mesmo, mais como eu faço para mostra isso em um formulário em um edit por exemplo. é outra dúvida que tenho, nos formulários de cadastro vai ter um botão de pesquisa viz os formularios mais não sei alimentar os edits com os campos da query. pode me ajudar. Em 15/04/08, Alexandre Nicolas [EMAIL PROTECTED]nicolas%40qualitysystem.com.br nicolas%40qualitysystem.com.br escreveu: Bom, vejamos se entendi: você terá uma tabela COOPERATIVA e uma tabela EMPRESTIMOS, a ligação entre as tabelas é o código da cooperativa. você poderá ter um query, trazendo os dados da cooperativa e a soma de todos os empréstimos feitos para ela. entao o SQL de sua query ficaria assim: Select c.Codigo, c.Nome, c.Endereco, c.Credito , sum(e.ValorEmprestimo) as SomaEmprestimos From COOPERATIVA c Left Join EMPRESTIMOS e on c.Codigo = e.CodigoCooperativa Where c.Codigo = :CodigoCooperativa Group by c.Codigo, c.Nome, c.Endereco, c.Credito a partir desse exemplo você pode aprimorar esse SQL conforme sua necessidade. []s Alexandre Nicolas - Original Message - From: Eduardo Oliveira silva To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.brdelphi-br% 40yahoogrupos.com.brdelphi-br% 40yahoogrupos.com.br Sent: Tuesday, April 15, 2008 10:34 AM Subject: [delphi-br] Cadastro operação Alguém pode me socorre. Pessoal estou com um problema, tenho que mostrar um protótipo de trabalho da faculdade na quinta feira e estou com algumas dificuldade em alguns pontos. 1- tenho que cadastrar uma operação de credito onde em um formulário vou trazer campos de um cooperativa(nome,endereço,crédito), porém os campo não estão em uma só tabela, Ex. tenho que fazer o calculo se a cooperativa já pegou algum empréstimo e mostra o valor total na tela. para fazer isso tudo tenho que passar para pesquisa só o número da cooperativa e é o único dado que vai persistir em outra tabela, alguém pode me ajudar [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Capturar texto ... urgente socorro...
Bom dia...
if pos('10. 5.50.',List[ i]) 0 then
s := copy(List[i] ,pos('10. 5.50.',List[ i]),maxInt)
else
s := copy(List[i] ,pos('192.168.',List[ i]),maxInt);
ip := copy(s, 1, pos( ' ', s)-1);
s := copy(s,pos(' GET',s)+3, maxint);
url := copy(s, 1, pos( '- DIRECT', s)-1);
s := copy(s,pos(' in ',s)+4,maxint) ;
data := copy(s, 1, pos( ' ', s)-1);
Hora := copy(s,pos(' ',s)+1,8);
Boa sorte!
Paulo so teve um prob. nem todos os ips so 10.5.50.* podem ser
192.168.254. * e ai como fica esta linha abaixo
s := copy(List[i] ,pos('10. 5.50.',List[ i]),maxInt) ;
so para lembrar da linha
web-proxy,debug, packet 1206551497.262 921 10.5.50.2 TCP_MISS/302 556
GET http://go.microsoft .com/fwlink/ ?
web-proxy,debug, packet 1206551497.262 921 192.168.254. 101
TCP_MISS/302 556
GET http://go.microsoft .com/fwlink/ ?
Cara Valeu mesmo por sua ajuda.
[delphi-br] algumas dúvidas sobre SUM() e GROUP BY...
Olá pessoal, bom dia, estou com um probleminha aqui. Suponha que tenho 1 tabela com os campos: ID, NUMERO, NOME, SALARIO. Quero fazer a seguinte consulta: no resultado tem que aparecer todos esses campos + um campo indicando o total de salario de acordo com o NUMERO, mas não deve ser agrupado o campo NUMERO, ou seja, para cada registro que tiver o mesmo NUMERO deve aparecer nos resultados com o campo TOTAL DE SALARIOS armazenando o total de salários daquele NUMERO. EXEMPLO: a resposta poderia ser como essa: ID | NUMERO | NOME | SALARIO | TOTALSALARIOS | 1 | 1 |a| 1.00 | 3.00 | 2 | 1 |b| 2.00 | 3.00 | 3 | 2 |c| 5.00 | 5.00 | É possível néh, mas como ? Alguém me ajuda ? Obrigado pela atenção de todos. Flávio. - Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] estatus e fail
tenho um software rodando aqui na empresa feito em delphi 2007, mysql e ADO. sempre funcionou perfeitamente mas ontem a noite começou a dar o seguinte erro: provedor de dados ou outro serviço retornou um estatus E FAIL. alguem sabe o que pode ser? -- Felipe Govoni - Programador Fone 8472-8718 [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] algumas dúvidas sobre SUM( ) e GROUP BY...
Bom dia... Você pode fazer isso através de uma PROCEDURE selecionável do lado servidor :) Um abraço! Olá pessoal, bom dia, estou com um probleminha aqui. Suponha que tenho 1 tabela com os campos: ID, NUMERO, NOME, SALARIO. Quero fazer a seguinte consulta: no resultado tem que aparecer todos esses campos + um campo indicando o total de salario de acordo com o NUMERO, mas não deve ser agrupado o campo NUMERO, ou seja, para cada registro que tiver o mesmo NUMERO deve aparecer nos resultados com o campo TOTAL DE SALARIOS armazenando o total de salários daquele NUMERO. EXEMPLO: a resposta poderia ser como essa: ID | NUMERO | NOME | SALARIO | TOTALSALARIOS | 1 | 1 | a | 1.00 | 3.00 | 2 | 1 | b | 2.00 | 3.00 | 3 | 2 | c | 5.00 | 5.00 | É possível néh, mas como ? Alguém me ajuda ? Obrigado pela atenção de todos. Flávio.
Re: [delphi-br] Opinião sobre tipo de conexão
Valeu Eduardo muito obrigado pelas dicas... Em 16/04/08, Eduardo Silva dos Santos [EMAIL PROTECTED] escreveu: Olha a CoreLab ta pra lançar a versão final do Unidac no dia 23 de Abril, o bom dele é que acessa um monte de Banco, o IBDAC só acesso o FireBird/Interbase/Yafill os 2 são ótimos, valem o investimento. http://www.crlab.com/ibdac http://crlab.com/unidac http://crlab.com/forums/ baixe o trial e faça um teste. Em 16/04/08, Eduardo Suruagy [EMAIL PROTECTED]eduardosuruagy%40gmail.com escreveu: Obrigado pela resposta Eduardo, qual desses ai vc me indicaria?? o IBDAC ou o UNIDAC e onde posso encontra-los??? Eu tenho aplicações feitas em D7 + DbExpress + ClienteDataSet + Firebird 1.5 [As partes desta mensagem que não continham texto foram removidas] -- ... Eduardo Silva dos Santos DRD Sistemas. (27) 3218-4201 MSN: [EMAIL PROTECTED] eduardo.drd%40gmail.com Site: http://www.drdsistemas.com/ ... [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] delphi + modem + pressionamento de teclas e envio de wave
Pessoal alguém poderia me dar uma luz, como eu faço para o modem reconhecer as teclas pressionadas, e principalmente como eu toco um arquivo de som na linha telefonica. Antes que me estaqueiem, eu já procurei no google e só encontrei coisas que não servem para o meu caso. Grato Éderson
Re: [delphi-br] Cadastro operação
Informe qual a mensagem de erro, isso ajuda bastante. []s Alexandre - Original Message - From: Eduardo Oliveira silva To: delphi-br@yahoogrupos.com.br Sent: Wednesday, April 16, 2008 11:22 PM Subject: Re: [delphi-br] Cadastro operação boa noite alexandre. O exemplo do select não funcionou com o delphi, toda vez qeu coloco o sum da erro. Em 16/04/08, Alexandre Nicolas [EMAIL PROTECTED] escreveu: Isso mesmo, há 2 maneiras de obter o conteúdo de um campo de uma query: qBuscaCodigo.asstring neste caso só funciona caso você tenha adicionado os campos resultandos da consulta no Fields Editor (botão direito sobre a query) ou qBusca.FieldByName( 'Codigo' ).AsString []s Alexandre - Original Message - From: Eduardo Oliveira silva To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Sent: Wednesday, April 16, 2008 2:01 PM Subject: Re: [delphi-br] Cadastro operação Beleza Alexande , valeu mesmo. Tenho só uma pequena dúvida no código Edit1.Text := qBuscaCodigo.AsString o Codigo é o nome no banco de dados? ou não necessariamente. Em 15/04/08, Alexandre Nicolas [EMAIL PROTECTED]nicolas%40qualitysystem.com.br escreveu: vamos lá, supondo que o nome do query seja qBusca e que você já tenha adicionado no Fields Editor os campos resultantes da pesquisa: . . . qBusca.Open; Edit1.Text := qBuscaCodigo.AsString; //caso seja numérico será convertido para string Edit2.Text := qBuscaNome.AsString; Edit3.Text := qBuscaEndereco.AsString; Edit4.Text := qBuscaCredito.DisplayText; // caso vc tenha colocado a máscara ,0.00 na prop. DisplayFormat deste campo no Fields Editor Edit5.Text := qBuscaEmprestimos.DisplayText; // caso vc tenha colocado a máscara ,0.00 na prop. DisplayFormat deste campo no Fields Editor []s Alexandre Nicolas - Original Message - From: Eduardo Oliveira silva To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.brdelphi-br% 40yahoogrupos.com.br Sent: Tuesday, April 15, 2008 4:27 PM Subject: Re: [delphi-br] Cadastro operação beleza, é isso mesmo, mais como eu faço para mostra isso em um formulário em um edit por exemplo. é outra dúvida que tenho, nos formulários de cadastro vai ter um botão de pesquisa viz os formularios mais não sei alimentar os edits com os campos da query. pode me ajudar. Em 15/04/08, Alexandre Nicolas [EMAIL PROTECTED]nicolas%40qualitysystem.com.br nicolas%40qualitysystem.com.br escreveu: Bom, vejamos se entendi: você terá uma tabela COOPERATIVA e uma tabela EMPRESTIMOS, a ligação entre as tabelas é o código da cooperativa. você poderá ter um query, trazendo os dados da cooperativa e a soma de todos os empréstimos feitos para ela. entao o SQL de sua query ficaria assim: Select c.Codigo, c.Nome, c.Endereco, c.Credito , sum(e.ValorEmprestimo) as SomaEmprestimos From COOPERATIVA c Left Join EMPRESTIMOS e on c.Codigo = e.CodigoCooperativa Where c.Codigo = :CodigoCooperativa Group by c.Codigo, c.Nome, c.Endereco, c.Credito a partir desse exemplo você pode aprimorar esse SQL conforme sua necessidade. []s Alexandre Nicolas - Original Message - From: Eduardo Oliveira silva To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.brdelphi-br% 40yahoogrupos.com.brdelphi-br% 40yahoogrupos.com.br Sent: Tuesday, April 15, 2008 10:34 AM Subject: [delphi-br] Cadastro operação Alguém pode me socorre. Pessoal estou com um problema, tenho que mostrar um protótipo de trabalho da faculdade na quinta feira e estou com algumas dificuldade em alguns pontos. 1- tenho que cadastrar uma operação de credito onde em um formulário vou trazer campos de um cooperativa(nome,endereço,crédito), porém os campo não estão em uma só tabela, Ex. tenho que fazer o calculo se a cooperativa já pegou algum empréstimo e mostra o valor total na tela. para fazer isso tudo tenho que passar para pesquisa só o número da cooperativa e é o único dado que vai persistir em outra tabela, alguém pode me ajudar [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Capturar texto ... urgente socorro...
Paulo, em primeiro lugar bom dia...
Cara de coração obrigado mesmo pela ajuda.
mas veja bem o íp eu quiz dizer que pode começar com alguer numero entendeu e
ai, como eu faria ?
191 200.. 20.. 45... entendeu ?
Marcos Diirr
Bom dia...
if pos('10. 5.50.',List[ i]) 0 then
s := copy(List[i] ,pos('10. 5.50.',List[ i]),maxInt)
else
s := copy(List[i] ,pos('192.168.',List[ i]),maxInt);
ip := copy(s, 1, pos( ' ', s)-1);
s := copy(s,pos(' GET',s)+3, maxint);
url := copy(s, 1, pos( '- DIRECT', s)-1);
s := copy(s,pos(' in ',s)+4,maxint) ;
data := copy(s, 1, pos( ' ', s)-1);
Hora := copy(s,pos(' ',s)+1,8);
Boa sorte!
Paulo so teve um prob. nem todos os ips so 10.5.50.* podem ser
192.168.254. * e ai como fica esta linha abaixo
s := copy(List[i] ,pos('10. 5.50.',List[ i]),maxInt) ;
so para lembrar da linha
web-proxy,debug, packet 1206551497.262 921 10.5.50.2 TCP_MISS/302 556
GET http://go.microsoft .com/fwlink/ ?
web-proxy,debug, packet 1206551497.262 921 192.168.254. 101
TCP_MISS/302 556
GET http://go.microsoft .com/fwlink/ ?
Cara Valeu mesmo por sua ajuda.
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Re: iGotDisk e iGotPC
Olá Escobar,
Eu tenho visto varias formas de acessar info em Hardware, inclusive por WMI.
Estou atento a ter uma rotina que nao dependa de .NET, SMART e plataforma.
Eu achei na net um código em VBS (5 ou 6 linhas) que fazem o trabalho, mas
nao serviria para o que quero fazer.
De qualquer forma, muito obrigado pela atencao e contribuicao.
Abraco.
-- Sergio Eurico.
2008/4/16, escobar [EMAIL PROTECTED]:
Eurico, não sei se isso abaixo pode ajudar já que esta em HARBOUR.
Mas creio que talvez ajude...
Depois te mando o Executavel...
/*
* MiniGUI WMI Service Demo
*
* (c) 2008 Grigory Filatov [EMAIL PROTECTED] gfilatov%40freemail.ru
*/
#include minigui.ch
Procedure Main
DEFINE WINDOW Form_1 ;
AT 0,0 ;
WIDTH 400 ;
HEIGHT 200 ;
TITLE 'WMI Service Demo' ;
MAIN ;
ON INTERACTIVECLOSE MsgYesNo ( 'Are You Sure ?', 'Exit' )
DEFINE BUTTON Button_1
ROW 10
COL 10
WIDTH 120
CAPTION 'Processor Info'
ACTION ProcessorInfo()
END BUTTON
DEFINE BUTTON Button_2
ROW 40
COL 10
WIDTH 120
CAPTION 'Disk Drive Info'
ACTION DiskDriveInfo()
END BUTTON
DEFINE BUTTON Button_3
ROW 70
COL 10
WIDTH 120
CAPTION 'Logical Disk Info'
ACTION LogicalDiskInfo()
END BUTTON
DEFINE BUTTON Button_4
ROW 100
COL 10
WIDTH 120
CAPTION 'Physical Media Info'
ACTION PhysicalMediaInfo()
END BUTTON
DEFINE BUTTON Button_5
ROW 130
COL 10
WIDTH 120
CAPTION 'Cancel'
ACTION ThisWindow.Release
END BUTTON
END WINDOW
Form_1.Button_4.Enabled := IsWinNT()
CENTER WINDOW Form_1
ACTIVATE WINDOW Form_1
Return
**
#translate IFNOTCHAR( exp1,exp2 ) ;
= ;
IF( VALTYPE( exp1 ) != C,exp2,exp1 )
#define IS_DATE(x) (VALTYPE(x) == D)
#define IS_LOGICAL(x) (VALTYPE(x) == L)
#define IS_NUMERIC(x) (VALTYPE(x) == N)
#define CASE_AT(x,y,z) z[AT(x,y)+1]
#define TRIM_NUMBER(x) LTRIM(STR(x))
#define NULL
#define XTOC(x) CASE_AT(VALTYPE(x), CNDLM, ;
{ NULL, ;
x, ;
IF(IS_NUMERIC(x),;
TRIM_NUMBER(x), ;
NULL), ;
IF(IS_DATE(x),DTOC(x),NULL),;
IF(IS_LOGICAL(x),;
IF(x,.T.,.F.), ;
NULL), ;
x })
**
FUNCTION ProcessorInfo()
Local oWmi, oProc
Local cInfo :=
oWmi := WmiService()
FOR EACH oProc IN oWmi:ExecQuery( SELECT * FROM Win32_Processor )
cInfo :=
cInfo += Manufacturer: + oProc:Manufacturer + CRLF
cInfo += Model: + oProc:Name + CRLF
cInfo += Description: + oProc:Description + CRLF
cInfo += Speed: + TRIM_NUMBER( oProc:CurrentClockSpeed ) + MHz +
CRLF
cInfo += ID: + oProc:ProcessorID
MsgInfo( cInfo, oProc:DeviceID )
NEXT
Return nil
FUNCTION DiskDriveInfo()
Local oWmi, oDrive
Local cInfo :=
oWmi := WmiService()
FOR EACH oDrive IN oWmi:ExecQuery( SELECT * FROM Win32_DiskDrive )
cInfo += Model: + oDrive:Model + CRLF
cInfo += Name: + STRTRAN(oDrive:Name, \\.\, ) + CRLF
if IsWinNT()
cInfo += Signature: + IF( IS_NUMERIC(oDrive:Signature), LTRIM( STR(
Abs( oDrive:Signature ), 20, 0 ) ), N/A ) + CRLF
endif
cInfo += CRLF
NEXT
MsgInfo( cInfo, Result )
Return nil
FUNCTION LogicalDiskInfo()
Local oWmi, oDrive, cSerialNumber
Local cInfo :=
oWmi := WmiService()
FOR EACH oDrive IN oWmi:ExecQuery( SELECT * FROM Win32_LogicalDisk )
cSerialNumber := XTOC( oDrive:VolumeSerialNumber )
cInfo += Volume: + oDrive:Name + Serial Number: + IFEMPTY(
cSerialNumber, N/A, cSerialNumber ) + CRLF
NEXT
MsgInfo( cInfo, Result )
Return nil
FUNCTION PhysicalMediaInfo()
Local oWmi, oDrive
Local cInfo :=
oWmi := WmiService()
FOR EACH oDrive IN oWmi:ExecQuery( SELECT * FROM Win32_PhysicalMedia )
cInfo := Serial: + IfNotChar( oDrive:SerialNumber, N/A )
MsgInfo( cInfo, IfNotChar( STRTRAN( oDrive:Tag, \\.\, ), N/A ) )
NEXT
Return nil
STATIC FUNCTION WMIService()
Static oWMI
Local oLocator
if oWMI == NIL
oLocator := CreateObject( wbemScripting.SwbemLocator )
oWMI := oLocator:ConnectServer()
endif
Return oWMI
[]s
Luiz Escobar
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Capturar texto ... urgente socorro...
Paulo, em primeiro lugar bom dia...
Cara de coração obrigado mesmo pela ajuda.
mas veja bem o íp eu quiz dizer que pode começar com alguer numero
entendeu e ai, como eu faria ?
191 200.. 20.. 45... entendeu ?
Bom dia novamente...
Observe que o Ip que você quer vem após 4 espaços em branco
web-proxy,debug, packet 1206551497.262 921 10.5.50.2...
web-proxy,debug, packet 1206551497.268 925 10.5.50.2...
web-proxy,debug, packet 1206551498.304 962 10.5.50.2...
assim sendo...
s := copy(List[i], pos(' ',List[ i])+1,maxInt);
s := copy(s, pos(' ',s)+1,maxInt);
s := copy(s, pos(' ',s)+1,maxInt);
s := copy(s, pos(' ',s)+1,maxInt);
ip := copy(s, 1, pos( ' ', s)-1);
s := copy(s,pos(' GET',s)+3, maxint);
url := copy(s, 1, pos( '- DIRECT', s)-1);
s := copy(s,pos(' in ',s)+4,maxint) ;
data := copy(s, 1, pos( ' ', s)-1);
Hora := copy(s,pos(' ',s)+1,8);
PS: Não testei.
[delphi-br] Formulários em BPL's
Bom dia pessoal, to desenvolvendo uma aplicação e estou querendo dividi-lá em BPL's, irei colocar cada módulo do sistema (Cadastro, Financeiro, etc...) em uma BPL diferente, mas como cada módulo pode ter N formulário e (ou) N units gostaria de saber se quando eu carregar a BPL do módulo de cadastro que tem os formulários frmCadastroCliente e frmCadastroProduto que são formulários que são criados em tempo de execução (frmCadastroCliente := TfrmCadastroCliente.Create(nil)) toda a BPL será carregada ou apenas o que eu for realmente usando durante a execução?? Como eu posso verificar qual o pacote e o que foi carregado dele na hora do desenvolvimento e dos teste?? Vlw pessoal e bom dia a todos... -- Jhosef Marks de Carvalho Delphi Developer http://groups.google.com/group/soumaisdelphi [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Capturar texto ... urgente socorro...
Marcos,
Não acompanhei toda a thread mas vejamos se posso ajuda-lo:
Com base do trecho abaixo do arquivo:
web-proxy,debug, packet 1206551497.262 921 10.5.50.2 TCP_MISS/302 556
GET http://go.microsoft .com/fwlink/ ?
web-proxy,debug, packet 1206551497.262 921 192.168.254. 101
TCP_MISS/302 556
GET http://go.microsoft .com/fwlink/ ?
Procedure le_arquivo(sAquivo:String;);
var
sLinha : String;
iPos,
iLinha : Integer;
sIP,
sURL ,
sDado : tStrings;
const
TRECHOIP = 'web-proxy,debug, packet 1206551497.262 921 ';
TRECHOURL = 'GET ';
FIM =' ?';
Begin
sDado:=tStringList.Create;
sIP:=tStringList.Create;
sURL:=tStringList.Create;
//-- Deve ser feita uma validação da existencia do arquivo !!!
sDado.LoadFromFile(sArquivo);
For iLinha:=0 to sDado.Count-1 do
begin
sLinha := sDado[iLinha];
iPos := Pos(TRECHOIP,sLinha);
If iPos0 then
begin
sLinha :=
Trim(Copy(sLinha,iPos+Length(TRECHOIP),Length(sLinha) );
sIP.Add(Copy(sLinha,1,Pos(sLinha,' ')-1);
sLinha := Copy(sLinha,Pos(sLinha,' '),Length(sLinha));
iPos := Pos(TRECHOURL,sLinha);
sLinha :=
Trim(Copy(sLinha,iPos+Length(TRECHOURL),Length(sLinha));
sURL.Add(trim(Copy(sLinha,1,Pos(sLinha,FIM)-1)));
end;
end;
//-- Aqui utiliza sIP e sURL...
end;
Não testei o codigo acima mas acredito que deva te ajudar !!
Sucesso !!!
Moacir
marcosdiirr escreveu:
Paulo, em primeiro lugar bom dia...
Cara de coração obrigado mesmo pela ajuda.
mas veja bem o íp eu quiz dizer que pode começar com alguer numero entendeu e
ai, como eu faria ?
191 200.. 20.. 45... entendeu ?
Marcos Diirr
Bom dia...
if pos('10. 5.50.',List[ i]) 0 then
s := copy(List[i] ,pos('10. 5.50.',List[ i]),maxInt)
else
s := copy(List[i] ,pos('192.168.',List[ i]),maxInt);
ip := copy(s, 1, pos( ' ', s)-1);
s := copy(s,pos(' GET',s)+3, maxint);
url := copy(s, 1, pos( '- DIRECT', s)-1);
s := copy(s,pos(' in ',s)+4,maxint) ;
data := copy(s, 1, pos( ' ', s)-1);
Hora := copy(s,pos(' ',s)+1,8);
Boa sorte!
Paulo so teve um prob. nem todos os ips so 10.5.50.* podem ser
192.168.254. * e ai como fica esta linha abaixo
s := copy(List[i] ,pos('10. 5.50.',List[ i]),maxInt) ;
so para lembrar da linha
web-proxy,debug, packet 1206551497.262 921 10.5.50.2 TCP_MISS/302 556
GET http://go.microsoft .com/fwlink/ ?
web-proxy,debug, packet 1206551497.262 921 192.168.254. 101
TCP_MISS/302 556
GET http://go.microsoft .com/fwlink/ ?
Cara Valeu mesmo por sua ajuda.
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Opinião sobre tipo de conexão
Blz, espero que ajude, os produtos da CoreLab são excelentes. Em 17/04/08, Eduardo Suruagy [EMAIL PROTECTED] escreveu: Valeu Eduardo muito obrigado pelas dicas... Em 16/04/08, Eduardo Silva dos Santos [EMAIL PROTECTED]eduardo.drd%40gmail.com escreveu: Olha a CoreLab ta pra lançar a versão final do Unidac no dia 23 de Abril, o bom dele é que acessa um monte de Banco, o IBDAC só acesso o FireBird/Interbase/Yafill os 2 são ótimos, valem o investimento. http://www.crlab.com/ibdac http://crlab.com/unidac http://crlab.com/forums/ baixe o trial e faça um teste. Em 16/04/08, Eduardo Suruagy [EMAIL PROTECTED]eduardosuruagy%40gmail.com eduardosuruagy%40gmail.com escreveu: Obrigado pela resposta Eduardo, qual desses ai vc me indicaria?? o IBDAC ou o UNIDAC e onde posso encontra-los??? Eu tenho aplicações feitas em D7 + DbExpress + ClienteDataSet + Firebird 1.5 [As partes desta mensagem que não continham texto foram removidas] -- ... Eduardo Silva dos Santos DRD Sistemas. (27) 3218-4201 MSN: [EMAIL PROTECTED] eduardo.drd%40gmail.com eduardo.drd% 40gmail.com Site: http://www.drdsistemas.com/ ... [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- ... Eduardo Silva dos Santos DRD Sistemas. (27) 3218-4201 MSN: [EMAIL PROTECTED] Site: http://www.drdsistemas.com/ ... [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Re: DBChart + Zeos - Urgente
--- Em delphi-br@yahoogrupos.com.br, carlosandresantiago [EMAIL PROTECTED] escreveu Pessoal, me deparei com um problema sério. Estou utilizando o componente Zeos, e tenho um SQL select COUNT (ped_cod) as total from cw_pedidos. Quando tento utilizar o DBChart para traçar um gráfico desse valor, simplesmente o campo Total não aparece como opção. E o mais intrigante, se em vez de COUNT for SUM, ou MIN ou MAX, ele aparece, mais com COUNT não. E se eu usar o Query normal do delphi da certo. Então o problema esta com o componente Zeos!? Agradeço quem puder ajudar Colegas ainda estou com esse problema, podem me ajudar?
Re: [delphi-br] Erro ao carregar o datamodule
Nem precisa me enviar os fontes... Só é preciso informar como vc montou sua estrutura de conexão (Componentes, etc) Por exemplo eu gosto de fazer assm: * Crio um DataModule e coloco nele apenas um componente SQLConnection; * Para cada módulo crio um novo DataModule e coloco os componentes necessários ( SQLQuery, SQLStoredProc, DataSetProvider, ClientDataSet, DataSources ) e coloco o DataModule com o SQLConnection na cláusula USES dessa unit. * Finalmente, vou em Project Options Forms e deixo o DataModule com SQLConnection como primeiro item da lista 'Auto-Create Forms' e quando necessário deixo algum formulário visual ( tela principal ou de login ) como segundo item nesta lista. Todos os outros Forms e DataModules ficam na lista 'Available Forms'. * Para cada Form eu coloco o respectivo DataModule na cláusula USES. Não sei se é a melhor forma mas é assim que trabalho. Vc está fazendo algo parecido com isso? Atte, Ricardo. Jose Eduardo Victorino [EMAIL PROTECTED] escreveu: Estou lhe enviando os fontes,, o bco de dados eh imenso,, se queres,,e so avisar Meus amigos estao me forçando a usar o mdac, mas nao quero encher de objetos e quero fazer o codigo mais enxuto,, abraços Ps. obrigado por responder, - Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Capturar texto ... urgente socorro...
Paulo deu certo nao repare que so vem um 1 espaço antes do ip
web-proxy,debug,packet 1208345783.029 1234 10.5.50.90 TCP_MISS/200 5177 GET
http://www.orkut.com/Album.aspx? - DIRECT/66.249.81.85 text/html in 16-Apr
11:38:18.68 from 10.5.50.145
web-proxy,debug,packet 1208345787.136 1026 10.5.50.66 TCP_MISS/200 10670 GET
http://i199.photobucket.com/albums/aa91/gugabyte/responda.gif -
DIRECT/209.17.65.16 image/gif in 16-Apr 11:38:22.77 from 10.5.50.145
web-proxy,debug,packet 1208345786.656544 10.5.50.66 TCP_MISS/200 2327 GET
http://img1.orkut.com/images/small/1208315541/89210270.jpg -
DIRECT/209.85.193.87 image/jpeg in 16-Apr 11:38:22.30 from 10.5.50.145
Marcos
Paulo, em primeiro lugar bom dia...
Cara de coração obrigado mesmo pela ajuda.
mas veja bem o íp eu quiz dizer que pode começar com alguer numero
entendeu e ai, como eu faria ?
191 200.. 20.. 45... entendeu ?
Bom dia novamente...
Observe que o Ip que você quer vem após 4 espaços em branco
web-proxy,debug, packet 1206551497.262 921 10.5.50.2...
web-proxy,debug, packet 1206551497.268 925 10.5.50.2...
web-proxy,debug, packet 1206551498.304 962 10.5.50.2...
assim sendo...
s := copy(List[i], pos(' ',List[ i])+1,maxInt);
s := copy(s, pos(' ',s)+1,maxInt);
s := copy(s, pos(' ',s)+1,maxInt);
s := copy(s, pos(' ',s)+1,maxInt);
ip := copy(s, 1, pos( ' ', s)-1);
s := copy(s,pos(' GET',s)+3, maxint);
url := copy(s, 1, pos( '- DIRECT', s)-1);
s := copy(s,pos(' in ',s)+4,maxint) ;
data := copy(s, 1, pos( ' ', s)-1);
Hora := copy(s,pos(' ',s)+1,8);
PS: Não testei.
[As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Numeros Aleatórios não Aleatórios
Galera, para desenvolver um soft que preciso, tive que aprender a usar o random e o randomize, só que tem coisa errada no meu projeto. Fiz um simplesinho, que me gerasse 10 numeros aleatórios, de 0 a 9, só que ele repeti os numeros, tipo fica 2-2-1-3-5-4-6-7-9-8, algo assim. Já coloquei o randomize, e não resolveu, daí pensei que fosse pq estava fora do loop, coloquei o randomize dentro do loop e nada. Esse randomize realmente funciona ou é mais uma lorota da CodeGear ?!?!? Abraço, quem quizer o prj me passe o email que envio, está simples, simples, era só para eu aprender como usar o random, mas o randomize está me tirando. Grato. Tiago de Assis Pimenta MSN: [EMAIL PROTECTED] Email: [EMAIL PROTECTED] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Numeros Aleatórios não Aleatórios
Amigo, funcionar funciona, mas não 100%... sempre vai vir repetido alguma coisa... tem algoritmos que numeros aleatorios... se nao me engano do livro Algotimo e Estruturas de Dados em Delphi. Dá uma pesquisada, que tem os fontes na net... nele, tem um algotimo que traz numeros realmente aleatorios. []s Em 17/04/08, Tiago de Assis Pimenta [EMAIL PROTECTED] escreveu: Galera, para desenvolver um soft que preciso, tive que aprender a usar o random e o randomize, só que tem coisa errada no meu projeto. Fiz um simplesinho, que me gerasse 10 numeros aleatórios, de 0 a 9, só que ele repeti os numeros, tipo fica 2-2-1-3-5-4-6-7-9-8, algo assim. Já coloquei o randomize, e não resolveu, daí pensei que fosse pq estava fora do loop, coloquei o randomize dentro do loop e nada. Esse randomize realmente funciona ou é mais uma lorota da CodeGear ?!?!? Abraço, quem quizer o prj me passe o email que envio, está simples, simples, era só para eu aprender como usar o random, mas o randomize está me tirando. Grato. Tiago de Assis Pimenta MSN: [EMAIL PROTECTED] tiagopimenta%40hotmail.com Email: [EMAIL PROTECTED] tiagopimenta%40gmail.com [As partes desta mensagem que não continham texto foram removidas] -- _ T.·.F.·.A.·. Fellipe Henrique [EMAIL PROTECTED] Cansou do MercadoLivre como eu? Tente o www.uaileilão.com.br. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Numeros Aleatórios não Al eatórios
Olha, aqui funciona, posta o código ai pra gente dar uma analisada. Tiago de Assis Pimenta escreveu: Galera, para desenvolver um soft que preciso, tive que aprender a usar o random e o randomize, só que tem coisa errada no meu projeto. Fiz um simplesinho, que me gerasse 10 numeros aleatórios, de 0 a 9, só que ele repeti os numeros, tipo fica 2-2-1-3-5-4-6-7-9-8, algo assim. Já coloquei o randomize, e não resolveu, daí pensei que fosse pq estava fora do loop, coloquei o randomize dentro do loop e nada. Esse randomize realmente funciona ou é mais uma lorota da CodeGear ?!?!? Abraço, quem quizer o prj me passe o email que envio, está simples, simples, era só para eu aprender como usar o random, mas o randomize está me tirando. Grato. Tiago de Assis Pimenta MSN: [EMAIL PROTECTED] mailto:tiagopimenta%40hotmail.com Email: [EMAIL PROTECTED] mailto:tiagopimenta%40gmail.com [As partes desta mensagem que não continham texto foram removidas] __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/
Re: [delphi-br] Numeros Aleatórios não Aleatórios
Nao sei se entendi bem + se vc nao quer q o numero repita vc tem q verificar se ele já foi listado, caso tenha, vc pega novamente um novo numero aleatorio até q este nao tenha sido listado. Ao faltar apenas um numero vc deve sair do laco e inclui-lo em sua lista p/ q o laco nao se repita por muito tempo desnecessariamente. t+ William Olha, aqui funciona, posta o código ai pra gente dar uma analisada. Tiago de Assis Pimenta escreveu: Galera, para desenvolver um soft que preciso, tive que aprender a usar o random e o randomize, só que tem coisa errada no meu projeto. Fiz um simplesinho, que me gerasse 10 numeros aleatórios, de 0 a 9, só que ele repeti os numeros, tipo fica 2-2-1-3-5-4-6-7-9-8, algo assim. Já coloquei o randomize, e não resolveu, daí pensei que fosse pq estava fora do loop, coloquei o randomize dentro do loop e nada. Esse randomize realmente funciona ou é mais uma lorota da CodeGear ?!?!? Abraço, quem quizer o prj me passe o email que envio, está simples, simples, era só para eu aprender como usar o random, mas o randomize está me tirando. Grato. Tiago de Assis Pimenta MSN: [EMAIL PROTECTED] mailto:tiagopimenta%40hotmail.com Email: [EMAIL PROTECTED] mailto:tiagopimenta%40gmail.com [As partes desta mensagem que não continham texto foram removidas] __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/ -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Re: [delphi-br] Numeros Aleatórios não Al eatórios
Bom dia... var s:string; i:integer; begin s:=''; while length(s)10 do begin i:=randon(0,9); Não me lembro se é assim que se usa if pos(intToSt(i),s)=0 then s:=s+intToSt(i)+ '-'; end; end; Um abraço! Galera, para desenvolver um soft que preciso, tive que aprender a usar o random e o randomize, só que tem coisa errada no meu projeto. Fiz um simplesinho, que me gerasse 10 numeros aleatórios, de 0 a 9, só que ele repeti os numeros, tipo fica 2-2-1-3-5-4- 6-7-9-8, algo assim. Já coloquei o randomize, e não resolveu, daí pensei que fosse pq estava fora do loop, coloquei o randomize dentro do loop e nada. Esse randomize realmente funciona ou é mais uma lorota da CodeGear ?!?!? Abraço, quem quizer o prj me passe o email que envio, está simples, simples, era só para eu aprender como usar o random, mas o randomize está me tirando. Grato. Tiago de Assis Pimenta MSN: tiagopimenta@ hotmail.com mailto:tiagopimenta%40hotmail.com Email: tiagopimenta@ gmail.com mailto:tiagopimenta%40gmail.com [As partes desta mensagem que não continham texto foram removidas] No virus found in this incoming message. Checked by AVG. Version: 7.5.524 / Virus Database: 269.23.0/1382 - Release Date: 16/04/2008 17:34
Re: [delphi-br] Re: [lista-delphi] Delphi for PHP 2
Até hoje, ainda não vi objeção para a IDE do Delphi ser em Portugues... visto que o Brasil tem muitos usuários, acho que vale a pena gastar um pouco mais, pra isso, não é?! []s Em 15/04/08, Odair [EMAIL PROTECTED] escreveu: Que esta novidade se estenda ao Delphi todo! Odair - Original Message - From: Andreano Lanusse [EMAIL PROTECTED]andreano.lanusse%40codegear.com To: [EMAIL PROTECTED]delphi_php_oficial%40yahoogrupos.com.br; delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br; [EMAIL PROTECTED] lista-delphi%40yahoogrupos.com.br; [EMAIL PROTECTED] NDDV%40yahoogrupos.com.br Sent: Tuesday, April 15, 2008 9:21 AM Subject: [lista-delphi] Delphi for PHP 2 Oi pessoal, Acabamos de anunciar Delphi for PHP 2 e com uma grande novidade, agora o IDE estará disponível em Português. Aqui um primeiro preview: http://blogs.codegear.com/andreanolanusse do produto, que estará pronto logo logo. Em breve estaremos disponibilizando alguns vídeos sobre as novidades. []'s Andreano Lanusse CodeGear Product Line Manager Evangelist Leader Latin America Blog: http://blogs.codegear.com/andreanolanusse http://blogs.codegear.com/andreanolanusse Não deixe de visitar o site oficial da lista: http://www.delphibr.com.br Comunidade Delphibr no Orkut: http://www.orkut.com/Community.aspx?cmm=753495 Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED]lista-delphi-owner%40yahoogrupos.com.br Links do Yahoo! Grupos __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/ -- _ T.·.F.·.A.·. Fellipe Henrique [EMAIL PROTECTED] Cansou do MercadoLivre como eu? Tente o www.uaileilão.com.br. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Re: [lista-delphi] Delphi for PHP 2
Acho que antes de colocar a IDE em Português tem que resolver aquele monte de Bug's chato.. um exemplo deles é o Object Inspector.. com falhas no repaint em alguns casos, fica duplicando o nome das propriedades, nem sempre foca a propriedade, tem mais outros Bug's chatos pra caramba. Em 17/04/08, Fellipe Henrique [EMAIL PROTECTED] escreveu: Até hoje, ainda não vi objeção para a IDE do Delphi ser em Portugues... visto que o Brasil tem muitos usuários, acho que vale a pena gastar um pouco mais, pra isso, não é?! []s Em 15/04/08, Odair [EMAIL PROTECTED] odaircg%40yahoo.com.br escreveu: Que esta novidade se estenda ao Delphi todo! Odair - Original Message - From: Andreano Lanusse [EMAIL PROTECTED]andreano.lanusse%40codegear.com andreano.lanusse%40codegear.com To: [EMAIL PROTECTED]delphi_php_oficial%40yahoogrupos.com.br delphi_php_oficial%40yahoogrupos.com.br; delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.brdelphi-br% 40yahoogrupos.com.br; [EMAIL PROTECTED] lista-delphi%40yahoogrupos.com.brlista-delphi% 40yahoogrupos.com.br; [EMAIL PROTECTED] NDDV%40yahoogrupos.com.br NDDV% 40yahoogrupos.com.br Sent: Tuesday, April 15, 2008 9:21 AM Subject: [lista-delphi] Delphi for PHP 2 Oi pessoal, Acabamos de anunciar Delphi for PHP 2 e com uma grande novidade, agora o IDE estará disponível em Português. Aqui um primeiro preview: http://blogs.codegear.com/andreanolanusse do produto, que estará pronto logo logo. Em breve estaremos disponibilizando alguns vídeos sobre as novidades. []'s Andreano Lanusse CodeGear Product Line Manager Evangelist Leader Latin America Blog: http://blogs.codegear.com/andreanolanusse http://blogs.codegear.com/andreanolanusse Não deixe de visitar o site oficial da lista: http://www.delphibr.com.br Comunidade Delphibr no Orkut: http://www.orkut.com/Community.aspx?cmm=753495 Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED]lista-delphi-owner%40yahoogrupos.com.br lista-delphi-owner%40yahoogrupos.com.br Links do Yahoo! Grupos __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/ -- _ T.·.F.·.A.·. Fellipe Henrique [EMAIL PROTECTED] fellipeh%40gmail.com Cansou do MercadoLivre como eu? Tente o www.uaileilão.com.brhttp://www.uaileil%C3%A3o.com.br . [As partes desta mensagem que não continham texto foram removidas] -- ... Eduardo Silva dos Santos DRD Sistemas. (27) 3218-4201 MSN: [EMAIL PROTECTED] Site: http://www.drdsistemas.com/ ... [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Numeros Aleatórios não Al eatórios
Tiago de Assis Pimenta wrote: Galera, para desenvolver um soft que preciso, tive que aprender a usar o random e o randomize, só que tem coisa errada no meu projeto. Fiz um simplesinho, que me gerasse 10 numeros aleatórios, de 0 a 9, só que ele repeti os numeros, tipo fica 2-2-1-3-5-4-6-7-9-8, algo assim. Random apenas sorteia números. Se você quiser que eles não se repitam, você tem que cuidar disto. E o randomize deve ficar fora do laço, deve ser executado uma única vez. -- Joao Morais
Re: [delphi-br] delphi + modem + pressionamento de teclas e envio de wave
Complicado teu problema, hein Éderson :))) Essa parte do Modem reconhecer as teclas pressionadas eu sinceramente não entendi... vc queria enviar teclas pressionadas para o modem, seria isso? Quanto ao som, vc teria que usar algum dos herdeiros de TStream ( TFileStream, TMemoryStream e etc ) se quiser enviar o arquivo. Agora se vc quer transmitir como uma rádio online, dá uma olhada nessa tese aqui [ http://www.inf.furb.br/~pericas/orientacoes/Streaming2002.pdf ] Atte, Ricardo. Éderson Cassiano Bologna [EMAIL PROTECTED] escreveu: Pessoal alguém poderia me dar uma luz, como eu faço para o modem reconhecer as teclas pressionadas, e principalmente como eu toco um arquivo de som na linha telefonica. Antes que me estaqueiem, eu já procurei no google e só encontrei coisas que não servem para o meu caso. Grato Éderson - Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] delphi + modem + pressionamento de teclas e envio de wave
Só complementando, mais um link: [ http://code.blitzaffe.com/pages/delphi/files/streaming_radio_library_58-50 ] Atte, Ricardo. Éderson Cassiano Bologna [EMAIL PROTECTED] escreveu: Pessoal alguém poderia me dar uma luz, como eu faço para o modem reconhecer as teclas pressionadas, e principalmente como eu toco um arquivo de som na linha telefonica. Antes que me estaqueiem, eu já procurei no google e só encontrei coisas que não servem para o meu caso. Grato Éderson _ - Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Mestre x Detalhe x Subdetalhe
Pessoal, Tenho uma tabela de Cliente, Saida e ItemSaida, os relacionamentos estão funcionando perfeitamente: Exemplo: São listadas as saídas de um determinado cliente e os itens da saída em questão. Estou utilizando um trio de componentes (SQLDataSet, Provider, ClientDataSet), o mestre detalhe esta sendo feito com um DataSource apontando para SQLDataSet pai, e ligando-se a propriedade DataSetField do ClienteDataSet ao campo gerado. Consigo apagar o registro da tabela ItemSaida, mais qdo vou aplicar (ApplyUpdates), a seguinte mensagem de erro é retornada: --- Debugger Exception Notification --- Project FarmaDelItens.exe raised exception class EDatabaseError with message 'Table unknown item_saida At line 2, column 1 '. Process stopped. Use Step or Run to continue. --- OK Help --- Certo de poder contar com atenção de todos, agradeço antecipadamente.
Re: [delphi-br] delphi + modem + pressionamento de teclas e envio de wave
Se a ideia é fazer uma URA ( http://pt.wikipedia.org/wiki/URA ) vc poderia tentar falar c/ esse cara: [EMAIL PROTECTED] pois ele diz ter feito ( http://forum.clubedelphi.net/viewtopic.php?t=59322highlight=sid=48a75a7cb081858d1b74d2480b2017ac ). Espero que ajude. t+ William Só complementando, mais um link: [ http://code.blitzaffe.com/pages/delphi/files/streaming_radio_library_58-50 ] Atte, Ricardo. Éderson Cassiano Bologna [EMAIL PROTECTED] escreveu: Pessoal alguém poderia me dar uma luz, como eu faço para o modem reconhecer as teclas pressionadas, e principalmente como eu toco um arquivo de som na linha telefonica. Antes que me estaqueiem, eu já procurei no google e só encontrei coisas que não servem para o meu caso. Grato Éderson _ - Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Re: [delphi-br] Re: [lista-delphi] Delphi for PHP 2
concordo, mas nada impede de um turma ir traduzindo as ResourceString para portugues... []s Em 17/04/08, Eduardo Silva dos Santos [EMAIL PROTECTED] escreveu: Acho que antes de colocar a IDE em Português tem que resolver aquele monte de Bug's chato.. um exemplo deles é o Object Inspector.. com falhas no repaint em alguns casos, fica duplicando o nome das propriedades, nem sempre foca a propriedade, tem mais outros Bug's chatos pra caramba. Em 17/04/08, Fellipe Henrique [EMAIL PROTECTED] fellipeh%40gmail.com escreveu: Até hoje, ainda não vi objeção para a IDE do Delphi ser em Portugues... visto que o Brasil tem muitos usuários, acho que vale a pena gastar um pouco mais, pra isso, não é?! []s Em 15/04/08, Odair [EMAIL PROTECTED] odaircg%40yahoo.com.brodaircg% 40yahoo.com.br escreveu: Que esta novidade se estenda ao Delphi todo! Odair - Original Message - From: Andreano Lanusse [EMAIL PROTECTED]andreano.lanusse%40codegear.com andreano.lanusse%40codegear.com andreano.lanusse%40codegear.com To: [EMAIL PROTECTED]delphi_php_oficial%40yahoogrupos.com.br delphi_php_oficial%40yahoogrupos.com.br delphi_php_oficial%40yahoogrupos.com.br; delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.brdelphi-br% 40yahoogrupos.com.brdelphi-br% 40yahoogrupos.com.br; [EMAIL PROTECTED] lista-delphi%40yahoogrupos.com.brlista-delphi% 40yahoogrupos.com.brlista-delphi% 40yahoogrupos.com.br; [EMAIL PROTECTED] NDDV%40yahoogrupos.com.br NDDV% 40yahoogrupos.com.br NDDV% 40yahoogrupos.com.br Sent: Tuesday, April 15, 2008 9:21 AM Subject: [lista-delphi] Delphi for PHP 2 Oi pessoal, Acabamos de anunciar Delphi for PHP 2 e com uma grande novidade, agora o IDE estará disponível em Português. Aqui um primeiro preview: http://blogs.codegear.com/andreanolanusse do produto, que estará pronto logo logo. Em breve estaremos disponibilizando alguns vídeos sobre as novidades. []'s Andreano Lanusse CodeGear Product Line Manager Evangelist Leader Latin America Blog: http://blogs.codegear.com/andreanolanusse http://blogs.codegear.com/andreanolanusse Não deixe de visitar o site oficial da lista: http://www.delphibr.com.br Comunidade Delphibr no Orkut: http://www.orkut.com/Community.aspx?cmm=753495 Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED]lista-delphi-owner%40yahoogrupos.com.br lista-delphi-owner%40yahoogrupos.com.br lista-delphi-owner%40yahoogrupos.com.br Links do Yahoo! Grupos __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/ -- _ T.·.F.·.A.·. Fellipe Henrique [EMAIL PROTECTED] fellipeh%40gmail.com fellipeh%40gmail.com Cansou do MercadoLivre como eu? Tente o www.uaileilão.com.brhttp://www.uaileil%C3%A3o.com.br http://www.uaileil%C3%A3o.com.br . [As partes desta mensagem que não continham texto foram removidas] -- ... Eduardo Silva dos Santos DRD Sistemas. (27) 3218-4201 MSN: [EMAIL PROTECTED] eduardo.drd%40gmail.com Site: http://www.drdsistemas.com/ ... [As partes desta mensagem que não continham texto foram removidas] -- _ T.·.F.·.A.·. Fellipe Henrique [EMAIL PROTECTED] Cansou do MercadoLivre como eu? Tente o www.uaileilão.com.br. [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Report Builder
Alguem poderima me passar o telefone ou o site onde eu possa comprar o Report Builder para Delphi7 ?? de preferencia aqui no RJ. Obrigado. PS. Pode ser em pvt.
Re: [delphi-br] Capturar texto ... urgente socorro...
Paulo hheheh to abusando ne cara ? mas e que to precisando mesmo meu amigo. olha so tambem tenho que pegar estes campos que estao em vermelho blz ? web-proxy,debug,packet 1208372932.554 1117 10.5.50.142 TCP_MISS/206 19832 GET http://au.download.windowsupdate.com/msdownload/update/v3-19990518/cabpool/windowsxp-kb890859-x86-express-ptb_c5bcf7fb51b54d8b920cdf7e6eb3ef7988aaacf8.exe - DIRECT/68.142.101.229 application/octet-st in 16-Apr 19:10:48.17 from 10.5.50.145 web-proxy,debug,packet 1208372932.775 13 10.5.50.18 TCP_HIT/200 3389 GET http://ego.globo.com/Portal/cda/estilo_css_cda/0,,6328,00.css - NONE/- text/css in 16-Apr 19:10:48.39 from 10.5.50.145 web-proxy,debug,packet 1208372932.903 0 10.5.50.18 TCP_HIT/200 591 GET http://assinaturasms.globo.com/Portal/globocelular/js/retorno.js - NONE/- application/x-javascript in 16-Apr 19:10:48.51 from 10.5.50.145 web-proxy,debug,packet 1208372931.251 63 10.5.50.18 TCP_HIT/200 390 GET http://www.globo.com/ImageShow/0,,120949,00.gif - NONE/- image/gif in 16-Apr 19:10:46.86 from 10.5.50.145 web-proxy,debug,packet 1208372931.879 4055 10.5.50.90 TCP_MISS/404 515 GET ttp://www2.consorciocontauto.com.br/favicon.ico - DIRECT/201.30.222.65 text/html in 16-Apr 19:10:47.50 from 10.5.50.145 ou seja tcp_miss ou tcp_hit e depois que tipo text/html ect ect. blz ? da esta força ai meu amigo [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Capturar texto ... urgente socorro...
Paulo desculpa pelo português, mas e a presa meu amigo, mas não deu certo não e agora ?, Leu meu outro email ? Atenciosamente. Marcos Diirr Marcos Se você colocar pelo menos 1 vírgula na frase abaixo eu vou entender o sentido da mesma :) Paulo deu certo nao repare que so vem um 1 espaço antes do ip Quanto aos espaços em branco são 4 mesmo, verifique a partir da palavra web! web-proxy,debug, packet 1208345783.029 1234 10.5.50.90 TCP_MISS/200 5177 GET http://www.orkut. com/Album. aspx? http://www.orkut.com/Album.aspx? - DIRECT/66.249. 81.85 text/html in 16-Apr 11:38:18.68 from 10.5.50.145 [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Numeros Aleatórios não Aleat órios
O João disse tudo. Não me lembro onde li, mas o algoritmo de Random é baseado em alguma fração da data, se não me engano... Alguém poderia confirmar? Atte, Ricardo. Joao Morais [EMAIL PROTECTED] escreveu: Tiago de Assis Pimenta wrote: Galera, para desenvolver um soft que preciso, tive que aprender a usar o random e o randomize, só que tem coisa errada no meu projeto. Fiz um simplesinho, que me gerasse 10 numeros aleatórios, de 0 a 9, só que ele repeti os numeros, tipo fica 2-2-1-3-5-4-6-7-9-8, algo assim. Random apenas sorteia números. Se você quiser que eles não se repitam, você tem que cuidar disto. E o randomize deve ficar fora do laço, deve ser executado uma única vez. -- Joao Morais - Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Para Paulo Cassagrande
Paulo percebi que nunca são 4 espaço, podem ser 3 ou ate 5, mas que o ip´s vem sempre antes de TCP, isto não ajuda ? veja abaixo ? olha só, também tenho que pegar estes campos que estão em vermelho blz ? web-proxy,debug,packet 1208372932.554 1117 10.5.50.142 TCP_MISS/206 19832 GET http://au.download.windowsupdate.com/msdownload/update/v3-19990518/cabpool/windowsxp-kb890859-x86-express-ptb_c5bcf7fb51b54d8b920cdf7e6eb3ef7988aaacf8.exe - DIRECT/68.142.101.229 application/octet-st in 16-Apr 19:10:48.17 from 10.5.50.145 web-proxy,debug,packet 1208372932.775 13 10.5.50.18 TCP_HIT/200 3389 GET http://ego.globo.com/Portal/cda/estilo_css_cda/0,,6328,00.css - NONE/- text/css in 16-Apr 19:10:48.39 from 10.5.50.145 web-proxy,debug,packet 1208372932.903 0 10.5.50.18 TCP_HIT/200 591 GET http://assinaturasms.globo.com/Portal/globocelular/js/retorno.js - NONE/- application/x-javascript in 16-Apr 19:10:48.51 from 10.5.50.145 web-proxy,debug,packet 1208372931.251 63 10.5.50.18 TCP_HIT/200 390 GET http://www.globo.com/ImageShow/0,,120949,00.gif - NONE/- image/gif in 16-Apr 19:10:46.86 from 10.5.50.145 web-proxy,debug,packet 1208372931.879 4055 10.5.50.90 TCP_MISS/404 515 GET ttp://www2.consorciocontauto.com.br/favicon.ico - DIRECT/201.30.222.65 text/html in 16-Apr 19:10:47.50 from 10.5.50.145 Cara e que sou leigo no Delphi e preciso fazer este trabalho velho. Blz ? [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Res:Re: Numeros Aleatórios não Aleatórios
Galera, ta ae o código que estou usando: procedure TForm1.Button1Click(Sender: TObject); var i : integer; begin listbox1.clear; randomize; for I := 0 to 9 do listbox1.Items.Add(inttostr(random(10))); end; E vou testar os códigos e as dicas que me passaram. E João Morais, eu intendi o que vc disse, o random pega numeros aleatóriamente, não quer dizer que ele não vá se repetir, isso intendi, mas qual a função então do randomize ??? Pelo que eu li por ae, seria para não deixar repetir os numeros, tipo de 0..9 ele usasse todos sem repetir. Abraço gente. Tiago de Assis Pimenta MSN: [EMAIL PROTECTED] Email: [EMAIL PROTECTED] [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] delphi + modem + pressionamento de teclas e envio de wave
Pelo que entendi você quer fazer um Tele-Atendimento. Então procure por Async Professional no SourceForge. É FREE e tem diversos exemplos para isso. De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Ricardo César Cardoso Enviada em: quinta-feira, 17 de abril de 2008 11:01 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] delphi + modem + pressionamento de teclas e envio de wave Complicado teu problema, hein Éderson :))) Essa parte do Modem reconhecer as teclas pressionadas eu sinceramente não entendi... vc queria enviar teclas pressionadas para o modem, seria isso? Quanto ao som, vc teria que usar algum dos herdeiros de TStream ( TFileStream, TMemoryStream e etc ) se quiser enviar o arquivo. Agora se vc quer transmitir como uma rádio online, dá uma olhada nessa tese aqui [ http://www.inf.furb.br/~pericas/orientacoes/Streaming2002.pdf ] Atte, Ricardo. Éderson Cassiano Bologna [EMAIL PROTECTED] mailto:edersonecris%40gmail.com escreveu: Pessoal alguém poderia me dar uma luz, como eu faço para o modem reconhecer as teclas pressionadas, e principalmente como eu toco um arquivo de som na linha telefonica. Antes que me estaqueiem, eu já procurei no google e só encontrei coisas que não servem para o meu caso. Grato Éderson - Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Report Builder
Alguem poderima me passar o telefone ou o site onde eu possa comprar o Report Builder para Delphi7 ?? de preferencia aqui no RJ. Acho que só dá pra comprar pelo site da Digital Methafors... https://www.digital-metaphors.com/secure Jackson Gomes ToolsComps - Controle de Usuários para Desenvolvedores Borland/CodeGear Web Site: http://www.toolsandcomps.com Nosso Fórum: http://groups.yahoo.com/group/toolsandcomps e-mail: [EMAIL PROTECTED] Fone: 27 3389 1138 - 8811 0324 Devhost - Webhost para desenvolvedores Borland http://www.devhost.com.br [EMAIL PROTECTED]
Re: [delphi-br] Re: Erro Maluco do Delphi - ADO - MySql
Novidades no erro, pessoal. Consegui contornar parcialmente, mudando a propriedade da TADOQuery.CursorLocation que estava clUseClient pra clUserServer e parou de dar erros, mas nao completamente. Ainda tem uns componentes ADOGrid, que tendo SQL dentro dos mesmos, quando fazem uma consulta, o problema volta. E esses componentes não possuem aquela propriedade que mencionei anteriormente. Atenciosamente, -- Sérgio Cavalcante Em 16/04/08, sergio cavalcante [EMAIL PROTECTED] escreveu: Oi Felipe, infelizmente nao rolou...mas valeu assim mesmo. -- Atenciosamente, -- Sérgio Cavalcante Em 16/04/08, felipe govoni [EMAIL PROTECTED] escreveu: eu ja passei por esse erro tambem voce precisa mudar duas coisas no conector: nas propriedades da fonte, na guia advanced clica nas duas primeiras opções (dont optimize column width e return matching rolls) se nao me expressei bem me avisa Em 16/04/08, sergio cavalcante [EMAIL PROTECTED]sroc1978%40gmail.com escreveu: Oi Eduardo, Delphi 6 , build 6240, Update 2. Esse ADO é um que eu instalei somente os dcus, que foram disponibilizados pela empresa. Acho que deve ser herdado dos do Delphi. Agradeço imensamente... Atenciosamente, -- Sérgio Cavalcante Em 16/04/08, Eduardo Silva dos Santos [EMAIL PROTECTED]eduardo.drd%40gmail.com eduardo.drd%40gmail.com escreveu: Blz Sérgio, vou testar, só um detalhe, qual a versão do seu Delphi? o componente ADO é aquele do próprio Delphi? Em 16/04/08, sergio cavalcante [EMAIL PROTECTED]sroc1978%40gmail.com sroc1978%40gmail.comsroc1978% 40gmail.com escreveu: Oi Eduardo MySQL - 5.0.21 ODBC -3.51.19 O nome do componente é TADOQuery. Atenciosamente, -- Sérgio Cavalcante Em 16/04/08, Eduardo Silva dos Santos [EMAIL PROTECTED]eduardo.drd%40gmail.com eduardo.drd%40gmail.com eduardo.drd%40gmail.com eduardo.drd%40gmail.com escreveu: Me diga a versão exata do MySQL, do MyODBC e o nome desse componente, pra eu fazer uns testes aqui. Em 16/04/08, sergio cavalcante [EMAIL PROTECTED]sroc1978%40gmail.com sroc1978%40gmail.com sroc1978%40gmail.com sroc1978%40gmail.comsroc1978% 40gmail.com escreveu: Oi Eduardo, O mais estranho eh que o ODBC roda direitinho! E o componente nao eh exatamente um ADO, é um descendente, e fechado, que jah estava no sistema. que bosta. Atenciosamente, -- Sérgio Cavalcante 2008/4/16 Eduardo Silva dos Santos [EMAIL PROTECTED]eduardo.drd%40gmail.com eduardo.drd%40gmail.com eduardo.drd%40gmail.com eduardo.drd%40gmail.com eduardo.drd%40gmail.com eduardo.drd%40gmail.com : Blz, sérgio, provalmente isso é problema no MyODBC, instala o mais novo que deve resolver.. quanto a migração o MyDAC tem um Wizard que faz essa mundança rapadinho ADO MyDAC, mas sabemos que nenhuma migração é tão simples assim, hehehe sucesso ae Em 16/04/08, sergio cavalcante [EMAIL PROTECTED]sroc1978%40gmail.com sroc1978%40gmail.com sroc1978%40gmail.com sroc1978%40gmail.com sroc1978%40gmail.com sroc1978%40gmail.comsroc1978% 40gmail.com escreveu: Oi Eduardo, Obrigado por responder. Infelizmente pegamos o sistema já pronto. E como a homologação tá muito perto, não dá pra mudar mais... Atenciosamente, -- Sérgio Cavalcante 2008/4/16 Eduardo Silva dos Santos [EMAIL PROTECTED]eduardo.drd%40gmail.com eduardo.drd%40gmail.com eduardo.drd%40gmail.com eduardo.drd%40gmail.com eduardo.drd%40gmail.com eduardo.drd%40gmail.com eduardo.drd%40gmail.com eduardo.drd%40gmail.com : Acessar MySQL via ADO que por sua vez usa ODBC é fria, verifique a versão do Driver ODBC para MySQL e assim que possível migre para algum componente de acesso Nativo, Zeos é um bom exemplo de componente free e MyDAC é o Melhor mais é pago. vc vai notar a diferença no desempenho. Em 16/04/08, sergio cavalcante [EMAIL PROTECTED]sroc1978%40gmail.com sroc1978%40gmail.com sroc1978%40gmail.com sroc1978%40gmail.com sroc1978%40gmail.com sroc1978%40gmail.com sroc1978%40gmail.com sroc1978%40gmail.comsroc1978% 40gmail.com escreveu:
Re: [delphi-br] Res:Re: Numeros Aleatórios n ão Aleatórios
O Randomize apenas inicializa o gerador de números aleatórios com um valor pasme... randômico! Este valor randômico é obtido no relógio do sistema. Tudo que escrevi aqui, tirei da ajuda do Delphi. Atte, Ricardo. Tiago de Assis Pimenta [EMAIL PROTECTED] escreveu: Galera, ta ae o código que estou usando: procedure TForm1.Button1Click(Sender: TObject); var i : integer; begin listbox1.clear; randomize; for I := 0 to 9 do listbox1.Items.Add(inttostr(random(10))); end; E vou testar os códigos e as dicas que me passaram. E João Morais, eu intendi o que vc disse, o random pega numeros aleatóriamente, não quer dizer que ele não vá se repetir, isso intendi, mas qual a função então do randomize ??? Pelo que eu li por ae, seria para não deixar repetir os numeros, tipo de 0..9 ele usasse todos sem repetir. Abraço gente. Tiago de Assis Pimenta MSN: [EMAIL PROTECTED] Email: [EMAIL PROTECTED] [As partes desta mensagem que não continham texto foram removidas] _ - Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! [As partes desta mensagem que não continham texto foram removidas]
RE: [delphi-br] Formulários em BPL's
Segundo o próprio help do Delphi, a função LoadPackage() carrega o pacote checando duplicidades de units e executa os blocos 'initialization' de todas as untis contidas no pacote. Somente isso! À medida que vc precisar carregar formulários ou instanciar objetos de classes contidas no package, isso será feito por vc, conforme a demanda da sua aplicação. Ou seja, vc usará o que precisar na hora que vc quiser, criando, mostrando e liberando os formulários do pacote. Sds. To: delphi-br@yahoogrupos.com.br From: [EMAIL PROTECTED] Date: Thu, 17 Apr 2008 09:25:42 -0300 Subject: [delphi-br] Formulários em BPL's Bom dia pessoal, to desenvolvendo uma aplicação e estou querendo dividi-lá em BPL's, irei colocar cada módulo do sistema (Cadastro, Financeiro, etc...) em uma BPL diferente, mas como cada módulo pode ter N formulário e (ou) N units gostaria de saber se quando eu carregar a BPL do módulo de cadastro que tem os formulários frmCadastroCliente e frmCadastroProduto que são formulários que são criados em tempo de execução (frmCadastroCliente := TfrmCadastroCliente.Create(nil)) toda a BPL será carregada ou apenas o que eu for realmente usando durante a execução?? Como eu posso verificar qual o pacote e o que foi carregado dele na hora do desenvolvimento e dos teste?? Vlw pessoal e bom dia a todos... -- Jhosef Marks de Carvalho Delphi Developer http://groups.google.com/group/soumaisdelphi [As partes desta mensagem que não continham texto foram removidas] _ Cansado de espaço para só 50 fotos? Conheça o Spaces, o site de relacionamentos com até 6,000 fotos! http://www.amigosdomessenger.com.br
RE: [delphi-br] Formulários em BPL's
Complementando minha resposta, para vc saber quais pacotes foram carregados enquanto vc está depurando(ou como queiram, 'debugando') sua aplicação, vá até o IDE do Delphi e digite Ctrl+Alt+M. Será mostrada uma janela com a lista de todos os módulos que estão sendo usados pelo aplicativo, incluindo DLLs do Windows e os pacotes. Sabendo quais são as classes de formulários que existem no pacote em tempo de execução (pois em tempo de projeto/depuração/etc. não tem como!), vc pode verificar se existem instâncias dos mesmos já criadas através da função FindClassHInstance(). Pesquise na Internet a utilização dessa função. Boa sorte. Sds. To: delphi-br@yahoogrupos.com.br From: [EMAIL PROTECTED] Date: Thu, 17 Apr 2008 14:45:23 + Subject: RE: [delphi-br] Formulários em BPL's Segundo o próprio help do Delphi, a função LoadPackage() carrega o pacote checando duplicidades de units e executa os blocos 'initialization' de todas as untis contidas no pacote. Somente isso! À medida que vc precisar carregar formulários ou instanciar objetos de classes contidas no package, isso será feito por vc, conforme a demanda da sua aplicação. Ou seja, vc usará o que precisar na hora que vc quiser, criando, mostrando e liberando os formulários do pacote. Sds. To: delphi-br@yahoogrupos.com.br From: [EMAIL PROTECTED] Date: Thu, 17 Apr 2008 09:25:42 -0300 Subject: [delphi-br] Formulários em BPL's Bom dia pessoal, to desenvolvendo uma aplicação e estou querendo dividi-lá em BPL's, irei colocar cada módulo do sistema (Cadastro, Financeiro, etc...) em uma BPL diferente, mas como cada módulo pode ter N formulário e (ou) N units gostaria de saber se quando eu carregar a BPL do módulo de cadastro que tem os formulários frmCadastroCliente e frmCadastroProduto que são formulários que são criados em tempo de execução (frmCadastroCliente := TfrmCadastroCliente.Create(nil)) toda a BPL será carregada ou apenas o que eu for realmente usando durante a execução?? Como eu posso verificar qual o pacote e o que foi carregado dele na hora do desenvolvimento e dos teste?? Vlw pessoal e bom dia a todos... -- Jhosef Marks de Carvalho Delphi Developer http://groups.google.com/group/soumaisdelphi [As partes desta mensagem que não continham texto foram removidas] __ Cansado de espaço para só 50 fotos? Conheça o Spaces, o site de relacionamentos com até 6,000 fotos! http://www.amigosdomessenger.com.br _ Conheça o Windows Live Spaces, a rede de relacionamentos do Messenger! http://www.amigosdomessenger.com.br/
[delphi-br] Re: [lista-delphi] Delphi for PHP 2
To: delphi-br@yahoogrupos.com.br Português é para usuário, desenvolvedor tem que saber inglês, isso vai virar uma salada ferrada, comando em inglês menu em português, uma salada só ! Em 17/04/08, Fellipe Henrique [EMAIL PROTECTED] escreveu: Até hoje, ainda não vi objeção para a IDE do Delphi ser em Portugues... visto que o Brasil tem muitos usuários, acho que vale a pena gastar um pouco mais, pra isso, não é?! []s Em 15/04/08, Odair [EMAIL PROTECTED] odaircg%40yahoo.com.br escreveu: Que esta novidade se estenda ao Delphi todo! Odair - Original Message - From: Andreano Lanusse [EMAIL PROTECTED]andreano.lanusse%40codegear.com andreano.lanusse%40codegear.com To: [EMAIL PROTECTED]delphi_php_oficial%40yahoogrupos.com.br delphi_php_oficial%40yahoogrupos.com.br; delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.brdelphi-br% 40yahoogrupos.com.br; [EMAIL PROTECTED] lista-delphi%40yahoogrupos.com.brlista-delphi% 40yahoogrupos.com.br; [EMAIL PROTECTED] NDDV%40yahoogrupos.com.br NDDV% 40yahoogrupos.com.br Sent: Tuesday, April 15, 2008 9:21 AM Subject: [lista-delphi] Delphi for PHP 2 Oi pessoal, Acabamos de anunciar Delphi for PHP 2 e com uma grande novidade, agora o IDE estará disponível em Português. Aqui um primeiro preview: http://blogs.codegear.com/andreanolanusse do produto, que estará pronto logo logo. Em breve estaremos disponibilizando alguns vídeos sobre as novidades. []'s Andreano Lanusse CodeGear Product Line Manager Evangelist Leader Latin America Blog: http://blogs.codegear.com/andreanolanusse http://blogs.codegear.com/andreanolanusse Não deixe de visitar o site oficial da lista: http://www.delphibr.com.br Comunidade Delphibr no Orkut: http://www.orkut.com/Community.aspx?cmm=753495 Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED]lista-delphi-owner%40yahoogrupos.com.br lista-delphi-owner%40yahoogrupos.com.br Links do Yahoo! Grupos __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/ -- _ T.·.F.·.A.·. Fellipe Henrique [EMAIL PROTECTED] fellipeh%40gmail.com Cansou do MercadoLivre como eu? Tente o www.uaileilão.com.br. [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Formulários em BPL's
Rubem, muito obrigado mesmo... cheguei a dar uma olhada no Help do Delphi
mas naum tinha achado essa parte ai, vlw mesmo... ajudou muito...
Agora soh mais 2 perguntas referente as BPL's.
1ª - Digamos que eu tenha um BPL com todas funções genericas para uso
coletivo, o meu EXE é obrigado a ser complicado com a opção Build with
runtime packages? Ex.: tenho um amigo e passo apenas o arquivo funcoes.bpl
para ele... o EXE desse amigo eh obrigado a ter a opção Build with runtime
packages marcada para poder carregar meu Package??
2ª - Estou carregando as funções da minha bpl assim...
type
TSoma = function(const A, B: Integer): Integer;
procedure TForm1.Button2Click(Sender: TObject);
var
Soma: TSoma;
Pacote: THandle; //Pode ateh ser global e usada em todos os lugares
begin
Pacote := LoadLibrary('funcoes.bpl');
if Pacote 0 then
try
@Soma := GetProcAddress(Pacote, 'Soma');
if @Soma nil then
begin
ShowMessage('Soma: ' + IntToStr(Soma(5, 3)));
end;
FreeLibrary(Pacote);
except
ShowMessage('Pacote não Encontrado');
end;
end;
Seguindo o que vc disse eu poderia colocar o Pacote :=
LoadLibrary('funcoes.bpl'); no inicio da minha aplicação e a chamadas das
funções na hora em q fosse usar.. correto?? Eu tenho que declarar um type
para cada função que eu for usar como se fosse uma DLL??
Obrigado,
Em 17/04/08, Rubem Nascimento da Rocha [EMAIL PROTECTED] escreveu:
Complementando minha resposta, para vc saber quais pacotes foram
carregados enquanto vc está depurando(ou como queiram, 'debugando') sua
aplicação, vá até o IDE do Delphi e digite Ctrl+Alt+M. Será mostrada uma
janela com a lista de todos os módulos que estão sendo usados pelo
aplicativo, incluindo DLLs do Windows e os pacotes.
Sabendo quais são as classes de formulários que existem no pacote em
tempo de execução (pois em tempo de projeto/depuração/etc. não tem como!),
vc pode verificar se existem instâncias dos mesmos já criadas através da
função FindClassHInstance(). Pesquise na Internet a utilização dessa função.
Boa sorte.
Sds.
To: delphi-br@yahoogrupos.com.br
From: [EMAIL PROTECTED]
Date: Thu, 17 Apr 2008 14:45:23 +
Subject: RE: [delphi-br] Formulários em BPL's
Segundo o próprio help do Delphi, a função LoadPackage() carrega o pacote
checando duplicidades de units e executa os blocos 'initialization' de todas
as untis contidas no pacote. Somente isso! À medida que vc precisar carregar
formulários ou instanciar objetos de classes contidas no package, isso será
feito por vc, conforme a demanda da sua aplicação. Ou seja, vc usará o que
precisar na hora que vc quiser, criando, mostrando e liberando os
formulários do pacote.
Sds.
To: delphi-br@yahoogrupos.com.br
From: [EMAIL PROTECTED]
Date: Thu, 17 Apr 2008 09:25:42 -0300
Subject: [delphi-br] Formulários em BPL's
Bom dia pessoal, to desenvolvendo uma aplicação e estou querendo
dividi-lá
em BPL's, irei colocar cada módulo do sistema (Cadastro, Financeiro,
etc...)
em uma BPL diferente, mas como cada módulo pode ter N formulário e (ou) N
units gostaria de saber se quando eu carregar a BPL do módulo de cadastro
que tem os formulários frmCadastroCliente e frmCadastroProduto que são
formulários que são criados em tempo de execução (frmCadastroCliente :=
TfrmCadastroCliente.Create(nil)) toda a BPL será carregada ou apenas o
que
eu for realmente usando durante a execução??
Como eu posso verificar qual o pacote e o que foi carregado dele na hora
do
desenvolvimento e dos teste??
Vlw pessoal e bom dia a todos...
--
Jhosef Marks de Carvalho
Delphi Developer
http://groups.google.com/group/soumaisdelphi
Jhosef Marks de Carvalho
Delphi Developer
http://groups.google.com/group/soumaisdelphi
[As partes desta mensagem que não continham texto foram removidas]
RE: [delphi-br] Formulários em BPL's
Sobre a 1ª pergunta, não tenho certeza, pq até o momento ainda não me deparei
com essa situação de, por exemplo, compartilhar um pacote. Minha experiência
com desenvolvimento em equipe envolvendo packages consistia em cada
desenvolvedor ter o seu projeto individual (gerando um .EXE normal) e depois a
funcionalidade em questão era enviada a um desenvolvedor que se encarregava de
gerar os pacotes do build release. Eu sugiro que seu amigo faça um teste, pois
realmente eu não tenho certeza.
Sobre a 2ª pergunta (que na verdade, foram duas!), a resposta para todas as
perguntas é sim!
Sds.
To: delphi-br@yahoogrupos.com.br
From: [EMAIL PROTECTED]
Date: Thu, 17 Apr 2008 12:39:08 -0300
Subject: Re: [delphi-br] Formulários em BPL's
Rubem, muito obrigado mesmo... cheguei a dar uma olhada no Help do Delphi
mas naum tinha achado essa parte ai, vlw mesmo... ajudou muito...
Agora soh mais 2 perguntas referente as BPL's.
1ª - Digamos que eu tenha um BPL com todas funções genericas para uso
coletivo, o meu EXE é obrigado a ser complicado com a opção Build with
runtime packages? Ex.: tenho um amigo e passo apenas o arquivo funcoes.bpl
para ele... o EXE desse amigo eh obrigado a ter a opção Build with runtime
packages marcada para poder carregar meu Package??
2ª - Estou carregando as funções da minha bpl assim...
type
TSoma = function(const A, B: Integer): Integer;
procedure TForm1.Button2Click(Sender: TObject);
var
Soma: TSoma;
Pacote: THandle; //Pode ateh ser global e usada em todos os lugares
begin
Pacote := LoadLibrary('funcoes.bpl');
if Pacote 0 then
try
@Soma := GetProcAddress(Pacote, 'Soma');
if @Soma nil then
begin
ShowMessage('Soma: ' + IntToStr(Soma(5, 3)));
end;
FreeLibrary(Pacote);
except
ShowMessage('Pacote não Encontrado');
end;
end;
Seguindo o que vc disse eu poderia colocar o Pacote :=
LoadLibrary('funcoes.bpl'); no inicio da minha aplicação e a chamadas das
funções na hora em q fosse usar.. correto?? Eu tenho que declarar um type
para cada função que eu for usar como se fosse uma DLL??
Obrigado,
Em 17/04/08, Rubem Nascimento da Rocha [EMAIL PROTECTED] escreveu:
Complementando minha resposta, para vc saber quais pacotes foram
carregados enquanto vc está depurando(ou como queiram, 'debugando') sua
aplicação, vá até o IDE do Delphi e digite Ctrl+Alt+M. Será mostrada uma
janela com a lista de todos os módulos que estão sendo usados pelo
aplicativo, incluindo DLLs do Windows e os pacotes.
Sabendo quais são as classes de formulários que existem no pacote em
tempo de execução (pois em tempo de projeto/depuração/etc. não tem como!),
vc pode verificar se existem instâncias dos mesmos já criadas através da
função FindClassHInstance(). Pesquise na Internet a utilização dessa função.
Boa sorte.
Sds.
To: delphi-br@yahoogrupos.com.br
From: [EMAIL PROTECTED]
Date: Thu, 17 Apr 2008 14:45:23 +
Subject: RE: [delphi-br] Formulários em BPL's
Segundo o próprio help do Delphi, a função LoadPackage() carrega o pacote
checando duplicidades de units e executa os blocos 'initialization' de todas
as untis contidas no pacote. Somente isso! À medida que vc precisar carregar
formulários ou instanciar objetos de classes contidas no package, isso será
feito por vc, conforme a demanda da sua aplicação. Ou seja, vc usará o que
precisar na hora que vc quiser, criando, mostrando e liberando os
formulários do pacote.
Sds.
To: delphi-br@yahoogrupos.com.br
From: [EMAIL PROTECTED]
Date: Thu, 17 Apr 2008 09:25:42 -0300
Subject: [delphi-br] Formulários em BPL's
Bom dia pessoal, to desenvolvendo uma aplicação e estou querendo
dividi-lá
em BPL's, irei colocar cada módulo do sistema (Cadastro, Financeiro,
etc...)
em uma BPL diferente, mas como cada módulo pode ter N formulário e (ou) N
units gostaria de saber se quando eu carregar a BPL do módulo de cadastro
que tem os formulários frmCadastroCliente e frmCadastroProduto que são
formulários que são criados em tempo de execução (frmCadastroCliente :=
TfrmCadastroCliente.Create(nil)) toda a BPL será carregada ou apenas o
que
eu for realmente usando durante a execução??
Como eu posso verificar qual o pacote e o que foi carregado dele na hora
do
desenvolvimento e dos teste??
Vlw pessoal e bom dia a todos...
--
Jhosef Marks de Carvalho
Delphi Developer
http://groups.google.com/group/soumaisdelphi
Jhosef Marks de Carvalho
Delphi Developer
http://groups.google.com/group/soumaisdelphi
[As partes desta mensagem que não continham texto foram removidas]
_
Confira vídeos com notícias do NY Times, gols direto do Lance, videocassetadas
e muito mais no MSN Video!
http://video.msn.com/?mkt=pt-br
Re: [delphi-br] Res:Re: Numeros Aleatórios nã o Aleatórios
Olha, eu testei aqui a mesma lógica e funcionou perfeitamente. Tiago de Assis Pimenta escreveu: Galera, ta ae o código que estou usando: procedure TForm1.Button1Click(Sender: TObject); var i : integer; begin listbox1.clear; randomize; for I := 0 to 9 do listbox1.Items.Add(inttostr(random(10))); end; E vou testar os códigos e as dicas que me passaram. E João Morais, eu intendi o que vc disse, o random pega numeros aleatóriamente, não quer dizer que ele não vá se repetir, isso intendi, mas qual a função então do randomize ??? Pelo que eu li por ae, seria para não deixar repetir os numeros, tipo de 0..9 ele usasse todos sem repetir. Abraço gente. Tiago de Assis Pimenta MSN: [EMAIL PROTECTED] mailto:tiagopimenta%40hotmail.com Email: [EMAIL PROTECTED] mailto:tiagopimenta%40gmail.com [As partes desta mensagem que não continham texto foram removidas] __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/
[delphi-br] Offzao - Porem - MUITO BOA!
(FOLHA DE SÃO PAULO / março 2006) Uma mulher branca, de aproximadamente 50 anos, chegou ao seu lugar na classe econômica e viu que estava ao lado de um passageiro negro. Visivelmente perturbada, chamou a comissária de bordo. 'Qual o problema, senhora'?, pergunta uma comissária. 'Não está vendo? - respondeu a senhora'. - 'Vocês me colocaram ao lado de um negro. Não posso ficar aqui. Você precisa me dar outra cadeira'. 'Por favor, acalme-se - disse a aeromoça -'. 'Infelizmente, todos os lugares estão ocupados'. Porém, vou ver se ainda temos algum disponível'. A comissária se afasta e volta alguns minutos depois. 'Senhora, como eu disse, não há nenhum outro lugar livre na classe econômica. Falei com o comandante e ele confirmou que não temos mais nenhum lugar nem mesmo na classe econômica'. Temos apenas um lugar na primeira classe'. E antes que a mulher fizesse algum comentário, a comissária continua: 'Veja, é incomum que a nossa companhia permita a um passageiro da classe econômica se assentar na primeira classe. Porém, tendo em vista as circunstâncias, o comandante pensa que seria escandaloso obrigar um passageiro a viajar ao lado de uma pessoa desagradável'. E, dirigindo-se ao senhor negro, a comissária prosseguiu: Portanto, senhor, caso queira, por favor, pegue a sua bagagem de mão, pois reservamos para o senhor um lugar na primeira classe... 'E todos os passageiros próximos, que, estupefatos, assistiam à cena, começaram a aplaudir, alguns de pé. Se você é contra o racismo, envie esta mensagem aos seus amigos, mas não a delete sem ter mandado pelo menos a uma pessoa.' *'O que me preocupa não é o grito dos maus, é o silêncio dos bons .'* [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Offzao - Porem - MUITO BOA!
Eu aplaudiria de pé ! - Original Message - From: Mario Rodrigues To: delphi-br@yahoogrupos.com.br ; [EMAIL PROTECTED] ; [EMAIL PROTECTED] Sent: Thursday, April 17, 2008 1:04 PM Subject: [delphi-br] Offzao - Porem - MUITO BOA! (FOLHA DE SÃO PAULO / março 2006) Uma mulher branca, de aproximadamente 50 anos, chegou ao seu lugar na classe econômica e viu que estava ao lado de um passageiro negro. Visivelmente perturbada, chamou a comissária de bordo. 'Qual o problema, senhora'?, pergunta uma comissária. 'Não está vendo? - respondeu a senhora'. - 'Vocês me colocaram ao lado de um negro. Não posso ficar aqui. Você precisa me dar outra cadeira'. 'Por favor, acalme-se - disse a aeromoça -'. 'Infelizmente, todos os lugares estão ocupados'. Porém, vou ver se ainda temos algum disponível'. A comissária se afasta e volta alguns minutos depois. 'Senhora, como eu disse, não há nenhum outro lugar livre na classe econômica. Falei com o comandante e ele confirmou que não temos mais nenhum lugar nem mesmo na classe econômica'. Temos apenas um lugar na primeira classe'. E antes que a mulher fizesse algum comentário, a comissária continua: 'Veja, é incomum que a nossa companhia permita a um passageiro da classe econômica se assentar na primeira classe. Porém, tendo em vista as circunstâncias, o comandante pensa que seria escandaloso obrigar um passageiro a viajar ao lado de uma pessoa desagradável'. E, dirigindo-se ao senhor negro, a comissária prosseguiu: Portanto, senhor, caso queira, por favor, pegue a sua bagagem de mão, pois reservamos para o senhor um lugar na primeira classe... 'E todos os passageiros próximos, que, estupefatos, assistiam à cena, começaram a aplaudir, alguns de pé. Se você é contra o racismo, envie esta mensagem aos seus amigos, mas não a delete sem ter mandado pelo menos a uma pessoa.' *'O que me preocupa não é o grito dos maus, é o silêncio dos bons .'* [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Res:Re: Numeros Aleatórios não Aleatórios
Eu acho que está havendo algum problema conceitual... Random serve para pegar um número ALEATÓRIO e não que este não seja repetido... tipo... Random(10) vai pegar QUALQUER NÚMERO que corresponda ao conjunto de números inteiros entre 0 e 9, inclusive. As chances de qualquer um desses números sair é de 10%. Ou seja... vamos supor que o primeiro número seja 1. Existe 10% de chance que saia o mesmo número '1' na segunda rodada... A função Randomize somente inicializa o gerador de números aleatórios, conforme o Ricardo César colocou... Para que números não se repitam, confome o que vc quer, vc teria que gerar uma rotina que faça isso... Pode até usar o random e o randomize, mas não somente eles... Espero te-lo ajudado, -- TFA, Leslyn Fernandes 55-11-9159-3837 Computer Engineer Integra Solutions Imagination is more important than knowledge. - Albert Einstein 2008/4/17 Ricardo César Cardoso [EMAIL PROTECTED]: O Randomize apenas inicializa o gerador de números aleatórios com um valor pasme... randômico! Este valor randômico é obtido no relógio do sistema. Tudo que escrevi aqui, tirei da ajuda do Delphi. Atte, Ricardo. Tiago de Assis Pimenta [EMAIL PROTECTED]tiagopimenta82%40yahoo.com.br escreveu: Galera, ta ae o código que estou usando: procedure TForm1.Button1Click(Sender: TObject); var i : integer; begin listbox1.clear; randomize; for I := 0 to 9 do listbox1.Items.Add(inttostr(random(10))); end; E vou testar os códigos e as dicas que me passaram. E João Morais, eu intendi o que vc disse, o random pega numeros aleatóriamente, não quer dizer que ele não vá se repetir, isso intendi, mas qual a função então do randomize ??? Pelo que eu li por ae, seria para não deixar repetir os numeros, tipo de 0..9 ele usasse todos sem repetir. Abraço gente. Tiago de Assis Pimenta MSN: [EMAIL PROTECTED] tiagopimenta%40hotmail.com Email: [EMAIL PROTECTED] tiagopimenta%40gmail.com [As partes desta mensagem que não continham texto foram removidas] _ - Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Res:Re: Numeros Aleatórios nã o Aleatórios
Tiago de Assis Pimenta wrote: qual a função então do randomize ? Evitar que o mesmo padrão de números seja sorteado em execuções consecutivas do seu programa. -- Joao Morais
Re: [delphi-br] Formulários em BPL's
Vlw Rubem mais uma vez... obrigado mesmo...
Em 17/04/08, Rubem Nascimento da Rocha [EMAIL PROTECTED] escreveu:
Sobre a 1ª pergunta, não tenho certeza, pq até o momento ainda não me
deparei com essa situação de, por exemplo, compartilhar um pacote. Minha
experiência com desenvolvimento em equipe envolvendo packages consistia em
cada desenvolvedor ter o seu projeto individual (gerando um .EXE normal) e
depois a funcionalidade em questão era enviada a um desenvolvedor que se
encarregava de gerar os pacotes do build release. Eu sugiro que seu amigo
faça um teste, pois realmente eu não tenho certeza.
Sobre a 2ª pergunta (que na verdade, foram duas!), a resposta para todas
as perguntas é sim!
Sds.
To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br
From: [EMAIL PROTECTED] jhosef%40gmail.com
Date: Thu, 17 Apr 2008 12:39:08 -0300
Subject: Re: [delphi-br] Formulários em BPL's
Rubem, muito obrigado mesmo... cheguei a dar uma olhada no Help do
Delphi
mas naum tinha achado essa parte ai, vlw mesmo... ajudou muito...
Agora soh mais 2 perguntas referente as BPL's.
1ª - Digamos que eu tenha um BPL com todas funções genericas para uso
coletivo, o meu EXE é obrigado a ser complicado com a opção Build with
runtime packages? Ex.: tenho um amigo e passo apenas o arquivo
funcoes.bpl
para ele... o EXE desse amigo eh obrigado a ter a opção Build with
runtime
packages marcada para poder carregar meu Package??
2ª - Estou carregando as funções da minha bpl assim...
type
TSoma = function(const A, B: Integer): Integer;
procedure TForm1.Button2Click(Sender: TObject);
var
Soma: TSoma;
Pacote: THandle; //Pode ateh ser global e usada em todos os lugares
begin
Pacote := LoadLibrary('funcoes.bpl');
if Pacote 0 then
try
@Soma := GetProcAddress(Pacote, 'Soma');
if @Soma nil then
begin
ShowMessage('Soma: ' + IntToStr(Soma(5, 3)));
end;
FreeLibrary(Pacote);
except
ShowMessage('Pacote não Encontrado');
end;
end;
Seguindo o que vc disse eu poderia colocar o Pacote :=
LoadLibrary('funcoes.bpl'); no inicio da minha aplicação e a chamadas
das
funções na hora em q fosse usar.. correto?? Eu tenho que declarar um
type
para cada função que eu for usar como se fosse uma DLL??
Obrigado,
Em 17/04/08, Rubem Nascimento da Rocha [EMAIL
PROTECTED]djpardalrocha%40hotmail.com
escreveu:
Complementando minha resposta, para vc saber quais pacotes foram
carregados enquanto vc está depurando(ou como queiram, 'debugando') sua
aplicação, vá até o IDE do Delphi e digite Ctrl+Alt+M. Será mostrada uma
janela com a lista de todos os módulos que estão sendo usados pelo
aplicativo, incluindo DLLs do Windows e os pacotes.
Sabendo quais são as classes de formulários que existem no pacote em
tempo de execução (pois em tempo de projeto/depuração/etc. não tem
como!),
vc pode verificar se existem instâncias dos mesmos já criadas através da
função FindClassHInstance(). Pesquise na Internet a utilização dessa
função.
Boa sorte.
Sds.
To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br
From: [EMAIL PROTECTED] djpardalrocha%40hotmail.com
Date: Thu, 17 Apr 2008 14:45:23 +
Subject: RE: [delphi-br] Formulários em BPL's
Segundo o próprio help do Delphi, a função LoadPackage() carrega o
pacote
checando duplicidades de units e executa os blocos 'initialization' de
todas
as untis contidas no pacote. Somente isso! À medida que vc precisar
carregar
formulários ou instanciar objetos de classes contidas no package, isso
será
feito por vc, conforme a demanda da sua aplicação. Ou seja, vc usará o
que
precisar na hora que vc quiser, criando, mostrando e liberando os
formulários do pacote.
Sds.
To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br
From: [EMAIL PROTECTED] jhosef%40gmail.com
Date: Thu, 17 Apr 2008 09:25:42 -0300
Subject: [delphi-br] Formulários em BPL's
Bom dia pessoal, to desenvolvendo uma aplicação e estou querendo
dividi-lá
em BPL's, irei colocar cada módulo do sistema (Cadastro, Financeiro,
etc...)
em uma BPL diferente, mas como cada módulo pode ter N formulário e (ou)
N
units gostaria de saber se quando eu carregar a BPL do módulo de
cadastro
que tem os formulários frmCadastroCliente e frmCadastroProduto que são
formulários que são criados em tempo de execução (frmCadastroCliente :=
TfrmCadastroCliente.Create(nil)) toda a BPL será carregada ou apenas o
que
eu for realmente usando durante a execução??
Como eu posso verificar qual o pacote e o que foi carregado dele na
hora
do
desenvolvimento e dos teste??
Vlw pessoal e bom dia a todos...
--
Jhosef Marks de Carvalho
Delphi Developer
http://groups.google.com/group/soumaisdelphi
Jhosef Marks de Carvalho
Delphi Developer
RES: [delphi-br] Re: [lista-delphi] Delphi for PHP 2
Daqui a pouco vão querer que a CodeGear traduza também o BEGIN, END, WHILE, etc. Hehe De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Marcos André Enviada em: quinta-feira, 17 de abril de 2008 11:53 Para: delphi-br@yahoogrupos.com.br Cc: Tiago Santos Assunto: [delphi-br] Re: [lista-delphi] Delphi for PHP 2 To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Português é para usuário, desenvolvedor tem que saber inglês, isso vai virar uma salada ferrada, comando em inglês menu em português, uma salada só ! Em 17/04/08, Fellipe Henrique [EMAIL PROTECTED] mailto:fellipeh%40gmail.com escreveu: Até hoje, ainda não vi objeção para a IDE do Delphi ser em Portugues... visto que o Brasil tem muitos usuários, acho que vale a pena gastar um pouco mais, pra isso, não é?! []s Em 15/04/08, Odair [EMAIL PROTECTED] mailto:odaircg%40yahoo.com.br odaircg%40yahoo.com.br escreveu: Que esta novidade se estenda ao Delphi todo! Odair - Original Message - From: Andreano Lanusse [EMAIL PROTECTED] mailto:andreano.lanusse%40codegear.com andreano.lanusse%40codegear.com andreano.lanusse%40codegear.com To: [EMAIL PROTECTED] mailto:delphi_php_oficial%40yahoogrupos.com.br delphi_php_oficial%40yahoogrupos.com.br delphi_php_oficial%40yahoogrupos.com.br; delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br delphi-br%40yahoogrupos.com.brdelphi-br% 40yahoogrupos.com.br; [EMAIL PROTECTED] mailto:lista-delphi%40yahoogrupos.com.br lista-delphi%40yahoogrupos.com.brlista-delphi% 40yahoogrupos.com.br; [EMAIL PROTECTED] mailto:NDDV%40yahoogrupos.com.br NDDV%40yahoogrupos.com.br NDDV% 40yahoogrupos.com.br Sent: Tuesday, April 15, 2008 9:21 AM Subject: [lista-delphi] Delphi for PHP 2 Oi pessoal, Acabamos de anunciar Delphi for PHP 2 e com uma grande novidade, agora o IDE estará disponível em Português. Aqui um primeiro preview: http://blogs.codegear.com/andreanolanusse do produto, que estará pronto logo logo. Em breve estaremos disponibilizando alguns vídeos sobre as novidades. []'s Andreano Lanusse CodeGear Product Line Manager Evangelist Leader Latin America Blog: http://blogs.codegear.com/andreanolanusse http://blogs.codegear.com/andreanolanusse Não deixe de visitar o site oficial da lista: http://www.delphibr.com.br Comunidade Delphibr no Orkut: http://www.orkut.com/Community.aspx?cmm=753495 Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] mailto:lista-delphi-owner%40yahoogrupos.com.br lista-delphi-owner%40yahoogrupos.com.br lista-delphi-owner%40yahoogrupos.com.br Links do Yahoo! Grupos __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/ -- _ T.·.F.·.A.·. Fellipe Henrique [EMAIL PROTECTED] mailto:fellipeh%40gmail.com fellipeh%40gmail.com Cansou do MercadoLivre como eu? Tente o www.uaileilão.com.br. [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Re: [lista-delphi] Delphi for PHP 2
Não concordo... Aposto que vc usa windows em portugues. e nem por isso vc programa em portugues... nada impede da IDE e Help ser em portugues e a linguagem ser em ingles.. prova disso o Lazarus... []s Em 17/04/08, Marcos André [EMAIL PROTECTED] escreveu: To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Português é para usuário, desenvolvedor tem que saber inglês, isso vai virar uma salada ferrada, comando em inglês menu em português, uma salada só ! Em 17/04/08, Fellipe Henrique [EMAIL PROTECTED] fellipeh%40gmail.com escreveu: Até hoje, ainda não vi objeção para a IDE do Delphi ser em Portugues... visto que o Brasil tem muitos usuários, acho que vale a pena gastar um pouco mais, pra isso, não é?! []s Em 15/04/08, Odair [EMAIL PROTECTED] odaircg%40yahoo.com.brodaircg% 40yahoo.com.br escreveu: Que esta novidade se estenda ao Delphi todo! Odair - Original Message - From: Andreano Lanusse [EMAIL PROTECTED]andreano.lanusse%40codegear.com andreano.lanusse%40codegear.com andreano.lanusse%40codegear.com To: [EMAIL PROTECTED]delphi_php_oficial%40yahoogrupos.com.br delphi_php_oficial%40yahoogrupos.com.br delphi_php_oficial%40yahoogrupos.com.br; delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.brdelphi-br% 40yahoogrupos.com.brdelphi-br% 40yahoogrupos.com.br; [EMAIL PROTECTED] lista-delphi%40yahoogrupos.com.brlista-delphi% 40yahoogrupos.com.brlista-delphi% 40yahoogrupos.com.br; [EMAIL PROTECTED] NDDV%40yahoogrupos.com.br NDDV% 40yahoogrupos.com.br NDDV% 40yahoogrupos.com.br Sent: Tuesday, April 15, 2008 9:21 AM Subject: [lista-delphi] Delphi for PHP 2 Oi pessoal, Acabamos de anunciar Delphi for PHP 2 e com uma grande novidade, agora o IDE estará disponível em Português. Aqui um primeiro preview: http://blogs.codegear.com/andreanolanusse do produto, que estará pronto logo logo. Em breve estaremos disponibilizando alguns vídeos sobre as novidades. []'s Andreano Lanusse CodeGear Product Line Manager Evangelist Leader Latin America Blog: http://blogs.codegear.com/andreanolanusse http://blogs.codegear.com/andreanolanusse Não deixe de visitar o site oficial da lista: http://www.delphibr.com.br Comunidade Delphibr no Orkut: http://www.orkut.com/Community.aspx?cmm=753495 Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED]lista-delphi-owner%40yahoogrupos.com.br lista-delphi-owner%40yahoogrupos.com.br lista-delphi-owner%40yahoogrupos.com.br Links do Yahoo! Grupos __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/ -- _ T.·.F.·.A.·. Fellipe Henrique [EMAIL PROTECTED] fellipeh%40gmail.com fellipeh%40gmail.com Cansou do MercadoLivre como eu? Tente o www.uaileilão.com.brhttp://www.uaileil%C3%A3o.com.br . [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- _ T.·.F.·.A.·. Fellipe Henrique [EMAIL PROTECTED] Cansou do MercadoLivre como eu? Tente o www.uaileilão.com.br. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Re: [lista-delphi] Delphi for PHP 2
Tirando as piadinhas sem graça, que nada acrescentam na discussão, Se tivesse feita uma tradução de pelo menos o Help, garanto que 90% das listas de discussões terminariam, pois muitas duvidas vem de pessoas com dificuldades em ingles, e interpretar o help. Se fosse em portugues, a historia seria outra. []s Em 17/04/08, Gerhard Roger Nack [EMAIL PROTECTED] escreveu: Daqui a pouco vão querer que a CodeGear traduza também o BEGIN, END, WHILE, etc. Hehe De: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br [mailto: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br] Em nome de Marcos André Enviada em: quinta-feira, 17 de abril de 2008 11:53 Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Cc: Tiago Santos Assunto: [delphi-br] Re: [lista-delphi] Delphi for PHP 2 To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br mailto: delphi-br%40yahoogrupos.com.br delphi-br%2540yahoogrupos.com.br Português é para usuário, desenvolvedor tem que saber inglês, isso vai virar uma salada ferrada, comando em inglês menu em português, uma salada só ! Em 17/04/08, Fellipe Henrique [EMAIL PROTECTED] fellipeh%40gmail.commailto: fellipeh%40gmail.com fellipeh%2540gmail.com escreveu: Até hoje, ainda não vi objeção para a IDE do Delphi ser em Portugues... visto que o Brasil tem muitos usuários, acho que vale a pena gastar um pouco mais, pra isso, não é?! []s Em 15/04/08, Odair [EMAIL PROTECTED] odaircg%40yahoo.com.brmailto: odaircg%40yahoo.com.br odaircg%2540yahoo.com.br odaircg%40yahoo.com.br escreveu: Que esta novidade se estenda ao Delphi todo! Odair - Original Message - From: Andreano Lanusse [EMAIL PROTECTED]andreano.lanusse%40codegear.commailto: andreano.lanusse%40codegear.com andreano.lanusse%2540codegear.com andreano.lanusse%40codegear.com andreano.lanusse%40codegear.com To: [EMAIL PROTECTED]delphi_php_oficial%40yahoogrupos.com.brmailto: delphi_php_oficial%40yahoogrupos.com.brdelphi_php_oficial%2540yahoogrupos.com.br delphi_php_oficial%40yahoogrupos.com.br delphi_php_oficial%40yahoogrupos.com.br; delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.brmailto: delphi-br%40yahoogrupos.com.br delphi-br%2540yahoogrupos.com.br delphi-br%40yahoogrupos.com.brdelphi-br% 40yahoogrupos.com.br; [EMAIL PROTECTED] lista-delphi%40yahoogrupos.com.brmailto: lista-delphi%40yahoogrupos.com.br lista-delphi%2540yahoogrupos.com.br lista-delphi%40yahoogrupos.com.brlista-delphi% 40yahoogrupos.com.br; [EMAIL PROTECTED] NDDV%40yahoogrupos.com.br mailto: NDDV%40yahoogrupos.com.br NDDV%2540yahoogrupos.com.br NDDV% 40yahoogrupos.com.br NDDV% 40yahoogrupos.com.br Sent: Tuesday, April 15, 2008 9:21 AM Subject: [lista-delphi] Delphi for PHP 2 Oi pessoal, Acabamos de anunciar Delphi for PHP 2 e com uma grande novidade, agora o IDE estará disponível em Português. Aqui um primeiro preview: http://blogs.codegear.com/andreanolanusse do produto, que estará pronto logo logo. Em breve estaremos disponibilizando alguns vídeos sobre as novidades. []'s Andreano Lanusse CodeGear Product Line Manager Evangelist Leader Latin America Blog: http://blogs.codegear.com/andreanolanusse http://blogs.codegear.com/andreanolanusse Não deixe de visitar o site oficial da lista: http://www.delphibr.com.br Comunidade Delphibr no Orkut: http://www.orkut.com/Community.aspx?cmm=753495 Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED]lista-delphi-owner%40yahoogrupos.com.brmailto: lista-delphi-owner%40yahoogrupos.com.brlista-delphi-owner%2540yahoogrupos.com.br lista-delphi-owner%40yahoogrupos.com.br lista-delphi-owner%40yahoogrupos.com.br Links do Yahoo! Grupos __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/ -- _ T.·.F.·.A.·. Fellipe Henrique [EMAIL PROTECTED] fellipeh%40gmail.com mailto:fellipeh%40gmail.comfellipeh%2540gmail.com fellipeh%40gmail.com Cansou do MercadoLivre como eu? Tente o www.uaileilão.com.brhttp://www.uaileil%C3%A3o.com.br . [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- _ T.·.F.·.A.·. Fellipe Henrique [EMAIL PROTECTED] Cansou do MercadoLivre como eu? Tente o www.uaileilão.com.br. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Re: [lista-delphi] Delphi for PHP 2
Concordo com vc nisso... Se traduzissem só o Help, já seria um grande passo. Atte, Ricardo. Fellipe Henrique [EMAIL PROTECTED] escreveu: Tirando as piadinhas sem graça, que nada acrescentam na discussão, Se tivesse feita uma tradução de pelo menos o Help, garanto que 90% das listas de discussões terminariam, pois muitas duvidas vem de pessoas com dificuldades em ingles, e interpretar o help. Se fosse em portugues, a historia seria outra. []s - Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Re: [lista-delphi] Delphi for PHP 2
concordo, muitas vezes o help nao ajuda hehehe Em 17/04/08, Ricardo César Cardoso [EMAIL PROTECTED] escreveu: Concordo com vc nisso... Se traduzissem só o Help, já seria um grande passo. Atte, Ricardo. Fellipe Henrique [EMAIL PROTECTED] fellipeh%40gmail.com escreveu: Tirando as piadinhas sem graça, que nada acrescentam na discussão, Se tivesse feita uma tradução de pelo menos o Help, garanto que 90% das listas de discussões terminariam, pois muitas duvidas vem de pessoas com dificuldades em ingles, e interpretar o help. Se fosse em portugues, a historia seria outra. []s - Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! [As partes desta mensagem que não continham texto foram removidas] -- Felipe Govoni - Programador Fone 8472-8718 [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Formulários em BPL's
Entaum Rubem fiz o teste e da para um exe que naum eh modularizado carregar
uma BPL sem problema, mas se tiver muita BPL e vc não modulariza a sua
aplicação fica estranho pois vai ter um monte de bpl do delphi e mais o seu
EXE q ta gigante... rs
Rubem o que vc's fazem com a bpls de vc's?? deixa na system32 do windows ou
deixa jundo do EXE principal???
Em 17/04/08, Jhosef Marks [EMAIL PROTECTED] escreveu:
Vlw Rubem mais uma vez... obrigado mesmo...
Em 17/04/08, Rubem Nascimento da Rocha [EMAIL PROTECTED]
escreveu:
Sobre a 1ª pergunta, não tenho certeza, pq até o momento ainda não me
deparei com essa situação de, por exemplo, compartilhar um pacote. Minha
experiência com desenvolvimento em equipe envolvendo packages consistia em
cada desenvolvedor ter o seu projeto individual (gerando um .EXE normal) e
depois a funcionalidade em questão era enviada a um desenvolvedor que se
encarregava de gerar os pacotes do build release. Eu sugiro que seu amigo
faça um teste, pois realmente eu não tenho certeza.
Sobre a 2ª pergunta (que na verdade, foram duas!), a resposta para todas
as perguntas é sim!
Sds.
To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br
From: [EMAIL PROTECTED] jhosef%40gmail.com
Date: Thu, 17 Apr 2008 12:39:08 -0300
Subject: Re: [delphi-br] Formulários em BPL's
Rubem, muito obrigado mesmo... cheguei a dar uma olhada no Help do
Delphi
mas naum tinha achado essa parte ai, vlw mesmo... ajudou muito...
Agora soh mais 2 perguntas referente as BPL's.
1ª - Digamos que eu tenha um BPL com todas funções genericas para uso
coletivo, o meu EXE é obrigado a ser complicado com a opção Build
with
runtime packages? Ex.: tenho um amigo e passo apenas o arquivo
funcoes.bpl
para ele... o EXE desse amigo eh obrigado a ter a opção Build with
runtime
packages marcada para poder carregar meu Package??
2ª - Estou carregando as funções da minha bpl assim...
type
TSoma = function(const A, B: Integer): Integer;
procedure TForm1.Button2Click(Sender: TObject);
var
Soma: TSoma;
Pacote: THandle; //Pode ateh ser global e usada em todos os lugares
begin
Pacote := LoadLibrary('funcoes.bpl');
if Pacote 0 then
try
@Soma := GetProcAddress(Pacote, 'Soma');
if @Soma nil then
begin
ShowMessage('Soma: ' + IntToStr(Soma(5, 3)));
end;
FreeLibrary(Pacote);
except
ShowMessage('Pacote não Encontrado');
end;
end;
Seguindo o que vc disse eu poderia colocar o Pacote :=
LoadLibrary('funcoes.bpl'); no inicio da minha aplicação e a chamadas
das
funções na hora em q fosse usar.. correto?? Eu tenho que declarar um
type
para cada função que eu for usar como se fosse uma DLL??
Obrigado,
Em 17/04/08, Rubem Nascimento da Rocha [EMAIL
PROTECTED]djpardalrocha%40hotmail.com
escreveu:
Complementando minha resposta, para vc saber quais pacotes foram
carregados enquanto vc está depurando(ou como queiram, 'debugando')
sua
aplicação, vá até o IDE do Delphi e digite Ctrl+Alt+M. Será mostrada
uma
janela com a lista de todos os módulos que estão sendo usados pelo
aplicativo, incluindo DLLs do Windows e os pacotes.
Sabendo quais são as classes de formulários que existem no pacote em
tempo de execução (pois em tempo de projeto/depuração/etc. não tem
como!),
vc pode verificar se existem instâncias dos mesmos já criadas através
da
função FindClassHInstance(). Pesquise na Internet a utilização dessa
função.
Boa sorte.
Sds.
To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br
From: [EMAIL PROTECTED] djpardalrocha%40hotmail.com
Date: Thu, 17 Apr 2008 14:45:23 +
Subject: RE: [delphi-br] Formulários em BPL's
Segundo o próprio help do Delphi, a função LoadPackage() carrega o
pacote
checando duplicidades de units e executa os blocos 'initialization' de
todas
as untis contidas no pacote. Somente isso! À medida que vc precisar
carregar
formulários ou instanciar objetos de classes contidas no package, isso
será
feito por vc, conforme a demanda da sua aplicação. Ou seja, vc usará o
que
precisar na hora que vc quiser, criando, mostrando e liberando os
formulários do pacote.
Sds.
To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br
From: [EMAIL PROTECTED] jhosef%40gmail.com
Date: Thu, 17 Apr 2008 09:25:42 -0300
Subject: [delphi-br] Formulários em BPL's
Bom dia pessoal, to desenvolvendo uma aplicação e estou querendo
dividi-lá
em BPL's, irei colocar cada módulo do sistema (Cadastro, Financeiro,
etc...)
em uma BPL diferente, mas como cada módulo pode ter N formulário e
(ou) N
units gostaria de saber se quando eu carregar a BPL do módulo de
cadastro
que tem os formulários
[delphi-br] Questionário no Delphi
Pessoal Tenho um grande problema... tenho questionário grande no delphi, são várias perguntas, cada pergunta tem uma série de opções... bem o problema é o seguinte, tenho que colocar tudo isso em um FORM, são ao todos 40 questões, estou procurando alguma forma de fazer o FORM rolar automaticamente ou qualquer outra coisa, mas está muito difícil, gostaria de alguma sugestão, não posso colocar em ABAS... att. Juliano Silva [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Questionário no Delphi
Tente usar o TScrollBox da paleta Additional 2008/4/17 Juliano Silva - Yahoo [EMAIL PROTECTED]: Pessoal Tenho um grande problema... tenho questionário grande no delphi, são várias perguntas, cada pergunta tem uma série de opções... bem o problema é o seguinte, tenho que colocar tudo isso em um FORM, são ao todos 40 questões, estou procurando alguma forma de fazer o FORM rolar automaticamente ou qualquer outra coisa, mas está muito difícil, gostaria de alguma sugestão, não posso colocar em ABAS... att. Juliano Silva [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Impressão de um documento Wo rd delphi5
Boa tarde Doretto!
Deu algum erro? Qual?
Atte,
Ricardo.
Doretto [EMAIL PROTECTED] escreveu: Boa tarde.
Tenho um determinado documento Word e gostaria de fazer alteracoes,
salva-lo e imprimir via sistema. Tem como ?
Tentei isto:7
Var
Msword, Docs, Doc: Variant;
begin
ArqCont:=DirExecutavel+Pega_Mem(Main.Manuten,'ArquivoTermo');
CopyFile(Pchar(ArqCont),PChar('C:\termo.rtf'),False);
ArqNovo:='c:\termo.rtf';
Msword:=CreateOleObject('Word.Application');
Msword.Visible:=True;
Docs:=Msword.Documents;
Doc:=Docs.Open(ArqNovo);
Doc.Content.Find.Execute(FindText:='@desconto',ReplaceWith:='R$
'+FormatFloat('###,##0.00',Editn2.ValueFloat));
Doc.ActiveDocument.SaveAs(FileName := 'c:\termo.rtf');
Doc.PrintOut(False, , , ArqNovo, , , , , , , True);
Nao deu muito certo
Doretto
[As partes desta mensagem que não continham texto foram removidas]
-
Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento!
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Impressão de um documento Word delph i5
Na verdade ele apresentou uma mensagem de ARQUIVO SOMENTE LEITURA, eu gostaria
que imprimisse direto s/ mensagens
Doretto
- Original Message -
From: Ricardo César Cardoso
To: delphi-br@yahoogrupos.com.br
Sent: Thursday, April 17, 2008 4:31 PM
Subject: Re: [delphi-br] Impressão de um documento Word delphi5
Boa tarde Doretto!
Deu algum erro? Qual?
Atte,
Ricardo.
Doretto [EMAIL PROTECTED] escreveu: Boa tarde.
Tenho um determinado documento Word e gostaria de fazer alteracoes,
salva-lo e imprimir via sistema. Tem como ?
Tentei isto:7
Var
Msword, Docs, Doc: Variant;
begin
ArqCont:=DirExecutavel+Pega_Mem(Main.Manuten,'ArquivoTermo');
CopyFile(Pchar(ArqCont),PChar('C:\termo.rtf'),False);
ArqNovo:='c:\termo.rtf';
Msword:=CreateOleObject('Word.Application');
Msword.Visible:=True;
Docs:=Msword.Documents;
Doc:=Docs.Open(ArqNovo);
Doc.Content.Find.Execute(FindText:='@desconto',ReplaceWith:='R$
'+FormatFloat('###,##0.00',Editn2.ValueFloat));
Doc.ActiveDocument.SaveAs(FileName := 'c:\termo.rtf');
Doc.PrintOut(False, , , ArqNovo, , , , , , , True);
Nao deu muito certo
Doretto
[As partes desta mensagem que não continham texto foram removidas]
-
Abra sua conta no Yahoo! Mail, o único sem limite de espaço para
armazenamento!
[As partes desta mensagem que não continham texto foram removidas]
__ Informação do NOD32 IMON 3035 (20080417) __
Esta mensagem foi verificada pelo NOD32 sistema antivírus
http://www.eset.com.br
[As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Ajuda Ja tentei de tudo
Como faço para eu pegar um valor o valor no banco de dados jogar em uma variavel e fazer os testes desse valor adquirido, um por vez. To jeito que estou tentando so me da o ultimo valor cadastrado no banco. while not dataret.Convenio.Eof do begin numcon:= dataret.ConvenioNUMCON.Value; conv:= inttostr (dataret.ConvenioNUMCON.value); listbox2.Items.Add(conv); dataret.Convenio.Next;
Re: [delphi-br] algumas dúvidas sobre SUM( ) e GROUP BY...
SELECT ID, count(NUMERO) AS NUMERO,NOME, SALARIO,(count(NUMERO) * SALARIO) AS TOTALSALARIO FROM Teste1 group by id, nome,salario Flavio escreveu: Olá pessoal, bom dia, estou com um probleminha aqui. Suponha que tenho 1 tabela com os campos: ID, NUMERO, NOME, SALARIO. Quero fazer a seguinte consulta: no resultado tem que aparecer todos esses campos + um campo indicando o total de salario de acordo com o NUMERO, mas não deve ser agrupado o campo NUMERO, ou seja, para cada registro que tiver o mesmo NUMERO deve aparecer nos resultados com o campo TOTAL DE SALARIOS armazenando o total de salários daquele NUMERO. EXEMPLO: a resposta poderia ser como essa: | NUMERO | NOME | SALARIO | TOTALSALARIOS | 1 | 1 | a | 1.00 | 3.00 | 2 | 1 | b | 2.00 | 3.00 | 3 | 2 | c | 5.00 | 5.00 | É possível néh, mas como ? Alguém me ajuda ? Obrigado pela atenção de todos. Flávio. - Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento!
Re: [delphi-br] Questionário no Delphi
vc pode usar tbem um PAGECONTROL Consultores Software escreveu: Tente usar o TScrollBox da paleta Additional 2008/4/17 Juliano Silva - Yahoo [EMAIL PROTECTED] mailto:smjjuliano%40yahoo.com.br: Pessoal Tenho um grande problema... tenho questionário grande no delphi, são várias perguntas, cada pergunta tem uma série de opções... bem o problema é o seguinte, tenho que colocar tudo isso em um FORM, são ao todos 40 questões, estou procurando alguma forma de fazer o FORM rolar automaticamente ou qualquer outra coisa, mas está muito difícil, gostaria de alguma sugestão, não posso colocar em ABAS... att. Juliano Silva [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
RE: [delphi-br] Questionário no Delphi
Humberto, o colega Juliano já havia dito que não poderia usar 'abas'. Sds. To: delphi-br@yahoogrupos.com.br From: [EMAIL PROTECTED] Date: Thu, 17 Apr 2008 16:39:19 -0300 Subject: Re: [delphi-br] Questionário no Delphi vc pode usar tbem um PAGECONTROL Consultores Software escreveu: Tente usar o TScrollBox da paleta Additional 2008/4/17 Juliano Silva - Yahoo [EMAIL PROTECTED] : Pessoal Tenho um grande problema... tenho questionário grande no delphi, são várias perguntas, cada pergunta tem uma série de opções... bem o problema é o seguinte, tenho que colocar tudo isso em um FORM, são ao todos 40 questões, estou procurando alguma forma de fazer o FORM rolar automaticamente ou qualquer outra coisa, mas está muito difícil, gostaria de alguma sugestão, não posso colocar em ABAS... att. Juliano Silva [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] _ Cansado de espaço para só 50 fotos? Conheça o Spaces, o site de relacionamentos com até 6,000 fotos! http://www.amigosdomessenger.com.br
RE: [delphi-br] Formulários em BPL's
Jhosef,
Com aplicações modularizadas em Delphi eu costumo agir da seguinte maneira:
0) O executável principal é compilado com a opção 'Build with runtime
packages'. Dessa forma ele fica muito pequeno. Nem precisa ficar usando
compressores de executável, como ASPack ou UPX da vida! Quando muito, vc pode
usar essa mágica no instalador da sua aplicação, mas na própria aplicação
principal, nem precisa se dar ao trabalho, pq já vai estar muito pequeno!
1) Todos os BPLs referentes aos componentes padrão do Delphi, assim como de
componentes de terceiros que venha a usar (JediVCL, DevExpress, InfoPower,
etc.), eu coloco tudo no System32!
2) O executável principal da aplicação fica na sua pasta na qual ele foi
copiado/instalado!
3) Todos os BPLs que correspondem aos módulos(por assim dizer) da aplicação,
além de serem definidos como packages apenas de runtime, ficam em uma pasta um
nível abaixo do nível do executável principal, e nessa pasta o executável
principal busca e efetua a carga dos mesmos.
Nada impede que vc coloque os BPLs da sua aplicação na System32, visto que uma
BPL, em essência, também é uma DLL, e como tal segue a mesma ordem de busca que
uma DLL estática comum segue na hora de efetuar a sua carga. No meu caso, isso
se aplica a quase todas as BPLs da minha aplicação, exceto por uma BPL que eu
crio para gerenciar a carga dos pacotes (Chega! já falei até demais!).
Mas, como eu disse, isto não é um padrão, e sim a minha maneira de trabalhar
com pacotes! Cada um DEVE criar o seu próprio meio de gerenciamento dos módulos
de sua aplicação.
Sds.
To: delphi-br@yahoogrupos.com.br
From: [EMAIL PROTECTED]
Date: Thu, 17 Apr 2008 15:40:27 -0300
Subject: Re: [delphi-br] Formulários em BPL's
Entaum Rubem fiz o teste e da para um exe que naum eh modularizado carregar
uma BPL sem problema, mas se tiver muita BPL e vc não modulariza a sua
aplicação fica estranho pois vai ter um monte de bpl do delphi e mais o seu
EXE q ta gigante... rs
Rubem o que vc's fazem com a bpls de vc's?? deixa na system32 do windows ou
deixa jundo do EXE principal???
Em 17/04/08, Jhosef Marks [EMAIL PROTECTED] escreveu:
Vlw Rubem mais uma vez... obrigado mesmo...
Em 17/04/08, Rubem Nascimento da Rocha [EMAIL PROTECTED]
escreveu:
Sobre a 1ª pergunta, não tenho certeza, pq até o momento ainda não me
deparei com essa situação de, por exemplo, compartilhar um pacote. Minha
experiência com desenvolvimento em equipe envolvendo packages consistia em
cada desenvolvedor ter o seu projeto individual (gerando um .EXE normal) e
depois a funcionalidade em questão era enviada a um desenvolvedor que se
encarregava de gerar os pacotes do build release. Eu sugiro que seu amigo
faça um teste, pois realmente eu não tenho certeza.
Sobre a 2ª pergunta (que na verdade, foram duas!), a resposta para todas
as perguntas é sim!
Sds.
To: delphi-br@yahoogrupos.com.br
From: [EMAIL PROTECTED]
Date: Thu, 17 Apr 2008 12:39:08 -0300
Subject: Re: [delphi-br] Formulários em BPL's
Rubem, muito obrigado mesmo... cheguei a dar uma olhada no Help do
Delphi
mas naum tinha achado essa parte ai, vlw mesmo... ajudou muito...
Agora soh mais 2 perguntas referente as BPL's.
1ª - Digamos que eu tenha um BPL com todas funções genericas para uso
coletivo, o meu EXE é obrigado a ser complicado com a opção Build
with
runtime packages? Ex.: tenho um amigo e passo apenas o arquivo
funcoes.bpl
para ele... o EXE desse amigo eh obrigado a ter a opção Build with
runtime
packages marcada para poder carregar meu Package??
2ª - Estou carregando as funções da minha bpl assim...
type
TSoma = function(const A, B: Integer): Integer;
procedure TForm1.Button2Click(Sender: TObject);
var
Soma: TSoma;
Pacote: THandle; //Pode ateh ser global e usada em todos os lugares
begin
Pacote := LoadLibrary('funcoes.bpl');
if Pacote 0 then
try
@Soma := GetProcAddress(Pacote, 'Soma');
if @Soma nil then
begin
ShowMessage('Soma: ' + IntToStr(Soma(5, 3)));
end;
FreeLibrary(Pacote);
except
ShowMessage('Pacote não Encontrado');
end;
end;
Seguindo o que vc disse eu poderia colocar o Pacote :=
LoadLibrary('funcoes.bpl'); no inicio da minha aplicação e a chamadas
das
funções na hora em q fosse usar.. correto?? Eu tenho que declarar um
type
para cada função que eu for usar como se fosse uma DLL??
Obrigado,
Em 17/04/08, Rubem Nascimento da Rocha [EMAIL PROTECTED]
escreveu:
Complementando minha resposta, para vc saber quais pacotes foram
carregados enquanto vc está depurando(ou como queiram, 'debugando')
sua
aplicação, vá até o IDE do Delphi e digite Ctrl+Alt+M. Será mostrada
uma
janela com a lista de todos os módulos que estão sendo usados pelo
aplicativo, incluindo DLLs do Windows e os pacotes.
Sabendo quais são as classes de formulários que existem no pacote em
tempo de execução (pois em tempo de projeto/depuração/etc. não tem
como!),
vc pode
Re: [delphi-br] Ajuda Ja tentei de tudo
Até onde deu pra entender, os seus testes tem que estar dentro do laço while. Atte, Ricardo. diegosaldanha0903 [EMAIL PROTECTED] escreveu: Como faço para eu pegar um valor o valor no banco de dados jogar em uma variavel e fazer os testes desse valor adquirido, um por vez. To jeito que estou tentando so me da o ultimo valor cadastrado no banco. while not dataret.Convenio.Eof do begin numcon:= dataret.ConvenioNUMCON.Value; conv:= inttostr (dataret.ConvenioNUMCON.value); listbox2.Items.Add(conv); dataret.Convenio.Next; _ - Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Re: DBGrid.OnDrawColumnCell: como desenhar linha ativa
Hoje de manha eu tive uma idéia: Criar um componente meu, filho de TDBGrid e tornar public a property Row; mas acabei vendo no texto do Douglas, um link de um link de um link pra cá: http://delphi.about.com/od/usedbvcl/l/aa011004a.htm resumo da opera (que achei feio pra caramba!) vc cria apenas type TMinhaDBGrid=class(TDBGrid); daí tudo que estiver protected, assim eu nao consigo: DBGrid1.Row TDBGrid(DBGrid1).Row mas assim eu consigo: TDMinhaBGrid(DBGrid1).Row poxa! se ainda ta protected, eu nao poderia ascessar!!! nao sou guru em OOP mas achei muito deselegante! bem, pelo menos resolve o que eu quero... no evento OnDrawColumnCell: if DataSet.RecNo=TMinhaDBGrid(DBGrid1).Row then begin DBGrid1.Canvas.Brush.Color := clSkyBlue; end; DBGrid1.DefaultDrawColumnCell(Rect,DataCol,Column,State); Um abraço ao Douglas e aos demais!
Re: [delphi-br] Ajuda Ja tentei de tudo
tenta por dataret.first antes do seu loop... deve ser isso -- TFA, Leslyn Fernandes 55-11-9159-3837 Computer Engineer Integra Solutions Imagination is more important than knowledge. - Albert Einstein 2008/4/17 diegosaldanha0903 [EMAIL PROTECTED]: Como faço para eu pegar um valor o valor no banco de dados jogar em uma variavel e fazer os testes desse valor adquirido, um por vez. To jeito que estou tentando so me da o ultimo valor cadastrado no banco. while not dataret.Convenio.Eof do begin numcon:= dataret.ConvenioNUMCON.Value; conv:= inttostr (dataret.ConvenioNUMCON.value); listbox2.Items.Add(conv); dataret.Convenio.Next; [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Re: DBGrid.OnDrawColumnCell: como desenhar linha ativa
Isso mesmo Ricardo. O Delphi deixa acessar os atributos protegidos se as classes foram declaradas numa mesma Unit. E sim, é muito deselegante. Forte abraço Marcos Douglas On Thu, Apr 17, 2008 at 5:05 PM, Ricardo Bianchin [EMAIL PROTECTED] wrote: Hoje de manha eu tive uma idéia: Criar um componente meu, filho de TDBGrid e tornar public a property Row; mas acabei vendo no texto do Douglas, um link de um link de um link pra cá: http://delphi.about.com/od/usedbvcl/l/aa011004a.htm resumo da opera (que achei feio pra caramba!) vc cria apenas type TMinhaDBGrid=class(TDBGrid); daí tudo que estiver protected, assim eu nao consigo: DBGrid1.Row TDBGrid(DBGrid1).Row mas assim eu consigo: TDMinhaBGrid(DBGrid1).Row poxa! se ainda ta protected, eu nao poderia ascessar!!! nao sou guru em OOP mas achei muito deselegante! bem, pelo menos resolve o que eu quero... no evento OnDrawColumnCell: if DataSet.RecNo=TMinhaDBGrid(DBGrid1).Row then begin DBGrid1.Canvas.Brush.Color := clSkyBlue; end; DBGrid1.DefaultDrawColumnCell(Rect,DataCol,Column,State); Um abraço ao Douglas e aos demais! -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM -- Marcos Douglas [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Mestre x Detalhe x Subdetalhe
Caro Odail, O engine de SQL não está conseguindo achar a tabela de gravação em uma de suas querys. O Delphi sempre tenta pegar a primeira tabela depois do FROM, mas vc pode utilizar o evento OnGetTableName do Provider para passar o nome da tabela. Abraços Marcos Douglas 2008/4/17 Odail Della Niesi Junior [EMAIL PROTECTED]: Pessoal, Tenho uma tabela de Cliente, Saida e ItemSaida, os relacionamentos estão funcionando perfeitamente: Exemplo: São listadas as saídas de um determinado cliente e os itens da saída em questão. Estou utilizando um trio de componentes (SQLDataSet, Provider, ClientDataSet), o mestre detalhe esta sendo feito com um DataSource apontando para SQLDataSet pai, e ligando-se a propriedade DataSetField do ClienteDataSet ao campo gerado. Consigo apagar o registro da tabela ItemSaida, mais qdo vou aplicar (ApplyUpdates), a seguinte mensagem de erro é retornada: --- Debugger Exception Notification --- Project FarmaDelItens.exe raised exception class EDatabaseError with message 'Table unknown item_saida At line 2, column 1 '. Process stopped. Use Step or Run to continue. --- OK Help --- Certo de poder contar com atenção de todos, agradeço antecipadamente. -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM -- Marcos Douglas [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Capturar texto ... urgente socorro...
Marcos,
Te dei uma solucao com exemplo. Basta usar
[]Os Joel
Paulo, em primeiro lugar bom dia...
Cara de coração obrigado mesmo pela ajuda.
mas veja bem o íp eu quiz dizer que pode começar com alguer numero entendeu e
ai, como eu faria ?
191 200.. 20.. 45... entendeu ?
Marcos Diirr
Bom dia...
if pos('10. 5.50.',List[ i]) 0 then
s := copy(List[i] ,pos('10. 5.50.',List[ i]),maxInt)
else
s := copy(List[i] ,pos('192.168.',List[ i]),maxInt);
ip := copy(s, 1, pos( ' ', s)-1);
s := copy(s,pos(' GET',s)+3, maxint);
url := copy(s, 1, pos( '- DIRECT', s)-1);
s := copy(s,pos(' in ',s)+4,maxint) ;
data := copy(s, 1, pos( ' ', s)-1);
Hora := copy(s,pos(' ',s)+1,8);
Boa sorte!
Paulo so teve um prob. nem todos os ips so 10.5.50.* podem ser
192.168.254. * e ai como fica esta linha abaixo
s := copy(List[i] ,pos('10. 5.50.',List[ i]),maxInt) ;
so para lembrar da linha
web-proxy,debug, packet 1206551497.262 921 10.5.50.2 TCP_MISS/302 556
GET http://go.microsoft .com/fwlink/ ?
web-proxy,debug, packet 1206551497.262 921 192.168.254. 101
TCP_MISS/302 556
GET http://go.microsoft .com/fwlink/ ?
Cara Valeu mesmo por sua ajuda.
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Questionário no Delphi
Quem sabe utilizar Frames... Pessoal Tenho um grande problema... tenho questionário grande no delphi, são várias perguntas, cada pergunta tem uma série de opções... bem o problema é o seguinte, tenho que colocar tudo isso em um FORM, são ao todos 40 questões, estou procurando alguma forma de fazer o FORM rolar automaticamente ou qualquer outra coisa, mas está muito difícil, gostaria de alguma sugestão, não posso colocar em ABAS... att. Juliano Silva - Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Re: DBGrid.OnDrawColumnCell: como desenhar linha ativa
Ricardo Bianchin wrote: resumo da opera (que achei feio pra caramba!) vc cria apenas type TMinhaDBGrid=class(TDBGrid); daí tudo que estiver protected, assim eu nao consigo: DBGrid1.Row TDBGrid(DBGrid1).Row mas assim eu consigo: TDMinhaBGrid(DBGrid1).Row poxa! se ainda ta protected, eu nao poderia ascessar!!! nao sou guru em OOP mas achei muito deselegante! Não é 'feio pra caramba', é um recurso chamado friend classes, aonde qualquer membro (exceto em strict private em D2005+) de uma classe é acessível através de outra classe na mesma unit. -- Joao Morais
[delphi-br] Componente TRnDBRefresh - Versão Shareware Delphi 2007
Pessoal, Tive acesso ao Delphi 2007 for Win32 e consegui gerar pacotes shareware (sem fontes) e os demos do meu componente de refresh em ClientDatSets. Agora, tenho pacotes para avaliação disponíveis em Delphi 7 e Delphi 2007. Quem tiver interessado em saber mais detalhes do componente, confira em http://www.iprogramas.com.br/detalheprod.asp?prod_id=2097. Quem ñ quiser esperar até sábado, pode me contactar em PVT (ñ responderei pedidos na lista!) que eu mando o pacote de avaliação pra D2007. Informações sobre licenciamento e suporte, fala direto comigo tb! Sds., Rubem Rocha Manaus, AM _ Instale a Barra de Ferramentas com Desktop Search e ganhe EMOTICONS para o Messenger! É GRÁTIS! http://www.msn.com.br/emoticonpack
RE: [delphi-br] Re: [lista-delphi] Delphi for PHP 2
Pessoal, O IDE está traduzido para o português, alguns termos não traduzimos, exemplos Unit, Profiler, Data Module e alguns outros mais, a linguagem não será traduzida. O Help da linguagem PHP está em português, isso já estava disponível anteriormente. O Help da VCL e do IDE está em inglês, mas sera traduzido e disponibilizado, estamos utilizando Wiki, isso permitirá que a comunidade colabore com a tradução. Com relação aos bugs, citados no Object Inspector, foram resolvidos, alias o Object Inspector está 100% igual ao Delphi agora. O trial estará disponível em alguns dias e vocês poderam testar. []'s Andreano Lanusse CodeGear Product Line Manager Lead Evangelist Latin America Blog: http://blogs.codegear.com/andreanolanusse Exemplos: http://cc.codegear.com/Author/38483 From: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] On Behalf Of Fellipe Henrique Sent: Thursday, April 17, 2008 10:12 AM To: delphi-br@yahoogrupos.com.br Subject: Re: [delphi-br] Re: [lista-delphi] Delphi for PHP 2 Tirando as piadinhas sem graça, que nada acrescentam na discussão, Se tivesse feita uma tradução de pelo menos o Help, garanto que 90% das listas de discussões terminariam, pois muitas duvidas vem de pessoas com dificuldades em ingles, e interpretar o help. Se fosse em portugues, a historia seria outra. []s Em 17/04/08, Gerhard Roger Nack [EMAIL PROTECTED] mailto:ginho%40mult.com.br escreveu: Daqui a pouco vão querer que a CodeGear traduza também o BEGIN, END, WHILE, etc. Hehe De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br delphi-br%40yahoogrupos.com.br [mailto: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br delphi-br%40yahoogrupos.com.br] Em nome de Marcos André Enviada em: quinta-feira, 17 de abril de 2008 11:53 Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Cc: Tiago Santos Assunto: [delphi-br] Re: [lista-delphi] Delphi for PHP 2 To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br delphi-br%40yahoogrupos.com.br mailto: delphi-br%40yahoogrupos.com.br delphi-br%2540yahoogrupos.com.br Português é para usuário, desenvolvedor tem que saber inglês, isso vai virar uma salada ferrada, comando em inglês menu em português, uma salada só ! Em 17/04/08, Fellipe Henrique [EMAIL PROTECTED] mailto:fellipeh%40gmail.com fellipeh%40gmail.commailto: fellipeh%40gmail.com fellipeh%2540gmail.com escreveu: Até hoje, ainda não vi objeção para a IDE do Delphi ser em Portugues... visto que o Brasil tem muitos usuários, acho que vale a pena gastar um pouco mais, pra isso, não é?! []s Em 15/04/08, Odair [EMAIL PROTECTED] mailto:odaircg%40yahoo.com.br odaircg%40yahoo.com.brmailto: odaircg%40yahoo.com.br odaircg%2540yahoo.com.br odaircg%40yahoo.com.br escreveu: Que esta novidade se estenda ao Delphi todo! Odair - Original Message - From: Andreano Lanusse [EMAIL PROTECTED] mailto:andreano.lanusse%40codegear.com andreano.lanusse%40codegear.commailto: andreano.lanusse%40codegear.com andreano.lanusse%2540codegear.com andreano.lanusse%40codegear.com andreano.lanusse%40codegear.com To: [EMAIL PROTECTED] mailto:delphi_php_oficial%40yahoogrupos.com.br delphi_php_oficial%40yahoogrupos.com.brmailto: delphi_php_oficial%40yahoogrupos.com.brdelphi_php_oficial%2540yahoogrupos.com.br delphi_php_oficial%40yahoogrupos.com.br delphi_php_oficial%40yahoogrupos.com.br; delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br delphi-br%40yahoogrupos.com.brmailto: delphi-br%40yahoogrupos.com.br delphi-br%2540yahoogrupos.com.br delphi-br%40yahoogrupos.com.brdelphi-br% 40yahoogrupos.com.br; [EMAIL PROTECTED] mailto:lista-delphi%40yahoogrupos.com.br lista-delphi%40yahoogrupos.com.brmailto: lista-delphi%40yahoogrupos.com.br lista-delphi%2540yahoogrupos.com.br lista-delphi%40yahoogrupos.com.brlista-delphi% 40yahoogrupos.com.br; [EMAIL PROTECTED] mailto:NDDV%40yahoogrupos.com.br NDDV%40yahoogrupos.com.br mailto: NDDV%40yahoogrupos.com.br NDDV%2540yahoogrupos.com.br NDDV% 40yahoogrupos.com.br NDDV% 40yahoogrupos.com.br Sent: Tuesday, April 15, 2008 9:21 AM Subject: [lista-delphi] Delphi for PHP 2 Oi pessoal, Acabamos de anunciar Delphi for PHP 2 e com uma grande novidade, agora o IDE estará disponível em Português. Aqui um primeiro preview: http://blogs.codegear.com/andreanolanusse http://blogs.codegear.com/andreanolanusse do produto, que estará pronto logo logo. Em breve estaremos disponibilizando alguns vídeos sobre as novidades. []'s Andreano Lanusse CodeGear Product Line Manager Evangelist Leader Latin America Blog: http://blogs.codegear.com/andreanolanusse http://blogs.codegear.com/andreanolanusse
Re: [delphi-br] Numeros Aleatórios não Al eatórios
Vc tá querendo tirar água de pedra. Estas funções Random e Randomize geram numeros aleatórios. o que vc tá querendo é gerar 10 numeros diferentes de 10 possíveis. Estes numeros que vc apresentou já indica um ótimo funcionamento desta função. Pois existe a probabilidade de 10% na repetição deles pra cada numero gerado. E essa probabilidade vai aumentando até que todos sejam preenchidos. Portanto isso nao é lorota de CodeGear isso é funcao de Turbo Pascal la de 1980. Joel Galera, para desenvolver um soft que preciso, tive que aprender a usar o random e o randomize, só que tem coisa errada no meu projeto. Fiz um simplesinho, que me gerasse 10 numeros aleatórios, de 0 a 9, só que ele repeti os numeros, tipo fica 2-2-1-3-5-4-6-7-9-8, algo assim. Já coloquei o randomize, e não resolveu, daí pensei que fosse pq estava fora do loop, coloquei o randomize dentro do loop e nada. Esse randomize realmente funciona ou é mais uma lorota da CodeGear ?!?!? Abraço, quem quizer o prj me passe o email que envio, está simples, simples, era só para eu aprender como usar o random, mas o randomize está me tirando. Grato. Tiago de Assis Pimenta MSN: [EMAIL PROTECTED] Email: [EMAIL PROTECTED] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] [off] Programa para gerar Nota Promissoria
[off] Programa para gerar Nota Promissoria Pessoal alguem tem um programa a vulso somente para imprimir nota promissória por favor quem tiver favor entrar em contato em PVT pelo email : [EMAIL PROTECTED] , me interesso em comprar os fontes , Delphi 7 e FB 1.50 ou 2.0...t+ JESUS TE AMA !!! MarcioCC®
Re: [delphi-br] Re: [lista-delphi] Delphi for PHP 2
Os Bug's que falei são no Object Inspector do Delphi for Win32, vou baixar o trial do Delphi for PHP e testar pra ver se o mesmos bug's estão lá. Em 17/04/08, Andreano Lanusse [EMAIL PROTECTED] escreveu: Pessoal, O IDE está traduzido para o português, alguns termos não traduzimos, exemplos Unit, Profiler, Data Module e alguns outros mais, a linguagem não será traduzida. O Help da linguagem PHP está em português, isso já estava disponível anteriormente. O Help da VCL e do IDE está em inglês, mas sera traduzido e disponibilizado, estamos utilizando Wiki, isso permitirá que a comunidade colabore com a tradução. Com relação aos bugs, citados no Object Inspector, foram resolvidos, alias o Object Inspector está 100% igual ao Delphi agora. O trial estará disponível em alguns dias e vocês poderam testar. []'s Andreano Lanusse CodeGear Product Line Manager Lead Evangelist Latin America Blog: http://blogs.codegear.com/andreanolanusse Exemplos: http://cc.codegear.com/Author/38483 From: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br[mailto: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br] On Behalf Of Fellipe Henrique Sent: Thursday, April 17, 2008 10:12 AM To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Subject: Re: [delphi-br] Re: [lista-delphi] Delphi for PHP 2 Tirando as piadinhas sem graça, que nada acrescentam na discussão, Se tivesse feita uma tradução de pelo menos o Help, garanto que 90% das listas de discussões terminariam, pois muitas duvidas vem de pessoas com dificuldades em ingles, e interpretar o help. Se fosse em portugues, a historia seria outra. []s Em 17/04/08, Gerhard Roger Nack [EMAIL PROTECTED] ginho%40mult.com.brmailto: ginho%40mult.com.br ginho%2540mult.com.br escreveu: Daqui a pouco vão querer que a CodeGear traduza também o BEGIN, END, WHILE, etc. Hehe De: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.brmailto: delphi-br%40yahoogrupos.com.br delphi-br%2540yahoogrupos.com.br delphi-br%40yahoogrupos.com.br [mailto: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br mailto: delphi-br%40yahoogrupos.com.br delphi-br%2540yahoogrupos.com.br delphi-br%40yahoogrupos.com.br] Em nome de Marcos André Enviada em: quinta-feira, 17 de abril de 2008 11:53 Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.brmailto: delphi-br%40yahoogrupos.com.br delphi-br%2540yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Cc: Tiago Santos Assunto: [delphi-br] Re: [lista-delphi] Delphi for PHP 2 To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.brmailto: delphi-br%40yahoogrupos.com.br delphi-br%2540yahoogrupos.com.br delphi-br%40yahoogrupos.com.br mailto: delphi-br%40yahoogrupos.com.br delphi-br%2540yahoogrupos.com.br Português é para usuário, desenvolvedor tem que saber inglês, isso vai virar uma salada ferrada, comando em inglês menu em português, uma salada só ! Em 17/04/08, Fellipe Henrique [EMAIL PROTECTED] fellipeh%40gmail.commailto: fellipeh%40gmail.com fellipeh%2540gmail.com fellipeh%40gmail.com mailto: fellipeh%40gmail.com fellipeh%2540gmail.com escreveu: Até hoje, ainda não vi objeção para a IDE do Delphi ser em Portugues... visto que o Brasil tem muitos usuários, acho que vale a pena gastar um pouco mais, pra isso, não é?! []s Em 15/04/08, Odair [EMAIL PROTECTED] odaircg%40yahoo.com.brmailto: odaircg%40yahoo.com.br odaircg%2540yahoo.com.br odaircg%40yahoo.com.br mailto: odaircg%40yahoo.com.br odaircg%2540yahoo.com.br odaircg% 40yahoo.com.br escreveu: Que esta novidade se estenda ao Delphi todo! Odair - Original Message - From: Andreano Lanusse [EMAIL PROTECTED]andreano.lanusse%40codegear.commailto: andreano.lanusse%40codegear.com andreano.lanusse%2540codegear.com andreano.lanusse%40codegear.commailto: andreano.lanusse%40codegear.com andreano.lanusse%2540codegear.com andreano.lanusse%40codegear.com andreano.lanusse%40codegear.com To: [EMAIL PROTECTED]delphi_php_oficial%40yahoogrupos.com.brmailto: delphi_php_oficial%40yahoogrupos.com.brdelphi_php_oficial%2540yahoogrupos.com.br delphi_php_oficial%40yahoogrupos.com.brmailto: delphi_php_oficial%40yahoogrupos.com.brdelphi_php_oficial% 2540yahoogrupos.com.br delphi_php_oficial%40yahoogrupos.com.br delphi_php_oficial%40yahoogrupos.com.br; delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.brmailto: delphi-br%40yahoogrupos.com.br delphi-br%2540yahoogrupos.com.br delphi-br%40yahoogrupos.com.brmailto: delphi-br%40yahoogrupos.com.br delphi-br%2540yahoogrupos.com.br delphi-br%40yahoogrupos.com.brdelphi-br% 40yahoogrupos.com.br; [EMAIL PROTECTED] lista-delphi%40yahoogrupos.com.brmailto: lista-delphi%40yahoogrupos.com.br lista-delphi%2540yahoogrupos.com.br lista-delphi%40yahoogrupos.com.brmailto:
Re: [delphi-br] Re: [lista-delphi] Delphi for PHP 2
Andreano, só para relembrar: Bug's no Delphi 2007 for Win32 Welcome Page http://www.drdsistemas.com/util/BUG1.JPG Object Inspector http://www.drdsistemas.com/util/BUG2.JPG Object Inspector http://www.drdsistemas.com/util/BUG2_B.JPG Em 17/04/08, Andreano Lanusse [EMAIL PROTECTED] escreveu: Pessoal, O IDE está traduzido para o português, alguns termos não traduzimos, exemplos Unit, Profiler, Data Module e alguns outros mais, a linguagem não será traduzida. O Help da linguagem PHP está em português, isso já estava disponível anteriormente. O Help da VCL e do IDE está em inglês, mas sera traduzido e disponibilizado, estamos utilizando Wiki, isso permitirá que a comunidade colabore com a tradução. Com relação aos bugs, citados no Object Inspector, foram resolvidos, alias o Object Inspector está 100% igual ao Delphi agora. O trial estará disponível em alguns dias e vocês poderam testar. []'s Andreano Lanusse CodeGear Product Line Manager Lead Evangelist Latin America Blog: http://blogs.codegear.com/andreanolanusse Exemplos: http://cc.codegear.com/Author/38483 From: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br[mailto: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br] On Behalf Of Fellipe Henrique Sent: Thursday, April 17, 2008 10:12 AM To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Subject: Re: [delphi-br] Re: [lista-delphi] Delphi for PHP 2 Tirando as piadinhas sem graça, que nada acrescentam na discussão, Se tivesse feita uma tradução de pelo menos o Help, garanto que 90% das listas de discussões terminariam, pois muitas duvidas vem de pessoas com dificuldades em ingles, e interpretar o help. Se fosse em portugues, a historia seria outra. []s Em 17/04/08, Gerhard Roger Nack [EMAIL PROTECTED] ginho%40mult.com.brmailto: ginho%40mult.com.br ginho%2540mult.com.br escreveu: Daqui a pouco vão querer que a CodeGear traduza também o BEGIN, END, WHILE, etc. Hehe De: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.brmailto: delphi-br%40yahoogrupos.com.br delphi-br%2540yahoogrupos.com.br delphi-br%40yahoogrupos.com.br [mailto: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br mailto: delphi-br%40yahoogrupos.com.br delphi-br%2540yahoogrupos.com.br delphi-br%40yahoogrupos.com.br] Em nome de Marcos André Enviada em: quinta-feira, 17 de abril de 2008 11:53 Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.brmailto: delphi-br%40yahoogrupos.com.br delphi-br%2540yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Cc: Tiago Santos Assunto: [delphi-br] Re: [lista-delphi] Delphi for PHP 2 To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.brmailto: delphi-br%40yahoogrupos.com.br delphi-br%2540yahoogrupos.com.br delphi-br%40yahoogrupos.com.br mailto: delphi-br%40yahoogrupos.com.br delphi-br%2540yahoogrupos.com.br Português é para usuário, desenvolvedor tem que saber inglês, isso vai virar uma salada ferrada, comando em inglês menu em português, uma salada só ! Em 17/04/08, Fellipe Henrique [EMAIL PROTECTED] fellipeh%40gmail.commailto: fellipeh%40gmail.com fellipeh%2540gmail.com fellipeh%40gmail.com mailto: fellipeh%40gmail.com fellipeh%2540gmail.com escreveu: Até hoje, ainda não vi objeção para a IDE do Delphi ser em Portugues... visto que o Brasil tem muitos usuários, acho que vale a pena gastar um pouco mais, pra isso, não é?! []s Em 15/04/08, Odair [EMAIL PROTECTED] odaircg%40yahoo.com.brmailto: odaircg%40yahoo.com.br odaircg%2540yahoo.com.br odaircg%40yahoo.com.br mailto: odaircg%40yahoo.com.br odaircg%2540yahoo.com.br odaircg% 40yahoo.com.br escreveu: Que esta novidade se estenda ao Delphi todo! Odair - Original Message - From: Andreano Lanusse [EMAIL PROTECTED]andreano.lanusse%40codegear.commailto: andreano.lanusse%40codegear.com andreano.lanusse%2540codegear.com andreano.lanusse%40codegear.commailto: andreano.lanusse%40codegear.com andreano.lanusse%2540codegear.com andreano.lanusse%40codegear.com andreano.lanusse%40codegear.com To: [EMAIL PROTECTED]delphi_php_oficial%40yahoogrupos.com.brmailto: delphi_php_oficial%40yahoogrupos.com.brdelphi_php_oficial%2540yahoogrupos.com.br delphi_php_oficial%40yahoogrupos.com.brmailto: delphi_php_oficial%40yahoogrupos.com.brdelphi_php_oficial% 2540yahoogrupos.com.br delphi_php_oficial%40yahoogrupos.com.br delphi_php_oficial%40yahoogrupos.com.br; delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.brmailto: delphi-br%40yahoogrupos.com.br delphi-br%2540yahoogrupos.com.br delphi-br%40yahoogrupos.com.brmailto: delphi-br%40yahoogrupos.com.br delphi-br%2540yahoogrupos.com.br delphi-br%40yahoogrupos.com.brdelphi-br% 40yahoogrupos.com.br; [EMAIL PROTECTED] lista-delphi%40yahoogrupos.com.brmailto: lista-delphi%40yahoogrupos.com.br
RE: [delphi-br] Re: [lista-delphi] Delphi for PHP 2
Oi Eduardo, Sobre o Welcome Page, isso está ocorrendo porque o código javascript do Welcome Page não conseguiu conectar-se a Internet, da uma verificada nisso por favor. Sobre o Object Inspector, me envia os fonts deste projeto em PVT, quero tentar reproduzir isto. []'s Andreano Lanusse CodeGear Product Line Manager Evangelist Leader Latin America Blog: http://blogs.codegear.com/andreanolanusse Exemplos: http://cc.codegear.com/Author/38483 From: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] On Behalf Of Eduardo Silva dos Santos Sent: Thursday, April 17, 2008 3:35 PM To: delphi-br@yahoogrupos.com.br; Andreano Lanusse Subject: Re: [delphi-br] Re: [lista-delphi] Delphi for PHP 2 Andreano, só para relembrar: Bug's no Delphi 2007 for Win32 Welcome Page http://www.drdsistemas.com/util/BUG1.JPG http://www.drdsistemas.com/util/BUG1.JPG Object Inspector http://www.drdsistemas.com/util/BUG2.JPG http://www.drdsistemas.com/util/BUG2.JPG Object Inspector http://www.drdsistemas.com/util/BUG2_B.JPG http://www.drdsistemas.com/util/BUG2_B.JPG Em 17/04/08, Andreano Lanusse [EMAIL PROTECTED] mailto:andreano.lanusse%40codegear.com escreveu: Pessoal, O IDE está traduzido para o português, alguns termos não traduzimos, exemplos Unit, Profiler, Data Module e alguns outros mais, a linguagem não será traduzida. O Help da linguagem PHP está em português, isso já estava disponível anteriormente. O Help da VCL e do IDE está em inglês, mas sera traduzido e disponibilizado, estamos utilizando Wiki, isso permitirá que a comunidade colabore com a tradução. Com relação aos bugs, citados no Object Inspector, foram resolvidos, alias o Object Inspector está 100% igual ao Delphi agora. O trial estará disponível em alguns dias e vocês poderam testar. []'s Andreano Lanusse CodeGear Product Line Manager Lead Evangelist Latin America Blog: http://blogs.codegear.com/andreanolanusse http://blogs.codegear.com/andreanolanusse Exemplos: http://cc.codegear.com/Author/38483 http://cc.codegear.com/Author/38483 From: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br delphi-br%40yahoogrupos.com.br[mailto: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br delphi-br%40yahoogrupos.com.br] On Behalf Of Fellipe Henrique Sent: Thursday, April 17, 2008 10:12 AM To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Subject: Re: [delphi-br] Re: [lista-delphi] Delphi for PHP 2 Tirando as piadinhas sem graça, que nada acrescentam na discussão, Se tivesse feita uma tradução de pelo menos o Help, garanto que 90% das listas de discussões terminariam, pois muitas duvidas vem de pessoas com dificuldades em ingles, e interpretar o help. Se fosse em portugues, a historia seria outra. []s Em 17/04/08, Gerhard Roger Nack [EMAIL PROTECTED] mailto:ginho%40mult.com.br ginho%40mult.com.brmailto: ginho%40mult.com.br ginho%2540mult.com.br escreveu: Daqui a pouco vão querer que a CodeGear traduza também o BEGIN, END, WHILE, etc. Hehe De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br delphi-br%40yahoogrupos.com.brmailto: delphi-br%40yahoogrupos.com.br delphi-br%2540yahoogrupos.com.br delphi-br%40yahoogrupos.com.br [mailto: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br delphi-br%40yahoogrupos.com.br mailto: delphi-br%40yahoogrupos.com.br delphi-br%2540yahoogrupos.com.br delphi-br%40yahoogrupos.com.br] Em nome de Marcos André Enviada em: quinta-feira, 17 de abril de 2008 11:53 Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br delphi-br%40yahoogrupos.com.brmailto: delphi-br%40yahoogrupos.com.br delphi-br%2540yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Cc: Tiago Santos Assunto: [delphi-br] Re: [lista-delphi] Delphi for PHP 2 To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br delphi-br%40yahoogrupos.com.brmailto: delphi-br%40yahoogrupos.com.br delphi-br%2540yahoogrupos.com.br delphi-br%40yahoogrupos.com.br mailto: delphi-br%40yahoogrupos.com.br delphi-br%2540yahoogrupos.com.br Português é para usuário, desenvolvedor tem que saber inglês, isso vai virar uma salada ferrada, comando em inglês menu em português, uma salada só ! Em 17/04/08, Fellipe Henrique [EMAIL PROTECTED] mailto:fellipeh%40gmail.com fellipeh%40gmail.commailto: fellipeh%40gmail.com fellipeh%2540gmail.com fellipeh%40gmail.com mailto: fellipeh%40gmail.com fellipeh%2540gmail.com escreveu: Até hoje, ainda não vi objeção para a IDE do Delphi ser em Portugues... visto que o Brasil tem muitos usuários, acho que vale a pena gastar um pouco mais, pra isso, não é?! []s Em 15/04/08, Odair [EMAIL PROTECTED] mailto:odaircg%40yahoo.com.br odaircg%40yahoo.com.brmailto:
Re: [delphi-br] Re: [lista-delphi] Delphi for PHP 2
Minha Conexão com a internet é contínua, atravéz de um roteador, conexão de 600K. esse problema do welcomePage não acontece sempre, aparece aquele barra vermelha do TCodeGear.Create() e dai pára, consigo selecionar e deletar todos os objetos da página. certamente não é problema na internet, pq outros colegas passar pelo mesmo problema. quanto ao problema do Object Inspector, não posso mandar aquele projeto, mas vou reproduzir com um projeto exclusivo para isso e vou te enviar o projeto e os passos para reproduzir o problema. desde já, obrigado. Em 17/04/08, Andreano Lanusse [EMAIL PROTECTED] escreveu: Oi Eduardo, Sobre o Welcome Page, isso está ocorrendo porque o código javascript do Welcome Page não conseguiu conectar-se a Internet, da uma verificada nisso por favor. Sobre o Object Inspector, me envia os fonts deste projeto em PVT, quero tentar reproduzir isto. []'s Andreano Lanusse CodeGear Product Line Manager Evangelist Leader Latin America Blog: http://blogs.codegear.com/andreanolanusse Exemplos: http://cc.codegear.com/Author/38483 From: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br[mailto: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br] On Behalf Of Eduardo Silva dos Santos Sent: Thursday, April 17, 2008 3:35 PM To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br; Andreano Lanusse Subject: Re: [delphi-br] Re: [lista-delphi] Delphi for PHP 2 Andreano, só para relembrar: Bug's no Delphi 2007 for Win32 Welcome Page http://www.drdsistemas.com/util/BUG1.JPG http://www.drdsistemas.com/util/BUG1.JPG Object Inspector http://www.drdsistemas.com/util/BUG2.JPG http://www.drdsistemas.com/util/BUG2.JPG Object Inspector http://www.drdsistemas.com/util/BUG2_B.JPG http://www.drdsistemas.com/util/BUG2_B.JPG Em 17/04/08, Andreano Lanusse [EMAIL PROTECTED]andreano.lanusse%40codegear.commailto: andreano.lanusse%40codegear.com andreano.lanusse%2540codegear.com escreveu: Pessoal, O IDE está traduzido para o português, alguns termos não traduzimos, exemplos Unit, Profiler, Data Module e alguns outros mais, a linguagem não será traduzida. O Help da linguagem PHP está em português, isso já estava disponível anteriormente. O Help da VCL e do IDE está em inglês, mas sera traduzido e disponibilizado, estamos utilizando Wiki, isso permitirá que a comunidade colabore com a tradução. Com relação aos bugs, citados no Object Inspector, foram resolvidos, alias o Object Inspector está 100% igual ao Delphi agora. O trial estará disponível em alguns dias e vocês poderam testar. []'s Andreano Lanusse CodeGear Product Line Manager Lead Evangelist Latin America Blog: http://blogs.codegear.com/andreanolanusse http://blogs.codegear.com/andreanolanusse Exemplos: http://cc.codegear.com/Author/38483 http://cc.codegear.com/Author/38483 From: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.brmailto: delphi-br%40yahoogrupos.com.br delphi-br%2540yahoogrupos.com.br delphi-br%40yahoogrupos.com.br[mailto: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br mailto: delphi-br%40yahoogrupos.com.br delphi-br%2540yahoogrupos.com.br delphi-br%40yahoogrupos.com.br] On Behalf Of Fellipe Henrique Sent: Thursday, April 17, 2008 10:12 AM To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.brmailto: delphi-br%40yahoogrupos.com.br delphi-br%2540yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Subject: Re: [delphi-br] Re: [lista-delphi] Delphi for PHP 2 Tirando as piadinhas sem graça, que nada acrescentam na discussão, Se tivesse feita uma tradução de pelo menos o Help, garanto que 90% das listas de discussões terminariam, pois muitas duvidas vem de pessoas com dificuldades em ingles, e interpretar o help. Se fosse em portugues, a historia seria outra. []s Em 17/04/08, Gerhard Roger Nack [EMAIL PROTECTED] ginho%40mult.com.brmailto: ginho%40mult.com.br ginho%2540mult.com.br ginho%40mult.com.brmailto: ginho%40mult.com.br ginho%2540mult.com.br escreveu: Daqui a pouco vão querer que a CodeGear traduza também o BEGIN, END, WHILE, etc. Hehe De: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.brmailto: delphi-br%40yahoogrupos.com.br delphi-br%2540yahoogrupos.com.br delphi-br%40yahoogrupos.com.brmailto: delphi-br%40yahoogrupos.com.br delphi-br%2540yahoogrupos.com.br delphi-br%40yahoogrupos.com.br [mailto: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br mailto: delphi-br%40yahoogrupos.com.br delphi-br%2540yahoogrupos.com.br delphi-br%40yahoogrupos.com.br mailto: delphi-br%40yahoogrupos.com.br delphi-br%2540yahoogrupos.com.br delphi-br%40yahoogrupos.com.br] Em nome de Marcos André Enviada em: quinta-feira, 17 de abril de 2008 11:53 Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.brmailto:
Re: [delphi-br] Re: [lista-delphi] Delphi for PHP 2
Olá Eduardo, gostei dos seus Edits, Memos e DBGrids, pelo que vi é um tal de TMyEdit, você que fez, ou é alguma biblioteca? []s Em 17/04/08, Eduardo Silva dos Santos [EMAIL PROTECTED] escreveu: Andreano, só para relembrar: Bug's no Delphi 2007 for Win32 Welcome Page http://www.drdsistemas.com/util/BUG1.JPG Object Inspector http://www.drdsistemas.com/util/BUG2.JPG Object Inspector http://www.drdsistemas.com/util/BUG2_B.JPG -- _ T.·.F.·.A.·. Fellipe Henrique [EMAIL PROTECTED] Cansou do MercadoLivre como eu? Tente o www.uaileilão.com.br. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Re: [lista-delphi] Delphi for PHP 2
Fiz uma junção entre o Antigo FlatStyle e o TALEdit. Em 17/04/08, Fellipe Henrique [EMAIL PROTECTED] escreveu: Olá Eduardo, gostei dos seus Edits, Memos e DBGrids, pelo que vi é um tal de TMyEdit, você que fez, ou é alguma biblioteca? []s Em 17/04/08, Eduardo Silva dos Santos [EMAIL PROTECTED]eduardo.drd%40gmail.com escreveu: Andreano, só para relembrar: Bug's no Delphi 2007 for Win32 Welcome Page http://www.drdsistemas.com/util/BUG1.JPG Object Inspector http://www.drdsistemas.com/util/BUG2.JPG Object Inspector http://www.drdsistemas.com/util/BUG2_B.JPG -- _ T.·.F.·.A.·. Fellipe Henrique [EMAIL PROTECTED] fellipeh%40gmail.com Cansou do MercadoLivre como eu? Tente o www.uaileilão.com.brhttp://www.uaileil%C3%A3o.com.br . [As partes desta mensagem que não continham texto foram removidas] -- ... Eduardo Silva dos Santos DRD Sistemas. (27) 3218-4201 MSN: [EMAIL PROTECTED] Site: http://www.drdsistemas.com/ ... [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Mestre x Detalhe x Subdetalhe
Vlw Marcos, pela atenção. Um forte abraço, Odail Marcos Douglas escreveu: Caro Odail, O engine de SQL não está conseguindo achar a tabela de gravação em uma de suas querys. O Delphi sempre tenta pegar a primeira tabela depois do FROM, mas vc pode utilizar o evento OnGetTableName do Provider para passar o nome da tabela. Abraços Marcos Douglas 2008/4/17 Odail Della Niesi Junior [EMAIL PROTECTED] mailto:dellaniesi%40gmail.com: Pessoal, Tenho uma tabela de Cliente, Saida e ItemSaida, os relacionamentos estão funcionando perfeitamente: Exemplo: São listadas as saídas de um determinado cliente e os itens da saída em questão. Estou utilizando um trio de componentes (SQLDataSet, Provider, ClientDataSet), o mestre detalhe esta sendo feito com um DataSource apontando para SQLDataSet pai, e ligando-se a propriedade DataSetField do ClienteDataSet ao campo gerado. Consigo apagar o registro da tabela ItemSaida, mais qdo vou aplicar (ApplyUpdates), a seguinte mensagem de erro é retornada: --- Debugger Exception Notification --- Project FarmaDelItens.exe raised exception class EDatabaseError with message 'Table unknown item_saida At line 2, column 1 '. Process stopped. Use Step or Run to continue. --- OK Help --- Certo de poder contar com atenção de todos, agradeço antecipadamente. -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM -- Marcos Douglas [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Re: iGotDisk e iGotPC
Sérgio, Deixa eu colocar minhas considerações. Ele funcionou OK no Windows Vista e XP porém, no XP, eu não estava com um Pen Drive e ele acusou os dados do meu HD no PenDrive. No vista, ele achou o Pen Drive mas não estava com os dados corretos!! Talvez o meu ambiente seja meio desafiador já que no PC tem aqueles leitores de cartão também!! Outra coisa, tenho 2 HDs e ele só me informou 1!! Está ficando bem legal!! Continue assim!! Abraços, Valfrid --- Em delphi-br@yahoogrupos.com.br, Sergio Eurico [EMAIL PROTECTED] escreveu Ok, muito obrigado Valfrid-Ly -- Sergio Eurico. Em 16/04/08, Valfrid-Ly Silva Couto [EMAIL PROTECTED] escreveu: Sérgio, Eu baixei aqui e tenho o Vista em casa!! A noite eu testo!! Abraços Sergio Eurico [EMAIL PROTECTED] seurico%40gmail.com escreveu: Alguem poderia testar no Windows Vista e postar o resultado? Obrigado. 2008/4/15, Sergio Eurico : Olá, Estou criando uma nova versao, mais completa, do iGot Disk ( http://igot.com.br/igotdisk/iGotDisk.exe ), que chamo de iGot PC. Esta versao tambem informará os dados do Pendrive e midias externas (inclusive pretendo usar no meu outro projeto pessoal, iGot iPhone ) ;-) Ainda nao tive sucesso obtendo o serial fisico do pendrive, mas ja tenho modelo, fabricante e outras infos... Se alguem quiser testar, esta disponivel em http://igot.com.br/igotdisk/iGotPC.exe (419kb). Feedbacks sao sempre muito bem vindos. -- Sergio Eurico. [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM - Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Numeros Aleatórios não Aleatórios
Olha... só por curiosidade, eu gerei uma rotina que faz isso que vc quer... não está otimizada e eu definitivamente nao aconselho usa-la para muitos números... mas... segue abaixo... procedure TForm1.Button1Click(Sender: TObject); var i,j,a : integer; b : boolean; begin listbox1.clear; randomize; for i := 0 to 9 do begin b := true; if listbox1.items.Count = 0 then listbox1.Items.Add(inttostr(random(10))) else begin repeat a := random(10); for j := 0 to listbox1.items.Count - 1 do if a = StrToInt(listbox1.Items[j]) then begin b := false; break; end else b := true; until b; listbox1.Items.Add(inttostr(a)); end; end; end; Espero que você tenha compreendido a diferença entre o que você quer e a função random... E, creio eu, devem existir algoritmos muito mais otimizados que este que eu coloquei aqui para gerar o que você precisa... -- TFA, Leslyn Fernandes 55-11-9159-3837 Computer Engineer Integra Solutions Imagination is more important than knowledge. - Albert Einstein 2008/4/17 Joel Alexandre [EMAIL PROTECTED]: Vc tá querendo tirar água de pedra. Estas funções Random e Randomize geram numeros aleatórios. o que vc tá querendo é gerar 10 numeros diferentes de 10 possíveis. Estes numeros que vc apresentou já indica um ótimo funcionamento desta função. Pois existe a probabilidade de 10% na repetição deles pra cada numero gerado. E essa probabilidade vai aumentando até que todos sejam preenchidos. Portanto isso nao é lorota de CodeGear isso é funcao de Turbo Pascal la de 1980. Joel Galera, para desenvolver um soft que preciso, tive que aprender a usar o random e o randomize, só que tem coisa errada no meu projeto. Fiz um simplesinho, que me gerasse 10 numeros aleatórios, de 0 a 9, só que ele repeti os numeros, tipo fica 2-2-1-3-5-4-6-7-9-8, algo assim. Já coloquei o randomize, e não resolveu, daí pensei que fosse pq estava fora do loop, coloquei o randomize dentro do loop e nada. Esse randomize realmente funciona ou é mais uma lorota da CodeGear ?!?!? Abraço, quem quizer o prj me passe o email que envio, está simples, simples, era só para eu aprender como usar o random, mas o randomize está me tirando. Grato. Tiago de Assis Pimenta MSN: [EMAIL PROTECTED] tiagopimenta%40hotmail.com Email: [EMAIL PROTECTED] tiagopimenta%40gmail.com [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Re: DBGrid.OnDrawColumnCell: como desenhar linha ativa
eu resolvo os problemas dos clientes somente com OOP desde o delphi 4 mas ainda tenho tanto o q aprender! nao sei se ser um eterno principiante é emplogante ou desanimador! quando eu crio uma classe filha de TList e ela vai ter membros como filhos de TObject eu crio a lista e seus metodos em um .pas e o item em outro .pas acabo criando arquivo individual pra tudo nunca faço como o pessoal da borland que colocou um monte de coisas na classes.pas, por exemplo sempre achei mais facil a manutencao assim quando aprendi OOP no help do delphi 4, levei quase um ano futucando, simulando, errando... e li muito os helps das versoes seguintes. mas até o delphi 7 nunca vi este conceito lá. será que tem isto no help? agora tenho uma mudanca na definicao da seção private, pois ela pode ser acessada por outra classe contanto que ambas estejam na mesma unit! com este conceito de friend classes, que lembra vagamente as homonimas de c++ tenho um motivo pra colocar classes em uma mesma unit... é outra forma de conceber a solução ainda vou amadurecer a ideia, mas uma classe item vai encontrar mais facil coisas da classe lista se ambas estiverem na mesma unit. uma classe toolbar e as classes toolbutton tb poderiam ficar juntas... mas no fundo no fundo vejo isto como errado! propriedades devem ser a via de acesso preferida a coisas privates de uma classe. bem, como eu disse, ainda tenho q amadurecer a ideia...
