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

3844 ワード
networkApp #migrated Primer TClientSocket cppBuilder cppBuilder テキストリンク
動作環境
C++ Builder XE4
Windows 7 Pro: 送信元
Windows 10 Pro: 送信先

TClientSocket を使った送信の例。

Unit1.cpp
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();
}

送信先(IP:192.168.2.7)には以下のツールを使わせていただきました。
どうもありがとうございます。
TCP/IPテストツール by のんさん

結果

一応動いたが、Sleep()処理などはきちんとは検討していない。

備考

TClientSocketを今後使うことはないだろうが、過去のソフトの不具合対策にその振る舞いを確認しないといけない、と理由から今回調べた。

関連: C++ Builder > TClientSocket の情報 > インストール / 非推奨かどうか / 代替案