Question

我在delphi中使用了事件OnExecute中的组件indy 9 IdMappedPortTCP ... 但是当我在indy 10中实现时，我有一个错误

代码事件OnExecute组件indy 9 IdMappedPortTCP：

procedure TForm1.IdMappedPortTCP1Execute(AThread: TIdMappedPortThread);
if (pos('CONNECT',athread.NetData)<>0) or (pos('GET',athread.NetData)<>0) or (pos('POST',athread.NetData)<>0) then
begin
Athread.NetData :=Athread.NetData+'GET http://www.rianekacahya.net/ HTTP/1.1'#13#10+'Connection: Keep-Alive'#13#10+'User-Agent: Mozilla/5.0 (Windows NT 6.1; rv:14.0) Gecko/20100101 Firefox/14.0'#13#10+'Host: '#13#10#13#10#13#10+Athread.NetData;
end;

事件OnExecute，而不是indy 9和indy 10之间的相等

Indy 9：

procedure TForm1.IdMappedPortTCP1Execute(AThread: TIdMappedPortThread);

end;

Indy 10：

procedure TForm1.IdMappedPortTCP1Execute(AContext: TIdContext);

end;

如何将我的代码迁移到indy 10？

Answer 1

为Indy10使用TIdMappedPortTCP类（在IdMappedPortTCP.pas中）。忘了TMyMappedPortTCP。

）

如何将IdMappedPortTCP indy 9迁移到indy 10

1 个答案: