Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=395751&view=findpost&p=3537284 Thu, 23 Oct 2014 06:38:49 +0000 SSL_read прочитать многострочный ответ https://forum.sources.ru/index.php?showtopic=395751&view=findpost&p=3537284 Fr0sT Delphi: Сетевое программирование https://forum.sources.ru/index.php?showtopic=395751&view=findpost&p=3537189 Wed, 22 Oct 2014 15:08:58 +0000 SSL_read прочитать многострочный ответ https://forum.sources.ru/index.php?showtopic=395751&view=findpost&p=3537189
    WriteToSSL(con,'RETR 1');
    ...
    function ReadFromSSL(con: Pointer):AnsiString;
    var
    len,num : integer;
    Begin
    FillChar(Buffer,SizeOf(Buffer),#0);
    len:= SSL_read(con, Buffer, sizeof(Buffer)-1); //18
    num:=  sizeof(Buffer); // 1025
    Result:=AnsiString(Buffer);
    End;


Читаю письмо с ящика. Получаю ответ после этой команды
('+', 'O', 'K', ' ', '2', '6', '8', '2', ' ', 'o', 'c', 't', 'e', 't', 's', '.', #13, #10, #0 ...)
и все, но если затем опять сделать ReadFromSSL, то я получу следующую строку письма. Но не могу же я делать ReadFromSSL подряд неизвестно сколько раз. Как узнать сколько еще информации можно получить от сервера?. Может в цикле, может за раз...]]> mimo Delphi: Сетевое программирование