UrlToFilename, brauche etwas Hilfe

[KodeZwerg]

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.