我认为不是使用带有8位BMP的TImage而是保存我自己的Bitmap - 我之前已经用Delphi做了几次.但由于某些原因我无法弄清楚,文件的前两个字节总是写为四个字节!我的标题记录是
type
BitmapH = Record
head : WORD;
filesize : DWORD;
reserved : DWORD;
bmpoffset : DWORD;
bmpheadersize : DWORD;
width : DWORD;
height : DWORD;
planes : WORD;
bpp : word;
comp : longint;
bmdatasize : longint;
hres : longint;
vres : longint;
numofcolors : longint;
importantcolors : longint;
palette : array[0..1023] of byte;
end;
Run Code Online (Sandbox Code Playgroud)
我已经尝试过将其更改为2字节数组仍然没有去.即使它改为head:byte; 它仍然写入1个字节,然后将垃圾推送到下一个3.我必须遗漏一些简单的东西!
这是我写文件头的方式 -
var BM : file of BitmapH;
var BMD : file of byte;
var header : BitmapH;
var i …Run Code Online (Sandbox Code Playgroud)