IdMappedPortTCP - 無活動

Question

我有一個印地部件：

IdMappedPortTCP1: TIdMappedPortTCP; 

及以下初始化：

procedure TForm1.FormCreate(Sender: TObject); 
begin 
    Memo1.Lines.Clear; 
    IdMappedPortTCP1.MappedHost := '189.200.10.71'; 
    IdMappedPortTCP1.MappedPort := 5300; 
    IdMappedPortTCP1.Active := true; 
end; 

procedure TForm1.IdMappedPortTCP1Execute(AContext: TIdContext); 
begin 
    Memo1.Lines.Add(AContext.Data.ToString); 
    Memo1.Lines.Add('------'); 
end; 

procedure TForm1.IdMappedPortTCP1OutboundData(AContext: TIdContext); 
begin 
    Memo1.Lines.Add(AContext.Data.ToString); 
    Memo1.Lines.Add('+++++++'); // 
end; 

我的其他應用程序連接到189.200.10.71:5300但分量不點火。 ..

我的錯在哪裏？

使用XE3與包括Indy組件

Answer 1

的MappedHost/MappedPort性質告訴TIdMappedPortTCP它連接到一旦客戶端已連接到它。您正在告訴TIdMappedPortTCP連接到189.200.10.71:5300。如果你的其他應用程序也連接到189.200.10.71:5300，那麼它完全繞過TIdMappedPortTCP。這就解釋了爲什麼這些事件不觸發（順便說一句，TIdMappedPortTCP是一個多線程的組件，但您的事件處理程序不是線程安全的）。

要通過TIdMappedPortTCP，客戶端需要連接到TIdMappedPortTCP.Bindings集合正在偵聽的IP /端口，而不是分配給MappedHost/MappedPort屬性的IP /端口。