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.

Hallo!

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

Servername:

zusammenfalten · markieren

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:

zusammenfalten · markieren

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

Hallo Matthias,

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

Grüße vom marabu

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

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:

markieren

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!

Marabu's Hinweise im Detail: InternetCrackURL()