TCP/UDPサーバーランタイムを調整する

Question

私はEmbarcadero RAD Studio 10を使用しています。アプリケーションでIndyクライアント/サーバーコンポーネントを使用しようとしています。

実行時にTCP/UDPサーバーのIPアドレスとポートを調整します。

私は、設計時にデフォルト設定を見ることができます：

私はBindingsにエントリを追加し、DefaultPortを設定することができます。

しかし、私はプログラムが実行されている間にこれを行いたいと思います。 UIのバインディングとポートを設定し、ボタンを押してサーバーが入力したものを使用するようにします。

私はこれをどのように行うのですか？

Answer 1

Bindingsは、TIdSocketHandleオブジェクトのコレクションです。設計時にコレクションに新しいエントリを追加することは、実行時にBindings.Add()メソッドを呼び出すのと同じです。

TIdSocketHandleは、IPおよびPortの特性を有する。 TIdSocketHandleオブジェクトが作成されると、そのPortは現在の値DefaultPortで初期化されます。

あなたが求めていることをするには、単にBindings.Add()と呼び出し、新しいオブジェクトのIPとPortのプロパティを設定します。たとえば、次のように

デルファイ：

procedure TMyForm.ConnectButtonClick(Sender: TObject); 
var 
    LIP: string; 
    LPort: TIdPort; 
    LBinding: TIdSocketHandle; 
begin 
    LIP := ServerIPEdit.Text; 
    LPort := IntToStr(ServerPortEdit.Text); 
    IdTCPServer1.Active := False; 
    IdTCPServer1.Bindings.Clear; 
    LBinding := IdTCPServer1.Bindings.Add; 
    LBinding.IP := LIP; 
    LBinding.Port := LPort; 
    IdTCPServer1.Active := True; 
end; 

C++：TIdUDPServerと

void __fastcall TMyForm::ConnectButtonClick(TObject *Sender); 
{ 
    String LIP = ServerIPEdit->Text; 
    TIdPort LPort = IntToStr(ServerPortEdit->Text); 
    IdTCPServer1->Active = false; 
    IdTCPServer1->Bindings->Clear(); 
    TIdSocketHandle *LBinding = IdTCPServer1->Bindings->Add(); 
    LBinding->IP = LIP; 
    LBinding->Port = LPort; 
    IdTCPServer1->Active = true; 
} 

同じこと。