請問利用Image元件叫出一張jpg圖檔之後，當滑鼠移到這張圖檔時如何秀出這個圖檔的維度、拍照日期、相機型號、圖檔大小等等資訊，謝謝。

這些資訊是不是指Exif?如果是的話搜尋站上的資料就有了，我之前有看過

想請問GGL您有實際實作出來過嗎？axsoft版主提供了很多資訊給我們，可是我看得很吃力，因為資料大多是英文，上面的程式碼也不是很懂，實在不知如何著手！

這是我之前寫的，我寫成dll... http://delphi.ktop.com.tw/loadfile.php?TOPICID=23521963&CC=526057 你自己試試看吧，我有附上source，你如果不想用dll可以自行修改

謝謝你給我source，我研究了好久還是看不懂程式碼的意思。如果利用你的dll來實做我現在的成品請問要如何著手才較適當。

DLL函式使用方法及tag值代表的意義：    InteroperabilityVersion ：Exif(OpenDialog1->FileName,"tag00002",NULL)) NewSubfileType ：Exif(OpenDialog1->FileName,"tag00254",NULL)) SubfileType ：Exif(OpenDialog1->FileName,"tag00255",NULL)) ImageWidth ：Exif(OpenDialog1->FileName,"tag00256",NULL)) ImageLength ：Exif(OpenDialog1->FileName,"tag00257",NULL)) BitsPerSample ：Exif(OpenDialog1->FileName,"tag00258",NULL)) 壓縮後的像素位元 ：Exif(OpenDialog1->FileName,"tag00259",NULL)) PhotometricInterpretation ：Exif(OpenDialog1->FileName,"tag00262",NULL)) ImageDescription ：Exif(OpenDialog1->FileName,"tag00270",NULL)) 品牌 ：Exif(OpenDialog1->FileName,"tag00271",NULL)) 型號 ：Exif(OpenDialog1->FileName,"tag00272",NULL)) StripOffsets ：Exif(OpenDialog1->FileName,"tag00273",NULL)) 方向 ：Exif(OpenDialog1->FileName,"tag00274",NULL)) SamplesPerPixel ：Exif(OpenDialog1->FileName,"tag00277",NULL)) RowsPerStrip ：Exif(OpenDialog1->FileName,"tag00278",NULL)) StripByteConunts ：Exif(OpenDialog1->FileName,"tag00279",NULL)) X最大解析度 ：Exif(OpenDialog1->FileName,"tag00282",NULL)) Y最大解析度 ：Exif(OpenDialog1->FileName,"tag00283",NULL)) PlanarConfiguration ：Exif(OpenDialog1->FileName,"tag00284",NULL)) 解析度單位 ：Exif(OpenDialog1->FileName,"tag00296",NULL)) TransferFunction ：Exif(OpenDialog1->FileName,"tag00301",NULL)) Software ：Exif(OpenDialog1->FileName,"tag00305",NULL)) 日期時間 ：Exif(OpenDialog1->FileName,"tag00306",NULL)) Artist ：Exif(OpenDialog1->FileName,"tag00315",NULL)) Predictor ：Exif(OpenDialog1->FileName,"tag00317",NULL)) WhitePoint ：Exif(OpenDialog1->FileName,"tag00318",NULL)) PrimaryChromaticities ：Exif(OpenDialog1->FileName,"tag00319",NULL)) TileWidth ：Exif(OpenDialog1->FileName,"tag00322",NULL)) TileLength ：Exif(OpenDialog1->FileName,"tag00323",NULL)) TileOffsets ：Exif(OpenDialog1->FileName,"tag00324",NULL))

