如何将代码delphi 7迁移到embarcardero XE5 [英] How to migrating code delphi 7 to embarcardero XE5

问题描述

我在delphi 7中有一个代码，在Event OnExecute中有一个commponent indy ...

但是当我在Delphi XE5中实现时，我有一个错误。



代码事件OnExecute组件indy IditepedPortTCP在delphi 7中：

I have code in delphi 7 with a commponent indy in Event OnExecute...
but when I implemented in Delphi XE5,I have an error.

Code Event OnExecute component indy IdMappedPortTCP in delphi 7 :

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，不等于Delphi 7和Embarcardero XE5



Deplhi 7

Event OnExecute,not the equal between Delphi 7 and Embarcardero XE5

Deplhi 7

procedure TForm1.IdMappedPortTCP1Execute(AThread: TIdMappedPortThread);

end;

Embarcardero XE5

Embarcardero XE5

procedure TForm1.IdMappedPortTCP1Execute(AContext: TIdContext);

end;

如何迁移我的代码为embarcardero XE5？

How to migrating my code to embarcardero XE5 ?

推荐答案

这篇关于如何将代码delphi 7迁移到embarcardero XE5的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！