TJpegImage Komponente? Woher?

[Obscure87]

hab das auch psobiert, geht aber nicht =((

Delphi-Quellcode:

  begin
  bit := TBitmap.Create;
     for i := 0 to lballe.Items.Count -1 do
     begin

bit.LoadFromFile(pfad);
bild.Height := bit.Height;
bild.Width := bit.Width;
if bild.Width >= bild.Height then
begin
bild.Canvas.Draw(400, 533, bit);
bild.Assign(bit);
bild.Picture.SaveToFile(ziel);
bit.Free;

end;
end;

[Medium]

Zitat:

Zitat von Obscure87

hab das auch psobiert, geht aber nicht =((

Das ist ja wieder eine 1a Fehlerbeschreibung wie ich sie liebe... :kotz: