Forum: Sonstige Fragen zu Delphi
Delphi
by DeddyH,
25. Okt 2007
Der Befehl sieht erstmal richtig aus. Der Fehler muss woanders herkommen. Setz doch mal einen Breakpoint auf die Zeile und steppe mal durch.
Forum: Sonstige Fragen zu Delphi
Delphi
by DeddyH,
25. Okt 2007
Hast Du denn auch die Units jpeg und GifImage eingebunden? Und dass kein Bild angezeigt wird, könnte am fehlenden Pfad liegen, wenn ich das richtig verstanden habe.
Forum: Sonstige Fragen zu Delphi
Delphi
by DeddyH,
25. Okt 2007
Was steht denn in der ComboBox? Meine Glaskugel ist leider gerade zur Politur.
Forum: Sonstige Fragen zu Delphi
Delphi
by DeddyH,
25. Okt 2007
Wenn Du den Dateinamen aus einer ComboBox liest, kannst Du Dir den Dialog aber sparen.
Forum: Sonstige Fragen zu Delphi
Delphi
by DeddyH,
25. Okt 2007
Was soll denn die Zuweisung des Filenames? Außerdem fehlt da ein begin - end.
Forum: Sonstige Fragen zu Delphi
Delphi
by DeddyH,
25. Okt 2007
Also, Ordner erstellen kannst Du mit ForceDirectories. Das Bild holst Du Dir mit einem TOpenPictureDialog und speicherst es mit der Methode SaveToFile von TJPEGImage bzw. TGIFImage wieder ab.
Forum: Sonstige Fragen zu Delphi
Delphi
by DeddyH,
24. Okt 2007
Meine Version ohne Unterordner:procedure ListAllPics(sPath: string; List: TStrings);
var Rec: TSearchRec;
begin
List.BeginUpdate;
List.Clear;
if sPath <> '\' then
sPath := sPath + '\';
if FindFirst(sPath + '*.*',faAnyfile,Rec) = 0 then
begin
repeat