Dateiendung mit dem eigenen Programm verknüpfen

[superjojo]

Hallo

Ich versuche mir einen eigenen Mediaplayer zu programmieren mit Delphi.
Nun möchte ich, dass wenn man eine Datei (Bsp .mp3) öffnet, dass diese automatisch mit meinem selbstgeschriebenen Programm geöffnet wird.

Habe schon mal gegoogelt und das hier gefunden
http://www.delphi-treff.de/tipps-tri...m-verknuepfen/

Habe auch den dort empfohlenen Code angewendet

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
if (ParamCount>0) and
    (FileExists(ParamStr(1))) then
   Memo1.Lines.LoadFromFile(ParamStr(1));
end;

Es kommt jedoch, wenn ich eine Datei mit meinem Programm öffne, eine Fehlermeldung (Siehe Bild im Anhang).

Habe auch gelesen, dass man irgendwie an die Verknüpfung mit dem Programm ein %1 anhängen müsste (Bsp C:\Project1.exe %1) aber wo muss ich das hinschreiben?

[Puke]

Macht doch die Funktion in deinem aufgeführten Link automatisch ... Statt der %1 setzt Windows die zu öffnende Datei ein

[DeddyH]

Man muss schon genau lesen:

Zitat:

“ParamStr”
Enthält mögliche Parameter und deren Schreibweise. (z.B. “%1″ um auch Pfadangaben mit Leerzeichen zu übergeben)

[himitsu]

Bist du dir sicher, daß die Fehlermeldung mit dem hier erwähnten Thema zu tun hat?

Macht dein Programm noch etwas anderes, nach dem Programmstart?
z.B. versucht es gleich sofort diese Datei zu öffnen und abzuspielen?

[superjojo]

1. Vielen Dank für die schnellen Antworten

2. @Puke Habe ich schon versucht, doch die dort angegebene Funktion wirft bei mir massenhaft Fehler auf. Da ich von dem was da in der Funktion steht so ziemlich gar nichts verstehe habe ich auch keine Ahnung wie ich die Fehler beheben soll.

3. @himitsu Also Im OnCreate event passiert nichts außer

Delphi-Quellcode:

if (ParamCount>0) and
    (FileExists(ParamStr(1))) then
   Memo1.Lines.LoadFromFile(ParamStr(1));

Auch sonst besteht mein Programm aus nur sehr wenigen Befehlen, die alle fehlerfrei abliefen bevor ich das OnCreate Event mit obigem Quellcode erzeugt habe. Jedoch habe ich bei dem TMediaPlayer der die Datei schließlich abspielen soll AutoOpen aktiviert.

[Christian Seehase]

Moin,

zum Thema "Dateiendung registrieren" haben wir zwei Einträge in der Codelib.

Das der Quelltext den Du da gepostet hast nichts mit dem Laden einer Mediendatei, wie z.B., MP3 zu tun hat ist Dir schon klar?
Ein MP3 lässt sich nicht in einem Memo öffnen, sondern die Datei muss der Eigenschaft FileName des Mediaplayers zugwiesen werden.

[Garfield]

Warum wird die Datei in das Memo geladen? Soll die nicht abgespielt werden?

[himitsu]

Vielleicht meinte man eigentlich ein Add statt dem LoadFromFile? :stupid:

[DeddyH]

Es steht so im Beispielcode, that' s all.

[superjojo]

Ich habe den Fehler gefunden.
himitsu hatte absolut recht statt dem .loadfromFile muss ein .add dahin und schon funktioniert es.

Es muss also so heißen

Delphi-Quellcode:

if (ParamCount>0) and
    (FileExists(ParamStr(1))) then
   Memo1.Lines.Add(ParamStr(1));

Alternativ könnte man den Dateifad natürlich auch direkt dem Mediaplayer übergeben.

Vielen dank für die Hilfe.

[himitsu]

Aber dennoch würde ich wetten, daß der Fehler in dem Code liegt, den man hier nicht gezeigt hat,
denn das Memo gibt garantiert diese Fehlermeldung nicht aus.

Vermutung: Es wird in einem "geheimen" Code eine Zeile aus dem Memo genommen, welche als Dateiname an den MediaPlayer übergeben und dort als Dateiname verwendet wird.

[Garfield]

Zitat:

Zitat von DeddyH (Beitrag 1263076)

Es steht so im Beispielcode, that' s all.

Ich weiß.

[EWeiss]

Zitat:

Zitat von superjojo (Beitrag 1263082)

Ich habe den Fehler gefunden.
himitsu hatte absolut recht statt dem .loadfromFile muss ein .add dahin und schon funktioniert es.

Es muss also so heißen

Delphi-Quellcode:

if (ParamCount>0) and
    (FileExists(ParamStr(1))) then
   Memo1.Lines.Add(ParamStr(1));

Alternativ könnte man den Dateifad natürlich auch direkt dem Mediaplayer übergeben.

Vielen dank für die Hilfe.

Der sinn dahinter besteht einfach darin das der Stream nicht nur abgespielt sondern auch gleichzeitig
im Memo festgehalten werden soll um ihn später nochmalig abspielen zu können.
Wäre ja möglich das die Liste im Memo beim beenden abgespeichert wird.

Aber nur geraten.

gruss