C++ Builder > TClientSocketを使った送信例

C++ Builder XE4
Windows 7 Pro: 送信元
Windows 10 Pro: 送信先

void __fastcall TMainForm::debugB_tcpClick(TObject *Sender)
{
    char zbuf[20] = {0};
    ClientSocket->Host = "192.168.2.7";
    ClientSocket->Port = 2000;
    ClientSocket->Open();

    for(int loop=0; loop<3; loop++) {
        Application->ProcessMessages();
        Sleep(300);
    }

    strcpy(zbuf, "TEST");
    ClientSocket->Socket->SendBuf(&zbuf[0], strlen(zbuf));

    Application->ProcessMessages();
    Sleep(300);

    ClientSocket->Close();
}