用winsocket开发pop3时遇到的问题(可能是个小问题,也可能不是)
在delphi5中,程序能够与邮件服务器建立面向链接的流,但在发送用户名确认时出现了错误,
WriteBuffer := 'USER ' + UserName + '\r\n';
if ( TheStream.WaitForData (TimeOut) ) then
//TheStream : TWinSocketStream
begin
if ( TheStream.Write (WriteBuffer, length (WriteBuffer) + 1 ) = 0 ) then
begin
showmessage ( '网络连接超时');
POP3_disconnectClick (Sender);
end;
ReadCount := TheStream.Read (ReadBuffer, 1024 );
if ( ReadCount = 0 ) then
begin
showmessage ( '网络连接超时');
POP3_disconnectClick (Sender);
end;
end;
memo1.Lines.Add (ReadBuffer[0] + ReadBuffer[1] + ReadBuffer[2] + ReadBuffer[3]);
最后的结果是从流中读到的内容是乱码,这说明服务器根本没收到写过去的内容。我不知我错在哪了。请高手指教。