Hi,
ich hab' jetzt mal gerade einen Source zusammengehackt:
Delphi-Quellcode:
function GetDomain(sURL: string): string;
var
iLastSlashPos: integer;
sTemp: string;
begin
if Pos('http://', sURL) = 1 then begin
sTemp := Copy(sURL, 8, length(sURL)-8);
iLastSlashPos := Pos('/', sTemp) + 8;
Result := Copy(sURL, 0, iLastSlashPos-1);
end else begin
iLastSlashPos := Pos('/', sURL);
Result := Copy(sURL, 0, iLastSlashPos);
end;
end;
Funktioniert sowohl mit
www.domain.de/bla/bli/blubb als auch mit
http://www.domain.de/bla/bli/blubb 
Ist zwar nicht der schönste Source, den ich geschrieben habe, aber er funktioniert. *g*
Chris