Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > Интернет и сети
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 29.08.2011, 13:37
Olgir Olgir вне форума
Прохожий
 
Регистрация: 25.08.2011
Сообщения: 5
Репутация: 10
По умолчанию Recv() и многострочные ответы

Пишу софтину для почтовой рассылки. Софтина посредством WinSock должна подконнектиться к серверу, авторизоваться и рассылать письма.
Происходит все так:

Код:
1
2
3
4
5
6
connect(sock, SAddr, Sizeof(SAddr))
...
msg:='EHLO';
ret:=send(sock,msg,Length(msg),0);
...
ret:=recv(sock,msg,1024,0);
Вот тут то я, собственно и застопорился. Подключаясь к серверу с помощью telnet и отправляя ему "EHLO" я получаю в ответ 5 строк. Функция recv отдает мне в буфер msg (msg: array[0..1023] of AnsiChar) лишь первую строку, оканчивающуюся на CrLf. Если я пытаюсь вызвать recv еще раз, программа наглухо виснет - оно и понятно, сервер ведь больше ничего не отвечает.
Внимание вопрос! Куда делись оставшиеся 4 строки ответа и как их получить в буфер msg?

Ковыряю гугл второй день, все глухо, во всех примерах по Winsock ничего подобного не объясняется, да и вообще, поверхностные они какие-то...

И да, не посылайте меня, пожалуйста, в сторону инди и TCPClient. Я хочу сделать все именно на Winsock и никак иначе. Версия библиотеки - 2.0.

Буду очень благодарен, если посоветуете ХОРОШЕЕ руководство по Winsock, желательно для Delphi, желательно на русском языке.

Заранее спасибо!

UPD: Я дико извиняюсь - изначально неверно сформулировал проблему! Правильная формулировака ниже!

Последний раз редактировалось Olgir, 29.08.2011 в 16:48.
Ответить с цитированием
  #2  
Старый 29.08.2011, 14:46
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 8,096
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию

а как ты видишь, что тебе вернули только одну строку???
есть подозрение, что ты просто неправильно обрабатываешь ответ.
Ответить с цитированием
  #3  
Старый 29.08.2011, 16:15
Olgir Olgir вне форума
Прохожий
 
Регистрация: 25.08.2011
Сообщения: 5
Репутация: 10
По умолчанию

Цитата:
Сообщение от lmikle
а как ты видишь, что тебе вернули только одну строку???
Смотрю с помощью трассировки в получившийся после вызова функции массив и вижу там такую строку:
"250 Тут некоторый ответ #13#10 00000000000000000000000000000...
Все как положено - код, потом текст, потом перенос строки. Но дальше нулями забито все до конца массива, т.е., из пяти строк в мой массив пришла лишь одна. Массив, напоминаю, msg: array[0..1023] of AnsiChar;

Цитата:
Сообщение от lmikle
есть подозрение, что ты просто неправильно обрабатываешь ответ.
У меня тоже такое подозрение. Но в мануалах именно так все описано. Потому я и решил обратиться за помощью на форум - быть может, тут подскажут, как правильно работать с recv()? Может есть возможность какой-то другой функцией читать то, что находится в буфере приема?

Еще читал, что к данным пришедшим на сокет можно обращаться с помощью ReadFile. Программа компилируется, никаких исключений функция не генерит, она просто ничего не читает. Вобщем, хотелось бы совет, желательно с примером, а еще лучше, какое-нибудь хорошее чтиво по сокетам...


UPD: я дико извиняюсь, изначально неверно сформулировал проблему! Только что нашел небольшой косяк, немного переписал код. Сейчас переформулирую...

Соединяюсь с сервером, получаю приветствие от него.
Код:
1
2
connect(sock, SAddr, Sizeof(SAddr));
ret:=recv(sock,msg,1024,0);

msg: 220 SMTP technoac.ru ESMTP #10#13
ret: 28

