因為我設計一個報表功能~ 在 Rave Repoer 但是目前rave report 只支援到BMP 圖檔格式
我要在程式取得之前要先判斷為bmp 的檔,
使用者常常把副檔名改成bmp ..但是本質檔案還是jpeg or png 等格式.

這問題有兩種解決法
1.除非讓rave report 支援 jprg 與 png
2. 取得前先判斷為 bmp 格式 ,不是用副檔名判斷的方式

請問個為先進是否有什麼方式解決?

根据文件的 Content 来判断是否是 BMP。

BMP 档案，用 binary 方式打开它，它的开始三个 Byte 是 B, M, P 。你试试。比如用 TFileStream 打开。

我自己测试了一下，用 Windows 7 的画板保存一个 24bit 的 BMP，然后用以下代码打开，结果是：BM6

procedure TForm1.Button1Click(Sender: TObject);
var
F: TFileStream;
B: TBytes;
S: string;
begin
F := TFileStream.Create('F:\test.bmp', fmOpenRead);
try
SetLength(B, 3);
F.Position := 0;
F.Read(B[0], 3);

S := StringOf(B);
Memo1.Lines.Add(S);
finally
F.Free;
end;
end;

這是我常用判斷, 到目前為止還沒有認錯

函式
function IsBMP(fmst: TMemoryStream): integer;
var f: TMemoryStream;
Buffer: LongInt;
bfh: word;
begin
fmst.Position:= 0;
fmst.ReadBuffer(Buffer,SizeOf(fmst));
f:= TMemoryStream.Create;
f.Write(Buffer,Sizeof(fmst));
try
f.Position:= 0;
f.ReadBuffer(bfh, 2);
// BMP $4D42, JPG $D8FF
case bfh of
$4D42: result:= 1;
$D8FF: result:= 2;
else result:= 0;
end;
finally
f.Free;
end;
end;


實作
宣告一個 mst : TMemoryStream 變數

xxxx.SaveToStream(mst); // 將圖片存入 mst
case IsBMP(mst) of
1: showmessage('ISBMP');
2: showmessage('ISJPG');
end;
mst.Free;

提問者您好:


以上回應是否已得到滿意的答覆？


若已得到滿意的答覆，請在一週內結案，否則請在一週內回覆還有什麼未盡事宜，不然，
將由版主(尚無版主之區域將由副站長或站長)採自由心證,選擇較合適之解答予以結案處理，
被選上之答題者同樣會有加分獎勵，同時發問者將受到扣 1 分的處分。不便之處，請見諒。


有問有答有結案，才能有良性的互動，良好的討論環境需要大家共同維護，感謝您的配合。

------
我是機器人,我不接受簡訊.