استدعاء IDHTTP

[صعب الوصايف]

السلام عليكم ورحمة الله وبركاتة



بخصوص استدعاؤ IDHTTP

https://gimmeproxy.com/api/getProxy?port=8080

بحيث اريد فقط الاي بي
في MEMO.LINE

[Agmcz]

وعليكم السلام

PHP كود :

uses
  IdHTTP, IdSSLOpenSSL;

procedure TForm1.Button1Click(Sender: TObject);
var
  HTTP: TIdHTTP;
  SSLIOHandlerSocketOpenSSL: TIdSSLIOHandlerSocketOpenSSL;
  Str, IP: string;
  Start, Stop: Integer;
begin
  HTTP := TIdHTTP.Create(nil);
  SSLIOHandlerSocketOpenSSL := TIdSSLIOHandlerSocketOpenSSL.Create(nil);
  try
    HTTP.IOHandler := SSLIOHandlerSocketOpenSSL;
    try
      Str := HTTP.Get('https://gimmeproxy.com/api/getProxy?port=8080');
      Start := Pos('"ip": "', Str) + Length('"ip": "');
      Stop := Pos('"port"', Str);
      IP := Copy(Str, Start, Stop - Start);
      Stop := Pos('",', IP);
      IP := Copy(IP, 1, Stop - 1);
      Memo1.Text := IP;
    except
      // Error
    end;
  finally
    HTTP.Free;
  end;
end; 


[صعب الوصايف]

يعطيك الف الف عافيـــة اخي

[onexite]

استخدم  superobject تجده في هذا الموقع https://github.com/hgourvest/superobject
وذلك باضافة كافة الوحدات (*.pas ) الى المشروع

PHP كود :

implementation
uses msxml, superobject;

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);
var
 req: IXMLHttpRequest;
begin
 req := CoXMLHTTP.Create;
 req.open('GET', 'https://gimmeproxy.com/api/getProxy?port=8080', false, EmptyParam, EmptyParam);
 req.send(EmptyParam);
 showmessage(so(req.responseText)['ip'].AsString);
end;