如何向Unix机器的指定端口发送一个请求包，然后接受返回信息？TCP连接

[fangrk]

以前没有接触过类似的东西，请帮个忙。我自己的这些代码没有用。

void __fastcall TForm1::Button1Click(TObject *Sender)
{
ClientSocket1->Active=false;
ClientSocket1->Address=IP_E->Text;
ClientSocket1->Port=StrToInt(Port_E->Text);
ClientSocket1->Active=true;
ClientSocket1->Socket->SendText(Send_E->Text);
}
//---------------------------------------------------------------------------


void __fastcall TForm1::ClientSocket1Read(TObject *Sender,
TCustomWinSocket *Socket)
{
ShowMessage("Read");//不起作用
Rece_E->Text=Socket->ReceiveText();
}
//---------------------------------------------------------------------------

[我不懂电脑]

在OnConnect事件里判断连接成功后再
ClientSocket1->Socket->SendText(Send_E->Text);

[fangrk]

多谢