我用Delphi的idTcpClient组件做的客户端程序,要和unix服务器上的程序进行通讯。我用流方式发给服务器的消息服务器程序能正常接收,服务器程序接收后要返回一个流消息给我,但是我的程序始终接收不到这个消息,请各位高人指点。
我的程序如下:
var
stream1,stream2:TMemoryStream;begin
...... try
IdTCPClient1.WriteStream(stream1);
txLog.Lines.Add('数据发送成功!');
except
txLog.Lines.Add('发送数据失败!');
IdTCPClient1.Disconnect;
txLog.Lines.Add('同主机的连接已断开!');
end; IdTCPClient1.ReadStream(stream2);
stream2.SaveToFile('e:\smsmsgR.bin'); FreeAndNil(stream1);
FreeAndNil(stream2);
end;
我的程序如下:
var
stream1,stream2:TMemoryStream;begin
...... try
IdTCPClient1.WriteStream(stream1);
txLog.Lines.Add('数据发送成功!');
except
txLog.Lines.Add('发送数据失败!');
IdTCPClient1.Disconnect;
txLog.Lines.Add('同主机的连接已断开!');
end; IdTCPClient1.ReadStream(stream2);
stream2.SaveToFile('e:\smsmsgR.bin'); FreeAndNil(stream1);
FreeAndNil(stream2);
end;
解决方案 »
- DelphiXE2不支持64位的Flash?
- 微软的SPEECH SDK5.1开发语音识别的问题,请高手指教
- Access violation at address 016A92D0 in module 'dbexpMysql.dll',read address of 000008
- 刚加入,没带什么礼物,向大家推荐一个vc编程站点吧!
- 各位放分了!告诉我网上关于Delphi的免费书的的奖呀,急需!!!
- 如何在win2k下隐藏进程或是不让杀伤进程
- 网上调查,大家一年要买多少钱的和编程有关的书,最喜欢哪个出版社的,买了以后不后悔的有几本
- 如何让显示器打个吨儿--进入休眠状态?
- 谁用过KS Development SkinEngine v2.4.8控件包,请救命!!!
- 答问题,有大奖!!
- 帮个忙
- delphi和oracle包里的存储过程的问题(谢绝up一类词)
连接: connect(_Socket,ca,sizeof(ca))
关闭: closesocket(_Socket)
发送: send(_Socket,buf1[0],length(buf1),0)
接收: recv(_Socket,RecMsgBuffer,length(RecMsgBuffer),0)