Tsocket和Tmemo得问题(100分)

  • 主题发起人 主题发起人 monkeyking
  • 开始时间 开始时间
M

monkeyking

Unregistered / Unconfirmed
GUEST, unregistred user!
各位大侠,看看小弟得问题:

我在做一个类似qq的聊天工具,输入聊天信息和显示聊天记录都是用的memo
但是我不知道serversocket怎么将memo的内容发送到client,在client的聊天记录的memo
里显示,于是用了一个本本的办法
我在一端用下列语句发送memo里的内容:
-------------------------------------------------------
var i,j:integer;

i:=SendMemo.Lines.Count;
For j:=0 to i do
begin
MsgMemo.Lines.Add(SendMemo.Lines.Strings[j]);
ServerSocket.Socket.Connections[0].SendText(SendMemo.Lines.Strings[j]);
end;

end;

---------------------------------------------------------

在另一段的clientsocketread过程里面接受:
---------------------------------------------------
MsgMemo.Lines.Add(ClientSocket.Socket.ReceiveText);
----------------------------------------------------
可是这边接受端却将接受的信息在一行中显示
比如说我在发送端的发送memo里敲入:
line1
line2
line3
有回车的,可是接受的时候就变成:
line1line2line3


这是为什么呀?有什么补救方法?多谢!
 
何必搞那么复杂,试试如下的简单方法:
你的程序:
var i,j:integer;

i:=SendMemo.Lines.Count;
For j:=0 to i do
begin
MsgMemo.Lines.Add(SendMemo.Lines.Strings[j]);
ServerSocket.Socket.Connections[0].SendText(SendMemo.Lines.Strings[j]);
end;

end;
修改为如下一行,其余的都不要了:
ServerSocket.Socket.Connections[0].SendText(SendMemo.Lines.Text);

试试吧,应该不会出问题了
 
接受答案了.
 
后退
顶部