如果已生成XML文档,就可把XML文档取出到memo1中,然后 发送方: procedure TChatForm.bt_sendtextClick(Sender: TObject); begin if IsServer then serversocket.Socket.Connections [0].SendText(trim(memo1.text)) 接受方: procedure TChatForm.ServerSocketClientRead(Sender: TObject; Socket: TCustomWinSocket); begin memo2.Lines.add(socket.receivetext); end;
发送方:
procedure TChatForm.bt_sendtextClick(Sender: TObject);
begin
if IsServer then
serversocket.Socket.Connections [0].SendText(trim(memo1.text))
接受方:
procedure TChatForm.ServerSocketClientRead(Sender: TObject;
Socket: TCustomWinSocket);
begin
memo2.Lines.add(socket.receivetext);
end;