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();