我有一個系統,已經完成了把圖檔(BMP或JPEG格式)存入資料庫內,也已完成了把圖從資料庫取出的動作.但目前遭遇一個問題,找了好久一直沒找到解.就是取出的圖,無法得知解析度為多少?我有試過以API GetObject來解決,但只可惜讀到的資料,有圖的width,height,但在biXPelsPerMeter與biYPelsPerMeter就是永遠為0,不知有沒有那位大大有做過同樣的事情,或知道如何取得TImage裡目前的圖的解析度是多少DPI?謝謝

hi, 原則上該屬性應該是存在 bmp 檔中, 而 image 元件裡沒有直接取得 bmp 的圖檔解析度方法, 弟這裡寫個小範例做為讀取 bmp 圖檔中的解析度方法:    

  function ReadBMPINFO(filename: string):Boolean;
  var
    bfh: TBitmapFileHeader;
    bih: TBitmapInfoHeader;
    iFileHandle: Integer;
    iBytesRead: Integer;
  begin
    Result := false;
    iFileHandle := FileOpen(filename, fmOpenRead);
    FileSeek(iFileHandle,0,0);
    iBytesRead := FileRead(iFileHandle, bfh, sizeof(bfh));
    if iBytesRead<>sizeof(bfh) then
      exit;
    iBytesRead := FileRead(iFileHandle, bih, sizeof(bih));
    if iBytesRead<>sizeof(bih) then
      exit;
    FileClose(iFileHandle);
    Result := true;
    ShowMessage(Format('Width * Height is %d * %d',[bih.biWidth, bih.biHeight]));
    ShowMessage(Format('Pixel Per Meter is %d * %d',[bih.biXPelsPerMeter, bih.biYPelsPerMeter]));
    ShowMessage(Format('Pixel Per Meter is %f * %f',[bih.biXPelsPerMeter / 100 *2.54, bih.biYPelsPerMeter / 100 *2.54]));
  end;

另外可以參考這篇 bmp 的檔案格式: http://140.126.11.200/dalton/course/Ip/Handout/BMP.doc

首先感謝您撥冗解答我的問題,但因為我的圖是存入資料庫內再讀出來的(以BLOB的方式讀出),所以讀到TImage裡的圖已經沒有BMP圖檔存在了.是否尚有其他解法,或著我只能把從資料庫讀到的圖再存到暫存目錄後再去讀取BMP圖檔的檔頭(我很不想這麼做).再次感謝您的解答.

timhuang,還是謝謝您.我把您的程式改成存到stream裡,一樣可以取得bmp檔的解析度,謝謝.