如題
要如何取得檔案的檔頭資料
有沒有辦法直接讀到任何檔案的檔頭呢?

哇! 如果那位仁兄有這方面的技術, 我也很想弄到一份!!

===================引 用 P.D. 文 章===================
哇! 如果那位仁兄有這方面的技術, 我也很想弄到一份!!


那如果是單純讀取圖片檔的能夠讀到嗎0.0
例如JPG或BMP 我是有搜尋過版上的文章 不過....看不太懂...

這是本站網友提供的判斷公式, 我有稍微改一下(SORRY, 我忘了那位)
回傳1:BMP, 2:JPG
[code delphi]
function IsBMPfile(const AFilename: String; var AWidth, AHeight: Integer): integer;
var f: TFileStream;
bfh: TBitmapFileHeader;
HeaderSize: DWord;
w: Word;
begin
Result:= 0;
AWidth:= 0;
AHeight:= 0;
f:= TFileStream.Create(AFilename, fmOpenRead or fmShareDenyNone);
try
f.ReadBuffer(bfh, SizeOf(bfh));
// BMP $4D42, JPG $D8FF
if (bfh.bfType=$4D42) or (bfh.bfType=$D8FF) then begin
case bfh.bfType of
$4D42: result:= 1;
$D8FF: result:= 2;
end;
f.ReadBuffer(HeaderSize, SizeOf(HeaderSize));
case HeaderSize of
// OS/2 Bitmap
SizeOf(TBitmapCoreHeader):
begin
f.ReadBuffer(w, SizeOf(w));
AWidth:= w;
f.ReadBuffer(w, SizeOf(w));
AHeight:= w;
end;
SizeOf(TBitmapInfoHeader),
SizeOf(TBitmapV4Header),
SizeOf(TBitmapV5Header):
begin
f.ReadBuffer(AWidth, SizeOf(AWidth));
f.ReadBuffer(AHeight, SizeOf(AHeight));
end;
// unknown Bitmap format
else exit;
end;
// there are top down bitmaps with a negative height
AHeight:= Abs(AHeight);
end;
finally
f.Free;
end;
end;

[/code]

 雖然還不是看很懂....
不過我會繼續加油搞懂他的

其實, 如果你只想知道檔頭, 函數只要下 filename 即可, 後面兩組 awidth, aheigth 可以拿掉

===================引 用 P.D. 文 章===================
其實, 如果你只想知道檔頭, 函數只要下 filename 即可, 後面兩組 awidth, aheigth 可以拿掉

謝謝 回應~正在嘗試中
主要問這個的原因是想做出在程式中將圖片的資料修改掉,例如修改它的彩度,大小,像素等等的