Pop3 протокол с winsock

[rachina]

Доброго времени суток!
есть программа, которая работает как почтовый клиент. с smtp не было особых проблем. всё отлично отправляет. а вот читать не особо хочет...
чуть ниже текст процедуры.

застревает на строке

 while pos(#13, _tempStr)>0 do

зависает и... всё. потом, конечно "отвисает", но текст письма не показывает.

procedure TForm1.ReadMailClick(Sender: TObject);
var
 _buff:array [0..256] of Char;
 i, j:integer;
 _tempStr:AnsiString;
 _size:integer;
begin
 if MailListView.Selected = nil then
  Exit;
 
 _size:=strToInt(MailListView.Selected.SubItems.Strings[0]);
 i:=0;
 
 AddToLog('Попытка загрузки письма...');
 
 SendToSocket(_popSocket, 'RETR '+IntToStr(MailListView.Selected.Index+1));
 AddToLog(ReadFromSocket(_popSocket));
 Sleep(1000);
 
 while i<=_size do
 begin
  if _size-i<256 then
  begin
   fillchar(_buff, sizeof(_buff),#0);
   j:=_size-i+50;
   recv(_popSOcket, _buff, j, 0);
 
    _tempStr:=_tempStr+_buff;
    Break;
    Exit;
  end;
 
  fillchar(_buff, length(_buff), #0);
  i := i+recv(_popSocket, _buff, length(_buff), 0);
  _tempStr:=_tempStr+_buff;
 end;
 
 TextMemo2.Lines.Clear;
 
 while pos(#13, _tempStr)>0 do
 begin
  TextMemo2.Lines.Add(Copy(_tempStr, 1, pos(#13, _tempStr)));
  Delete (_tempStr, 1, pos(#13, _tempStr)+1);
 end;
 
 TextMemo2.Lines.Add(_tempStr);
end;

будьте добры, подскажите, в чём проблема?


emclient_-_kopia (2).rar

[Stilet]

recv тебе блокирует поток, потому и зависает.
На INDY не желаешь пересесть?