Hola c64.
No especificas que componente están usando y en el video no pude apreciar cual es. Pero, como para darte una idea, te pongo un ejemplo muy simple de como enviar y recibir unos datos con los componentes
TClientSocket y
TServerSocket. Básicamente no puede ser muy diferente a lo que tienen que hacer.
Receptor (server):
Código PHP:
struct {
int a;
int b;
int c;
} data;
void __fastcall TForm1::FormCreate(TObject *Sender)
{
ServerSocket1->Port = 23; // Puerto
ServerSocket1->Open();
}
void __fastcall TForm1::ServerSocket1ClientRead(TObject *Sender,
TCustomWinSocket *Socket)
{
Socket->ReceiveBuf(&data, sizeof(data));
ListBox1->Items->Add(data.a);
ListBox1->Items->Add(data.b);
ListBox1->Items->Add(data.c);
}
void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
ServerSocket1->Close();
}
Emisor (cliente):
Código PHP:
struct {
int a;
int b;
int c;
} data;
void __fastcall TForm1::FormCreate(TObject *Sender)
{
ClientSocket1->Port = 23; // Puerto
ClientSocket1->Host = "192.168.0.62"; //IP server
ClientSocket1->Open();
}
void __fastcall TForm1::btnSendClick(TObject *Sender)
{
// valores a enviar
data.a = 1111;
data.b = 2222;
data.c = 3333;
if (ClientSocket1->Active)
ClientSocket1->Socket->SendBuf(&data, sizeof(data));
}
void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
ClientSocket1->Close();
}
Saludos
