+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : استدعاء IDHTTP (/showthread.php?tid=8661)
استدعاء IDHTTP - صعب الوصايف - 09-05-2017
السلام عليكم ورحمة الله وبركاتة
بخصوص استدعاؤ IDHTTP
https://gimmeproxy.com/api/getProxy?port=8080
بحيث اريد فقط الاي بي
في MEMO.LINE
RE: استدعاء IDHTTP - Agmcz - 12-05-2017
وعليكم السلام
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;
RE: استدعاء IDHTTP - صعب الوصايف - 15-05-2017
يعطيك الف الف عافيـــة اخي
RE: استدعاء IDHTTP - onexite - 16-05-2017
استخدم 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;