Forum: Sonstige Fragen zu Delphi
Delphi
by Matze,
22. Aug 2003
Ist doch selbstverständlich, dass ich die Lösung poste, andere wollen ja auch wissen, woran es lag. :wink:
Gruß Matze
Forum: Sonstige Fragen zu Delphi
Delphi
by Matze,
22. Aug 2003
Ich hab's rausbekommen. :D
Ich hab die Variable j nur beides Mal lokal deklariert. Wenn ich sie global deklariere, dann geht es. :hello:
@S - tefano: Dir nochmals: Vielen Dank!!
Gruß Matze
Forum: Sonstige Fragen zu Delphi
Delphi
by Matze,
22. Aug 2003
Speichern kann ich schon, aber nur, wenn ich die alten Dateien überschreibe.
Forum: Sonstige Fragen zu Delphi
Delphi
by Matze,
22. Aug 2003
Falls es dich noch interessiert:
So überprüfe ich, welche Bilder angeklickt wurden:
procedure TForm1.GroesseaendernClick(Sender: TObject);
var j:integer;
begin
CreateDir(Edit2.Text);
for j:=0 to CheckListBox1.Count-1 do
Forum: Sonstige Fragen zu Delphi
Delphi
by Matze,
22. Aug 2003
Der Ordner wird ordnungsgemäß angelegt, aber es wird kein Bild darin gespeichert.
Forum: Sonstige Fragen zu Delphi
Delphi
by Matze,
22. Aug 2003
Jetzt hab ich's so gemacht, aber es geht immer noch nicht. :evil:
jpeg.SavetoFile(Edit2.Text+'\'+CheckListBox1.Items.Strings);
In der CheckListBox stehen die Dateinamen.
Mit j zähle ich die Einträge der CheckListBox durch und falls sie angeklickt sind, werden sie verkleinert und gespeichert.
Kannst du mir da vielleicht auch helfen? :)
Gruß Matze
Forum: Sonstige Fragen zu Delphi
Delphi
by Matze,
22. Aug 2003
Du hast Recht!
Der Dateiname fehlt. :oops:
In Edit2 steht: D:\Bilder
Danke. :mrgreen:
Gruß Matze
Forum: Sonstige Fragen zu Delphi
Delphi
by Matze,
22. Aug 2003
Ich habe FocRacism's Code so umgeändert:
//Bildgröße ändern
procedure TForm1.ResizePicture(dir: string; width, height: integer);
var i:integer;
bmp:TBitmap;
jpeg:TJpegImage;
begin
Jpeg:=TJpegImage.Create;
try
Forum: Sonstige Fragen zu Delphi
Delphi
by Matze,
22. Aug 2003
Nochmal danke S - tefano!
Ich nehme jetzt deinen Vorschlag. Das geht ganz gut, solange die Bilder keine Screenshots mit Text sind, da man den Text sonst nicht mehr lesen kann (ist eigentlich logisch). :wink:
Gruß Matze
Forum: Sonstige Fragen zu Delphi
Delphi
by Matze,
22. Aug 2003
Genau so etwas brauche ich, jedoch ist danach die Bildquallität so miserabel, das ich das nicht verwenden kann. :(
Kann man diese procedure verwenden, aber mit einer anderen Bildquallität ?
Forum: Sonstige Fragen zu Delphi
Delphi
by Matze,
22. Aug 2003
Danke, das schau ich mir mal an.
Gruß Matze
Forum: Sonstige Fragen zu Delphi
Delphi
by Matze,
22. Aug 2003
Hallo zusammen!
Ich habe einen Ordner, in dem Bilder gespeichert sind. In einer ListBox zeigt es mir die jeweiligen Pfade an.
Wie kann ich alle diese Bilder, in möglichst kurzer Zeit, in eine beliebige Größe verkleinern?
Gruß Matze