我最近想做一个FLASH+DELPHI的聊天室,可是一开始就有困难了!!
我在FLASH中用XMLSOKET向DELPHI的后台发送消息,结果一点反应也没有
源代码如下
procedure TForm1.mytcpserverExecute(AThread: TIdPeerThread);
var msg: string;
begin
msg:=AThread.Connection.ReadLn;
showmessage(msg);
end;FLASH和后台连接上了,已经,就是不知道怎么发送消息
用的TIDTCPSERVER控件
我在FLASH中用XMLSOKET向DELPHI的后台发送消息,结果一点反应也没有
源代码如下
procedure TForm1.mytcpserverExecute(AThread: TIdPeerThread);
var msg: string;
begin
msg:=AThread.Connection.ReadLn;
showmessage(msg);
end;FLASH和后台连接上了,已经,就是不知道怎么发送消息
用的TIDTCPSERVER控件
各位大侠,谢谢了
一种办法是在FLASH发XML时候加上回车换行符.另一种办法假定你在FLASH的XML里根标识是.'myxml',
然后INDY组件就可以..readln('</myxml>');