Hello,
i've some trouble with synapse TLS. The examples are tested with synapse
38b1 and 38b7.
With the following code i get an error: "Network subsystem is unusable"
---------------------------------------------
procedure pop3_test;
var
pop3: TPOP3Send;
begin
pop3 := TPOP3Send.Create();
try
pop3.Username:='***';
pop3.Password:='***';
pop3.TargetHost:='pop3server';
pop3.TargetPort := '110';
pop3.AutoTLS := true;
if pop3.Login() then
WriteLn('POP3 OK')
else
WriteLn('POP3 ERROR: ' + pop3.Sock.LastErrorDesc);
finally
pop3.Free;
end;
end;
---------------------------------------------
But with FullSSL it works without any problems:
---------------------------------------------
procedure pop3_test;
var
pop3: TPOP3Send;
begin
pop3 := TPOP3Send.Create();
try
pop3.Username:='***';
pop3.Password:='***';
pop3.TargetHost:='pop3server';
pop3.TargetPort := '995';
pop3.FullSSL := true;
if pop3.Login() then
WriteLn('POP3 OK')
else
WriteLn('POP3 ERROR: ' + pop3.Sock.LastErrorDesc);
finally
pop3.Free;
end;
end;
---------------------------------------------
What am I doing wrong?
Alex
-------------------------------------------------------------------------
This SF.net email is sponsored by: Microsoft
Defy all challenges. Microsoft(R) Visual Studio 2005.
http://clk.atdmt.com/MRT/go/vse0120000070mrt/direct/01/
_______________________________________________
synalist-public mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/synalist-public
