Pfad zur Datei aus URL extrahieren

[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

[KodeZwerg]

Ja ich habe dein .ini gesehen, das war ja auch meine Meinung dazu, ich fand das gut, nicht mehr nicht weniger, solange Du glücklich bist ist doch alles in Butter, egal wie man Ziel erreicht

Für System-Registrierung hatte ich mir mal die WinApi dafür selbst gekapselt um, für damalige Verhältnisse wars halt wichtig, Platz zu sparen, mit der Delphi Registry.pas waren es glaube ich 350kb mehr .exe Größe die ich mir per WinApi gespart habe.
Kann man bestimmt auch für Ini-Dateien so machen, Du bist ja bereits happy, ich selbst setz das mal auf meine ToDo

edit
ps: ich habe auch per duckduckgo ein total krasses delphi beispiel gefunden was vom aussehen her dem code eines binären link files entstammt, aber der war riesen gross, plus unformatiert, hatte mir das nicht näher angeschaut, aber man wird fündig wenn man buddelt

Grüße

[EWeiss]

Zitat:

Du bist ja bereits happy, ich selbst setz das mal auf meine ToDo

Kannst du gerne tun.

Mein Problem mit dem Teil ist halt das diese Funktion an einer Classe gekapselt ist und es nur richtig funktioniert wenn ich die gesamte Unit mit einbinde.
Das ist mir aber zu viel 14K zusätzlichen Code für eine Abfrage im gesamten Projekt.

Siehe OTTB uIShellItem.pas
So das ist der einzige Grund warum ich die Frage gestellt habe ob es auch mit weniger Code geht

gruss