from:"Jonatã Castelo Branco"

[delphi-br] Criando dll que contem Indy

2007-09-05 Por tôpico Jonatã Castelo Branco

Galera estou tentando criar uma dll que contem dois componentes Indy: o TIdFTP 
e o TidHTTP. Mas tá dando erro de Violação de Acesso.

Eu já transformei a dll em programa e este erro não apareceu. Alguém já viu 
isso ou sabe o motivo do erro?

Estou apenas querendo enviar uma mensagem (que acaba sendo um arquivo) via FTP 
e outra por POST do http.

Jonatã.


  Flickr agora em português. Você clica, todo mundo vê.
http://www.flickr.com.br/

Res: [delphi-br] SMS COM DELHI

2007-08-24 Por tôpico Jonatã Castelo Branco

Rapaz, essas informações foram conseguidas pelo setor comercial de minha 
empresa. Sou apenas um desenvolvedor. Além disso, conseguimos as infomarções 
com o pessoal do Ceará, já que a sede fica em Fortaleza.

Recomendo que procure os Setores Coorporativos das operadoras.

- Mensagem original 
De: Marcio William <[EMAIL PROTECTED]>
Para: delphi-br@yahoogrupos.com.br
Enviadas: Quarta-feira, 22 de Agosto de 2007 22:08:09
Assunto: Re: [delphi-br] SMS COM DELHI

Oi Jonatã, obrigado.

vc poderia me enviar o telefone de contato das operadoras, para este 
procedimento.

Atenciosamente,

Marcio William.

- Original Message - 
From: "Jonatã Castelo Branco" <[EMAIL PROTECTED] com.br>
To: <[EMAIL PROTECTED] os.com.br>
Sent: Wednesday, August 22, 2007 8:44 AM
Subject: Re: [delphi-br] SMS COM DELHI

> Quanto a VIVO, talvez vale a pena procurar por
> mensagens antigas no grupo. Este assunto já foi
> tratado aqui antes.
>
> Quanto a TIM e a OI, posso dizer que estou com a
> documentação das operadoras sobre como enviar sms na
> minha mesa. Essa documentação foi conseguida com o
> contato direto da empresa em que trabalho com as
> operadoras.
>
> Essas informações são confidenciais e os serviços são
> pagos.
>
> Cada operado faz exigências diferentes, TIM só envia
> pra TIM e OI só envia pra OI, e a forma de enviar SMS
> é bem diferente para cada uma. A TIM exige uma
> estrutura um tanto complexa. Posso dizer que ambas não
> utilizam envio por email.
>
> Sendo assim, para desenvolver um programa que envie
> sms para todas as operadoras, você precisa de
> estruturas lógicas e físicas distintas para cada uma.
> Por isso, existem empresas (não me lembro do nome de
> nenhuma) que fazem contrato com as operadoras e montam
> as devidas estruturas e disponibilizam o serviço, ou
> seja, basta que você faço um único contrato com uma
> dessas empresas e envie sms por todas as operados por
> meio dessa empresa.
>
> Jonatã.
>
> --- MarcioWilliam@ infolink. com.br escreveu:
>
>> Valeu pela força, se alguem souber sobre as demais
>> eu agradeço.
>>
>> > Pra claro vc pode mandar um e-mail para
>> [EMAIL PROTECTED] pedo.com. br
>> > O problema é que demora muito pra chegar no cel do
>> cara, mas o bom é que é
>> > de graça :)
>> >
>> > Em 21/08/07, Marcio William
>>  escreveu:
>> > >
>> > > Alguem tem uma DLL ou codigo para enviar SMS
>> (torpedo) para as
>> > > operadoras do
>> > > RJ (TIM CLARO OI VIVO).
>> > >
>> > > Fiz uma pesquisa e a unica coisa que encontrei
>> foi a DLL VOLADIRECT, porem
>> > > o
>> > > site esta fora do ar.
>> > >
>> > > Atenciosamente, Marcio
>
>
>
> Flickr agora em português. Você clica, todo mundo vê.
> http://www.flickr. com.br/
>
>
> -- 
> <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
>
> Links do Yahoo! Grupos
>
> 





  Flickr agora em português. Você clica, todo mundo vê.
http://www.flickr.com.br/

[As partes desta mensagem que não continham texto foram removidas]

Res: [delphi-br] Serviço

2007-06-19 Por tôpico Jonatã Castelo Branco

Você já deve saber que para trabalhar com serviço no delphi, você precisa criar 
um Service Application. Daí é só trabalhar como se fosse um Application comum, 
mas sem form.

Depois de pronto, você instala seu serviço usando o prompt de comando:

 - Para Instalar: 
"nomedoprograma.exe /INSTALL"
ou
"nomedoprograma.exe /INSTALL /silent" (para instalar de forma 
silenciosa)

 - Para Desinstalar: 
"nomedoprograma.exe /UNINSTALL"
ou
"nomedoprograma.exe /UNINSTALL /silent" (para desinstalar de forma 
silenciosa)

Quanto a exemplos, google neles. Por exemplo, veja

http://www.devarticles.com/c/a/Delphi-Kylix/Creating-a-Windows-Service-in-Delphi/

- Mensagem original 
De: Leandro <[EMAIL PROTECTED]>
Para: delphi-br@yahoogrupos.com.br; delphi-total <[EMAIL PROTECTED]>
Enviadas: Terça-feira, 19 de Junho de 2007 13:09:08
Assunto: [delphi-br] Serviço

Pessoal boa tarde,

Seguinte, eu quero aprender a trabalhar com serviços do windows e já tenho uma 
idéia de como fazer,
mas eu não consegui arrumar nenhuma material explicativo, ou nenhum exemplo... 
será que vcs podem me ajudar com algum mateiral/link/ exemplo ??

obrigado pessoal.

Leandro A. Nunes

[As partes desta mensagem que não continham texto foram removidas]





   

Novo Yahoo! Cadê? - Experimente uma nova busca.
http://yahoo.com.br/oqueeuganhocomisso 

[As partes desta mensagem que não continham texto foram removidas]

Res: [delphi-br] Criar uma Thread no delphi, como eu faço?

2007-06-01 Por tôpico Jonatã Castelo Branco

pesquisa nas mensagens do grupo. Lembro que já vi um exemplo disso rolando por 
aqui antes.


- Mensagem original 
De: Fellipe Henrique <[EMAIL PROTECTED]>
Para: "delphi-br@yahoogrupos.com.br" 
Enviadas: Sexta-feira, 1 de Junho de 2007 17:00:14
Assunto: [delphi-br] Criar uma Thread no delphi, como eu faço?

Olá amigos, tenho uma classe, e nela eu preciso criar um thread que fique
rodando em background no sistema, fazendo uma verificação... minha questão
é: como eu crio um negócio desses? :o)

Nunca mexi com isso, e estou com problemas...

Desde já agradeço.

[]s

-- 
 _ _ ___
Fellipe Henrique
[EMAIL PROTECTED] com
"Você valoriza a existêcia das pessoas extraordinárias e momentos em que a
história avança graças a elas. Tudo o que se imagina pode ser alcançado.
Deve-se ousar sonhar. Mas não há substituto para perseverança e trabalho...
e trabalho em equipe. Por que ninguém consegue sozinho. Se comemoramos a
grandeza desses eventos e as pessoas que os realizam... não podemos esquecer
o sacrifício daqueles que tornam possíveis tais realizações."

[As partes desta mensagem que não continham texto foram removidas]





   

Novo Yahoo! Cadê? - Experimente uma nova busca.
http://yahoo.com.br/oqueeuganhocomisso 

[As partes desta mensagem que não continham texto foram removidas]

Res: Res: [delphi-br] Firewall - Windows

2007-05-30 Por tôpico Jonatã Castelo Branco

Eu peguei o meu programa que roda em XP Professional. Essa é a parte do código 
que interessa:

procedure ...
var
   Reg: TRegistry;
   path: String;
begin
   path:= Application.ExeName;
   Reg:= TRegistry.Create;
   try
  {
  with Reg do
  begin
 RootKey:= HKEY_LOCAL_MACHINE;
 if 
KeyExists('\SYSTEM\CurrentControlSet\Services\SharedAccess\Parameters\FirewallPolicy\StandardProfile\AuthorizedApplications\List')
 then
 begin

OpenKey('\SYSTEM\CurrentControlSet\Services\SharedAccess\Parameters\FirewallPolicy\StandardProfile\AuthorizedApplications\List',False);
WriteString(path,path);
CloseKey;
 end;
 if 
KeyExists('\SYSTEM\ControlSet001\Services\SharedAccess\Parameters\FirewallPolicy\StandardProfile\AuthorizedApplications\List')
 then
 begin

OpenKey('\SYSTEM\ControlSet001\Services\SharedAccess\Parameters\FirewallPolicy\StandardProfile\AuthorizedApplications\List',False);
WriteString(path,path);
CloseKey;
 end;
 if 
KeyExists('\SYSTEM\ControlSet002\Services\SharedAccess\Parameters\FirewallPolicy\StandardProfile\AuthorizedApplications\List')
 then
 begin

OpenKey('\SYSTEM\ControlSet002\Services\SharedAccess\Parameters\FirewallPolicy\StandardProfile\AuthorizedApplications\List',False);
WriteString(path,path);
CloseKey;
 end;
  end;
   }
   finally
  Reg.Free;
   end;
end;

Veja que eu não coloco aquela parte do ":*:System", pois assim o nome do meu 
program nem aparece na lista do Firewall do windows.

- Mensagem original 
De: alexandresoaressp <[EMAIL PROTECTED]>
Para: delphi-br@yahoogrupos.com.br
Enviadas: Segunda-feira, 28 de Maio de 2007 16:15:36
Assunto: Re: Res: [delphi-br] Firewall - Windows

Esse caminho que você me disse não tem no meu registro, e sim o que 
eu havia enviado, inclusive la dentro tem todas as excessões do meu 
micro(supostamente parece ser a pasta correta a que eu enviei), 
alguma sugestão??

