TcpClient - nie odbiera odpowiedzi :(

[Corvis]

Witam,

Napisałem sobie prosty program który wysyła mi dane na odpowiedni adres i PORT. Dane dochodzą do urządzania ( bo urządzenie to sygnalizuje). Urządzenie odsyła odpowiedź ale program już tego nie "łapie".

Tutaj prosty Kod

KOD cpp:   �  UKRYJ  �

KOD cpp:   �  POKAŻ  �

//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) {

}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender) {
        TcpClient1->Sendln("0100\r\n","");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::TcpClient1Receive(TObject *Sender, PChar Buf, int &DataLen) {
        Beep();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
        TcpClient1->LocalHost = "192.168.0.11";
        TcpClient1->LocalPort = 0;
        TcpClient1->RemoteHost = "192.168.0.10";
        TcpClient1->RemotePort = 35000;
        this->Caption = BoolToStr(TcpClient1->Connect() , true);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormDestroy(TObject *Sender){
        TcpClient1->Disconnect();
}
 

Nie znam się na aplikacjach sieciowych. Ale nie rozumiem czemu nie mogę odebrać odpowiedzi.

Z góry dzięki za pomoc.

Pozdrawiam,

[Cyfrowy Baron]

RemotePort oczekuje wartości typu AnsiString, a nie Integer. Czy ten numer portu nie jest za duży?
Nie wiem jak to jest z tym portem (RemotePort), ale chyba nie ma dowolności, gdyż w pomocy możemy przeczytać:

KOD text:   �  UKRYJ  �

KOD text:   �  POKAŻ  �

Many port numbers are associated by convention with a particular service such as ftp or http. To determine whether the value of RemotePort is associated with a specific service, use the LookupProtocol method.

Przecież komputer klienta odbierającego odpowiedź musi mieć ten port otwarty, czyli dodany do listy wyjątków w zaporze.

Server powinien mieć ten sam numer w LocalPort co klient w RemotePort, tak samo z LocalHost i RemoteHost.

[Corvis]

Sorry, że tak długo, ale ostatnio mam mało czasu.

Problem rozwiązałem. Żeby metoda TcpClient1Receive została wywołana. Trzeba użyć funkcji odbierającej dane czyli którą z :

ReceiveBuf()
Receiveln()
ReceiveFrom()

No i w efekcie końcowym wyszło mi, że działa to podobnie jak port szeregowy. Pytam czekam i odbieram