Hallo miteinander!
Ich teste mich gerade an System.Net.URLClient.TURI ran und bekomme drei Sachen nicht hin:
0. Wie komme ich an den Sublevel-String ran? (siehe unten die Beispiele um zu Wissen was ich damit meine)
1. Wie ich aus einer URL einen Dateinamen bilde mit den TURI records?
2. Warum wird mir ein falscher Port angezeigt?

Hier der TURI Code Abschnitt:

zusammenfalten · markieren

Delphi-Quellcode:

  try
    Memo2.Lines.BeginUpdate;
    Memo2.Clear;
    try
      xURI := TURI.Create( Edit1.Text );
    except
      on e: System.SysUtils.Exception do
       Memo2.Lines.Add('Error Occured @ '+Edit1.Text+' - '+e.Message);
    end;
  finally
    Memo2.Lines.Add('OriginalURL: '+xURI.ToString);
    Memo2.Lines.Add('Protocol: '+xURI.Scheme );
    Memo2.Lines.Add('Username: '+xURI.Username);
    Memo2.Lines.Add('Password: '+xURI.Password);
    Memo2.Lines.Add('Domain: '+xURI.Host );
    Memo2.Lines.Add('Sublevel: '+xURI.Path );
    Memo2.Lines.Add('Filename: '+xURI.PathRelativeToAbs(xURI.Path, xURI)); // alles falsch
    Memo2.Lines.Add('Parameter: '+xURI.Query);
    Memo2.Lines.Add('Port: '+IntToStr(xURI.Port));
    Memo2.Lines.Add('');
    Memo2.Lines.Add('Results from TURI');
    Memo2.Lines.EndUpdate;
  end;

und hier das Ergebnis mit einer Test-URL

markieren

Code:

OriginalURL: https://user:pass@www.EXAMPLE.com/old/new/newreply.php?do=postreply&t=196264:8080
Protocol: https
Username: user
Password: pass
Domain: www.delphipraxis.net
Sublevel: /old/new/newreply.php
Filename: https://www.delphipraxis.net/old/new/newreply.php
Parameter: do=postreply&t=196264:8080
Port: 443

Sublevel, Filename und Port stimmen noch nicht.
Hier das Ergebnis mit meinem Record:

markieren

Code:

OriginalURL: https://user:pass@www.EXAMPLE.com/old/new/newreply.php?do=postreply&t=196264:8080
Protocol: https
Username: user
Password: pass
Domain: www.delphipraxis.net
Sublevel: /old/new/
Filename: newreply.php
Parameter: ?do=postreply&t=196264
Port: 8080

Im Anhang ist das komplette Test-Projekt, falls da mal jemand reinschnuppern mag, nur zu!

edit
port bug fixed, danke Olli73 fürs fixe entdecken des Fehlers!
www adresse abgeändert gegen böses.

Der Port gehört direkt hinter die Domain und nicht hinter die Parameter.

Hey Danke für prompte Antwort auf eines meiner Probleme, da hatte ich wohl was falsch Verstanden und werde meinen Fehler korrigieren, Danke!

Und PathRelativeToAbs relativ zu sich selber? (zum aktiven Verzeichnis)

Hmmm, eigentlich müsste es newreply.php?do=postreply&t=196264 oder maximal ./newreply.php?do=postreply&t=196264 sein.


Normaler Weise nimmt man da als Basis wohl besser ein "übergeordnetes" Verzeichnis, wie z.B. https://user:pass@www.delphipraxis.net/old

PS: Als Beispiel-"Link" kannst du die Domain example.com verwenden, denn diese gibt es absichtlich nicht, um sie für solche Links zu verwenden, die auf nichts "richtiges" zeigen sollen.

Dank deines Links gehen jetzt die ganzen Such-Bots (die Guteren und die Bösen) auf die arme DP los, wenn sie deinen Link hier finden.

Verstehe, da teste ich mal rum bis es klappt, Danke himitsu!

Ich habe eine Lösung gefunden um mein Ziel zu erreichen, ist das so korrekt oder gibt es Bedenken?

zusammenfalten · markieren

Delphi-Quellcode:

  try
    Memo2.Lines.BeginUpdate;
    Memo2.Clear;
    try
      xURI := TURI.Create( Edit1.Text );
    except
      on e: System.SysUtils.Exception do
       Memo2.Lines.Add('Error Occured @ '+Edit1.Text+' - '+e.Message);
    end;
  finally
    Memo2.Lines.Add('OriginalURL: '+xURI.ToString);
    Memo2.Lines.Add('Protocol: '+xURI.Scheme);
    Memo2.Lines.Add('Username: '+xURI.Username);
    Memo2.Lines.Add('Password: '+xURI.Password);
    Memo2.Lines.Add('Domain: '+xURI.Host);
    tmp := ExtractFilepath(xURI.Path.Replace('/','\'));
    tmp := tmp.Replace('\','/');
    Memo2.Lines.Add('Sublevel: '+tmp);
    tmp := ExtractFilename(xURI.Path.Replace('/','\'));
    tmp := tmp.Replace('\','/');
    Memo2.Lines.Add('Filename: '+tmp);
    Memo2.Lines.Add('Parameter: '+xURI.Query);
    Memo2.Lines.Add('Port: '+IntToStr(xURI.Port));
    Memo2.Lines.Add('');
    Memo2.Lines.Add('Results from TURI');
    Memo2.Lines.EndUpdate;
  end;