In einer URL an den zweiten Punkt kommen

[XHelp]

Hab gerade eine funktion geschrieben:

Delphi-Quellcode:

function GetLink(s:string):String;
var
i:integer;
lb,le:integer; //Link Begin (nach www, http://) und Link End (/)
begin
lb:=1;
if pos('www.',LowerCase(s))=1 then lb:=5;
if pos('http://',LowerCase(s))=1 then lb:=8;

le:=Length(s)+1;
for i:=lb to Length(s) do begin
  if s[i]='/' then begin
    le:=i;
    Continue;
  end;
end;

Result:=Copy(s, lb, ( Length(s) - lb ) - ( Length(s) - le ) );
end;

Aus "http://127.0.0.1/test.php?a=0.54&b=45.7&do=add" macht sie "127.0.0.1" und aus "www.delphipraxis.net/test.php?a=0.54&b=45.7&do=add" macht sie "delphipraxis.net"

Wenn jetzt zwischen den punkten Integer variablen sind, dann ist das ein IP, wenn nicht, dann eine domain. Und dann einfach weiter improvisieren...

Aber wir müssen alle auf Spider warten