Also ich habe mir diese Function gebaut um ein BIld aus der Firmware zu holen:
Delphi-Quellcode:
function TForm1.bmpausfirmware(offset,groesse:integer):TBitmap;
VAR i:integer; buf: array of byte; ergebniss:string;
begin
cla := TFileStream.Create(pfad, fmOpenread);
cla.Position:=offset;
SetLength(buf, groesse);
cla.Read(buf[0], groesse);
ergebniss:='';
for i:=0 to groesse do
ergebniss:=ergebniss + inttostr(buf[0]);
i:=strtoint(ergebniss);
result:=Bmp18ToBmp24(i,176,220);
end;
und hier meine Bildtauschen function... Nur leider auch hier kein ergebniss... ICh komme einfach mit deinen functions nicht klar
Delphi-Quellcode:
procedure TForm1.bildtauschen(offset:integer;groese:integer);
VAR bild:integer;
p : Pointer;
begin
bild:=Bmp24ToBmp18(image2.picture.bitmap,p);
cla := TFileStream.Create(pfad, fmOpenread);
cla.Position:=offset;
cla.write(bild,groese);
FreeAndNil(cla);
FreeMem(p);
end;
nur leider geht da garnichts!