请大侠指导BCB下TIdTCPClient和TIdTCPServer如何收发数据,谢谢!
补充:使用CodeGear RAD Studio 2009的C++Builder 2009建两个工程,客户端添加TIdTCPClient,服务端添加TIdTCPServer
问题:连接上后不知道如何发送和接受数据,请大侠指导……谢谢!
[解决办法]
设置好IP和端口
下面代码手工贴,没有测试(现在所在的机器没有2009的环境)
void __fastcall TForm1::Button1Click(TObject *Sender){ if(!IdTCPClient1->Connected()) { IdTCPClient1->Connect(); } IdTCPClient1->IOHandler->WriteLn("汉字123abcd",enUTF8); IdTCPClient1->Disconnect();}//TIdTCPServer端的onExcute事件: void __fastcall TForm2::IdTCPServer1Execute(TIdContext *AContext) { UnicodeString CmdString =AContext->Connection->IOHandler->ReadLn(); }
[解决办法]
//TIdTCPServer端的onExcute事件:
void __fastcall TForm2::IdTCPServer1Execute(TIdContext *AContext)
{
UnicodeString CmdString =AContext->Connection->IOHandler->ReadLn(enUTF8);
}