Witam
Próbuję zrobić klienta poczty e-mail, korzystając z pakietu komponentów indy9, problem w tym, że jestem w sieci firmowej, która łączy się z internetem przez proxy. Poszedłem w kierunku komponentów:
IdSMTP: TIdSMTP;
IdSocksInfo: TIdSocksInfo;
IdIOHandlerSocket: TIdIOHandlerSocket;
Wywołanie metody powoduje zawiesznie się aplikacji, może mój sposób jest błędny?
Procedure Polacz;
begin
idSMTP.Username:='[email protected]';
idSMTP.Password:='hasloXXXXX';
idSMTP.Host:='smtp.wp.pl';
idSMTP.Port:=465;
idSMTP.AuthenticationType:= atLogin;
idSocksInfo:=TIdSocksInfo.Create(idSMTP.Socket);
idSocksInfo.Host:='10.1.0.XXX';
idSocksInfo.Port:=3XXX;
idSocksInfo.Username:='loginXXXXXX';
IdSocksInfo.Password:='hasloXXXXX';
idSocksInfo.Authentication:=saUsernamePassword;
idSocksInfo.Version:=svSocks5;
idIOHandlerSocket.SocksInfo:=IdSocksInfo;
idSMTP.IOHandler:=IdIOHandlerSocket;
try
idSMTP.Connect(-1);
finally
if idSMTP.Connected then
idSMTP.Disconnect;
end;
end;