ExtractServerName & ExtractServerPath

[IceTube]

Hallo!

Du kannst das mit "Pos","Copy",etc. machen:

Servername:

Delphi-Quellcode:

//Beispiel URL
url := 'http://www.delphipraxis.net/posting.php?mode=reply&t=135759&sets=1212260794';

function GetServerName(url:string):string;
var p1,p2 : integer;
begin
//Lösche Http bzw. www
url := StringReplace(url,'http://','',[rfReplaceAll]);
url := StringReplace(url,'www.','',[rfReplaceAll]);
//
p1 := 1;
p2 := Pos('.',url);
//
Result := Copy(url,P1,(P2-1));
exit;
end;

Serverpath:

Delphi-Quellcode:

//Beispiel URL
url := 'http://www.delphipraxis.net/abc/cba/xy/test.pdf';

function GetServerPath(url:string):string;
var p1,p2 : integer;
begin
//Lösche ...
url := StringReplace(url,'http://','',[rfReplaceAll]);
url := StringReplace(url,'www.','',[rfReplaceAll]);
//
p1 := Pos('/',url);
p2 := Length(url);
//
Result := Copy(url,P1,P2);
exit;
end;

So sollte es gehen, habs nicht getestet...

lg