各位高手来看看，如何读取数据？？？！(0分)

已知一个远程程序的IP、端口、发送的消息为明文
如何把这些明文显示在MEMO里？？？

上次就是因为这个问题把分全送出去了
还是没有答案~~~~~~

没给分就不回答了吗？
真不知道分有什么用...

不要气愤呀！我今天才看到。不过我对此不是很了解。可以互相探讨一下！我记得我用JAVA做了一个小的聊天程序，成功了。开始遇到的问题中，有一个FLUSH，如果不FLUSH，信息数据就无法提交并显示，所以希望你细心的查看有关delphi代码，相信一定会找到答案！不要着急，编程序这件事情不是召集能够解决的。[][][]

谢谢

这是我拿来得到网页源码的程序，dfm没有贴，关键在ClientSocketRead

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ScktComp, StdCtrls;

type
TForm1 = class(TForm)
ClientSocket: TClientSocket;
btnLink: TButton;
btnSend: TButton;
Memo: TMemo;
Edit: TEdit;
procedure btnLinkClick(Sender: TObject);
procedure btnSendClick(Sender: TObject);
procedure ClientSocketRead(Sender: TObject; Socket: TCustomWinSocket);
procedure ClientSocketConnect(Sender: TObject;
Socket: TCustomWinSocket);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.btnLinkClick(Sender: TObject);
begin
Memo.Lines.Clear;
ClientSocket.Open;
end;

procedure TForm1.btnSendClick(Sender: TObject);
begin
ClientSocket.Socket.SendText('GET /'+Edit.Text+#$0A);
end;

procedure TForm1.ClientSocketRead(Sender: TObject;
Socket: TCustomWinSocket);
Var
s:String;
begin
If Socket.Connected Then
Begin
s:=Socket.ReceiveText;
Memo.Lines.Add(s);
End;
end;

procedure TForm1.ClientSocketConnect(Sender: TObject;
Socket: TCustomWinSocket);
begin
Memo.Lines.Add('AAAAAConn');
end;

end.

接受答案了.