eigene Dateiendung mit eigenem Programm lesen

[xstream]

Guten Tag erstmal.
Ich weiss nicht, ob ich in diesem Forum richtig bin, aber ich habe ein problem.

Also:

Ich arbeite momentan an einem kleinen Editor. Dieser Arbeitet mit einer eigenen Dateiendung. Ich habe in der Registry so eingestellt, das mein eigenes Icon bei diesen Dateien angezeigt wird. Wenn ich nun Doppelklicke auf eine .zep datei (das ist die endung (.zep)) dann wird mein programm aufgerufen, aber es erscheint nicht der text, der in der Datei steht. Nun wollte ich das ändern, ich weiss auch nicht, ob das direkt etwas mit delphi zu tun hat, ich hoffe es aber.

Ich freue mich auf eure Antworten.

MfG

Xstream

[maxk]

Hi und willkommen in der DP,
deinen Programm wird der Dateiname als Parameter übergeben. Das heißt du musst das Öffnen der Datei selbst übernehmen. Etwa so:

Delphi-Quellcode:

Memo1.Lines.LoadFromFile(ParamStr(1));

Außerdem sollte in der Registry beim "open/command" sowas wie DeinProgramm.exe "%1" stehen, damit Windows weiss, dass er einen Parameter übergeben muss.

[xstream]

Danke erstmal,

und wo hin muss ich diesen Code tun? bei FormCreate?

[ipworks]

Ich nehme an Du willst die ZEP-Datei öffnen.
Das kannst Du über ParamStr realisieren.

Delphi-Quellcode:

procedure TForm1.FormShow(Sender: TObject);
var
File2Open: String;
begin
if ParamCount>0 then begin
    File2Open:=ParamStr(1);
    // Nun mache mit der Datei etwas, z.B. Öffenen
  end;
  ...
end;

Grüße
Peter

[maxk]

Zitat:

Zitat von xstream

und wo hin muss ich diesen Code tun? bei FormCreate?

Irgendwo, wo er automatisch ausgeführt wird (OnCreate,OnShow,...)

[xstream]

ok nun muss ich aber zu meinem programm noch was sagen.

wenn man es startet, kommt zuerst noch ein form, in dem mein logo erscheit. wenn man auf das logo klickt, dann wird der editor angezeigt.... darum geht das skript das mir ipworks gegeben hat nicht...

[fkerber]

Hi!

Zitat:

Zitat von maxk

Zitat:

Zitat von xstream

und wo hin muss ich diesen Code tun? bei FormCreate?

Irgendwo, wo er automatisch ausgeführt wird (OnCreate,OnShow,...)

Wenn du z.B. Text in ein Memo laden willst, würde ich es nicht beim FormCreate tun.
Habe es jetzt nicht getestet, aber ich kann mir vorstellen, dass es zu Problemen komnnt, da das Memo selbst noch nicht created ist.

Ciao Frederic

[maxk]

Ich hatte dabei bisher eigentlich keine Probleme.

@xstream: Dann musst du den Code dort einfügen, wo er ausgeführt werden soll. Also z.B. nachdem Anzeigen des Splash :roll:

[ipworks]

Hallo,
realisiere das Logo-Form über ein Splashform*. Andernfalls ist ja das Logo-Formular das Hauptform deiner Anwendung.
Wenn Du die Splash-Anleitung brauchst, schreib' zurück.
mfg
Peter

[xstream]

Ups sorry... tut mir leid... ich hatte gar nicht gesehen, das ich in der datei gar nichts geschrieben hatte.... nun geht es mit dem skript von ipworks.....ich hatte den fehler gemacht...

gut und nun mein 2. problem:

ich möchte, das man verschiedene den text, den man geschreiben hat, in den datei typen: .zep und .txt speichern kann... nur macht mir delphi immer eine Datei, mit keiner endung... also eine Datei... :pale: kann mir da auch jemand helfen?

Edit... eine splash anleitung wäre nicht schlecht.... :gruebel:

[fkerber]

Hi!

:arrow: SplashScreens
Schau mal in die Section Tutorials, da iss was dazu.

Ciao Frederic

[maxk]

SaveDialog1.DefaultExt

[fkerber]

Hi!

Zitat:

Zitat von xstream

gut und nun mein 2. problem:

ich möchte, das man verschiedene den text, den man geschreiben hat, in den datei typen: .zep und .txt speichern kann... nur macht mir delphi immer eine Datei, mit keiner endung... also eine Datei... :pale: kann mir da auch jemand helfen?

Edit... eine splash anleitung wäre nicht schlecht.... :gruebel:

Erstell bitte für eine neue Frage einen neuen Thread mit genauer(er) Beschreibung des Problems, optimal wäre es mit Code.
Zum Edit: siehe Post unter deinem.

Ciao Frederic

[ipworks]

Wie speicherst Du die Datei?
Kannst Du den Code bitte mal hier reinschreiben.

normalerweise...

Delphi-Quellcode:

var
filepath: String;
begin
filepath:=ExtractFilePath(Application.Exename);
if filepath[Length(filepath)]<>'\' then filepath:=filepath+'\';
Memo1.Lines.SavetoFile(filepath+'dateiname.zep');
...
end;

Peter

[xstream]

Ich habe (leider) noch Delphi 3, und bei dem gibt es so dialoge... SaveDialog. Mit dem kann man das Verzeichnis und den Datei Typ wählen:

Delphi-Quellcode:

if SaveDialog1.Execute then Memo1.Lines.SaveToFile(SaveDialog1.FileName);

so fand ich das im Internet.

@fkerber

schon erstellt...

[fkerber]

Hi!

Ja, habe es gesehen, dann diskutieren wir doch dort weiter:

:arrow: http://www.delphipraxis.net/internal...ct.php?t=35258

Ciao Frederic