--- Em [EMAIL PROTECTED] os.com.br, Jonatã Castelo Branco 
<[EMAIL PROTECTED] .> escreveu
>
> Você só errou na chave, mas o caminho realmente é pelo registro do 
windows (altamente inseguro).
> 
> \SYSTEM\ControlSet0 01
\Services\SharedAcc ess\Parameters\ FirewallPolicy\ DomainProfile\ Authori
zedApplications\ List
> 
> 
> - Mensagem original 
> De: Alexandre 
> Para: [EMAIL PROTECTED] os.com.br
> Enviadas: Segunda-feira, 28 de Maio de 2007 15:11:59
> Assunto: [delphi-br] Firewall - Windows
> 
> Alguem sabe como via código eu adicionar uma excessão no firewall 
do windows xp do meu executável?
> 
> Eu tentei o código :
> 
> Reg:= TRegIniFile. Create('System' );
> Reg.RootKey: = HKEY_LOCAL_MACHINE;
> reg.OpenKey( '\SYSTEM\ ControlSet001\ Services\ SharedAccess\ 
Parameters\ FirewallPolicy\ StardardProfile\ AuthorizedApplic 
ations' , false);
> Reg.WriteString( 'List' , Application. ExeName , Application. 
ExeName +':*:Enabled: System' );
> reg.Free;
> 
> Mas aparece a mensagem de falha ao criar a chave(estou logando como 
administrador) ;
> 
> Alex.,_._,___

__
Fale com seus amigos  de graça com o novo Yahoo! Messenger 
http://br.messenger.yahoo.com/ 

[As partes desta mensagem que não continham texto foram removidas]

Res: Res: [delphi-br] Firewall - Windows

2007-05-28 Por tôpico Jonatã Castelo Branco

Alexandro, eu fiz um programa que fazia exatamente o que tu queres. No entanto, 
toda a documentação está em outro computador. Sendo assim, só posso te dar uma 
resposta mais concreta amanhã de manhã.


- Mensagem original 
De: alexandresoaressp <[EMAIL PROTECTED]>
Para: delphi-br@yahoogrupos.com.br
Enviadas: Segunda-feira, 28 de Maio de 2007 16:15:36
Assunto: Re: Res: [delphi-br] Firewall - Windows

Esse caminho que você me disse não tem no meu registro, e sim o que 
eu havia enviado, inclusive la dentro tem todas as excessões do meu 
micro(supostamente parece ser a pasta correta a que eu enviei), 
alguma sugestão??

--- Em [EMAIL PROTECTED] os.com.br, Jonatã Castelo Branco 
<[EMAIL PROTECTED] .> escreveu
>
> Você só errou na chave, mas o caminho realmente é pelo registro do 
windows (altamente inseguro).
> 
> \SYSTEM\ControlSet0 01
\Services\SharedAcc ess\Parameters\ FirewallPolicy\ DomainProfile\ Authori
zedApplications\ List
> 
> 
> - Mensagem original 
> De: Alexandre 
> Para: [EMAIL PROTECTED] os.com.br
> Enviadas: Segunda-feira, 28 de Maio de 2007 15:11:59
> Assunto: [delphi-br] Firewall - Windows
> 
> Alguem sabe como via código eu adicionar uma excessão no firewall 
do windows xp do meu executável?
> 
> Eu tentei o código :
> 
> Reg:= TRegIniFile. Create('System' );
> Reg.RootKey: = HKEY_LOCAL_MACHINE;
> reg.OpenKey( '\SYSTEM\ ControlSet001\ Services\ SharedAccess\ 
Parameters\ FirewallPolicy\ StardardProfile\ AuthorizedApplic 
ations' , false);
> Reg.WriteString( 'List' , Application. ExeName , Application. 
ExeName +':*:Enabled: System' );
> reg.Free;
> 
> Mas aparece a mensagem de falha ao criar a chave(estou logando como 
administrador) ;
> 
> Alex
> 
> [As partes desta mensagem que não continham texto foram removidas]
> 
> 
> 
> 
>  _ _ _ _ __
> Fale com seus amigos de graça com o novo Yahoo! Messenger 
> http://br.messenger .yahoo.com/ 
> 
> [As partes desta mensagem que não continham texto foram removidas]
>




__
Fale com seus amigos  de graça com o novo Yahoo! Messenger 
http://br.messenger.yahoo.com/ 

[As partes desta mensagem que não continham texto foram removidas]

Res: [delphi-br] Firewall - Windows

2007-05-28 Por tôpico Jonatã Castelo Branco

Você só errou na chave, mas o caminho realmente é pelo registro do windows 
(altamente inseguro).

\SYSTEM\ControlSet001\Services\SharedAccess\Parameters\FirewallPolicy\DomainProfile\AuthorizedApplications\List


- Mensagem original 
De: Alexandre <[EMAIL PROTECTED]>
Para: delphi-br@yahoogrupos.com.br
Enviadas: Segunda-feira, 28 de Maio de 2007 15:11:59
Assunto: [delphi-br] Firewall - Windows

Alguem sabe como via código eu adicionar uma excessão no firewall do windows xp 
do meu executável?

Eu tentei o código :

Reg:= TRegIniFile. Create('System' );
Reg.RootKey: = HKEY_LOCAL_MACHINE;
reg.OpenKey( '\SYSTEM\ ControlSet001\ Services\ SharedAccess\ Parameters\ 
FirewallPolicy\ StardardProfile\ AuthorizedApplic ations' , false);
Reg.WriteString( 'List' , Application. ExeName , Application. ExeName 
+':*:Enabled: System' );
reg.Free;

Mas aparece a mensagem de falha ao criar a chave(estou logando como 
administrador) ;

Alex

[As partes desta mensagem que não continham texto foram removidas]




__
Fale com seus amigos  de graça com o novo Yahoo! Messenger 
http://br.messenger.yahoo.com/ 

[As partes desta mensagem que não continham texto foram removidas]

Res: [delphi-br] [OFF-Topic] Inno Setup e acesso ao banco - Resolvido

2007-04-18 Por tôpico Jonatã Castelo Branco

Acabei descobrindo que não é muito complicado. Primeiro, o próprio InnoSetup 
tem m exemplo que mostra como conectar a um banco de dados e fazer o que quiser 
com ele, mas eu não testei.

Eu fiz o seguinte:

1. instalei o MSDE;
2. executei o MSDE (Microsoft SQL Server\MSSQL\Binn\sqlservr.exe). Neste caso, 
o MSDE não roda como serviço do windows e portanto, se você fechar a janela do 
prompt que é aberta para a execução do MSDE, você termina o sqlservr. Por isso, 
eu uso uma opção do InnoSteup para que o InnoSetup continue a executar as 
outras ações sem esperar o sqlservr terminar sua execução (Flags: nowait);
3. executei o programa do MSDE para 'integarir' com bancos do MSDE (Microsoft 
SQL Server\80\Tools\Binn\OSQL.exe) e como parâmetro eu digito o usuario e a 
senha do banco além de um arquivo de extensão .sql que será executado pelo 
osql.exe. Neste arquivo eu posso escrever todas as funções para criar bancos e 
tabelas ou posso simplesmente atachar um banco que eu já fiz antes. Eu atachei 
o banco que já estava usando durante o período de desenvolvimento do software.

Veja o exemplo abaixo:


[Run]
;instala o msde
Filename: "{app}\MSDE\setup.EXE"; StatusMsg: "Instalando MSDE..."; Parameters: 
"SECURITYMODE=SQL SAPWD=""SUA_SENHA"" "
;executa o msde sem ser como serviço do windows, por isso a necessidade de 
reiniciar o computador
;o Flag nowait é para continuar a executar o instalador sem esperar o fim da 
execução do MSDE
Filename: "{pf}\Microsoft SQL Server\MSSQL\Binn\sqlservr.exe"; Flags: nowait; 
StatusMsg: "Iniciando o MSDE..."
;executa outras ações até o sqlservr terminar de carregar
...
;atacha o banco de dados conforme especificado no arquivo banco.sql
Filename: "{pf}\Microsoft SQL Server\80\Tools\Binn\OSQL.exe"; StatusMsg: 
"Atachando BD..."; Parameters: "-U sa -P SUA_SENHA -i C:\banco.sql"

Jonatã


- Mensagem original 
De: Daniel Bastos <[EMAIL PROTECTED]>
Para: delphi-br@yahoogrupos.com.br
Enviadas: Terça-feira, 17 de Abril de 2007 13:10:07
Assunto: Re: [delphi-br] [OFF-Topic] Inno Setup e acesso ao banco

heheh ... acabei enviando sem querer sem completar

Cara  Até tem ... a uns 2 anos eu vi isso. Tentei usar mas não deu muito
resultado ... o final das contas eu criei um executável que gerava a base
pra mim.

vc não pode fazer o mesmo??? criar um outro executável e rodar quando
instalar???

Em 17/04/07, Daniel Bastos <[EMAIL PROTECTED] com> escreveu:
>
> Cara  Até tem ... a uns 2 anos eu vi isso. Tentei usar mas não deu
> muito resultado ... o final das contas eu criei um executável que gerava a
> base pra mim
>
> Em 13/04/07, jonatacb <[EMAIL PROTECTED] com.br> escreveu:
> >
> > Dá para acessar um banco de dados, no meu caso o MSDE, para criar com
> > o
> > Inno Setup os bancos, tabelas, stored procedures etc?
> >
> > Estou falando de criar todo o banco pelo proprio Inno.
> >
> > Jonatã.

__
Fale com seus amigos  de graça com o novo Yahoo! Messenger 
http://br.messenger.yahoo.com/ 

[As partes desta mensagem que não continham texto foram removidas]

Res: [delphi-br] SQL delay entre datas [off-topic]

2007-04-09 Por tôpico Jonatã Castelo Branco

msde.


- Mensagem original 
De: Eduardo Castro Alves <[EMAIL PROTECTED]>
Para: delphi-br@yahoogrupos.com.br
Enviadas: Segunda-feira, 9 de Abril de 2007 15:48:25
Assunto: Re: [delphi-br] SQL delay entre datas [off-topic]

Qual é o banco que vc usa ?

Eduardo

Jonatã Castelo Branco escreveu:
>
> Tenho alguns dados em uma tabela. Um dos campos é do tipo datetime. O 
> intervalo entre cada dado pode ser desde de 30 segundos até 1 hora, ou 
> mais. Eu quero fazer uma consulta que me retorne dados que entre eles 
> tenha um intervalo de cinco minutos, ou seja, se um dado é de 
> 10/04/2007 12:00:00, o próximo deverá ter no mínimo a data com ovalor 
> de 10/04/2007 12:05:00 apesar de existirem dados com a data 10/04/2007 
> 12:02:00 etc. Alguém sabe como posso fazer essa consulta?
>
> Jonatã
>
>  _ _ _ _ __
> Fale com seus amigos de graça com o novo Yahoo! Messenger
> http://br.messenger .yahoo.com/ <http://br.messenger .yahoo.com/>
>
> 




__
Fale com seus amigos  de graça com o novo Yahoo! Messenger 
http://br.messenger.yahoo.com/ 

[As partes desta mensagem que não continham texto foram removidas]

[delphi-br] SQL delay entre datas [off-topic]

2007-04-09 Por tôpico Jonatã Castelo Branco

Tenho alguns dados em uma tabela. Um dos campos é do tipo datetime. O intervalo 
entre cada dado pode ser desde de 30 segundos até 1 hora, ou mais. Eu quero 
fazer uma consulta que me retorne dados que entre eles tenha um intervalo de 
cinco minutos, ou seja, se um dado é de 10/04/2007 12:00:00, o próximo deverá 
ter no mínimo a data com ovalor de 10/04/2007 12:05:00 apesar de existirem 
dados com a data 10/04/2007 12:02:00 etc. Alguém sabe como posso fazer essa 
consulta?

Jonatã

__
Fale com seus amigos  de graça com o novo Yahoo! Messenger 
http://br.messenger.yahoo.com/

[delphi-br] MSXML

2007-04-02 Por tôpico Jonatã Castelo Branco

Alguem ja usou o MSXMl no delphi? Podem me ajudar a usá-lo?

Valeu
Jonatã.

__
Fale com seus amigos  de graça com o novo Yahoo! Messenger 
http://br.messenger.yahoo.com/

[delphi-br] WebService

2007-03-29 Por tôpico Jonatã Castelo Branco

Pessoal o que eu quero é o seguinte:

1. Ler as informações de um webservice que eu não conheço o wsdl, apenas sei as 
urls, usando é claro xml;

2. guardar as informações em um banco de dados local.

Meu problema é que eu nunca utilizai delphi para ler um webservice. Então como 
é que eu faço isso?

Grato pela ajuda, desde já,

Jonatã

__
Fale com seus amigos  de graça com o novo Yahoo! Messenger 
http://br.messenger.yahoo.com/

Res: [delphi-br] Ref. Conversão HEXA para ASCII

2007-03-28 Por tôpico Jonatã Castelo Branco

tenta isso:

function TForm1.HexToInt(S: String): Integer;
begin
  Result := StrToInt('$' + S);
end;

o resto é com você. Tu podes ainda pesquisar no google.

- Mensagem original 
De: Omar Marques <[EMAIL PROTECTED]>
Para: delphi-br@yahoogrupos.com.br
Enviadas: Terça-feira, 27 de Março de 2007 15:36:29
Assunto: [delphi-br] Ref. Conversão HEXA para ASCII

Olá Amigos Delphianos.
Preciso de uma rotina que convertz valores em hexadecimal para ASCII. Será que 
alguém dispõe.

Abço a todos.

;)

Omar M. Haddad
Analista de Sistemas

 _ _ _ _ __
Fale com seus amigos de graça com o novo Yahoo! Messenger 
http://br.messenger .yahoo.com/ 

[As partes desta mensagem que não continham texto foram removidas]




__
Fale com seus amigos  de graça com o novo Yahoo! Messenger 
http://br.messenger.yahoo.com/ 

[As partes desta mensagem que não continham texto foram removidas]

Res: [delphi-br] Webservice - delphi

2007-03-27 Por tôpico Jonatã Castelo Branco

Bem acabei de descobrir que o caminho é usar WSDL. Você cria em 
Other|WebServices|WSDL e faz asdevidas configurações. Este vai gerar uma forma 
de comunicação com o WebService e dai para tratar a mensagem de envio e 
resposta é com você no braço.


- Mensagem original 
De: Mauro Paes Corrêa - gnX Ltda. <[EMAIL PROTECTED]>
Para: delphi-br@yahoogrupos.com.br
Enviadas: Segunda-feira, 26 de Março de 2007 15:58:13
Assunto: [delphi-br] Webservice - delphi

Colegas,

Estou tentando consumir um webservice (enviar um XML com dados e fazer o 
retorno, mas como estou iniciando os estudos com ele ainda estou um pouco 
"perdido".
Sei que o envio de dados é feito da seguinte forma:

function ExportarInformacaoA bastecimentos( const pXML: WideString): 
WideString; stdcall;

Porém, à grosso modo widestring só suporta 255 caracteres, e eu posso mandar 
varios registros de uma vez.

Alguem que já tem um conhecimento mais profundo em webservice para trocamos 
idéias.

Grato

Mauro Paes Correa
www.gnx.com. br

[As partes desta mensagem que não continham texto foram removidas]




__
Fale com seus amigos  de graça com o novo Yahoo! Messenger 
http://br.messenger.yahoo.com/ 

[As partes desta mensagem que não continham texto foram removidas]

Res: [delphi-br] Webservice - delphi

2007-03-27 Por tôpico Jonatã Castelo Branco

Mauro, eu tenho que fazer a mesma coisa. Acessar pegar dados de uma WebServer. 
eu ainda não tive tempo de começar para valer, mas eu já andei pesquisando e 
descobri alguns componentes que ainda não pude testar. Procura no 
www.delphi.eti.br e no www.activedelphi.com.br.

De qualquer forma, podemos relatar qualquer progresso em pvt.

Jonatã.


- Mensagem original 
De: Mauro Paes Corrêa - gnX Ltda. <[EMAIL PROTECTED]>
Para: delphi-br@yahoogrupos.com.br
Enviadas: Segunda-feira, 26 de Março de 2007 15:58:13
Assunto: [delphi-br] Webservice - delphi

Colegas,

Estou tentando consumir um webservice (enviar um XML com dados e fazer o 
retorno, mas como estou iniciando os estudos com ele ainda estou um pouco 
"perdido".
Sei que o envio de dados é feito da seguinte forma:

function ExportarInformacaoA bastecimentos( const pXML: WideString): 
WideString; stdcall;

Porém, à grosso modo widestring só suporta 255 caracteres, e eu posso mandar 
varios registros de uma vez.

Alguem que já tem um conhecimento mais profundo em webservice para trocamos 
idéias.

Grato

Mauro Paes Correa
www.gnx.com. br

[As partes desta mensagem que não continham texto foram removidas]




__
Fale com seus amigos  de graça com o novo Yahoo! Messenger 
http://br.messenger.yahoo.com/ 

[As partes desta mensagem que não continham texto foram removidas]

Res: [delphi-br] Thread

2007-03-22 Por tôpico Jonatã Castelo Branco

da uma olhada no artigo 'Sockets' do site www.activedelphi.com.br. além disso, 
veja o texto abaixo:

Abrindo Threads vc não fica mais amarrado no evento onAccept e tb não precisa 
mais utilizar o evento onClientRead.
Desabilite o evento onClientRead e defina a Thread:
CODE  
type TSock_Thread = class(TThread)
  private
Socket :TCustomWinSocket;
  public
constructor Create(aSocket:TCustomWinSocket);
procedure   Execute; override;
end; 

Na Implementation:
CODE  
constructor TSock_Thread.Create(aSocket:TCustomWinSocket);
begin
 inherited Create(true); // cria suspensa
 Socket := aSocket; // passa o Socket
 FreeOnTerminate := true; // libera automaticamente
end;
procedure TSock_Thread.Execute;
var s:String;
begin
 While not Terminated and Socket.Connected do
 begin
   if Socket.ReceiveLength > 0 then // evita o evento onClientRead
   begin
 s := Socket.ReceiveText; // recebe
 Socket.SendText(s); // envia
   end;
   Sleep(1); // evita a CPU ficar em 100%
 end;
end; 

No evento onAccept:
CODE  
procedure TForm1.ServerSocket1Accept(Sender: TObject;
 Socket: TCustomWinSocket);
var TST:TSock_Thread;
begin
 TST := TSock_Thread.Create(Socket); // instancia o objeto
 TST.Resume; // coloca a Thread em execução
end; 


- Mensagem original 
De: Thiago Parra <[EMAIL PROTECTED]>
Para: delphi-br@yahoogrupos.com.br
Enviadas: Quinta-feira, 22 de Março de 2007 7:42:35
Assunto: [delphi-br] Thread

aew pessoal... tenho q fazer uma parada... mas num to conseguindo. . eh 
pra faculdade.. um pouco urgente...

se alguem puder me ajudar..
nao tenho mto conhecimento de multicamadas. ..
desde jah agradeço
eis o enunciado...

criar uma aplicação cliente e um servidor O cliente deve enviar uma 
mensagem para o servidor
A aplicação servidor deve conter THREAD para receber os dados do cliente 
e imprimir na tela a mensagem





 _ _ _ _ ___ 
Yahoo! Mail - Sempre a melhor opção para você! 
Experimente já e veja as novidades. 
http://br.yahoo. com/mailbeta/ tudonovo/



__
Fale com seus amigos  de graça com o novo Yahoo! Messenger 
http://br.messenger.yahoo.com/ 

[As partes desta mensagem que não continham texto foram removidas]

Res: [delphi-br] Sobre Automação com delphi

2007-02-23 Por tôpico Jonatã Castelo Branco

Você não conhece os programas de automação da Elipse? Tem o E3 e o Scada. O E3 
é a evolução, mas o Scada tem bem menos bugs. A linguagem usada é vbscript mas 
não é nada complicada. Além disso, temo o grupo do yahoo elipse-br.

Jonatã.


- Mensagem original 
De: nillgolv <[EMAIL PROTECTED]>
Para: delphi-br 
Enviadas: Sexta-feira, 23 de Fevereiro de 2007 9:51:08
Assunto: [delphi-br] Sobre Automação com delphi

Pessoal,

Alguém que já tem o conhecimento nesta area de automação, que sabe onde 
encontro um projeto nestas condições: de poder ligar vários setores de 
iluminação(lãmpada) , abrir uma porta elétrica, ligar TV, Ar condicionado, etc.

Fico grato
Nilton

[As partes desta mensagem que não continham texto foram removidas]




__
Fale com seus amigos  de graça com o novo Yahoo! Messenger 
http://br.messenger.yahoo.com/ 

[As partes desta mensagem que não continham texto foram removidas]

Res: [delphi-br] Sockets - Asynchoronous Error 10061

2007-02-15 Por tôpico Jonatã Castelo Branco

Não lembro exatamente qual o motivo especifico do erro, talvez seja só a perda 
de conexão, mas se você não tiver problemas com isso, trata o erro abortando 
ele.


- Mensagem original 
De: ediberto_alves <[EMAIL PROTECTED]>
Para: delphi-br@yahoogrupos.com.br
Enviadas: Quinta-feira, 15 de Fevereiro de 2007 9:14:22
Assunto: [delphi-br] Sockets - Asynchoronous Error 10061

Olá pessoal tudo bem com vcs?
Estou implementando uma pequena solução, um serviço de mensagens do
servidor para as estações usando sockets (TServerSocket e TClientSocket) .
Fiz um pequeno exemplo na minha máquina, localmente, tudo ocorre como
esperado. Mas quando disponibilizo nas estações clientes e quando,
algum cliente sai, acontece erro na aplicação servidora:

Asynchoronous Error 10061

Alguém já passou por isso antes???

Abraços 




__
Fale com seus amigos  de graça com o novo Yahoo! Messenger 
http://br.messenger.yahoo.com/ 

[As partes desta mensagem que não continham texto foram removidas]

Res: [delphi-br] TServerSocket

2007-02-09 Por tôpico Jonatã Castelo Branco

Procura nas mensagens antigas do grupo que você vai encontrar muita coisa. 
Depois eu te mando um arquivo que explica tudo que você precisa saber.

Jonatã.



- Mensagem original 
De: Vinicius Latini <[EMAIL PROTECTED]>
Para: delphi-br 
Enviadas: Quinta-feira, 8 de Fevereiro de 2007 18:26:44
Assunto: [delphi-br] TServerSocket

Fala ae galera
to precisando de ajuda com TServerSocket
como faço pra saber qual cliente esta mandando a mensagem

desde já agradeço

[As partes desta mensagem que não continham texto foram removidas]




__
Fale com seus amigos  de graça com o novo Yahoo! Messenger 
http://br.messenger.yahoo.com/ 

[As partes desta mensagem que não continham texto foram removidas]

Res: [delphi-br] DLL

2007-01-31 Por tôpico Jonatã Castelo Branco

não me leve a mal, mas a tua pergunta é um pouco obscura. se abre outro form, é 
por que obviamente você está 'criando' um novo form e não atualizando o form 
inicial.

Você que criou as dlls? Se sim, deve saber o que estou falando. Por isso, se tu 
queres mudar o objetos da tela quando executar uma dll, deve de ser forma 
passar o form como paramentro para a dll para que ela possa alterar o form 
inicial e não criar outro.

Não preciso nem perguntar se é realmente necessári usar as dll para mexer com 
os forms.

Jonatã


- Mensagem original 
De: Adauri Antonio Camacho Junior <[EMAIL PROTECTED]>
Para: delphi-br@yahoogrupos.com.br
Enviadas: Quarta-feira, 31 de Janeiro de 2007 15:30:35
Assunto: [delphi-br] DLL

Boa tarde a todos, meu projeto eu tenho muitos FORMS em DLL, porem, quando eu 
chamo um FORM que esta na DLL, é aberta outra janela no windows, alguem sabe 
como resolver isso ?

Adauri Jr.

[As partes desta mensagem que não continham texto foram removidas]




__
Fale com seus amigos  de graça com o novo Yahoo! Messenger 
http://br.messenger.yahoo.com/ 

[As partes desta mensagem que não continham texto foram removidas]

Res: [delphi-br] ClientSocket + Aplicativo em DLL

2006-12-04 Por tôpico Jonatã Castelo Branco

Daniel, você não pode fornecer o código ou parte dele para saber o que está 
acontecendo. manda o evento OnCreate que voçê falou.

E uma pergunta, o ClientSocket está "dentro" da dll? Como você fez isso?

Jonatã.


- Mensagem original 
De: Daniel - Comp-3 <[EMAIL PROTECTED]>
Para: delphi-br@yahoogrupos.com.br; [EMAIL PROTECTED]
Enviadas: Sexta-feira, 1 de Dezembro de 2006 15:38:55
Assunto: [delphi-br] ClientSocket + Aplicativo em DLL

Boa tarde a todos...

Tenho um aplicativo, que roda como serviço do Windows (dll),
esta aplicação tem um ClientSocket, aonde no evento OnCreate do Remote
Datamodule, me conecto a um servidor Socket, mas o interessante é que o
Client não passa pelo evento OnConect, mas a aplicação server registra esta
conexão, mas o Cliente não recebe nenhuma mensagem enviada pelo servidor, e
vice versa.

Já tentei trocar o Port, e não resolveu, será que pode haver
algum problema com o ClientSocket rodando como serviço do Windows?? Se faço
uma aplicação normal em exe o client e o server comunicam normalmente. . 

Agradeço já aqueles que puderem me dar uma luz!

Obrigado

Daniel Loureiro

_ 

E-mail classificado pelo Identificador de Spam Inteligente.
Para alterar a categoria classificada, visite o Terra Mail
 

_ 

Esta mensagem foi verificada pelo E-mail Protegido Terra
 .
Scan engine: McAfee VirusScan / Atualizado em 30/11/2006 / Versão:
4.4.00/4908
Proteja o seu e-mail Terra: http://mail. terra.com. br/ 

[As partes desta mensagem que não continham texto foram removidas]










___ 
Você quer respostas para suas perguntas? Ou você sabe muito e quer compartilhar 
seu conhecimento? Experimente o Yahoo! Respostas !
http://br.answers.yahoo.com/

[As partes desta mensagem que não continham texto foram removidas]

Res: [delphi-br] Verificar programa em execução

2006-12-01 Por tôpico Jonatã Castelo Branco

01) Programas Abertos 
Function EnumWindowsProc (Wnd: HWND; lb: TListbox): BOOL; stdcall; 
var caption: Array [0..128] of Char; 
begin 
Result := True; 
if IsWindowVisible(Wnd) and 
((GetWindowLong(Wnd, GWL_HWNDPARENT) = 0) or 
(HWND(GetWindowLong(Wnd, GWL_HWNDPARENT)) = GetDesktopWindow))and 
((GetWindowLong(Wnd, GWL_EXSTYLE) and WS_EX_TOOLWINDOW) = 0) 
then 
begin 
SendMessage( Wnd, WM_GETTEXT, Sizeof(caption),integer(@caption)); 
lb.Items.AddObject( caption,TObject( Wnd )); 
end; 
end; 

procedure TForm1.Button1Click(Sender: TObject); 
begin 
EnumWindows( @EnumWindowsProc, integer( listbox1 )); 
end; 

*

02) Programas Abertos (incluíndo os ocultos) 
Para listar (pegar) todas janelas abertas, deve-se usar a funcao da API 
EnumWindows, que usa uma funcao Callback, com dois parametros, um Handle para a 
janela e um ponteiro. Voce pode usá-la com um códi-go semelhante a este (Este 
lista as janelas abertas, mesmo invisí-veis, em uma listbox): 

function EnumWindowsProc(Wnd : HWnd;Form : TForm1) : Boolean; Export; {$ifdef 
Win32} StdCall; {$endif} 
var 
Buffer : Array[0..99] of char; 
begin 
GetWindowText(Wnd,Buffer,100); 
if StrLen(Buffer) <> 0 then 
Form.ListBox1.Items.Add(StrPas(Buffer)); 
Result := True; 
end; 

procedure TForm1.Button1Click(Sender: TObject); 
begin 
EnumWindows(@EnumWindowsProc,LongInt(Self)); 
end; 

*

083 - Como executar programas externos
Winexec('Command.com /C Teste.exe',Tipo_de_Janela);
Tipo_de_Janela :
SW_SHOWNORMAL - Visualização normal da janela
SW_MAXIMIZE - Janela maximizada
SW_MINIMIZE - Janela minimizada 
SW_HIDE - Escondido 

*

411 - Executar um programa e aguardar sua finalização antes de continuar
Inclua na seção uses: Windows
{ Esta função faz isto. }
function ExecAndWait(const FileName, Params: string;
  const WindowState: Word): boolean;
var
  SUInfo: TStartupInfo;
  ProcInfo: TProcessInformation;
  CmdLine: string;
begin
  { Coloca o nome do arquivo entre aspas. Isto é necessário devido aos espaços 
contidos em nomes longos }
  CmdLine := '"' + Filename + '"' + Params;
  FillChar(SUInfo, SizeOf(SUInfo), #0);
  with SUInfo do begin
  cb := SizeOf(SUInfo);
  dwFlags := STARTF_USESHOWWINDOW;
  wShowWindow := WindowState;
  end;
  Result := CreateProcess(nil, PChar(CmdLine), nil, nil, false,
  CREATE_NEW_CONSOLE or NORMAL_PRIORITY_CLASS, nil,
  PChar(ExtractFilePath(Filename)), SUInfo, ProcInfo);
  { Aguarda até ser finalizado }
  if Result then begin
  WaitForSingleObject(ProcInfo.hProcess, INFINITE);
  { Libera os Handles }
  CloseHandle(ProcInfo.hProcess);
  CloseHandle(ProcInfo.hThread);
  end;
end;
- Exemplo de uso:
ExecAndWait('c:\windows\notepad.exe', '', SW_SHOW);

*

Dicas tirados do '850 Dicas do Delphi'.

Jonatã.








___ 
Você quer respostas para suas perguntas? Ou você sabe muito e quer compartilhar 
seu conhecimento? Experimente o Yahoo! Respostas !
http://br.answers.yahoo.com/

Res: [delphi-br] [OT] Código em VB para Delphi , alguém consegue?

2006-11-29 Por tôpico Jonatã Castelo Branco

Cara o que eu posso fazer é comentar o código e dai você procura as 
"traduções". valeu?

Os meus comentários estarão entre {}. É tudo muito intuitivo.

**

Attribute VB_Name = "Module1"  {nome do módulo com as funções}
{aqui começa a declaração de variáveis globais e como você pode ver, são todas 
públicas.}
{Após os 'As', vem o tipo de variável}
Public dist() As Single 'Array bidimensional para armazenar a matriz de 
distancia
Public adj() As Integer 'Array bidimensional para armazenar a matriz de 
adjacencia
Public adjprod() As Integer 'Array bidimensional para armazenar a matriz de 
caminhos
Public num_vert As Integer 'Numero de vertices do grafo
Public i, j As Integer 'indices para as matrizes
Public allcells As String
Public Fnum, num_linhas As Integer
Public TxtBoxGotFocus As Boolean 'flag para controlar o foco na apresentação de 
FormDados
Public Shortest() As Single 'Array bidimensional para armazenar as distancias 
calculadas pelo algoritmo de Floyd
Public Caminho As String 'String para armazenar o caminho
Public para() As Single 'Array para armazenar o caminho temporario de um 
vertice i ate um
'vertice j
Public lim_inferior As Integer
Public lim_superior As Integer

{aqui temos uma única função que deve retornar um inteiro e termina em 'End 
Function'}
'Funcao para determinar a existencia de caminho entre os vertices do grafo
'Não foi necessária neste contexto
Function Determina_Caminho( n As Integer) As Integer
{'Dim' é uma forma de declarar variáveis}
Dim k As Integer
{'ReDim' (abaixo) é uma função que até onde eu sei, não existe no Delphi e 
chega a ser um ponto crítico}
{na tradução deste código. está função redefine uma variável já declarada}
'Redimensionamento da matriz de adjacencia
ReDim adjprod(n, n)
{dois loops FOR, encadeados. 'Next' marca o fim do loop}
'Inicialização das matrizes
For i = 1 To n
For j = 1 To n
adjprod(i, j) = adj(i, j)
Next j
Next i
'Multiplicação boolena
For k = 1 To n
For i = 1 To n
For j = 1 To n
adjprod(i, j) = adjprod(i, j) Or (adjprod(i, k) And
adjprod(k, j))
Next j
Next i
Next k
End Function

{aqui começa os procedimentos, ou procedure. 'End Sub' marca o fim da procedure}
'Sub-rotina para inicialização da matriz de distancia
Sub init_mtDistancia( n As Integer)
'Redimensionamento da matriz de distancia
ReDim dist(n, n)
For i = 1 To n
For j = 1 To n
dist(i, j) = 3.402823E+38
Next j
Next i
End Sub
'Sub-rotina para inicialização da matriz de adjacencia
'Sub init_mtAdjacencia( n As Integer)
'Redimensionamento da matriz de adjacencia
' ReDim adj(n, n)
' For i = 1 To n
' For j = 1 To n
' adj(i, j) = 0
' Next j
' Next i
'End Sub

{outra procedure}
'Sub-rotina para desalocação de memória
Sub destrutor()
{limpa os arrays}
Erase dist
Erase adj
End Sub

{outra procedure}
'Sub-rotina para acrescimo de um arco.
Sub Add_Arco(d As Single, nodo_1 As Integer, nodo_2 As Integer)
'Ao ser acrescentado um arco, sera atribuido o valor 1 na matriz de adjacencia 
para indicar que existe um caminho entre os dois arcos e o valor deste arco na 
matriz de distancias
'adj(nodo_1, nodo_2) = 1 'nao foi necessaria neste contexto
dist(nodo_1, nodo_2) = d
End Sub

{outra procedure}
'Sub-rotina para remocao de um arco
Sub Rem_Arco(nodo_ 1 As Integer, nodo_2 As Integer)
'Ao ser removido...
'adj(nodo_1, nodo_2) = 0
dist(nodo_1, nodo_2) = 3.402823E+38 'flag para distancia infinita
End Sub

{outra função}
'Funcao para determinar o menor caminho pelo algoritmo de Floyd
Function Floyd(n As Integer) As Single
Dim u, v, w As Integer
Dim changed As Integer
'array bidimensional auxiliar
changed = 1
Max = num_vert
ReDim Shortest(n, n)
ReDim para(n, n)
For v = 1 To n
For w = 1 To n
Shortest(v, w) = dist(v, w)
para(v, w) = w
Next w
Next v
{o nosso conhecido 'while' finalizado em 'Wend'}
While changed 'Testa o valor de changed
changed = 0
For u = 1 To n
For v = 1 To n
For w = 1 To n
{o nosso conhecido 'If' finalizado em 'End If'}
If Shortest(v, u) + Shortest(u, w) < Shortest(v, w) Then
Shortest(v, w) = Shortest(v, u) + Shortest(u, w)
para(v, w) = para(v, u)
changed = 1
End If
Next w
Next v
Next u
Wend
End Function


{outra função}
'Funcao para imprimir a rota
Function print_shortest( a As Integer, b As Integer) As String
Dim rota As String
Dim aux As String
While a <> b
rota = "->" + CStr(para(a, b))
aux = aux + rota
a = para(a, b)
Wend
print_shortest = aux
End Function



__
Fale com seus amigos  de graça com o novo Yahoo! Messenger 
http://br.messenger.yahoo.com/ 

[As partes desta mensagem que não continham texto foram removidas]

[delphi-br] Corba

2006-11-08 Por tôpico Jonatã Castelo Branco

Estou querendo fazeer uma aplicação que exibe e controla imagens no 
GoogleEarth. Comecei a estudar as APIs mas percebi que para fazer a comunicação 
do meu executável com o GoogleEarth é necessário utilizar um arquivo chamado 
'earth.idl'. Observem a extensão do arquivo: '.idl'. Comecei a estudar a 
respeito e percebi que tem alguma coisa a ver com o Objeto Corba do Delphi. Mas 
o delphi7 não parece trabalhar com esta ferramenta como o GoogleEarth exige. De 
qualquer forma, a questão é:

Como posso fazer com o delphi entenda, compreenda as 'fnções' deste arquivo de 
extensão '.idl'?

Grato pela ajuda. Jonatã.








___ 
Você quer respostas para suas perguntas? Ou você sabe muito e quer compartilhar 
seu conhecimento? Experimente o Yahoo! Respostas !
http://br.answers.yahoo.com/

[As partes desta mensagem que não continham texto foram removidas]



-- 
< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >

<*> Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages

<*> Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
 
Links do Yahoo! Grupos

<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

[delphi-br] .idl

2006-11-07 Por tôpico Jonatã Castelo Branco

Alguém sabe o que são arquivos de extensão .idl e como utilizá-los no delphi.



___ 
Novidade no Yahoo! Mail: receba alertas de novas mensagens no seu celular. 
Registre seu aparelho agora! 
http://br.mobile.yahoo.com/mailalertas/ 
 


[As partes desta mensagem que não continham texto foram removidas]



-- 
< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >

<*> Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages

<*> Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
 
Links do Yahoo! Grupos

<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

[delphi-br] Resgistro AND Serial Virtual

2006-10-25 Por tôpico Jonatã Castelo Branco

Estou precisando criar portas seriais virtuais.

Tenho um programa que faz isso, o COM API. Vi que ele cria uns registros no 
windows e talvez essa seja a resposta: criar os mesmos registro com valores 
diferentes. No entanto, dentre os valores criados pelo COM API, existe valores 
do tipo REG_RESOURCE_DESCRIPTION_LIST. Vi uma API que edita os valores e na 
documentação, vi que é possível editar o valor para REG_RESOURCE_LIST, então, 
talvez seja possível editar o valor também para REG_RESOURCE_DESCRIPTION_LIST, 
mas ainda não testei.

A grande questão é: Como vou saber todos os dados a serem adicionados nos 
valores. Antes que alguém diga o óbivio, já tentei ler os dados na opção 
modificar mas não dá pra ver todos os dados.

Alguém já trabalhou com isso e sabe se estou indo pelo caminho certo e o que 
devo fazer? Alguém sabe se existe uma maneira mais rápida de criar portas 
seriais virtuais?


-
 Novidade no Yahoo! Mail: receba alertas de novas mensagens no seu celular. 
Registre seu aparelho agora!

[As partes desta mensagem que não continham texto foram removidas]



-- 
< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >

<*> Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages

<*> Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
 
Links do Yahoo! Grupos

<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

[delphi-br] Criar portas virtuais

2006-10-19 Por tôpico Jonatã Castelo Branco

Alguém sabe como criar portas de comunicação serial virtuais?
   
  para entender: você cria a porta e dois programas hospedados no mesmo 
computador acessam a mesma porta para se comuncarem entre si.
   
  Sei que é possível fazer isso.
   
  Valeu.
  Jonatã


-
 Você quer respostas para suas perguntas? Ou você sabe muito e quer 
compartilhar seu conhecimento? Experimente o Yahoo! Respostas!

[As partes desta mensagem que não continham texto foram removidas]



-- 
< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >

<*> Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages

<*> Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
 
Links do Yahoo! Grupos

<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

Re: RES: [delphi-br] DLL [Itabyte]

2006-09-27 Por tôpico Jonatã Castelo Branco

Cara eu me expressei mal. O form pode ser criado em tempo de designer, foi o 
isso que fiz no exemplo que mostrei. Como o Walter disse, a ocx precisa ser 
adicionada a IDE da respectiva linguagem que você usar. Mas isso em geral é 
tranquilo.
   
  Mas poderiam retornar a questão de como eu crio um ServerSocket "em tempo de 
designer".

Walter Alves Chagas Junior <[EMAIL PROTECTED]> escreveu:
  Uma OCX é, na verdade, um antigo objeto ActiveX. Da mesma forma que no
Delphi, Você vai ter que criar uma interface pra que seu projeto se
comunique com ela

[]s

Walter Alves Chagas Junior
Projeto e desenvolvimento de sistemas
Telemont Engenharia de telecomunicações S/A
Belo Horizonte - MG - Brasil
[EMAIL PROTECTED]
Fone: (31) 3389-8215 Fax: (31) 3389-8200

Parabens Telemont - Somos a 8ª maior empresa do Brasil no segmento de
construção!!


-Mensagem original-
De: Itabyte® [mailto:[EMAIL PROTECTED]
Enviada em: terça-feira, 26 de setembro de 2006 14:19
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] DLL [Itabyte]


Mais no caso a .ocx da pra usar em outra linguagem tipo clarion??

JESUS TE AMA !!!
  - Original Message - 
  From: Jonatã Castelo Branco 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Tuesday, September 26, 2006 1:23 PM
  Subject: Re: [delphi-br] DLL [Itabyte]



  O lance é o seguinte: até onde sei, não dá para criar um form antes de
compilar a dll, ou seja, você tem que criar via código. Eu fiz isso:
 
1. na uses coloque "Forms"
2. crie uma função que execute: 
 
fuction ShowForm(): boolean; export; stdcall;
begin
   Form1.Height := 100;
 Form1.Width := 100;
 Application.CreateForm(TForm1, Form1);
   Result := True;
end;
exports
  ShowForm index 1;
begin
end.

O form vai aparecer legal. Sendo assim, você também tem que criar o
socket via comando. E isso eu não sei como faz.
 
Talvez o seu problema seja melhor resolvido por criar um ocx ao invés de
uma dll. Veja: File | New | Other | ActiveX | ActiveForm.
 
Criar o Form com o socket necessário, compila e depois é só instalar o
ActiveX (ocx) gerado. No delphi, você instala uma ocx em Commponent | Import
ActiveX Control.

-
 O Yahoo! está de cara nova. Venha conferir!

[As partes desta mensagem que não continham texto foram removidas]



-- 
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>

<*> Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages

<*> Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
 
Links do Yahoo! Grupos

<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

Re: [delphi-br] DLL [Itabyte]

2006-09-26 Por tôpico Jonatã Castelo Branco


O lance é o seguinte: até onde sei, não dá para criar um form antes de compilar 
a dll, ou seja, você tem que criar via código. Eu fiz isso:
   
  1. na uses coloque "Forms"
  2. crie uma função que execute: 
   
  fuction ShowForm(): boolean; export; stdcall;
  begin
 Form1.Height := 100;
   Form1.Width := 100;
   Application.CreateForm(TForm1, Form1);
 Result := True;
  end;
  exports
ShowForm index 1;
  begin
  end.

  O form vai aparecer legal. Sendo assim, você também tem que criar o socket 
via comando. E isso eu não sei como faz.
   
  Talvez o seu problema seja melhor resolvido por criar um ocx ao invés de uma 
dll. Veja: File | New | Other | ActiveX | ActiveForm.
   
  Criar o Form com o socket necessário, compila e depois é só instalar o 
ActiveX (ocx) gerado. No delphi, você instala uma ocx em Commponent | Import 
ActiveX Control.
  
Itabyte® <[EMAIL PROTECTED]> escreveu:
  Cara me passa seu msn o meu é [EMAIL PROTECTED] ou skype: itabytetec

JESUS TE AMA !!!
  - Original Message - 
  From: Jonatã Castelo Branco 
  To: Grupo Delphi 
  Sent: Tuesday, September 26, 2006 11:57 AM
  Subject: [delphi-br] DLL [Itabyte]


  Normalmente, se usa dll para guardar funções que são usadas constatemente, no 
entanto, dll's também podem ser usadas pra mais do que isso.
 
Eu gostaria de incluir um ServerSocket a uma dll e utiliza-la normalmente 
como um componente do delphi. O problema é como fazer com que o ServerSocket 
fique alocado na memoria enquanto o programa ta rodando.
 
Alguém sabe como fazer isso?
 
valeu.
Jonatã.

  
  -
  Yahoo! Search
  Música para ver e ouvir: You're Beautiful, do James Blunt

  [As partes desta mensagem que não continham texto foram removidas]

   

[As partes desta mensagem que não continham texto foram removidas]

 


-
 Yahoo! Search
 Música para ver e ouvir: You're Beautiful, do James Blunt

[As partes desta mensagem que não continham texto foram removidas]



-- 
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>

<*> Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages

<*> Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
 
Links do Yahoo! Grupos

<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

[delphi-br] DLL [Itabyte]

2006-09-26 Por tôpico Jonatã Castelo Branco

Normalmente, se usa dll para guardar funções que são usadas constatemente, no 
entanto, dll's também podem ser usadas pra mais do que isso.
   
  Eu gostaria de incluir um ServerSocket a uma dll e utiliza-la normalmente 
como um componente do delphi. O problema é como fazer com que o ServerSocket 
fique alocado na memoria enquanto o programa ta rodando.
   
  Alguém sabe como fazer isso?
   
  valeu.
  Jonatã.


-
 Yahoo! Search
 Música para ver e ouvir: You're Beautiful, do James Blunt

[As partes desta mensagem que não continham texto foram removidas]



-- 
< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >

<*> Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages

<*> Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
 
Links do Yahoo! Grupos

<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

Re: [delphi-br] Criação de ServerSocket em dll

2006-09-26 Por tôpico Jonatã Castelo Branco

basicamente, to fazendo o seguinte:
   
  uses
  SysUtils,
  Classes,
  ScktComp;
  {$R *.res}
  var
   Servidor: TServerSocket;
  function ExecuteSocket(): boolean; export; stdcall;
begin
   Servidor.Create(nil);  // o problema é aqui
   Servidor.Port:= 23;
   Servidor.Active:= True;
   Result:= True;
end;
  exports
ExecuteSocket index 1;
  begin
end.

  Como inicializar o Socket. Como já disse, eu consegui inicializar, ou criar 
um form, mas acredito que não estou usando os parâmetros corretos para o socket.

  Bruno Lichot <[EMAIL PROTECTED]> escreveu:
  
Não entendih mto bem o q vc precisa, tem como tentar dar mais detalhes?

--
[]´s
Bruno Lichot





Estou precisando criar, com ajuda do delphi, uma dll que trabalhe como um 
ServerSocket.
>   
>  Estou tendo problema para inicialisar o ServerSocket. Como posso fazer isso?
>   
>  Eu testei com um form usando: Application.CreateForm(TForm1, Form1); e deu 
tudo certo, o form aparaceu etc. Mas eu não consegui criar o ServerSocket.
>   
>  Só para seber, estou o usando o construtor, mas não sei onde estou errando. 
Alguem pode ajudar.
>   
>  Valeu.
>  Jonatã.
 __
Fale com seus amigos  de graça com o novo Yahoo! Messenger 
http://br.messenger.yahoo.com/ 

[As partes desta mensagem que não continham texto foram removidas]



-- 
< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >

<*> Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages

<*> Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
 
Links do Yahoo! Grupos

<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

[delphi-br] Criação de ServerSocket em dll

2006-09-25 Por tôpico Jonatã Castelo Branco

Estou precisando criar, com ajuda do delphi, uma dll que trabalhe como um 
ServerSocket.
   
  Estou tendo problema para inicialisar o ServerSocket. Como posso fazer isso?
   
  Eu testei com um form usando: Application.CreateForm(TForm1, Form1); e deu 
tudo certo, o form aparaceu etc. Mas eu não consegui criar o ServerSocket.
   
  Só para seber, estou o usando o construtor, mas não sei onde estou errando. 
Alguem pode ajudar.
   
  Valeu.
  Jonatã.


-
 Yahoo! Search
 Música para ver e ouvir: You're Beautiful, do James Blunt

[As partes desta mensagem que não continham texto foram removidas]



-- 
< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >

<*> Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages

<*> Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
 
Links do Yahoo! Grupos

<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

Re: [delphi-br] Celular >> Jonatã

2006-08-22 Por tôpico Jonatã Castelo Branco

Nao entedi o `Meu querido,` mas responde uma coisa
antes? Para o se projeto precisa ser celular comum,
desses que todo mundo usa ou pode ser um celular sem
display e sem teclado? depois eu explico.

--- "Desenvolvimento (Anderson)"
<[EMAIL PROTECTED]> escreveu:

> Meu querido, 
> 
> Quero fazer isso no delphi, logo, não é OFF TOPIC...
> 
> eu já criei diversos protocolos para comunicar com
> equipamentos eletrônicos, portanto, é até familiar o
> que vc me disse...
> o que eu queria saber é como começar, como fazer o
> micro falar com o celular, para num segundo passo,
> fazer o resto...
> eu teria q ver isso diretamente com os fabricantes
> de celulares? Ou existe um protocolo padrão?
> Eles aceitam comunicação serial? Ou tem q ser via
> usb??? 
> são essas as perguntas q preciso saber.
> 
> Obrigado.
> 
> Anderson
> 
> 
> 
>   - Original Message - 
>   From: Jonatã Castelo Branco 
>   To: delphi-br@yahoogrupos.com.br 
>   Sent: Monday, August 21, 2006 9:18 AM
>   Subject: Re: [delphi-br] Celular
> 
> 
>   Anderson, se você quer comunicar dois celulares
> via GPRS, primeiro este assunto é OFF-TOPIC, e
> segundo, não dá para conectar dois celulares
> diretamente sem o auxílio de um terceiro componente.
> Deixa eu explicar.
>  
> A conexão GPRS funciona mais ou menos como os
> computadores em ums LAN. Lembre-se que os IPs dos
> computadores são válidos apenas na rede interna e
> sendo assim, não dá para conectar um computador que
> esteja fora da rede, a um computador que esteja na
> rede a não ser que você mascare o computador da
> rede. Sempre que os celulares se conectam a rede,
> TIM, OI etc, eles ganham um IP diferente. Mas os
> celulares conectados a TIM estam na mesma rede,
> assim como os celulares conetados a OI estão na
> mesma rede. Por isso, se dois celulares estão
> conectados a uma mesma operadora e você souber o IP
> de um deles, é possível estabelecer a conexão via
> TCP/IP entre eles. Mas saiba que até onde eu sei,
> não é possível fazer mascaramento (se é que está
> palavra existe) e os IPs são trocados toda vida que
> os celulares se conectão a rede via GPRS.
>  
> Então, se você planeja comunicar dois celulares
> via GPRS, a única solução que conheço é: dois
> celulares de uma mesma operadora se conectam; um
> deles envia IP para um servidor criado por você e
> pede a conexão com o outro celular; o servidor avisa
> o outro celular confirma o pedido; os dois celulares
> estabelecem a conexão, pois um deles sabe o IP do
> outro através do servidor (que pode ter um IP
> válido).
>  
> Está solução acarretaria na criação de um
> programa para o celular, no protocolo, é claro, e no
> programa servidor (pode ser em delphi).
>  
> Espero que tenha entendido.
>  
> Jonatã.
> 
>   "[EMAIL PROTECTED]" <[EMAIL PROTECTED]>
> escreveu:
> Sim é interface como a exemplo a Daruma, Neocel,
> Etc e faz ligações analogicas normalmente.
>   clovis
> - Original Message - 
> From: Desenvolvimento (Anderson) 
> To: Grupo Yahoo (Delphi) 
> Sent: Friday, August 18, 2006 4:48 PM
> Subject: [delphi-br] Celular
> 
> 
> Pessoal, 
> 
> será q é possível usar um celular como modem e
> trocar dados entre celulares???
> Sei q existe um equipamento q faz algo parecido,
> q podemos ligar o celular no pabx para fazer
> ligações externas...
> Eu quero trocar dados entre aparelhos mesmo.
> Tipo GPRS...
> Vocês conhecem algo assim?
> 
> Valeu
>   
>   -
>   O Yahoo! está de cara nova. Venha conferir!
> 
>   [As partes desta mensagem que não continham texto
> foram removidas]
> 
>
> 
>   __ Informação do NOD32 IMON 1.1717
> (20060821) __
> 
>   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]
> 
> 


__
Fale com seus amigos  de graça com o novo Yahoo! Messenger 
http://br.messenger.yahoo.com/ 


-- 
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>

<*> Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages

<*> Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
 
Links do Yahoo! Grupos

<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

Re: [delphi-br] Celular

2006-08-21 Por tôpico Jonatã Castelo Branco

Anderson, se você quer comunicar dois celulares via GPRS, primeiro este assunto 
é OFF-TOPIC, e segundo, não dá para conectar dois celulares diretamente sem o 
auxílio de um terceiro componente. Deixa eu explicar.
   
  A conexão GPRS funciona mais ou menos como os computadores em ums LAN. 
Lembre-se que os IPs dos computadores são válidos apenas na rede interna e 
sendo assim, não dá para conectar um computador que esteja fora da rede, a um 
computador que esteja na rede a não ser que você mascare o computador da rede. 
Sempre que os celulares se conectam a rede, TIM, OI etc, eles ganham um IP 
diferente. Mas os celulares conectados a TIM estam na mesma rede, assim como os 
celulares conetados a OI estão na mesma rede. Por isso, se dois celulares estão 
conectados a uma mesma operadora e você souber o IP de um deles, é possível 
estabelecer a conexão via TCP/IP entre eles. Mas saiba que até onde eu sei, não 
é possível fazer mascaramento (se é que está palavra existe) e os IPs são 
trocados toda vida que os celulares se conectão a rede via GPRS.
   
  Então, se você planeja comunicar dois celulares via GPRS, a única solução que 
conheço é: dois celulares de uma mesma operadora se conectam; um deles envia IP 
para um servidor criado por você e pede a conexão com o outro celular; o 
servidor avisa o outro celular confirma o pedido; os dois celulares estabelecem 
a conexão, pois um deles sabe o IP do outro através do servidor (que pode ter 
um IP válido).
   
  Está solução acarretaria na criação de um programa para o celular, no 
protocolo, é claro, e no programa servidor (pode ser em delphi).
   
  Espero que tenha entendido.
   
  Jonatã.

"[EMAIL PROTECTED]" <[EMAIL PROTECTED]> escreveu:
  Sim é interface como a exemplo a Daruma, Neocel, Etc e faz ligações 
analogicas normalmente.
clovis
  - Original Message - 
  From: Desenvolvimento (Anderson) 
  To: Grupo Yahoo (Delphi) 
  Sent: Friday, August 18, 2006 4:48 PM
  Subject: [delphi-br] Celular


  Pessoal, 

  será q é possível usar um celular como modem e trocar dados entre celulares???
  Sei q existe um equipamento q faz algo parecido, q podemos ligar o celular no 
pabx para fazer ligações externas...
  Eu quero trocar dados entre aparelhos mesmo. Tipo GPRS...
  Vocês conhecem algo assim?

  Valeu

-
 O Yahoo! está de cara nova. Venha conferir!

[As partes desta mensagem que não continham texto foram removidas]



-- 
< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >

<*> Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages

<*> Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
 
Links do Yahoo! Grupos

<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

Re: [delphi-br] Evento OnShow/OnActivate

2006-05-31 Por tôpico Jonatã Castelo Branco




Qual [e a mensagem de erro e qual a funcao que da erro?

"Adenes I. Freire Junior" <[EMAIL PROTECTED]> escreveu:  Instalei o delphi 7, estou desenvolvendo um sistema de controle de veículo, no form principal quando uso o evento OnShow ou OnActivate dar um erro de violação ao acesso de memória seja abrir um simples banco de dados como fazer uma chamada a um form.
Nos outros form's fuciona sem problemas, só form principal que esta dando este erro,

Alguém poderia me orientar sobre esta questão?

Adenes

[As partes desta mensagem que não continham texto foram removidas]



-- 
< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >





    Yahoo! Grupos, um serviço oferecido por:    PUBLICIDADE
    var lrec_target="_top";var lrec_URL=new Array();  lrec_URL[1]="http://br.ard.yahoo.com/SIG=12f4d6lsq/M=396559.7942981.9522421.2369893/D=brclubs/S=2137111264:HM/Y=BR/EXP=1149003165/A=3729502/R=0/id=flashurl/SIG=154dcqslu/*http://lt.dell.com/lt/lt.aspx?CID=13040&LID=340715&DGC=BA&DGSeg=DHS&DURL=http://www1.la.dell.com/content/products/category.aspx/desktops?c%3dbr%26l%3dpt%26s%3ddhs";  var lrec_flashfile="http://br.i1.yimg.com/br.yimg.com/i/br/ads7/290506_y300x250_maio04_dhs_dimension5150.swf?clickTAG=_javascript_:LRECopenWindow(1)";  var lrec_altURL="http://br.ard.yahoo.com/SIG=12f4d6lsq/M=396559.7942981.9522421.2369893/D=brclubs/S=2137111264:HM/Y=BR/EXP=1149003165/A=3729502/R=1/id=altimg/SIG=154dcqslu/*http://lt.dell.com/lt/lt.aspx?CID=13040&LID=340715&DGC=BA&DGSeg=DHS&DURL=http://www1.la.dell.com/content/products/category.aspx/desktops?c%3dbr%26l%3dpt%26s%3ddhs";  var lrec_altimg="http://br.i1.yimg.com/br.yimg.com/i/br/ads7/290506_y300x250_maio04_dhs_dimension5150.gif"; 
 var lrec_width=300;var lrec_height=250;  
  
-
  Links do Yahoo! Grupos
    
   Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
    
   Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
    
   O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. 



    
-
 Yahoo! Search
 Música para ver e ouvir: You're Beautiful, do James Blunt

[As partes desta mensagem que não continham texto foram removidas]







-- 
< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >

<*> Para ver as mensagens antigas, acesse:
    http://br.groups.yahoo.com/group/delphi-br/messages

<*> Para falar com o moderador, envie um e-mail para:
    [EMAIL PROTECTED]






  




  
Yahoo! Grupos, um serviço oferecido por:
  
  

PUBLICIDADE




  
  



  




  
Links do Yahoo! Grupos

Para visitar o site do seu grupo na web, acesse:http://br.groups.yahoo.com/group/delphi-br/ 
Para sair deste grupo, envie um e-mail para:[EMAIL PROTECTED] 
O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!.

Re: RES: [delphi-br] Criando DLL

2006-05-25 Por tôpico Jonatã Castelo Branco




Não leva a mal, mas essa discussão não vai parar? A questão é a seguinte: a string no delphi não é a mesma string no C, por exemplo. A string no C (na realidade um array de char) é a mesma PChar do delphi, pois ambas terminam com um caracter null. Já a string do delphi usa a posição zero, ou seja, STR[0] para guardar o tamanho da string. Dai, a string do delphi começa a partir da posição 1, ou seja, STR[1].
   
  Testem o pequeno exemplo abaixo. É só colocar um button e um Edit e o seguinte código ao se clicar no button:
   
  procedure TForm1.Button1Click(Sender: TObject);
var
   Str: string;
begin
   Str:= 'teste';
   Edit1.Text:= Str[0];  // AQUI
end;

  Se vocês mandarem compilar vai resultar no erro:
   
  [Error] Unit1.pas(32): Element 0 inaccessible - use 'Length' or 'SetLength'
   
  pois o delphi entende que você quer o tamnho da string e por isso ele manda utilizar a função Length. Agora testem com  Edit1.Text:= Str[1]; e ele vai exibir 't' como era de se esperar.
   
  Espero ter ajudado. Mas se não entendeu, conversem em particular e não pra toda alista vê e ficar enchendo a caixa de email.
  Jonatã.
   
  Valfrid-Ly Silva Couto <[EMAIL PROTECTED]> escreveu:
  Agora eu não tenho como procurar. Aqui onde estou agora estou trabalhando com VB e não posso instalar softwares no laptop, mesmo tendo a licença. Somente softwares voltados para o trabalho que estou fazendo.

Lembro que quando eu ainda estava na faculdade (lá pelos idos de 97) um professor meu comentou disso, cheguei a procurar alguma coisa e até encontrei, mas sinceramente não lembro mais.

Campus <[EMAIL PROTECTED]> escreveu: Não encontrei na documentação do Delphi referência a string terminada com
nulo. Se tu puder me indicar fico grato.

Só encontrei que as LongString, que possuem no mínimo 4 bytes, são um
ponteiro para a estrutura real da string. Nesse caso tu não tem essa
limitação de comprimento do primeiro byte.

Minha curiosidade é em função de certa vez que estava lendo sobre criação de
UDFs para Interbase, se fazia nescessário a passagem de parâmetros com
arrays de char, a única forma de construção de strings terminadas em nulo
possível em Delphi, em consequencia do Pascal.


- Original Message - 
From: "Valfrid-Ly Silva Couto" 
To: 
Sent: Thursday, May 25, 2006 9:09 AM
Subject: Re: RES: [delphi-br] Criando DLL


Em Pascal realmente não, mas dá uma olhada na documentação do Delphi pois
eles mudaram isso, afinal, uma string "pura" não poderia passar de 255 chars
pois é o máximo que se consegue marcar na posição 0 da string.

Não sei se você já tentou, mas no Delphi você passa desse ponto e não pode
mais acessar a posição 0 da string para determinar o tamanho, como se podia
fazer no Turbo Pascal!

Campus  escreveu: Valfrid, acho que tu fez uma pequena
confusão.

Se não estou enganado em C as strings são Null terminated, mas Pascal não.

- Original Message - 
From: "Valfrid-Ly Silva Couto"
To:
Sent: Wednesday, May 24, 2006 3:20 PM
Subject: Re: RES: [delphi-br] Criando DLL


Isso só funciona porque no Delphi, as Strings também tem como terminador o
caracter #0



- Original Message - 
From: "Rubem Nascimento da Rocha"
To:
Sent: Wednesday, May 24, 2006 9:25 AM
Subject: Re: RES: [delphi-br] Criando DLL


> Não necessariamente um array, mas PChar é um ponteiro para dados do tipo
> char. Sds.
>
>
> >From: "Marcelo Alves"
> >Reply-To: delphi-br@yahoogrupos.com.br
> >To: delphi-br@yahoogrupos.com.br
> >Subject: Re: RES: [delphi-br] Criando DLL
> >Date: Wed, 24 May 2006 09:21:32 -0300
> >
> >No caso então quem for usar a minha DLL precisar passar os parâmetros em
> >PChar??? Essa DLL que estou desenvolvendo será usada em site em VB .NET.
> >
> >Marcelo.
> >
> >
> >Em 24/05/06, Campus  escreveu:
> > >
> > > Se não me engano, PChar é uma array de chars terminado por um caracter
> > > nulo,
> > > e o String não.
> > >
> > > Basicamente é o segunte:
> > >
> > > "FILIPE"
> > >
> > > em PChar = FILIPE#0.
> > > em String = 6FILIPE.
> > >
> > > O primeiro byte do string contém seu tamanho, por isso passar uma
string
> > > como parâmetro para uma DLL pode congelar o Windows, uma vez que ele
não
> > > encontra o fim da string, que é marcado pelo caracter nulo..

    
-
 Navegue com o Yahoo! Acesso Grátis, assista aos jogos do Brasil na Copa e ganhe prêmios de hora em hora.

[As partes desta mensagem que não continham texto foram removidas]







-- 
< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >

<*> Para ver as mensagens antigas, acesse:
    http://br.groups.yahoo.com/group/delphi-br/messages

<*> Para falar com o moderador, envie um e-mail para:
    [EMAIL PROTECTED]






  




  
Yahoo! Grupos, um serviço oferecido por:
  
  
PUBLICIDADE




  
  



  




  
Links do Yahoo! Grupos

Para visitar o site do seu grupo na web, acesse:http://br.groups.yahoo.com/group/delphi-br/ 
Para sair deste grupo, env

Re: RES: [delphi-br] Criando DLL

2006-05-24 Por tôpico Jonatã Castelo Branco




Fica a teu criterio. Testa e ve o que eh melhor.


--- Marcelo Alves <[EMAIL PROTECTED]> escreveu:


-
Legal, quer dizer então que eu utilizando o PChar,
minha DLL se torna
disponível para todos os tipos de linguagens, correto?
Só mais uma dúvida, o
PChar eu devo utilizar em todas as units do meu
projeto DLL ou somente nas
funções que serão exportadas

Marcelo.


Em 24/05/06, Jonatã Castelo Branco
<[EMAIL PROTECTED]> escreveu:
>
> Então, acredito ser correto dizer que você deve
> utilizar uma variável com a mesma característica do
> PChar, uma vez que a dll pode ser utilizada em
várias
> linguagens de programação. Por exemplo, não quero te
> confundir, mas se você utlizar tua dll em um
> compilador de C, a variável que você vai passar como
> parâmetro deve ser um char de n elemntos. No C, está
é
> uma string com terminação nula.
>
> int main(void) {
> ...
> char Str[10];  // declarando variáveis.
> ...
> TuaFuncao(...,Str,...);  // funcao da dll.
> ...
> }
>
>
> --- Campus <[EMAIL PROTECTED]> escreveu:
>
>
> -
> Exatamente. Só tentei simplificar, quem nunca teve
> contato com linguagens
> como C tem dificuldade para entender o coneito de
> ponteiros. Apesar que
> mesmo em Clipper se usa esse conceito, mas a grande
> maioria dos
> programadores que que tenho contato desconhece essa
> facilidade, a passagem
> de parâmetros por referência.
>
> Marcelo, Pchar, não é um tipo de dado própriamente
> dito, é um ponteiro
>
> ele deve ser usado da seguinte forma:
>
> Var pDescricao: PChar
>   cDescricao: String
>
> cDescricao := 'Rubem Nascimento da Rocha'
> pDescricao := PChar(cDescricao)
>
> pDescricao agora "aponta" para cDescricao, ou seja,
> contém o endereço de
> memória onde cDescricao está armazenado. O que se
> passa como parâmetro, é
> esse endereço e não o conteúdo de cDescricao.
>
> O problema começa quando se usa pDescricao :=
> Pchar('Rubem Nascimento da
> Rocha')
>
>
> - Original Message -
> From: "Rubem Nascimento da Rocha"
> <[EMAIL PROTECTED]>
> To: 
> Sent: Wednesday, May 24, 2006 9:25 AM
> Subject: Re: RES: [delphi-br] Criando DLL
>
>
> > Não necessariamente um array, mas PChar é um
> ponteiro para dados do tipo
> > char. Sds.
> >
> >
> > >From: "Marcelo Alves" <[EMAIL PROTECTED]>
> > >Reply-To: delphi-br@yahoogrupos.com.br
> > >To: delphi-br@yahoogrupos.com.br
> > >Subject: Re: RES: [delphi-br] Criando DLL
> > >Date: Wed, 24 May 2006 09:21:32 -0300
> > >
> > >No caso então quem for usar a minha DLL precisar
> passar os parâmetros em
> > >PChar??? Essa DLL que estou desenvolvendo será
> usada em site em VB .NET.
> > >
> > >Marcelo.
> > >
> > >
> > >Em 24/05/06, Campus <[EMAIL PROTECTED]> escreveu:
> > > >
> > > > Se não me engano, PChar é uma array de chars
> terminado por um caracter
> > > > nulo,
> > > > e o String não.
> > > >
> > > > Basicamente é o segunte:
> > > >
> > > > "FILIPE"
> > > >
> > > > em PChar = FILIPE#0.
> > > > em String = 6FILIPE.
> > > >
> > > > O primeiro byte do string contém seu tamanho,
> por isso passar uma
> string
> > > > como parâmetro para uma DLL pode congelar o
> Windows, uma vez que ele
> não
> > > > encontra o fim da string, que é marcado pelo
> caracter nulo..
> > > >
> > > >
> > > >
> > > >
> > > > - Original Message -
> > > > From: "Filipe Belchior"
> <[EMAIL PROTECTED]>
> > > > To: 
> > > > Sent: Tuesday, May 23, 2006 6:08 PM
> > > > Subject: Re: RES: [delphi-br] Criando DLL
> > > >
> > > >
> > > > Marcello,
> > > >
> > > > Explicar sobre PChar, tecnicamente, eu não
sei,
> rs..
> > > > ..mas acontece o seguinte, usando string vc
tem
> resultado
> > > > dos métodos todo errado!
> > > >
> > > > agora, sobre o form do report, vc falou pouco
> sobre
> > > > como vc esta fazendo. mostre como vc ta
fazendo.
> > > >
> > > >
> > > >
> > > > --- Em delphi-br@yahoogrupos.com.br,
> "marcelloassouza"
> > > > <[EMAIL PROTECTED]> escreveu
> > > > >
> > > > > Felipe,
> > > > >
> &g

Re: RES: [delphi-br] Criando DLL

2006-05-24 Por tôpico Jonatã Castelo Branco




Então, acredito ser correto dizer que você deve
utilizar uma variável com a mesma característica do
PChar, uma vez que a dll pode ser utilizada em várias
linguagens de programação. Por exemplo, não quero te
confundir, mas se você utlizar tua dll em um
compilador de C, a variável que você vai passar como
parâmetro deve ser um char de n elemntos. No C, está é
uma string com terminação nula.

int main(void) {
  ...
  char Str[10];  // declarando variáveis.
  ...
  TuaFuncao(...,Str,...);  // funcao da dll.
  ...
}


--- Campus <[EMAIL PROTECTED]> escreveu:


-
Exatamente. Só tentei simplificar, quem nunca teve
contato com linguagens
como C tem dificuldade para entender o coneito de
ponteiros. Apesar que
mesmo em Clipper se usa esse conceito, mas a grande
maioria dos
programadores que que tenho contato desconhece essa
facilidade, a passagem
de parâmetros por referência.

Marcelo, Pchar, não é um tipo de dado própriamente
dito, é um ponteiro

ele deve ser usado da seguinte forma:

Var pDescricao: PChar
   cDescricao: String

cDescricao := 'Rubem Nascimento da Rocha'
pDescricao := PChar(cDescricao)

pDescricao agora "aponta" para cDescricao, ou seja,
contém o endereço de
memória onde cDescricao está armazenado. O que se
passa como parâmetro, é
esse endereço e não o conteúdo de cDescricao.

O problema começa quando se usa pDescricao :=
Pchar('Rubem Nascimento da
Rocha')


- Original Message - 
From: "Rubem Nascimento da Rocha"
<[EMAIL PROTECTED]>
To: 
Sent: Wednesday, May 24, 2006 9:25 AM
Subject: Re: RES: [delphi-br] Criando DLL


> Não necessariamente um array, mas PChar é um
ponteiro para dados do tipo
> char. Sds.
>
>
> >From: "Marcelo Alves" <[EMAIL PROTECTED]>
> >Reply-To: delphi-br@yahoogrupos.com.br
> >To: delphi-br@yahoogrupos.com.br
> >Subject: Re: RES: [delphi-br] Criando DLL
> >Date: Wed, 24 May 2006 09:21:32 -0300
> >
> >No caso então quem for usar a minha DLL precisar
passar os parâmetros em
> >PChar??? Essa DLL que estou desenvolvendo será
usada em site em VB .NET.
> >
> >Marcelo.
> >
> >
> >Em 24/05/06, Campus <[EMAIL PROTECTED]> escreveu:
> > >
> > > Se não me engano, PChar é uma array de chars
terminado por um caracter
> > > nulo,
> > > e o String não.
> > >
> > > Basicamente é o segunte:
> > >
> > > "FILIPE"
> > >
> > > em PChar = FILIPE#0.
> > > em String = 6FILIPE.
> > >
> > > O primeiro byte do string contém seu tamanho,
por isso passar uma
string
> > > como parâmetro para uma DLL pode congelar o
Windows, uma vez que ele
não
> > > encontra o fim da string, que é marcado pelo
caracter nulo..
> > >
> > >
> > >
> > >
> > > - Original Message -
> > > From: "Filipe Belchior"
<[EMAIL PROTECTED]>
> > > To: 
> > > Sent: Tuesday, May 23, 2006 6:08 PM
> > > Subject: Re: RES: [delphi-br] Criando DLL
> > >
> > >
> > > Marcello,
> > >
> > > Explicar sobre PChar, tecnicamente, eu não sei,
rs..
> > > ..mas acontece o seguinte, usando string vc tem
resultado
> > > dos métodos todo errado!
> > >
> > > agora, sobre o form do report, vc falou pouco
sobre
> > > como vc esta fazendo. mostre como vc ta fazendo.
> > >
> > >
> > >
> > > --- Em delphi-br@yahoogrupos.com.br,
"marcelloassouza"
> > > <[EMAIL PROTECTED]> escreveu
> > > >
> > > > Felipe,
> > > >
> > > > Primeiramente, obrigado pela resposta, você
não sabe o quanto me
> > > > ajudou, você e os outros amigos do grupo.
Agora me diga uma coisa,
no
> > > > primeiro form o problema foi resolvido, agora
estou com problemas
> > > > quando ao outro que no Caso é um Report.
Quando uso o Report num
> > > > projeto comum, ele funciona normal ao chamar
qualquer obejto do
> > > > mesmo, mas agora num DLL, estou recebendo a
mesma mensagem de access
> > > > violation. Tenho que instacia-lo ou fazer
alguma chamada
diferenciada
> > > > para poder utilizá-lo na minha DLL???
> > > >
> > > > Outra coisa, porque Pchar ao invés de String?
Só para
conhecimento!!!
> > > >
> > > > Marcelo.
> > > >
> > > >
> > > > --- Em delphi-br@yahoogrupos.com.br, Filipe
Belchior
> > > > <[EMAIL PROTECTED]> escreveu
> > > > >
> > > > > ..outra coisa,
> > > > >
> > > > > no caso, vc ta usando ADO, já vou avisando
que vc terá problemas
> > > > > com ActiveX em projeto DLL.. para resolver,
faça o seguinte:
> > > > >
> > > > > no "OnCreate" do 1o form a ser criado no
projeto dll, inclua a
> > > > linha:
> > > > >
> > > > > CoInitialize( nil );
> > > > >
> > > > > ..e no "OnDestroy":
> > > > >
> > > > > CoUninitialize;
> > > > >
> > > > > ..Ah! assim como o Anderson comentou, não
use String nos
parametros
> > > > > dos métodos que serão exportados na sua
dll.. sendo assim, basta
> > > > mudar
> > > > > o seguinte:
> > > > >
> > > > > Procedure GeraPDF( Servidor, Tipo: PChar );
stdcall;
> > > > >
> > > > >
> > > > > ..pronto, valeu!!
> > > > >
> > > > >
> > > > >
___
> > > > > Abra sua conta no Yahoo! Mail: 1GB de
espaço, alertas de e-mail no
> > > > celular e anti-spam realmente eficaz.
> > > >

Re: RES: [delphi-br] PChar to String?

2006-05-23 Por tôpico Jonatã Castelo Branco




não deu certo. mas obrigado.

"Douglas Uesato - Depto. de Informática" <[EMAIL PROTECTED]> escreveu:  Jonatã,

  Eu não testei, mas acho que se você tentar assim (VarString :=
String(VarPchar) vai dar certo.

Atenciosamente,

Douglas Uesato


-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Jonatã Castelo Branco
Enviada em: terça-feira, 23 de maio de 2006 09:00
Para: Grupo Delphi
Assunto: [delphi-br] PChar to String?

Alguem sabe como converter uma variável PChar para String?
  Valeu.
  Jonatã

__
Faça ligações para outros computadores com o novo Yahoo! Messenger 
http://br.beta.messenger.yahoo.com/ 

[As partes desta mensagem que não continham texto foram removidas]







-- 
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>

<*> Para ver as mensagens antigas, acesse:
    http://br.groups.yahoo.com/group/delphi-br/messages

<*> Para falar com o moderador, envie um e-mail para:
    [EMAIL PROTECTED]






  




  
Yahoo! Grupos, um serviço oferecido por:
  
  
PUBLICIDADE




  
  



  




  
Links do Yahoo! Grupos

Para visitar o site do seu grupo na web, acesse:http://br.groups.yahoo.com/group/delphi-br/ 
Para sair deste grupo, envie um e-mail para:[EMAIL PROTECTED] 
O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!.

[delphi-br] PChar to String?

2006-05-23 Por tôpico Jonatã Castelo Branco




Alguem sabe como converter uma variável PChar para String?
  Valeu.
  Jonatã

    
-
 Abra sua conta no Yahoo! Mail - 1GB de espaço, alertas de e-mail no celular e anti-spam realmente eficaz. 

[As partes desta mensagem que não continham texto foram removidas]







-- 
< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >

<*> Para ver as mensagens antigas, acesse:
    http://br.groups.yahoo.com/group/delphi-br/messages

<*> Para falar com o moderador, envie um e-mail para:
    [EMAIL PROTECTED]






  




  
Yahoo! Grupos, um serviço oferecido por:
  
  
PUBLICIDADE




  
  



  




  
Links do Yahoo! Grupos

Para visitar o site do seu grupo na web, acesse:http://br.groups.yahoo.com/group/delphi-br/ 
Para sair deste grupo, envie um e-mail para:[EMAIL PROTECTED] 
O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!.

[delphi-br] listar computadores ligados na rede

2006-05-18 Por tôpico Jonatã Castelo Branco




alguém sabe como fazer isso? Eu quero apenas os nomes dos computadores e não as pastas que estão compartilhadas. Por isso não posso usar o ShellTreeView. Pode ser uma lista em ListBox. Obrigado.
   
  Jonatã

    
-
 Abra sua conta no Yahoo! Mail - 1GB de espaço, alertas de e-mail no celular e anti-spam realmente eficaz. 

[As partes desta mensagem que não continham texto foram removidas]







-- 
< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >

<*> Para ver as mensagens antigas, acesse:
    http://br.groups.yahoo.com/group/delphi-br/messages

<*> Para falar com o moderador, envie um e-mail para:
    [EMAIL PROTECTED]






  




  
Yahoo! Grupos, um serviço oferecido por:
  
  
PUBLICIDADE




  
  



  




  
Links do Yahoo! Grupos

Para visitar o site do seu grupo na web, acesse:http://br.groups.yahoo.com/group/delphi-br/ 
Para sair deste grupo, envie um e-mail para:[EMAIL PROTECTED] 
O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!.

Re: [delphi-br] Fw: comunicacao via socket...

2006-05-11 Por tôpico Jonatã Castelo Branco




Na realidade eu nunca precisei me preocupar com isto por que a aplicação que fiz no delphi é apenas para teste. O servidor final era um supervisorio da Elipse. No entanto, no meu caso, lembro que o erro ocorria da seguinte forma:
   
  - O cliente consegue se conectar;
  - No momento em que é estabelecida a conexão, o SERVIDOR e não o cliente acusa o erro; (neste caso, o servidor tem como tratar por reiniciar a espera por uma chamada).
  - O cliente ainda "acredita" que está conectado e fica enviando mensagens. Se você não tiver reiniciado a esperar de chamada no Servidor, a cada nova mensagem ele vai acusar o erro sitado.
   
  Então crie um protocolo, onde o cliente deverá, após a conexão, perguntar se o servidor está conectado corretamente. Se não houver resposta por parte do Srevidor, refaça a conexão também no cliente (de preferencia, dê um delay de alguns segundos antes de tentar uma nova conexão).
   
  []s

Francisco - Mol <[EMAIL PROTECTED]> escreveu:
  jonatã... obrigado pela resposta... mas como saber que o cliente ao conectar 
com o servidor deu erro?
tem algum dica... ou exemplo.
obrigado.


- Original Message - 
From: "Jonatã Castelo Branco" <[EMAIL PROTECTED]>
To: 
Sent: Thursday, May 11, 2006 8:17 AM
Subject: Re: [delphi-br] Fw: comunicacao via socket...


De que socket você está falando? Você está utilizando os componentes 
ServerSocket e ClientSocket? Bem se for este o caso, eu já vi este problema, 
mas este aparenta ser um problema na rede que os componentes (normalmente, 
no meu caso, o Server) deveriam tratar mas não fazem. No entanto, este 
problema raramente acontece, mas quando acontece basta reiniciar a conexão e 
não o programa.

  Espero ter ajudado.

Francisco - Mol <[EMAIL PROTECTED]> escreveu:

- Original Message - 
From: "Francisco A Souza" <[EMAIL PROTECTED]>
To: 
Sent: Wednesday, May 10, 2006 8:49 AM
Subject: comunicacao via socket...


> pessoal, fiz um programa que transfere um arquivo texto via socket. ali
> fica funcionando sem problemas, mas em alguns momentos ele da a mensagem
> asynchounos error socket 153, como se o servidor estivesse fora do ar. mas
> ele esta no ar. reinicia o cliente e volta a funcionar normal. alguem ja
> viu alguma coisa?
    
-
 Abra sua conta no Yahoo! Mail - 1GB de espaço, alertas de e-mail no celular e anti-spam realmente eficaz. 

[As partes desta mensagem que não continham texto foram removidas]







-- 
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>

<*> Para ver as mensagens antigas, acesse:
    http://br.groups.yahoo.com/group/delphi-br/messages

<*> Para falar com o moderador, envie um e-mail para:
    [EMAIL PROTECTED]






  




  
Yahoo! Grupos, um serviço oferecido por:
  
  
PUBLICIDADE




  
  



  




  
Links do Yahoo! Grupos

Para visitar o site do seu grupo na web, acesse:http://br.groups.yahoo.com/group/delphi-br/ 
Para sair deste grupo, envie um e-mail para:[EMAIL PROTECTED] 
O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!.

Re: [delphi-br] Fw: comunicacao via socket...

2006-05-11 Por tôpico Jonatã Castelo Branco




De que socket você está falando? Você está utilizando os componentes ServerSocket e ClientSocket? Bem se for este o caso, eu já vi este problema, mas este aparenta ser um problema na rede que os componentes (normalmente, no meu caso, o Server) deveriam tratar mas não fazem. No entanto, este problema raramente acontece, mas quando acontece basta reiniciar a conexão e não o programa.
   
  Espero ter ajudado.

Francisco - Mol <[EMAIL PROTECTED]> escreveu:
  
- Original Message - 
From: "Francisco A Souza" <[EMAIL PROTECTED]>
To: 
Sent: Wednesday, May 10, 2006 8:49 AM
Subject: comunicacao via socket...


> pessoal, fiz um programa que transfere um arquivo texto via socket. ali 
> fica funcionando sem problemas, mas em alguns momentos ele da a mensagem 
> asynchounos error socket 153, como se o servidor estivesse fora do ar. mas 
> ele esta no ar. reinicia o cliente e volta a funcionar normal. alguem ja 
> viu alguma coisa?
> 



-- 
< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >





    Yahoo! Grupos, um serviço oferecido por:    PUBLICIDADE
    var lrec_target="_top";var lrec_URL=new Array();  lrec_URL[1]="http://br.ard.yahoo.com/SIG=12flickcm/M=396559.7942981.9356152.2369893/D=brclubs/S=2137111264:HM/Y=BR/EXP=1147272375/A=3634211/R=0/id=flashurl/SIG=15494h0pu/*http://lt.dell.com/lt/lt.aspx?CID=12387&LID=335659&DGC=BA&DGSeg=DHS&DURL=http://www1.la.dell.com/content/products/category.aspx/desktops?c%3dbr%26l%3dpt%26s%3ddhs";  var lrec_flashfile="http://br.i1.yimg.com/br.yimg.com/i/br/ads7/080506_y300x250_maio01_dhs_dimension5150.swf?clickTAG=_javascript_:LRECopenWindow(1)";  var lrec_altURL="http://br.ard.yahoo.com/SIG=12flickcm/M=396559.7942981.9356152.2369893/D=brclubs/S=2137111264:HM/Y=BR/EXP=1147272375/A=3634211/R=1/id=altimg/SIG=15494h0pu/*http://lt.dell.com/lt/lt.aspx?CID=12387&LID=335659&DGC=BA&DGSeg=DHS&DURL=http://www1.la.dell.com/content/products/category.aspx/desktops?c%3dbr%26l%3dpt%26s%3ddhs";  var lrec_altimg="http://br.i1.yimg.com/br.yimg.com/i/br/ads7/080506_y300x250_maio01_dhs_dimension5150.gif"; 
 var lrec_width=300;var lrec_height=250;  
  
-
  Links do Yahoo! Grupos
    
   Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
    
   Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
    
   O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. 



__
Faça ligações para outros computadores com o novo Yahoo! Messenger 
http://br.beta.messenger.yahoo.com/ 

[As partes desta mensagem que não continham texto foram removidas]







-- 
< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >

<*> Para ver as mensagens antigas, acesse:
    http://br.groups.yahoo.com/group/delphi-br/messages

<*> Para falar com o moderador, envie um e-mail para:
    [EMAIL PROTECTED]






  




  
Yahoo! Grupos, um serviço oferecido por:
  
  
PUBLICIDADE




  
  



  




  
Links do Yahoo! Grupos

Para visitar o site do seu grupo na web, acesse:http://br.groups.yahoo.com/group/delphi-br/ 
Para sair deste grupo, envie um e-mail para:[EMAIL PROTECTED] 
O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!.

[delphi-br] Comandar outro programa

2006-05-10 Por tôpico Jonatã Castelo Branco




alguem sabe como posso fazer um programa que execute
outro no mesmo computador e que comande este outro?
Por exemplo, comande por preencer formulários do outro
programa ou executar funções. Isso é Possível?

Valeu.


    
___ 
Abra sua conta no Yahoo! Mail: 1GB de espaço, alertas de e-mail no celular e anti-spam realmente eficaz. 
http://br.info.mail.yahoo.com/






-- 
< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >

<*> Para ver as mensagens antigas, acesse:
    http://br.groups.yahoo.com/group/delphi-br/messages

<*> Para falar com o moderador, envie um e-mail para:
    [EMAIL PROTECTED]






  




  
Yahoo! Grupos, um serviço oferecido por:
  
  
PUBLICIDADE




  
  



  




  
Links do Yahoo! Grupos

Para visitar o site do seu grupo na web, acesse:http://br.groups.yahoo.com/group/delphi-br/ 
Para sair deste grupo, envie um e-mail para:[EMAIL PROTECTED] 
O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!.

[delphi-br] Google Earth e Delphi

2006-05-09 Por tôpico Jonatã Castelo Branco




Preciso fazer um programa que recebe as informções de um gps (até ai tudo bem) e depois plota os pontos (latitude e longitude) em um programa com um mapa. O ideal é que você o google earth. alguém sabe como posso automaticamente enviar os dados para o google e ele ficar mostrando os pontos on-line.
   
  Valeu

    
-
 Yahoo! Search
 Imposto de Renda 2006: o prazo está acabando. Faça já a sua declaração no site da Receita Federal.

[As partes desta mensagem que não continham texto foram removidas]







-- 
< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >

<*> Para ver as mensagens antigas, acesse:
    http://br.groups.yahoo.com/group/delphi-br/messages

<*> Para falar com o moderador, envie um e-mail para:
    [EMAIL PROTECTED]






  




  
Yahoo! Grupos, um serviço oferecido por:
  
  
PUBLICIDADE




  
  



  




  
Links do Yahoo! Grupos

Para visitar o site do seu grupo na web, acesse:http://br.groups.yahoo.com/group/delphi-br/ 
Para sair deste grupo, envie um e-mail para:[EMAIL PROTECTED] 
O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!.

Re: [delphi-br] Programa que bloqueia programas/ internet/horários de uso do micro [OFF]

2006-05-09 Por tôpico Jonatã Castelo Branco

Anderson, seu programa parece interessante e gostaria também de testá-lo.
Meu email: [EMAIL PROTECTED] ou [EMAIL PROTECTED]
Valeu.

"Desenvolvimento (Anderson)" <[EMAIL PROTECTED]> escreveu:
Claro!
vou enviar para seu email.
O pessoal tem pedido modificações específicas, que estão sendo feitas...
portanto, se alguém quiser, e precisar de modificações, é só pedir...
(A TODOS: Desculpem, não quero usar a lista para vender ou divulgar, apenas pra ajudar nas idéias do software, que foram idéias muito importantes, todas colocadas em prática...)
Anderson
- Original Message -
From: Moked - Tamara (Brazil)
To: delphi-br@yahoogrupos.com.br
Sent: Monday, May 08, 2006 8:54 AM
Subject: RES: [delphi-br] Programa que bloqueia programas/internet/horários de uso do micro [OFF]

Oi Anderson,

Onde vc disponibilizou para o pessoa poder testar o sistema? Queria dar uma olhada nele se fosse possível, pode ser?

Obrigada,

Tamara Clemente - Suporte Técnico
Moked do Brasil - Consultoria de Segurança Empresarial
Divisão MokInf de Informática
PABX: (55-11) 5071-2748
[EMAIL PROTECTED]
www.moked.com.br

De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Desenvolvimento (Anderson)
Enviada em: sábado, 6 de maio de 2006 10:16
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Programa que bloqueia programas/internet/horários de uso do micro [OFF]

Pessoal,

como enviei antes, eu fiz um sw para controlar o uso da internet em uma casa onde os pais não ficam o dia todo, e as crianças ficavam por conta de acessar a internet...
na primeira versão que fiz e instalei nessa casa, já resolveram os problemas...
Porém, pedi pra me ajudarem a testar...
Pois bem, muitas pessoas (muitas mesmo!!!) se dispuseram a me ajudar.
OBRIGADO AMIGOS!!!
Algumas sugestões foram enviadas e foram feitas, como aumentar o nível de segurança, dentre outros...
Uma sugestão que me foi enviada é uma lista negra, onde listo os programas/conteúdos que nunca devem ser abertos. Por exemplo, digito ORKUT, MSN, MICROSOFT INTERNET, FIREFOX, e esses programas não são mais abertos.
Se por acaso quiser impedir que abra o site do yahoo, basta adicionar YAHOO tbém...
Os outros programas são liberados/bloqueados de acordo com o horário.
A hora do micro não pode ser alterada.
Se for alterada, o micro volta a hora automaticamente.
Sobre o preço, me sugeriram que pagariam até 500,00 por um software desses, mas sinceramente, eu não pagaria (pelo menos hj... rsrsrs).
Eu tava pensando em vender por 100.
Mas como eu tô colocando esse software no mercado, e ví que a procura foi grande, repensei o valor...
Eu acho justo R$ 35,00.
Foi o que me responderam tbém.
Portanto, se alguém quiser adquirir o sw, pra poder revender ou mesmo instalar em casa, eu posso fornecer a versão completa por esse preço.
Não me julgue mercantilista... Apenas quero um lugar no sol tbém.. rsrsrs
Se alguém quiser o código fonte, podemos negociar.
Se alguem quiser a versão pra testar mais, é só dizer.

PS: Não sei se sabem, mas sou professor em um curso técnico, onde "tento" ensinar o pessoal a aprender Delphi... Durante minhas aulas e durante as aulas de outros professores, os alunos ficam constantemente procurando acessar ORKUT, MSN, páginas pornográficas, etc... Foi a solução!!! instalei o programa lá, e não tenho mais problemas...

Muito obrigado mesmo pela ajuda.
Esta lista é a melhor lista e mais educada que já participei.

Anderson

[As partes desta mensagem que não continham texto foram removidas]

--
< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >

Yahoo! Grupos, um serviço oferecido por:
PUBLICIDADE

Links do Yahoo! Grupos

* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
* O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo! .

[As partes desta mensagem que não continham texto foram removidas]

--
< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >

Yahoo! Grupos, um serviço oferecido por:
PUBLICIDADE

--
Links do Yahoo! Grupos

a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/del

Re: [delphi-br] Ref. SOCKETS

2006-05-04 Por tôpico Jonatã Castelo Branco




Isso não é muito dificil. Usa os componentes do delphi ServerSocket e ClientSocket (o pacote é dclsockets70.bpl). Daí para você saber quem está conectado, você terá que criar um protocolo de comunicação.
   
  Valeu.

Marcel Garcia de Almeida <[EMAIL PROTECTED]> escreveu:
  Boa tarde,Estou tentando fazer um programa servidor e um cliente utilizando sockets, mas não estou conseguindo.
Quero que o servidor receba parametros enviados pelo cliente e execute um programa no proprio servidor. E quando terminar de rodar, devolva uma mensagem para o cliente, dizendo se foi OK ou NÃO.
E alem de tudo posso ter mais que 1 cliente conectado ao mesmo tempo, entao tenho que saber quem mandou rodar o que pra poder mandar a resposta corretamente.
Obrigado.
Atenciosamente, Marcel Garcia de AlmeidaBrainworks 


-- 
< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >





    Yahoo! Grupos, um serviço oferecido por:    PUBLICIDADE
    var lrec_target="_blank";var lrec_URL=new Array();  lrec_URL[1]="http://br.ard.yahoo.com/SIG=12f03og91/M=399886.8024024.9299154.2369893/D=brclubs/S=2137111264:HM/Y=BR/EXP=1146710183/A=3594535/R=0/id=flashurl/SIG=154ukt5c8/*http://lt.dell.com/lt/lt.aspx?CID=12257&LID=332199&DGC=BA&DGSeg=DHS&DURL=http://www1.la.dell.com/content/products/category.aspx/desktops?c%3dbr%26l%3dpt%26s%3ddhs";  var lrec_flashfile="http://br.i1.yimg.com/br.yimg.com/i/br/ads7/020506_y300x250_abr13_dhs_dimension5150.swf?clickTAG=_javascript_:LRECopenWindow(1)";  var lrec_altURL="http://br.ard.yahoo.com/SIG=12f03og91/M=399886.8024024.9299154.2369893/D=brclubs/S=2137111264:HM/Y=BR/EXP=1146710183/A=3594535/R=1/id=altimg/SIG=154ukt5c8/*http://lt.dell.com/lt/lt.aspx?CID=12257&LID=332199&DGC=BA&DGSeg=DHS&DURL=http://www1.la.dell.com/content/products/category.aspx/desktops?c%3dbr%26l%3dpt%26s%3ddhs";  var lrec_altimg="http://br.i1.yimg.com/br.yimg.com/i/br/ads7/020506_y300x250_abr13_dhs_dimension5150.gif"; 
 var lrec_width=300;var lrec_height=250;  
  
-
  Links do Yahoo! Grupos
    
   Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
    
   Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
    
   O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. 



    
-
 Abra sua conta no Yahoo! Mail - 1GB de espaço, alertas de e-mail no celular e anti-spam realmente eficaz. 

[As partes desta mensagem que não continham texto foram removidas]







-- 
< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >

<*> Para ver as mensagens antigas, acesse:
    http://br.groups.yahoo.com/group/delphi-br/messages

<*> Para falar com o moderador, envie um e-mail para:
    [EMAIL PROTECTED]






  




  
Yahoo! Grupos, um serviço oferecido por:
  
  
PUBLICIDADE




  
  



  




  
Links do Yahoo! Grupos

Para visitar o site do seu grupo na web, acesse:http://br.groups.yahoo.com/group/delphi-br/ 
Para sair deste grupo, envie um e-mail para:[EMAIL PROTECTED] 
O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!.

Re: [delphi-br] Copiar Arquivo

2006-04-28 Por tôpico Jonatã Castelo Branco




Maurici, eu pegeu esta duas dicas (807 e )do 850 dicas do delphi, se você especificaro que você quer, talvez eu possa lhe ajudar melhor.
   
  807 - Copiando Um Arquivo Com Um Gauge
   
  Muitas vezes, quando temos a necessidade de copiar um arquivo de um lugar para outro, é interessante mostrar ao usuário o andamento da cópia.
Para tal, coloque em sua aplicação um gauge (optei por um gauge, mas poderia muito bem ser uma progressbar) e um botão para iniciar a cópia. No código onClick do botão, coloque este código. Neste exemplo, o programa cria um diretório de back-up cujo nome do mesmo é a data da cópia no formato MMDD. No nosso exemplo, chamei o gauge de ga_copia.

procedure Tfrm_Manut.bt_backupClick(Sender: TObject);
var
  strArqOrigem, // Nome do arquivo de origem da cópia
  strArqDestino: string; // Nome do arquivo de destino da cópia
  wDia,wMes,wAno: Word;
begin
  try
    // Aciona o indicativo de progresso da cópia
    ga_copia.Visible := True;
    ga_copia.Progress := 0;
    // Monta os nomes de arquivo - Primeiro recupera de um AdoConnection
    // o nome do arquivo a ser copiado
    strArqOrigem := dm_spark.ADO_Spark.Properties[7].Value;
    // Agora vai montar o nome do arquivo de destino.
    DecodeDate(Date, wAno, wMes, wDia);
    strArqDestino := 'C:\prodata\copia\' + FormatFloat('', WAno);
    strArqDestino := strArqDestino + FormatFloat('00', wMes);
    strArqDestino := strArqDestino + FormatFloat('00', wDia);
    strArqDestino := strArqDestino + '\' + ExtractFileName(strArqOrigem);
    // Desconecta o banco de dados
    dm_spark.ADO_Spark.Close;
    Repaint;
    // Inicia a cópia
    CopyFile(strArqOrigem, strArqDestino);
  finally
    // Reconecta o banco de dados
    dm_spark.ADO_Spark.Open;
    ga_copia.Visible := False;
  end;
end;


  
Agora que já definimos como e quando a cópia será disparada, vamos definir a procedure copyfile que é o motor da nossa cópia de arquivo. Esta procedure é que vai fazer a cópia e incrementar o Gauge.
  
procedure Tfrm_Manut.CopyFile(Source, Destination: string);
var
  FromF,ToF: file of byte;
  Buffer: array[0..4096] of char;
  NumRead: Integer;
  FileLength: LongInt;
  NewPath: string;
begin
  // Antes de copiar, verifica se já existe o diretório
  // Caso o diretório não exista, o mesmo vai ser criado
  NewPath := ExtractFilePath(Destination);
  if not DirectoryExists(NewPath) then
  begin
    CreateDir(NewPath);
  end
  else
  begin
    if FileExists(Destination) then
    begin
  if Application.MessageBox('O arquivo-destino da cópia de segurança já existe ' + #13#10 +
    'Deseja sobrepôr o mesmo com a nova cópia ?', 'Segurança',
    MB_YESNO + MB_ICONQUESTION) = MRNO then
    Exit;
    end;
  end;
  // Copia o arquivo
  // Abre o arquivo de origem e cria o arquivo destino
  AssignFile(FromF, Source);
  Reset(FromF);
  AssignFile(ToF, Destination);
  ReWrite(ToF);
  FileLength := FileSize(FromF);
  with ga_copia do
  begin
    MinValue := 0;
    MaxValue := FileLength;
    while FileLength > 0 do
    begin
  BlockRead(FromF, Buffer[0], SizeOf(Buffer), NumRead);
  FileLength := FileLength - NumRead;
  BlockWrite(ToF, Buffer[0], NumRead);
  AddProgress(NumRead);
    end;
    CloseFile(FromF);
    CloseFile(ToF);
  end;
end;

E
   
  198 - Copiar arquivos usando curingas (*.*)
  { - Coloque um Button no Form;
    - Altere o evento OnClick deste Button conforme abaixo: }
   
  procedure TForm1.Button2Click(Sender: TObject);
  var
    SR: TSearchRec;
    I: integer;
    Origem, Destino: string;
  begin
    I := FindFirst('c:\Origem\*.*', faAnyFile, SR);
    while I = 0 do begin
    if (SR.Attr and faDirectory) <> faDirectory then begin
    Origem := 'c:\Origem\' + SR.Name;
    Destino := 'c:\Destino\' + SR.Name;
    if not CopyFile(PChar(Origem), PChar(Destino), true) then
    ShowMessage('Erro ao copiar ' + Origem + ' para ' + Destino);
    end;
    I := FindNext(SR);
    end;
  end;
   
  Observações
  No exemplo acima, se o arquivo já existir no destino, a função falha (não copia). Para que a função possa sobreescrever o arquivo destino (caso exista), altere o último parâmetro de CopyFile para false. CUIDADO! Se um arquivo for sobreescrito, estará perdido para sempre!

Valeu cara.
   
  Allan <[EMAIL PROTECTED]> escreveu:
  Boa noite, o que deseja afinal, copiar um arquivo de um diretório para outro?, copiar um arquivo pela rede?, ou enviar informações para outra instância do mesmo aplicativo?, tipo enviar um arquivo .ini para a outra instância ler?

[]'s
Allan
  - Original Message - 
  From: Maurici Alvarez 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Thursday, April 27, 2006 6:02 PM
  Subject: [delphi-br] Copiar Arquivo


  PessALL, Bom Noite

  Preciso saber como eu faço pra copiar aquivos pelo delphi.

  Tipo enviar um arquivo para outro usuário, que esteja com o
  sistema aberto.

  Obrigado.



  []'s

  Maurici Dias Alvarez 
    
-

[delphi-br] ServerSocket - receber array de bytes

2006-04-25 Por tôpico Jonatã Castelo Branco

A idéia é transferir qualquer tipo de arquivo via tcp/ip usando o ServerSocket. Quem abre a conexão é um equipamento remoto (que não tem nada a ver com o delphi a aplicação criada por ele) e o Servidor é a aplicação feita no delphi com o ServerSocket. Até ai tudo bem.
Para receber os dados do equipamento remoto eu estou usando o função
Socket.ReceiveBuf(BufRxArq,Socket.ReceiveLength);
em que a variável BufRxArq é declarada como
BufRxArq: array[1..1023] of Byte;
e está função não dá certo. Alguém sabe por que?
Só para esclarecer, eu poderia utilizar a função
BufRx := BufRx + Socket.ReceiveText;
em que a variável BufRx seria uma string, para receber os dados. Mas, dai, o que ficasse armazenado em BufRx seriam caracteres ascii e não dá para salvar qualquer tipo de arquivo desta forma, a não ser que alguém saiba como coneverter o ascii lido para byte, para dai poder salvar o arquivo.
Valeu.

-
Abra sua conta no Yahoo! Mail - 1GB de espaço, alertas de e-mail no celular e anti-spam realmente eficaz.

[As partes desta mensagem que não continham texto foram removidas]

--
< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >

<*> Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages

<*> Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]

Links do Yahoo! Grupos

Para visitar o site do seu grupo na web, acesse:http://br.groups.yahoo.com/group/delphi-br/
Para sair deste grupo, envie um e-mail para:[EMAIL PROTECTED]
O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!.

[delphi-br] Endereço de memória

2006-03-16 Por tôpico Jonatã Castelo Branco

Alguem sabe como pego os endereços final e incial de um arquivo qualquer?
  Na realidade, estou desenvolvendo um programa que exige que eu copie byte por 
byte de um arquivo e mande as informações.
   
  Valeu.


-
 Yahoo! Acesso Grátis 
Internet rápida e grátis. Instale o discador agora!

[As partes desta mensagem que não continham texto foram removidas]



-- 
< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >

<*> Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages

<*> Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
 
Links do Yahoo! Grupos

<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

Re: [delphi-br] Descobrir quais as partições

2006-03-14 Por tôpico Jonatã Castelo Branco

Eu testei a função driversletter que o Welson mandou e ela alista tanto os 
drivers como as partições do computador.
   
  Valeu.

Walter Alves Chagas Junior <[EMAIL PROTECTED]> escreveu:
  Sinceramente? Não sei :)

[]s

Walter Alves Chagas Junior
Projeto e desenvolvimento de sistemas
Telemont Engenharia de telecomunicações
Belo Horizonte - MG - Brazil
[EMAIL PROTECTED]
Fone: (31) 3389-8215 Fax: (31) 3389-8200

-
 Yahoo! Acesso Grátis 
Internet rápida e grátis. Instale o discador agora!

[As partes desta mensagem que não continham texto foram removidas]



-- 
< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >

<*> Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages

<*> Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
 
Links do Yahoo! Grupos

<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

Re: [delphi-br] Programa de comunicação com várias portas seriais

2006-03-14 Por tôpico Jonatã Castelo Branco

Não sei seu nível de conhecimento em Delphi, mas para acessar o que chega em 
cada componente serial, você deve em cada um ativar a função onRxChar e 
escrever a rotina lá, uma para cada componente. De qualquer forma, estou te 
mandando um link de um outro componente serial. Ele é free, mas só permite 
acessar até três portas:
   
  http://prdownloads.sourceforge.net/comport/cport-3.10.zip?download
   
  Qualquer dúvida, ele vem com bons exemplos, principalmente o "MiniTerm.dpr". 
E ele pode ser utilizado tanto em Delphi como em C++.

Diogo de Oliveira Cunha <[EMAIL PROTECTED]> escreveu:
  Pessoal bom dia.
Estou desenvolvendo uma aplicação de controle de acesso e estou tendo
problema com o monitoramento das portas seriais do micro. A aplicação esta
sendo alterada, pois em sua primeira versão ela monitorava uma porta serial
apenas. Estou utilizando Delphi e o componente que estou usando para a
comunicação serial é o TComport. Pois bem, coloquei mais um componente
TComport na aplicação repetindo as configurações do primeiro a exceção da
porta na qual ele irá se conectar. Em cada porta, existe um equipamento
conectado a outra ponta. O problema é que a rotina de monitoramento funciona
em separado em cada um dos componentes, porém quando conecto os dois em suas
respectivas portas ao mesmo tempo, sempre o segundo componente a se conectar
não recebe os dados que chegam pela porta . . .  Estou perdido pois ja segui
todas as intruções do help do componente e ainda não obtive sucesso.

Gostaria que se alguém pudesse, me enviasse links com informações sobre como
escrever uma aplicação para trabalhar com mais de uma porta serial ao mesmo
tempo, ou mesmo como utilizar o componente TComport para este fim. Acredito
que minha deficiência está na técnica de programação que estou utilizando,
mas não sei que caminho seguir.

Antecipadamente agradeço a ajuda de todos.


--
"Eu acredito que a figura do pai e do líder são os grandes equívocos de
todas as gerações antes da nossa. E que todos nós contamos com Nixon ou
Jesus ou quem quer que seja; é uma falta de responsabilidade a gente esperar
que alguém faça as coisas por nós. Assim, ele nos ajuda ou nós o matamos ou
votamos para que saia. Acho que este é o equívoco, ter figuras paternas. É
um sinal de fraqueza, cada um tem de sujar as próprias mãos."
John Lennon


[As partes desta mensagem que não continham texto foram removidas]



-- 
< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >





Yahoo! Grupos, um serviço oferecido por:PUBLICIDADE
var lrec_target="_blank";var lrec_URL=new Array();  
lrec_URL[1]="http://br.ard.yahoo.com/SIG=12fevppfe/M=396553.7942726.8955931.2369893/D=brclubs/S=2137111264:HM/Y=BR/EXP=1142340778/A=3365488/R=0/id=flashurl/SIG=154hjlk1t/*http://lt.dell.com/lt/lt.aspx?CID=11593&LID=319636&DGC=BA&DGSeg=DHS&DURL=http://www1.la.dell.com/content/products/category.aspx/desktops?c%3dbr%26l%3dpt%26s%3ddhs";;
  var 
lrec_flashfile="http://br.i1.yimg.com/br.yimg.com/i/br/ads7/130306_y300x250_mar06_dhs_gx620dt.swf?clickTAG=javascript:LRECopenWindow(1)";
  var 
lrec_altURL="http://br.ard.yahoo.com/SIG=12fevppfe/M=396553.7942726.8955931.2369893/D=brclubs/S=2137111264:HM/Y=BR/EXP=1142340778/A=3365488/R=1/id=altimg/SIG=154hjlk1t/*http://lt.dell.com/lt/lt.aspx?CID=11593&LID=319636&DGC=BA&DGSeg=DHS&DURL=http://www1.la.dell.com/content/products/category.aspx/desktops?c%3dbr%26l%3dpt%26s%3ddhs";;
  var 
lrec_altimg="http://br.i1.yimg.com/br.yimg.com/i/br/ads7/130306_y300x250_mar06_dhs_gx620dt.gif";;
  var
 lrec_width=300;var lrec_height=250;  
  
-
  Links do Yahoo! Grupos

   Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

   Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

   O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do 
Yahoo!. 




-
 Yahoo! Search
 Dê uma espiadinha e saiba tudo sobre o Big Brother Brasil.

[As partes desta mensagem que não continham texto foram removidas]



-- 
< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >

<*> Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages

<*> Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
 
Links do Yahoo! Grupos

<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

Re: RES: [delphi-br] Descobrir quais as parti ções

2006-03-14 Por tôpico Jonatã Castelo Branco

Valeu Welson e Walter. Realmente quero as unidades disponíveis no computador e 
não drivers de CD, disquete etc. Então como posso rastrear as unidades do disco 
e buscar suas repectivas letras.

Walter Alves Chagas Junior <[EMAIL PROTECTED]> escreveu:  Welson e Jonatã, 
desculpe mas vocês estão confundindo partições de uma
unidade de disco com drives disponíveis no PC. Vejam bem. Partição só existe
no HD. Então o primeiro passo é rastrear quantas unidades de disco rígido
existem naquele computador. Em seguida buscar quantas partições existe em
cada HD para depois levantar as letras de unidade atribuídas a estas
partições.

Estas funções que você passou, listam as unidades de disco presentes no
sistema. Aí incluí-se Zip Drive, Pen Drive ou qualquer outro dispositivo de
armazenamento via USB/memória Flash. As unidades de disquete e CDRom e
também unidades mapeadas na rede. Veja você que a função faz chamada de uma
API (GetLogicalDrives) que lista. 

A menos que você queira saber quantas e quais unidades de Drive existam no
computador, partições existentes no computador é uma coisa bem diferente e o
caminho não é este. 


[]s

Walter Alves Chagas Junior
Projeto e desenvolvimento de sistemas
Telemont Engenharia de telecomunicações
Belo Horizonte - MG - Brazil
[EMAIL PROTECTED]
Fone: (31) 3389-8215 Fax: (31) 3389-8200

-
  
-
Yahoo! Messenger com voz - Instale agora e faça ligações de graça. 

[As partes desta mensagem que não continham texto foram removidas]



-- 
< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >

<*> Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages

<*> Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
 
Links do Yahoo! Grupos

<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

[delphi-br] Descobrir quais as partições

2006-03-13 Por tôpico Jonatã Castelo Branco

Como posso saber quais as partições existentes no computador (C:\, A:\ etc)?
  Sei de uma função (tirada do 850 dicas) que alista os arquivos de um 
diretório, mas é necessário fornecer o endereço inicial de pesquisa.
   
  Valeu.
  Jonatã.


-
 Yahoo! Acesso Grátis 
Internet rápida e grátis. Instale o discador agora!

[As partes desta mensagem que não continham texto foram removidas]



-- 
< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >

<*> Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages

<*> Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
 
Links do Yahoo! Grupos

<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

[delphi-br] Rede via Porta Serial

2006-03-10 Por tôpico Jonatã Castelo Branco

Estou querendo fazer dois computadores se comunicarem via porta serial (rs232) 
e sei que os componentes do delphi acessam outros computadores via porta de 
rede. Tem alguma forma de mascará isso, ou seja, utilizar os componentes do 
delphi e fazelos acessar a porta serial?


-
 Yahoo! Search
 Dê uma espiadinha e saiba tudo sobre o Big Brother Brasil.

[As partes desta mensagem que não continham texto foram removidas]



-- 
< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >

<*> Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages

<*> Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
 
Links do Yahoo! Grupos

<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

Re: [delphi-br] [MEIO-OFF] Recebendo dados via serial com TurboPowerAsync

2006-02-24 Por tôpico Jonatã Castelo Branco

Alexandre, eu trabalho com o TMSA32 que é muito fácil e eficiente, mas não 
consigo evitar uma rápida "propaganda" que ele faz quando inicia o executável. 
De qualquer forma, eu posso te enviar este componente. Mas, gostaria que você 
me enviasse o TurboPowerAsync para que eu pudesse dar uma olhada.
   
  Valeu.

Alexandre <[EMAIL PROTECTED]> escreveu:
  Boa tarde estimados,

Primeiramente me desculpem por fazer um 'cross'. Gostaria muito de saber
se alguém que trabalhe com turbopowerasync ou algum outro componente pra
fazer leitura na porta serial de balanças (no meu caso uma C&F filizola
mod. C15) pra poder me dar umas dicas, pois li o manualzim do danado do
componente que tô usando e não encontrei nada que sanasse minha dúvida.
Preciso fazer a leitura do peso registrado pela balança.

Valew.

---
[]'s

Alexandre

-
 Yahoo! Acesso Grátis 
Internet rápida e grátis. Instale o discador agora!

[As partes desta mensagem que não continham texto foram removidas]



-- 
< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >

<*> Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages

<*> Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
 
Links do Yahoo! Grupos

<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

56 matches

Mail list logo