Dismiss Notice

REGISTRATION IS AFTER ADMIN ACTIVATION

DONATIONS WITH PAYPAL CLICK TO BUTTON

3 MONTHS VIP - 10$; 6 MONTHS VIP - 20$; 1 YEAR VIP - 30$; 2 YEARS VIP - 50$; GOLD USER FOR LIFE VIP - 150$

DONATIONS WITH Bitcoin Address:3NRs3CK3fhXifrNYxHEZKpETDd9vNLMsMD

Dismiss Notice
The registration is approved by the Administrator. It takes about 1 day to approve your registration
Dismiss Notice
For open hidden message no need write thanks, thank etc. Enough is click to like button on right side of thread.

(HELP) Indy9 to Indy10

Discussion in 'Delphi Help&Requests' started by Adi, Sep 23, 2014.

  1. Adi
    Offline

    Adi DF Member

    Hello

    i need help here...

    m trying to move my project from D7 to XE
    indy9 to indy10

    indy9 / D7 code
    Code:
    procedure TForm1.IdMappedPortTCP1Execute(AThread: TIdMappedPortThread);
    begin
    LedBlinkUpload;
    upload:= upload+Length(AThread.NetData);
    if (pos('CONNECT',AThread.NetData)<>0)
    or (pos('GET',AThread.NetData)<>0)
    or (pos('POST',AThread.NetData)<>0) then
    AThread.NetData := AThread.NetData +'GET http://URL/ HTTP/1.1'
    +#13#10
    +'Host: URL'
    +#13#10
    +'User-Agent: Mozilla/5.0 (X11; Linux x86_64; rv:12.0) Gecko/20100101 Firefox/21.0'
    +#13#10
    +'Accept-Encoding: gzip, deflate'
    +#13#10
    +'Accept: text/plain'
    +#13#10
    +'Content-Type: application/x-www-form-urlencoded'
    +#13#10
    +'Connection: keep-alive'
    +#13#10#13#10#13#10;
    AThread.NetData := AThread.NetData;
    end;
    how to write in delphi XE?

    indy10 code
    Code:
    procedure TForm1.IdMappedPortTCP1Execute(AContext: TIdContext);
    begin
    
    end;

    Please help

    Thanks b 4 :angel:
     

Share This Page

Laws
Our website, law, laws, copyright and aims to be respectful of individual rights. Our site, as defined in the law of 5651 serves as a provider of space. According to the law, contrary to the law of site management has no obligation to monitor content. Therefore, our site has adopted the principle of fit and remove. Works are subject to copyright laws and is shared in a manner that violated their legal rights, or professional associations, rights holders who, adsdelphi@gmail.com I can reach us at e-mail address. Complaints considered to be infringing on the examination of the content will be removed from our site.
Donate Help To Us and Be VIP
DONATIONS WITH PAYPAL CLICK TO BUTTON
6 MONTHS VIP - 20$; 1 YEAR VIP - 30$; 2 YEARS VIP - 50$; GOLD USER FOR LIFE VIP - 150$
Social Block