pascal/synapse
1
0
Fork 0
Code Issues Releases Activity

Liberalized return code handling.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/synalist/code/trunk@105 7c85be65-684b-0410-a082-b2ed4fbef004
This commit is contained in:
geby 2009-10-25 15:18:36 +00:00
parent 271b84aef0
commit b3133aee36
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
smtpsend.pas
View File

@ -1,5 +1,5 @@
{==============================================================================|
| Project : Ararat Synapse | 003.004.003 |
| Project : Ararat Synapse | 003.004.004 |
|==============================================================================|
| Content: SMTP client |
|==============================================================================|
@ -464,13 +464,13 @@ end;
function TSMTPSend.Reset: Boolean;
begin
FSock.SendString('RSET' + CRLF);
Result := ReadResult = 250;
Result := ReadResult div 100 = 2;
end;
function TSMTPSend.NoOp: Boolean;
begin
FSock.SendString('NOOP' + CRLF);
Result := ReadResult = 250;
Result := ReadResult div 100 = 2;
end;
function TSMTPSend.MailFrom(const Value: string; Size: Integer): Boolean;
@ -481,13 +481,13 @@ begin
if FESMTPsize and (Size > 0) then
s := s + ' SIZE=' + IntToStr(Size);
FSock.SendString(s + CRLF);
Result := ReadResult = 250;
Result := ReadResult div 100 = 2;
end;
function TSMTPSend.MailTo(const Value: string): Boolean;
begin
FSock.SendString('RCPT TO:<' + Value + '>' + CRLF);
Result := ReadResult = 250;
Result := ReadResult div 100 = 2;
end;
function TSMTPSend.MailData(const Value: TStrings): Boolean;
@ -519,7 +519,7 @@ begin
if t <> '' then
FSock.SendString(t);
FSock.SendString('.' + CRLF);
Result := ReadResult = 250;
Result := ReadResult div 100 = 2;
end;
function TSMTPSend.Etrn(const Value: string): Boolean;