想把檔案前面加入BMP檔頭 讓它變成圖檔

參考了很多Stream的文章 不過有看沒有懂

Tstream
TMemoryStream
TFilestream

為什麼要寫入緩衝? 為什麼不直接寫入就好?

以下是我的程式碼 不過寫出來的圖檔都是空的 不知道為什麼 請高手解答

試了三種方式 都是空值

[code delphi]
procedure TForm1.Button1Click(Sender: TObject);
var
ms,fs:TMemoryStream;
st:tfilestream;
Bmf: TBitmapFileHeader; //BMP 檔頭資料
bit:tbitmap;
s:string;
begin
if OpenDialog1.Execute then
ms:=TMemoryStream.Create;
ms.Write(Bmf, sizeof(Bmf));

//方式一
{assignfile(b, OpenDialog1.FileName); reset(b);
while not EOF(b) do begin
read(b, d);
ms.Write(d,8);
end;
closefile(b);}

//方式二
{st:=tfilestream.Create(OpenDialog1.FileName, fmOpenRead or fmShareDenyWrite); //fmOpenRead :以只讀方式打開指定文件
ms.Write(st,sizeof(st));
st.Free;}

//方式三
fs:=TMemoryStream.Create;
fs.LoadFromFile(OpenDialog1.FileName);
ms.Write(fs,sizeof(fs));
fs.Free;

bit := Tbitmap.Create;
bit.LoadFromStream(ms);
Image1.Picture.Assign(bit);
s:=copy(ExtractFileName(OpenDialog1.FileName),1,length(ExtractFileName(OpenDialog1.FileName))-4);
image1.Picture.SaveToFile(s '.bmp');
bit.Free;
ms.Free;
end;
[/code]

新手發問 請多包含^^

1. 这样试试:
2. fs.Position:=0;//加上这句
3. ms.Write(fs,sizeof(fs));
4. fs.Free;
6. bit := Tbitmap.Create;
7. ms.Position:=0;// 加上这句
8. bit.LoadFromStream(ms);

------
今天真是,我喜欢今天...

原來如此 我都忘記Position 要歸零

加上fs.Position:=0; 之後 還是0位元組

加上ms.Position:=0;之後 他顯示

project project1.exe raised exception class EInvalidGraphic with message 'Bitmap image is not valid'.process stopped. Use Step or Run to continue.

由於是手動打的 哪裡拼錯還請見諒

翻譯的結果 好像是 ms裡的東西不能裝進bit

===================引 用 wzwcn 文 章===================

1. 这样试试:
2. fs.Position:=0;//加上这句
3. ms.Write(fs,sizeof(fs));
4. fs.Free;
6. bit:=Tbitmap.Create;
7. ms.Position:=0;//加上这句
8. bit.LoadFromStream(ms);

之後 小弟有請教過老師

老師說 Bmf 就是TBitmapFileHeader 長度只有14

於是我又再寫了幾種方法


[code delphi]
var
Form1: TForm1;
a,b,c:file of byte;
d:byte;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
randomize;
if OpenDialog1.Execute then
assignfile(a, OpenDialog1.FileName); reset(a);
assignfile(b, '123.bmp'); reset(b);
assignfile(c, inttostr(random(9999999)) '.bmp'); rewrite(c);
for i:=1 to 54 do begin //先讀入正常bmp檔頭
read(a, d); //←←這行會錯誤
Write(c, d);
end;
while not EOF(a) do begin //在寫入原本要加入的檔案
read(a, d);
Write(c, d);
end;
closefile(a);
closefile(b);
closefile(c);
end;
[/code]

那行的錯誤 是 read beyond end of file 讀取超出文件結尾

123.bmp 確定有 550 KB (563,974 位元組)

請問該如何排除錯誤

加了seek(b,0); 還是一樣

請各位大大賜教


感謝wzwcn 大大的提醒!!

編輯記錄

新手好奇問一下：

這東西可以用把檔頭放到 Stream 裡然後改數值後，在用 TFileStream.Create 轉存成 Bmp 圖檔嗎?