Hallo nochmal!
Also die bmpausfirmware function läuft einwandfrei. aber die bildtauschen verursacht einen
access error
Delphi-Quellcode:
procedure TForm1.bildtauschen(offset,groesse:Integer);
VAR length : integer;
p : Pointer;
buffer: array of byte;
begin
length := Bmp24ToBmp18(image2.picture.bitmap, p);
cla := TFileStream.Create(pfad, fmOpenWrite or fmShareExclusive);
cla.Position := offset;
cla.write(p^, length);
FreeAndNil(cla);
FreeMem(p);
end;
ich sehe keinen fehler, ihr?
//EDIT
es ist die bmp24to18. wenn ich sie einfach mal so aufrufe
length := Bmp24ToBmp18(image2.picture.bitmap, p);
kommt der fehler auch!!!
lustig ist nur, er tauscht das Bild, funzt einwandfrei, aber das programm stürzt ab...