hi there
i have a thread which i call several times, each time with a different mail
server info to connect to. everything seemed to working just fine until
not long time ago when suddenly it seems that pop3.logout; command make the
whole app stuck. currently this is a guess according to some
te
Hi all,
I want to use one serial port for writing to and reading from
two different devices. Therefore I wanted to open the port for reading
and then close it again.
I have tried the following for the reading part:
PROCEDURE lesen;
var ser: TBlockSerial;
begin
repeat
ser:=TBlockSerial.Cr
Why do login twice???
the first "If smtp.login" make startTLS and do login on smtp server, why
do the second?
Regards
Smart escribio':
...
uses ssl_openssl;
...
function TdmDocs.SendMyEmail_TLS(const MailFrom, MailTo, SMTPHost,
SMTPPort: string;
const MailData: TStrings; const Use
...
uses ssl_openssl;
...
function TdmDocs.SendMyEmail_TLS(const MailFrom, MailTo, SMTPHost, SMTPPort:
string;
const MailData: TStrings; const Username, Password: string): Boolean;
var
SMTP: TSMTPSend;
s, t: string;
msg_lines: TStringList;
tmpStream: TStream;
begin
Result := False;