bei der idHTTP-kompo geht das etwas anders.
da speicherst du mit
Delphi-Quellcode:
var
Response:
String;
begin
Response := idHTTP.Get(
URL);
...
end;
den quelltext in der variable "Response"
guck dir einfach mal die hilfe zu TidHTTP an.
zu deine, problem:
um z.B. die
ip von einem anbieter wie wieistmeineip.de auszulesen
könntest du es so machen:
Delphi-Quellcode:
procedure TForm1.Button2Click(Sender: TObject);
function ParseIP(
const Text:
String;
out IP:
String): Boolean;
var
idx, idx2: integer;
begin
result := false;
idx := pos('
Ihre IP-Adresse ist :', Text);
if idx = 0
then exit;
inc(idx, 21);
idx := posEx('
>', Text, idx);
if idx = 0
then exit;
inc(idx);
idx2 := posEx('
<', Text, idx);
if idx2 = 0
then exit;
IP := copy(Text, idx, idx2-idx);
result := length(
IP) >= 7;
end;
var
http: TidHTTP;
Response,
IP:
String;
begin
http := TidHTTP.Create(self);
try
Response := http.Get('
http://www.wieistmeineip.de');
if not ParseIP(Response,
IP)
then
raise Exception.Create('
IP konnte nicht ausgelesen werden');
showmessage('
Deine IP: ' +
IP);
finally
http.free;
end;
end;
so bräuchtest du kein script auf nem eigenen server.
für den hausgebrauch sollte die o.g. funktion wohl ausreichen!