Die Parameter Übergabe mit
Procedure ProcessThisBitmap ( abmp as TBitmap)
liefert bei mir folgenden Fehler :
Zitat:
[dcc64 Error] Unit_Testcases.pas(646): E2015 Operator not applicable to this operand type
auch der Versuch die Höhe / Weite nochmals expliziert zu setzen liefert keine Verbesserung- Beim Zugriff auf .width oder .height bekomme ich eine Zugriffsverletzung in der Unterrutine.
Der Aufruf von .width .height innerhalb des Codeblocks der Definition der Variablen funktioniert problemlos
Delphi-Quellcode:
procedure LoadJPEG(Bmp: TBitMap; Filename: string);
var
JPEG: TJPEGImage;
begin
JPEG := TJPEGImage.Create;
try
JPEG.LoadFromFile(Filename);
with Bmp do
begin
PixelFormat := pf16bit;
// Width := jpeg.Width;
// Height := jpeg.Height;
BMP.SetSize(jpeg.Width,jpeg.Height);
Assign(JPEG);
// PixelFormat := pf24bit;
end;
finally
JPEG.Free;
end;
end;