Ja Danke nochmal, hab die Raute Zeichen bisher total ignoriert.
Hier nun mini Update zu meinem Code, auch auf ein "?" oder "#" direkt nach einem "/" reagiere ich nun.
Delphi-Quellcode:
(* Get Parameter & Port *)
tmp := sURL;
NoParam := '';
i := Pos('?', tmp);
if i = 0 then i := Pos('#', tmp);
if i > 0 then
begin
if sURL[i] = '?' then if tmp[i-1] = '/' then tmp := Copy(tmp, i, Length(tmp)) else tmp := Copy(tmp, Pos('?', tmp), Length(tmp))
else
if sURL[i] = '#' then if tmp[i-1] = '/' then tmp := Copy(tmp, i, Length(tmp)) else tmp := Copy(tmp, Pos('#', tmp), Length(tmp));
if Pos(':',tmp) > 0 then Result.Parameter := Copy(tmp, 1, Pos(':',tmp)-1) else Result.Parameter := tmp;
if Pos(':',tmp) > 0 then Result.Port := Copy(tmp, Pos(':', tmp)+1, Length(tmp));
if sURL[i-1] = '/' then NoParam := Copy(sURL, 1, i-2) else NoParam := Copy(sURL, 1, i-1);
end
else NoParam := tmp;
Das hier zeigt mir mein Programm mit Deiner
Url an:
Code:
Original: .de/index.php/?page=wasauchimmerfuereineseite?foo=bar
Protocol:
Username:
Password:
Domain: .de
Sublevel: /
Filename: index.php
Parameter: ?page=wasauchimmerfuereineseite?foo=bar
Port:
Vielleicht lasse ich mir noch was einfallen das ich auch nach einem Punkt schaue so das der Sublevel zu "/" wird und Filename "index.php"
Updated, Dateiname funktioniert nun mit der
Url.