I'm not sure if my post made it to the forums. If it did and this is a repeat - 
sorry.

Its a weird one -I was trying to run my email server app on another PC to test 
ElevateDB 2.28. The comms is via Synapse.

This application works perfectly on my main notebook, ran for literally years 
on my server (now retired like me)

Both PCs are W7x64. I've placed a test project (below) which will just logon to 
Gmail on to the problem PC and it bombs with "SSL/TLS support is not 
compiled!". Run the same app on my main PC and it works fine.

Just to make sure I'm running the exact same software I moved it onto a memory 
stick PC A fine, PC B bombs.

If it didn't work on both machines I'd have said its my code but working on one 
but not the other baffles me. I think it must be a Windows setting somewhere 
but I have no idea where. I did sort of think it could be the internet options 
but I've made sure they're the same and I still have the problem.

Any and all suggestions no matter how bizzare will be well received.



Roy Lambert

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, smtpsend, pop3send, StdCtrls, ssl_openssl, synsock, httpsend,
mimeinln, synacode, synachar, synautil;

type
TForm1 = class(TForm)
Memo1: TMemo;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
sl: TStringList;
GetMail: TPOP3Send;
GotThere: boolean;
begin
GetMail := TPOP3Send.Create;
GetMail.Username := 'notmyemailaddr...@gmail.com';
GetMail.Password := 'NotTheRealPasswordt';
GetMail.TargetHost := 'pop.gmail.com';
GetMail.TargetPort := '995';
GetMail.FullSSL := True;
GotThere := GetMail.Login;
if GotThere
then Memo1.Lines.Text := 'Logon successful'
else begin
sl := TStringList.Create;
sl.Add('Unable to login using: ' + GetMail.Username);
sl.Add('Error message: ' + GetMail.ResultString + #13 + 
GetMail.FullResult.Text);
Memo1.Lines.Text := GetMail.TargetHost + #13 + sl.Text;
Memo1.Lines.add(getmail.Sock.LastErrorDesc);
sl.Free;
end;
getMail.Free
end;

end.

------------------------------------------------------------------------------
Check out the vibrant tech community on one of the world's most
engaging tech sites, Slashdot.org! http://sdm.link/slashdot
_______________________________________________
synalist-public mailing list
synalist-public@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/synalist-public

Reply via email to