SSL

[Flavio Eduardo]

Olá pessoal, tenho um sistema de chat em delphi 7 que está rodando bem, estou suando os componentes:

IdTCPClient1, IdAntiFreeze1, alguns Edit´s , um Memo e um BitBtn com o seguinte código:

begin

if IdTCPClient1.Connected then

IdTCPClient1.Disconnect

else

begin

IdTCPClient1.Host := lbEdtServidor.Text;

IdTCPClient1.Port := StrToInt(lbEdtPorta.Text);

IdTCPClient1.Connect(5000);

end;

end;

Gostaria de implementar SSL no chat, tentei colocar o componente IdSSLIOHandlerSocket1 ligado ao IdTCPClient1 na propriedade IOHandler e o seguinte código no BitBtn:

begin

if IdTCPClient1.Connected then

IdTCPClient1.Disconnect

else

begin

IdTCPClient1.Host := lbEdtServidor.Text;

IdTCPClient1.Port := StrToInt(lbEdtPorta.Text);

IdTCPClient1.IOHandler := IdSSLIOHandlerSocket1;

if not IdTCPClient1.Connected then

IdTCPClient1.Connect(5000)

else

IdTCPClient1.IOHandler := nil;

end;

end;

mas não deu certo, alguém pode me dar um help?

[Jhonas]

exemplos

http://www.example-code.com/delphi/socket.asp

especificamente ao seu caso, no seu IdSMTP na propriedade IOHandler voce liga o IdSSLIOHandlerSocket

e salva essas DLLs na pasta do sistema.

outro exemplo

http://www.planetadelphi.com.br/dica/7280/...e-visual---ssl-

abraço

[Flavio Eduardo]

exemplos

http://www.example-code.com/delphi/socket.asp

especificamente ao seu caso, no seu IdSMTP na propriedade IOHandler voce liga o IdSSLIOHandlerSocket

e salva essas DLLs na pasta do sistema.

outro exemplo

http://www.planetadelphi.com.br/dica/7280/...e-visual---ssl-

abraço

Jhonas, obrigado pela atenção, mas o conponente que estou usando é, IdTCPClient e não IdSMTP, com o IdSMTP funciona legal, talvez seja por serem protocolos difernets?

[Jhonas]

então veja

http://borland.newsgroups.archived.at/publ...7020910523.html

abraço

[Flavio Eduardo]

então veja

http://borland.newsgroups.archived.at/publ...7020910523.html

abraço

Caro Jhonas segui o recomendado, mas ta me retornando esse erro:

Error connecting with SSL.

Alguma idéia?

[Jhonas]

Error connecting with SSL.

Erro de conexão com SSL

veja a solução dada

Se você quiser usar SSL sem alterar seu código existente, então você pode anexar um TIdSSLIOHandlerSocket ao TIdTCPClient e um TIdServerIOHandlerSSL ao TIdTCPServer, e depois instalar Indy custom-made OpenSSL DLLs

voce deve ler um pouco mais

http://www.cryer.co.uk/glossary/s/ssl.htm

abraço