UrlToFilename, brauche etwas Hilfe

[himitsu]

Zitat von Delphi.Narium:

Hat man 'ne Url mit Parametern, muss man vorher alles hinter dem ? wegwerfen.

hinter erstem ? oder #

"%xx" durch Char($xx) ersetzen

Und für ExtractFileName, ExtractFilePath usw. muß das http:// nicht durch einen Laufwerksbuchstaben ersetzt werden.
Einige Funktionen kommen mit \ oder / zurecht, aber statt \ nimmt man besser PathDelim. (so wie sLineBreak statt #13#10)

Diese Funktionien kommen auch mit UNC-Pfaden zurecht, also ihnen ist der Anfang quasi egal.



ABER, warum immer alles selber machen?
In den Indy und ähnlichen Komponenten verstecken sich irgendwo Funktionen, um eine URL/URI in seine Teile zu zerlegen.
https://de.wikipedia.org/wiki/URL-Encoding

mal bei System.Net.URLClient.TURI oder in der Nähe von System.Net.URLClient.TURLSchemes suchen (Delphis Neues/Eigenes)
oder im TIdURL (Indy), https://marc.durdin.net/2012/07/indy...code-and-more/
...

[Shadowwalker]

Zitat von himitsu:

Zitat von Delphi.Narium:

Hat man 'ne Url mit Parametern, muss man vorher alles hinter dem ? wegwerfen.

hinter erstem ? oder #

Ich werfe mal folgendes URL-Formmat ins Rennen.

Code:

.de/index.php/?page=wasauchimmerfuereineseite?foo=bar

[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.

[Delphi.Narium]

Zitat von Shadowwalker:

Ich werfe mal folgendes URL-Formmat ins Rennen.

Code:

.de/index.php/?page=wasauchimmerfuereineseite?foo=bar

Naja, da ist aber jetzt nicht unbedingt was gültiges.

Mit sowas könnte ich mich ja anfreunden:

Code:

.de/index.php/?page=wasauchimmerfuereineseite&foo=bar

? steht vor dem ersten Parameter, die weiteren werden durch & getrennt, also einmal ?Name=Wert und alle weiteren dann mit &Name=Wert.

Die Raute weist bei HTML-Seiten normalerweise darauf hin, dass man innerhalb dieser Seite zu einer Sprungmarke navigieren möchte.

Wer mal so richtig ins Eingemachte schauen will: RFC 3986 - Uniform Resource Identifier (URI): Generic Syntax (sind nur 61 Seiten )