獲取jpg圖片的x,y的分辨率dpi Delphi / Windows SDK/API
http://www.delphi2007.net/DelphiMultimedia/html/delphi_20061010091949259.html
怎樣取得jpg的呢？

獲取JPEG的寬度、高度等信息 ?
? { ? Copyright ? Kingron ? 2002 ? } ?
? function ? GetJPEGSize(FileName: ? string; ? var ? Width, ? Height: ? WORD): ? Boolean; ?
? const ?
? ? ? JPEG_FLAG_BEGIN ? = ? $D8FF; ?
? ? ? JPEG_FLAG_END ? = ? $D9FF; ?
? ? ? JPEG_FRAME ? = ? $C0FF; ?
? var ?
? ? ? FS: ? TFileStream; ?
? ? ? Flag1, ? Flag2: ? WORD; ?
? ? ? B: ? Byte; ?
? ?
? ? ? procedure ? SeekForFrame; ?
? ? ? type ?
? ? ? ? ? TSegHeader ? = ? packed ? record ?
? ? ? ? ? ? ? Flag: ? WORD; ?
? ? ? ? ? ? ? LenHi, ? LenLo: ? Byte; ?
? ? ? ? ? end; ?
? ? ? var ?
? ? ? ? ? Seg: ? TSegHeader; ?
? ? ? begin ?
? ? ? ? ? with ? Seg, ? FS ? do ?
? ? ? ? ? ? ? repeat ?
? ? ? ? ? ? ? ? ? Read(Seg, ? SizeOf(Seg)); ?
? ? ? ? ? ? ? ? ? if ? Flag ? <> ? JPEG_FRAME ? then ?
? ? ? ? ? ? ? ? ? ? ? Position ? := ? Position ? + ? MakeWord(LenLo, ? LenHi) ? - ? 2; ?
? ? ? ? ? ? ? until ? (Position ? >= ? Fs.Size) ? or ? (Seg.Flag ? = ? JPEG_FRAME); ?
? ? ? end; ?
? ?
? begin ?
? ? ? FS ? := ? TFileStream.Create(FileName, ? fmOpenRead); ?
? ? ? try ?
? ? ? ? ? { ? JPEG ? 文件開頭必須為 ? FF ? D8,文件尾必須為 ? FF ? D9 ? } ?
? ? ? ? ? FS.Read(Flag1, ? SizeOf(Flag1)); ?
? ? ? ? ? FS.Position ? := ? FS.Size ? - ? 2; ?
? ? ? ? ? FS.Read(Flag2, ? SizeOf(Flag2)); ?
? ? ? ? ? Result ? := ? (Flag1 ? = ? JPEG_FLAG_BEGIN) ? and ? (Flag2 ? = ? JPEG_FLAG_END); ?
? ? ? ? ? if ? not ? Result ? then ? exit; ? { ? 不是合法的JPEG文件則退出 ? } ?
? ?
? ? ? ? ? FS.Position ? := ? 2; ?
? ? ? ? ? SeekForFrame; ? { ? 尋找JPEG的Frame段，即圖像數據區 ? } ?
? ? ? ? ? FS.Read(B, ? SizeOf(B)); ? { ? Frame段段頭后第一個Byte為數據精度 ? } ?
? ?
? ? ? ? ? FS.Read(B, ? SizeOf(B)); ? { ? 高度高字節 ? } ?
? ? ? ? ? WordRec(Height).Hi ? := ? B; ?
? ? ? ? ? FS.Read(B, ? SizeOf(B)); ? { ? 高度低字節 ? } ?
? ? ? ? ? WordRec(Height).Lo ? := ? B; ?
? ?
? ? ? ? ? FS.Read(B, ? SizeOf(B)); ? { ? 寬度高字節 ? } ?
? ? ? ? ? WordRec(Width).Hi ? := ? B; ?
? ? ? ? ? FS.Read(B, ? SizeOf(B)); ? { ? 寬度低字節 ? } ?
? ? ? ? ? WordRec(Width).Lo ? := ? B; ?
? ? ? finally ?
? ? ? ? ? FS.Free; ?
? ? ? end; ?
? end; ?
? ?
? procedure ? TForm1.Button1Click(Sender: ? TObject); ?
? var ?
? ? ? W, ? H: ? Word; ?
? begin ?
? ? ? with ? OpenDialog1 ? do ?
? ? ? ? ? if ? Execute ? then ?
? ? ? ? ? ? ? if ? GetJPEGSize(FileName, ? W, ? H) ? then ?
? ? ? ? ? ? ? ? ? Caption ? := ? Format('Yes,W:%d,H:%d', ? [W, ? H]) ?
? ? ? ? ? ? ? else ? Caption ? := ? 'No'; ?
? end; ?
? ? ? ?
? ?
? ?
? ?
? ------------------------------------------------------- 本回復由大傻的破玩意兒【CSDN's ? forum ? Explorer】完成！ 大傻的破玩意兒，今天你用了木有 ? ！！ 軟件功能強大，速度超快！！支持中... 軟件下載地址：http://CoolSlob.ys168.com

DPI——每英寸的點數 ?
? 單針對圖片有意義嗎

?
? ? ? 何必那么麻煩 ? ? 一句話搞定 ?
? ?
? ? ? ShowMessage(IntToStr(GetDeviceCaps(LoadInBmp.Canvas.Handle,LOGPIXELSY))) ?
? ?
? ? ? LOGPIXELSY ? 跟 ? LOGPIXELSX ? 就是 ? 寬高的象素

沒有人知道嗎？

UP. ?
? ?
? 我再附加一個問題: ? ? ? 如何將JPEG ? 圖象 ? 由4:3裁減為 ? 2:3.

DPI只對打印有意義。 ?
?

總結

以上是生活随笔為你收集整理的获取jpg图片的x,y的分辨率dpi的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。