1,183
社区成员
发帖
与我相关
我的任务
分享关于获取jpge文件分辨率遇到的问题
这个图片 我按照在论坛上找到的说明
jpg 文件 开头的 １４ １５ 字节存放 文件 分辨率，但是这个文件的１４ １５ 字节都是００ ，但是利用windows 察看属性 他的分辨率是 １２０ dpi．
对这样的文件怎么编程获得 分辨率？
谢谢
...全文
请发表友善的回复…
发表回复
SonicX 2007-09-24
- 打赏
- 举报
标准JPG文件分辨率
//获得JPEG分辨率
function GetJPEGDPI(JPEGImage:TJPEGImage): LongInt;
const
BufferSize = 50;
var
Buffer : STRING;
Stream : TMemoryStream;
Data : Word;
begin
Result := 0;
Stream := TMemoryStream.Create;
try
JPEGImage.SaveToStream(Stream);
SetLength(Buffer, BufferSize);
Stream.Seek(0,soFromBeginning);
Stream.Read(buffer[1], BufferSize);
if POS('JFIF'+#$00, buffer)>0 then begin //处理JFIF格式
Stream.Position := $E;
if Stream.Read(Data,2) = 2 then
Result:=Swap(Data);
if Result<72 then Result:=72;
end else Result:=72;
finally
Stream.Clear;
Stream.Free;
end;
end;
这个对数码相机之类有TIF信息包的JPG文件无能为力
//获得JPEG分辨率
function GetJPEGDPI(JPEGImage:TJPEGImage): LongInt;
const
BufferSize = 50;
var
Buffer : STRING;
Stream : TMemoryStream;
Data : Word;
begin
Result := 0;
Stream := TMemoryStream.Create;
try
JPEGImage.SaveToStream(Stream);
SetLength(Buffer, BufferSize);
Stream.Seek(0,soFromBeginning);
Stream.Read(buffer[1], BufferSize);
if POS('JFIF'+#$00, buffer)>0 then begin //处理JFIF格式
Stream.Position := $E;
if Stream.Read(Data,2) = 2 then
Result:=Swap(Data);
if Result<72 then Result:=72;
end else Result:=72;
finally
Stream.Clear;
Stream.Free;
end;
end;
这个对数码相机之类有TIF信息包的JPG文件无能为力
aaa2520 2007-09-17
- 打赏
- 举报
???????
aaa2520 2007-09-16
- 打赏
- 举报
难道 是计算出来的？