Отправляю приветствие серверу.
Код:
1
2
msg:='EHLO';
ret:=send(sock,msg,Length(msg),0);

msg: EHLO
ret: 4

Пытаюсь получить ответ.
Код:
1
ret:=recv(sock,msg,1024,0);

На этом месте функция recv() виснет и не отдает управление. Что-то я явно делаю не так, но что?
В этом месте как раз и предполагаются искомые 5 строк текста, вместо этого я вообще ничего не получаю.

Последний раз редактировалось Olgir, 29.08.2011 в 16:49.
Ответить с цитированием
  #4  
Старый 29.08.2011, 17:13
Аватар для NumLock
NumLock NumLock вне форума
Let Me Show You
 
Регистрация: 30.04.2010
Адрес: Северодвинск
Сообщения: 5,426
Версия Delphi: 7, XE5
Репутация: 59586
По умолчанию

Код:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
var
  WSAData: TWSAData;
  FSocket: TSocket;
  FAddr: sockaddr_in;
  InAddr: in_addr;
  HostEnt: PHostEnt;
  Buf: array [0..$ff] of Char;
  Count: Integer;
begin
  WSAStartup($0202, WSAData);
  try
    FSocket:=socket(AF_INET, SOCK_STREAM, IPPROTO_TCP);
    if FSocket=INVALID_SOCKET then
      raise Exception.Create('socket(): '+SysErrorMessage(WSAGetLastError));
    FAddr.sin_family:=AF_INET;
    FAddr.sin_port:=htons(25);
    FillChar(InAddr, SizeOf(InAddr), 0);
    HostEnt:=gethostbyname('smtp.mail.ru');
    if HostEnt<>nil then
    begin
      InAddr.S_un_b.s_b1:=HostEnt^.h_addr^[0];
      InAddr.S_un_b.s_b2:=HostEnt^.h_addr^[1];
      InAddr.S_un_b.s_b3:=HostEnt^.h_addr^[2];
      InAddr.S_un_b.s_b4:=HostEnt^.h_addr^[3];
      FAddr.sin_addr:=InAddr;
    end else raise Exception.Create('gethostbyname()');
    if connect(FSocket, FAddr, SizeOf(FAddr))<>0 then
      raise Exception.Create('connect(): '+SysErrorMessage(WSAGetLastError));
    try
      buf:='EHLO NumLock'#13#10;
      Count:=14;
      send(FSocket, Buf, Count, 0);
      // подождем, чтобы одной командой recv все считать
      Tag:=GetTickCount;
      while GetTickCount-DWORD(Tag)<2000 do Application.ProcessMessages;
      Count:=recv(FSocket, Buf, $100, 0);
      if Count=SOCKET_ERROR then
        raise Exception.Create('recv(): '+SysErrorMessage(WSAGetLastError));
      Memo1.Lines.Add(Copy(Buf, 0, Count-1));
    finally
      closesocket(FSocket);
    end;
  finally
    WSACleanup;
  end;
end;
__________________
Пишу программы за еду.
__________________
Ответить с цитированием
  #5  
Старый 29.08.2011, 23:53
Olgir Olgir вне форума
Прохожий
 
Регистрация: 25.08.2011
Сообщения: 5
Репутация: 10
По умолчанию

NumLock, спасибо, завтра приду на работу, разберу это).

UPD: кажется понял свою ошибку. Нужно ставить CRLF в конце сообщения, а я этого не сделал.

Последний раз редактировалось Olgir, 30.08.2011 в 00:02.
Ответить с цитированием
  #6  
Старый 30.08.2011, 09:18
Olgir Olgir вне форума
Прохожий
 
Регистрация: 25.08.2011
Сообщения: 5
Репутация: 10
По умолчанию

Все работает, проблема решена. Действительно, все дело в том, что я не передавал #10#13 в конце строки.
NumLock, спасибо за дельный пример! .
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 22:49.


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2025