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!