TURI Probleme, hat jemand Rat?

[himitsu]

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:[e-mail]/old

[himitsu]

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.

[KodeZwerg]

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

[KodeZwerg]

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

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;