Архив форумов ЦИТФорума

[Артур]

хочу написать свой почтовый клиент....работу с классом TClientSocket, задаю его типа как Blocking, пишу следующий текст в событии OnConnect:

procedure Form1.ClientConneck(socket: TCustomSocket............);
var skt: TWinStreamSocket;
s: PChar;
begin
skt:=TWinStreamSocket.Create(socket,60000);
while skt.WaitForData(100) do
Application.ProcessMessage;
s:='helo smtp.mail.ru'+#10;
skt.write(s,length(s));
end;

Но ничего не работает, подскажите как работать с классом TWinSocketStream.
И как организовать с сервером обмен информацией до момента получения определённого сообщение, если в зависимости от ответа сервера надо посылать ему определённую строку
заранее благодарен