TileByteCounts ：Exif(OpenDialog1->FileName,"tag00325",NULL)) SubIFDs ：Exif(OpenDialog1->FileName,"tag00330",NULL)) JPEGTables ：Exif(OpenDialog1->FileName,"tag00347",NULL)) JpegIFOffset ：Exif(OpenDialog1->FileName,"tag00513",NULL)) JpegIFByteCount ：Exif(OpenDialog1->FileName,"tag00514",NULL)) YCbCrCoefficients ：Exif(OpenDialog1->FileName,"tag00529",NULL)) YCbCrSubSampling ：Exif(OpenDialog1->FileName,"tag00530",NULL)) YCbCr位置 ：Exif(OpenDialog1->FileName,"tag00531",NULL)) ReferenceBlackWhite ：Exif(OpenDialog1->FileName,"tag00532",NULL)) CFARepeatPatternDim ：Exif(OpenDialog1->FileName,"tag33421",NULL)) CFAPattern ：Exif(OpenDialog1->FileName,"tag33422",NULL)) BatteryLevel ：Exif(OpenDialog1->FileName,"tag33423",NULL)) Copyright ：Exif(OpenDialog1->FileName,"tag33432",NULL)) 曝光時間 ：Exif(OpenDialog1->FileName,"tag33434",NULL)) 焦距比較 ：Exif(OpenDialog1->FileName,"tag33437",NULL)) IPTC/NAA ：Exif(OpenDialog1->FileName,"tag33723",NULL)) ExifOffset ：Exif(OpenDialog1->FileName,"tag34665",NULL)) InterColorProfile ：Exif(OpenDialog1->FileName,"tag34675",NULL)) ExposureProgram ：Exif(OpenDialog1->FileName,"tag34850",NULL)) SpectralSensitivity ：Exif(OpenDialog1->FileName,"tag34852",NULL)) GPSInfo ：Exif(OpenDialog1->FileName,"tag34853",NULL)) ISOSpeedRatings ：Exif(OpenDialog1->FileName,"tag34855",NULL)) OECF ：Exif(OpenDialog1->FileName,"tag34856",NULL)) Interlace ：Exif(OpenDialog1->FileName,"tag34857",NULL)) TimeZoneOffset ：Exif(OpenDialog1->FileName,"tag34858",NULL)) SelfTimerMode ：Exif(OpenDialog1->FileName,"tag34859",NULL)) Exif版本 ：Exif(OpenDialog1->FileName,"tag36864",NULL)) 原來的日期時間 ：Exif(OpenDialog1->FileName,"tag36867",NULL)) 數位後的日期時間 ：Exif(OpenDialog1->FileName,"tag36868",NULL)) 元件組態 ：Exif(OpenDialog1->FileName,"tag37121",NULL))

CompressedBitsPerPixel ：Exif(OpenDialog1->FileName,"tag37122",NULL)) 快門時間 ：Exif(OpenDialog1->FileName,"tag37377",NULL)) 光圈大小 ：Exif(OpenDialog1->FileName,"tag37378",NULL)) BrightnessValue ：Exif(OpenDialog1->FileName,"tag37379",NULL)) 曝光偏移 ：Exif(OpenDialog1->FileName,"tag37380",NULL)) 最大光圈 ：Exif(OpenDialog1->FileName,"tag37381",NULL)) SubjectDistance ：Exif(OpenDialog1->FileName,"tag37382",NULL)) 量測模式 ：Exif(OpenDialog1->FileName,"tag37383",NULL)) LightSource ：Exif(OpenDialog1->FileName,"tag37384",NULL)) 閃光燈 ：Exif(OpenDialog1->FileName,"tag37385",NULL)) 焦距長度 ：Exif(OpenDialog1->FileName,"tag37386",NULL)) FlashEnergy ：Exif(OpenDialog1->FileName,"tag37387",NULL)) SpatialFrequencyResponse ：Exif(OpenDialog1->FileName,"tag37388",NULL)) Noise ：Exif(OpenDialog1->FileName,"tag37389",NULL)) ImageNumber ：Exif(OpenDialog1->FileName,"tag37393",NULL)) SecurityClassification ：Exif(OpenDialog1->FileName,"tag37394",NULL)) ImageHistory ：Exif(OpenDialog1->FileName,"tag37395",NULL)) SubjectLocation ：Exif(OpenDialog1->FileName,"tag37396",NULL)) ExposureIndex ：Exif(OpenDialog1->FileName,"tag37397",NULL)) TIFF/EPStandardID ：Exif(OpenDialog1->FileName,"tag37398",NULL)) 製作人提示 ：Exif(OpenDialog1->FileName,"tag37500",NULL)) 使用者註解 ：Exif(OpenDialog1->FileName,"tag37510",NULL)) SubSecTime ：Exif(OpenDialog1->FileName,"tag37520",NULL)) SubSecTimeOriginal ：Exif(OpenDialog1->FileName,"tag37521",NULL)) SubSecTimeDigitized ：Exif(OpenDialog1->FileName,"tag37522",NULL)) FlashPix版本 ：Exif(OpenDialog1->FileName,"tag40960",NULL)) 色彩範圍 ：Exif(OpenDialog1->FileName,"tag40961",NULL)) 像素X尺寸 ：Exif(OpenDialog1->FileName,"tag40962",NULL)) 像素Y尺寸 ：Exif(OpenDialog1->FileName,"tag40963",NULL)) RelatedSoundFile ：Exif(OpenDialog1->FileName,"tag40964",NULL))

