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 := '[email protected]';
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
[email protected]
https://lists.sourceforge.net/lists/listinfo/synalist-public
