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;