Pfad zur Datei aus URL extrahieren

[DieDolly]

Ich würde zusätzlich noch auf FileExists prüfen, denn sonst gibt das eine hässliche Fehlermeldung bzw einen unnötigen Eintrag im Log falls es einen gibt.

[EWeiss]

Zitat von DieDolly:

Ich würde zusätzlich noch auf FileExists prüfen, denn sonst gibt das eine hässliche Fehlermeldung bzw einen unnötigen Eintrag im Log falls es einen gibt.

Es ist ja eine Verknüpfung..
Wenn die Datei auf dem Server nicht mehr existiert wird sie nicht abgespielt im weiteren verlauf.
Bei lokalen Dateien gebe ich dir recht!

gruss

[himitsu]

Erstmal, das ist eine INI und keine StringListe, also warum nicht wie eine INI behandeln?
Und selbst wenn als StringList, dann kann man sich das manuelle Durchsuchen sparen, denn SL.NameValueSeparator := '='; SL.Values['url'] = dieURL; (wenn/da es nur das eine "url" in dieser einen Gruppe gibt).

Und es sollte eigentlich auch eine WinAPI für den Zugriff geben (es gibt auch binäre Formate, wie z.B. .lnk), aber mir fällt grade nicht ein wo diese API sich versteckt.

[DieDolly]

EWeiss, lösch meinen Code am besten. Der scheint ja absoluter Mist zu sein

[EWeiss]

Zitat von DieDolly:

EWeiss, lösch meinen Code am besten. Der scheint ja absoluter Mist zu sein

Warum funktioniert einwandfrei wenn SL als TStringList definiert ist.
Meine Videos laufen! UHD direkt aus dem Internet ohne zu speichern.

Zitat:

es gibt auch binäre Formate, wie z.B. .lnk

Habe ich schon fertig *.lnk NUR das will ich nicht zu viel Code und absolut nicht nötig.
Das Sample von @DieDolly ist dafür vollkommen ausreichend.

Zitat:

aber mir fällt grade nicht ein wo diese API sich versteckt

ShellApi

Und hier ein Sample!

Delphi-Quellcode:

procedure TWebShortCut.LoadInternetShortCut;
// Loads information for internet shortcut (*.URL) from FileName and Location.
  var
    inifile: TIniFile;
    psfi: TSHFileInfo;
  begin
    ClearValues;
    iniFile := TIniFile.Create(GetLocationFolder);
    try
      fURL := iniFile.ReadString('InternetShortcut', 'URL', '');
      fHotKey := iniFile.ReadInteger('InternetShortcut', 'Hotkey', 0);
      HotKeyToShortCut(FHotKey, FHotKeyCtrl);
      fIconPath := iniFile.ReadString('InternetShortcut', 'IconFile', '');
      fIconIndex := iniFile.ReadInteger('InternetShortcut', 'IconIndex', 0);
    finally
      inifile.free;
    end;
    // load icon into TIcon if one is available.
    if FIconPath = '' then
      begin
        SHGetFileInfo(PChar(fURL), 0, psfi, sizeof(psfi), SHGFI_ICON);
        FIcon.Handle := psfi.hIcon;
      end
    else
      FIcon.Handle := ExtractIcon(hInstance, PChar(FIconPath), FIconIndex);
  end;

Aber wie gesagt ich will meine TWebShortCut Classe dafür nicht einbinden.

gruss

[KodeZwerg]

Hi, auch wenn Thema bereits abgeschlossen ist, ich finds gut das ihr meinen Vorschlag das als Text reinzulesen und nach "url=" zu Suchen genommen habt, rein auf die Masse (also Anwender die ein Produkt nutzen) betrachtet wäre das .ini Beispiel das einzig wahre.

[EWeiss]

Zitat von KodeZwerg:

Hi, auch wenn Thema bereits abgeschlossen ist, ich finds gut das ihr meinen Vorschlag das als Text reinzulesen und nach "url=" zu Suchen genommen habt, rein auf die Masse (also Anwender die ein Produkt nutzen) betrachtet wäre das .ini Beispiel das einzig wahre.

Hast du mein Sample gesehen das ist INI aber ich will es nicht.
Der Ansatz von @DieDolly läuft und fedisch!

PS:
Es bringt mir nichts eine Classe einzubinden (ja fertig von OTTB alles schon gehabt) wenn ich das mit 10 Zeilen Code erledigen kann bei einem einmaligen Aufruf.

gruss