viele dateien mit einem programm öffnen (mit parametern)

[Baal]

ich will schlicht und einfach mehrere bilddateien
mit meinem programm öffnen (wie bei microsofts photoeditor)

kann mir irgendjemand helfen

[Tpercon]

Willst du den Dateinamen beim Aufruf der Anwendung mit übergeben?
Dann ist ParamCount und ParamStr das richtige für dich zum Auslesen!

[Dannyboy]

Alles klar, sieh Dir mal die Komponenten OpenPictureDialog und
SavePictureDialog an, damit lassen sich Bitmaps spielend leicht speichern und Laden.
Auch die Prozeduren SaveToFile und LoadFromFile
(von TPicture ? )dürften Dir hierbei behilflich sein.

Öffne nicht zu viele Dateien zum selben Zeitpunkt! Denk daran, dass Du
sowieso immer nur zu einem Zeitpunkt 1 Datei bearbeitest (es sei denn Du arbeitest mit Threads)
und Du musst die Dateien auch schön artig
wieder schließen. Zum Zeichnen nimmst Du am besten die TImage-Komponente
oder aber das TCanvas-Objekt. Einfach mal bissi ausprobieren, der Rest kommt ganz von selbst.

[Baal]

Tpercon hat die lösung nur hab ich das schon
mal probiert und habs vermasselt.

also könntet ihr mir bitte helpen pleaze ?

trotzdem dank an Dannboy Dank you.

[urs.liska]

ParamStr[0] ist der Dateiname Deiner .exe (inkl. Pfad).
wenn ParamCount > 0, dann sind weitere Strings (sollten die Dateinamen Deiner Bilder sein) übergeben worden.

Delphi-Quellcode:

if (Application.ParamCount > 1) then
begin
  for i := 1 to Application.ParamCount - 1 do // i muss vorher deklariert werden, 0 wird nicht durchlaufen
  begin
    // Datei ParamStr[i] öffnen
    // Achtung: ist der Pfad zu der Datei mit im ParamStr?
    // andernfalls musst Du den Pfad irgendwie davor bringen
  end
end;

Viel Glück
Urs

[Baal]

Danke hoffe mal es klappt
glaube ich hab den fehler vom
vorherigen mal entdeckt

mal ausprobieren

[Tpercon]

Zitat von urs.liska:

ParamStr[0] ist der Dateiname Deiner .exe (inkl. Pfad).
wenn ParamCount > 0, dann sind weitere Strings (sollten die Dateinamen Deiner Bilder sein) übergeben worden.

Delphi-Quellcode:

if (Application.ParamCount > 1) then
begin
  for i := 1 to Application.ParamCount - 1 do // i muss vorher deklariert werden, 0 wird nicht durchlaufen
  begin
    // Datei ParamStr[i] öffnen
    // Achtung: ist der Pfad zu der Datei mit im ParamStr?
    // andernfalls musst Du den Pfad irgendwie davor bringen
  end
end;

Viel Glück
Urs

Das liese sich auch auf

Delphi-Quellcode:

  for i := 1 to ParamCount - 1 do begin

  end

verkürzen.