IdTCP的C++Builder2010示例（转）

源：IdTCP的C++Builder2010示例

IdTCP的C++Builder2010示例

这个是服务端的：

void __fastcall TTCPDataServer::TCPServerExecute(TIdContext *AContext)
{
    AnsiString Str;
    Str=AContext->Connection->IOHandler->ReadLn();
    if (Str=="")
        Str="Error,String is Emtry";
    AContext->Connection->IOHandler->WriteLn(Str);
    AContext->Connection->Disconnect(true);
}

这个是客户端的：

try
{
    IdTCPClient->Connect();
}
catch(Exception &e)
{
    ShowMessage(e.Message);
}
 IdTCPClient->IOHandler->WriteLn("0");
 ShowMessage(IdTCPClient->IOHandler->ReadLn());
 IdTCPClient->Disconnect();