ExifInteroperabilityOffset ：Exif(OpenDialog1->FileName,"tag40965",NULL)) FlashEnergy ：Exif(OpenDialog1->FileName,"tag41483",NULL)) SpatialFrequencyResponse ：Exif(OpenDialog1->FileName,"tag41484",NULL)) 焦距面X解析度 ：Exif(OpenDialog1->FileName,"tag41486",NULL)) 焦距面Y解析度 ：Exif(OpenDialog1->FileName,"tag41487",NULL)) 焦距面解析單位 ：Exif(OpenDialog1->FileName,"tag41488",NULL)) SubjectLocation ：Exif(OpenDialog1->FileName,"tag41492",NULL)) ExposureIndex ：Exif(OpenDialog1->FileName,"tag41493",NULL)) 感應方式 ：Exif(OpenDialog1->FileName,"tag41495",NULL)) 來源檔案 ：Exif(OpenDialog1->FileName,"tag41728",NULL)) SceneType ：Exif(OpenDialog1->FileName,"tag41729",NULL)) CFAPattern ：Exif(OpenDialog1->FileName,"tag41730",NULL))

關於您的程式碼我還是沒辦法吸收？我試著直接用你的dll和lib檔放在我實做的專案資料夾裏，然後在我的主程式裡include一個點h檔內容如下 int __declspec(dllexport) __stdcall BCBType_Count(int m,int n); 也確定lib檔有加入到專案中了，可是當滑鼠移到由OpenPictureDialog所開啟的照片時一樣沒辦法秀出照片資訊，請問問題在哪哩，我該如何利用你的dll以及lib檔，謝謝。

http://delphi.ktop.com.tw/loadfile.php?TOPICID=23521963&CC=526057 請你重新下載，我弄成完整的project了

你好，我去執行project1.bpr出現了 [Linker Fatal Error]Fatal：Unable to open file'SUIPACK_BCB.LIB' 錯誤訊息 如果直接執行執行檔的話，當滑鼠移到相片也不會執行相關的資訊呈現，謝謝。

忘了跟你說，我不是移動到圖片就會顯示，而是要Click滑鼠左鍵，還有如果開啟的圖片沒有exif資訊程式好像會掛掉，因為我沒寫判斷.. SUIPACK_BCB.LIB是我另外裝的套件，你看我的程式碼自己重新寫吧

Memo1->Lines->Add(Exif(OpenDialog1->FileName,"tag00306",NULL)); Memo1->Lines->Add(Exif(OpenDialog1->FileName,"tag00271",NULL)); 以上是我改的部份，期待要秀出的是日期時間和品牌，可是按滑鼠左鍵之後秀出的是兩個0，這是為什麼呢？和NULL有關嗎？(確定該照片有日期和相機品牌的訊息)，在實作上要如何利用呢？