ExtractServerName & ExtractServerPath

[argonix]

Hallo!
Gibt es eine Funktion in Delphi z.B. ExtractServerName, die aus einer URL wie
http://www.delphipraxis.net/abc/cba/xy/test.pdf
folgendes extrahiert: www.delphipraxis.net
Und kann man auch den Dateipfad extrahieren, also aus
http://www.delphipraxis.net/abc/cba/xy/test.pdf
als Rückgabewert /abc/cba/xy/ erhalten?
Das kann man natürlich alles irgendwie selbst zusammenbauen, aber eine fertige Funktion ist natürlich schöner.

[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

[marabu]

Hallo Matthias,

vielleicht möchtest du ein wenig mit der Funktion CrackUrl() experimentieren.

Grüße vom marabu

[sx2008]

Also eine URL in die Bestandteile zerlegen?
Schau mal in die Code-Library, Kategorie Internet, da gibt was dazu.

[argonix]

Vielen Dank! Das hat mir viel Arbeit gespart!
@IceTube: Dein GetServerName kommt dummerweise nicht mit Namen wie z.B. abcde.fh.de klar.
So bekomme ich was ich will:

Delphi-Quellcode:

function GetServerName(url:string):string;
var p1,p2 : integer;
begin
url := StringReplace(url,'ftp://','',[rfReplaceAll]);
url := StringReplace(url,'http://','',[rfReplaceAll]);
p1 := 1;
p2 := Pos('/',url);
//
Result := Copy(url,P1,(P2-1));
end;

Vielen Dank nochmal!

[Muetze1]

Marabu's Hinweise im Detail: InternetCrackURL()