отправка писем на winsock

[joker]

хочу отправить письмо на mail.ru а сервер не отвечает
код функции такой

WSAStartUp и CleanUp происходят в самой программе (там с помощью GetHostByName получаем ссылку на массив PInAddr, первый элемент которого преобразовываем inet_ntoa и результат в нижеописанную ф-ию)
функция не моя, впадлу было долго разбираться с самим протоколом
в smtp - нулевой ipшник из массива ip 'smtp.mail.ru', порт 25 или 2525,
в from и dest - реально существующие мыла (ксати ведь можно же отправить письмо самому себе от самого себя)

function mail(smtp: PChar; port: integer; from, dest, subject,
  body: string): bool;
const
  cl = #13#10;
var
  Host: TSockAddrIn;
  Sock: TSocket;
  res: Integer;

  { îòïðàâëÿåì äàííûå ÷åðåç ñîêåò }
  procedure senddata(str: string);
  var
    i: integer;
  begin
    for i := 1 to Length(str) do 
  ///зачем каждую букву отправлять отдельным пакетом, так положено?
      if send(Sock, str[i], 1, 0) = SOCKET_ERROR then
        exit;
  end;

  { ïîëó÷àåì îòâåò îò êîìàíäû }
  function recvdata(accept: string): bool;
  var
    buff: array[1..255] of Char; 
    ///почему от 1 до 255, тогда уж до 256 если уж от нуля, 
    ///это ж не паскаль, в дельфе же нормальные строки
  begin
    res := recv(Sock, buff, SizeOf(buff), 0);
    Result := (Res = SOCKET_ERROR) or (Copy(buff, 1, 3) = accept);
  end;

begin
  try
    result := false;
    { èíèöèàëèçàöèÿ ñîêåòà }
    Sock := socket(AF_INET, SOCK_STREAM, IPPROTO_IP);
    if Sock = INVALID_SOCKET then
      exit;

    { óñòàíàâëèâàåì õîñò è ïîðò ñåðâåðà }
    res := inet_addr(smtp);
    if res <= 0 then
      exit;

    Host.sin_family := AF_INET;
    Host.sin_port := htons(port);
    Host.sin_addr.S_addr := res;

    { ïîäêëþ÷àåìñÿ ê ñåðâåðó }
    if connect(Sock, @Host, SizeOf(Host)) > 0 then
      exit;

    { ïðèâåòñòâèå ñåðâåðà }
    if not recvdata('220') then
      exit;

    { EHLO }
    senddata('EHLO' + cl);
    if not recvdata('250') then
      exit; ////вот здесь и выходит

    { MAIL FROM: }
    senddata('MAIL FROM:' + from + cl);
    if not recvdata('250') then
      exit;

    { RCPT TO: }
    senddata('RCPT TO:' + dest + cl);
    if not recvdata('250') then
      exit;

    { DATA }
    senddata('DATA' + cl);
    if not recvdata('354') then
      exit;

    { îòïðàâëÿåì òåêñò ñîîáùåíèÿ }
    senddata('Subject:' + subject + cl + cl + body + cl + '.');
    if not recvdata('250') then
      exit;

    { îòêëþ÷àåìñÿ îò ñåðâåðà }
    senddata('QUIT' + cl);

    result := true;
  finally
    { óáèâàåì ñîêåò }
    closesocket(sock);
  end;
end;

подскажите что не так

[rpy3uH]

эта тема больше подходит разделу "Работа с сетью в Delphi"

[joker]

2 Грузин:
ну как бы винсок как и WinApi везде одинаковый - не очень понимаю причем тут дельфи

добавил имя сервера при отправке приветствия

senddata('EHLO' + string(smtp) + cl);

при отправке с упоминанем отправителя например с яндекса при RCPT TO: получаю - not local sender over smpt(ну это потому что надо было адрес сервера яндекса указывать. При отправке с упоминанием отправителя с мейла на DATA требует авторизацию.
а как авторизоваться программно? я не в курсе