Принятие почты с помощью SMTP протокола

← →
Ghost. (2002-02-04 13:02) [12]

Вот так там написанно
procedure TClientForm.SMTP_Interpreter(
CommandVerb : String;
CommandTail : String);
var
Response : String;
begin
if FDataFlag then begin
{ We should add storage here of course... }
{ SMTP data ends with a line having being a single dot }
if FCommand = "." then begin
Response := "250 Data received ok";
Socket.SendStr(Response + #13 + #10);
FDataFlag := FALSE;
end;
end
else begin
FDataFlag := FALSE;
if CommandVerb = "MAIL" then
Response := "250 Ok"
else if CommandVerb = "RCPT" then
Response := "250 Ok"
else if CommandVerb = "DATA" then begin
Response := "354 Send data now";
FDataFlag := TRUE;
end
else if CommandVerb = "HELO" then
Response := "250 Ok"
else if CommandVerb = "QUIT" then
Response := "221 Goodbye"
else
Response := "500 syntax error";

Socket.SendStr(Response + #13 + #10);
if CommandVerb = "QUIT" then
Socket.Close;
end;
end;

Принятие почты с помощью SMTP протокола Найти похожие ветки