请各位大侠救急!如何取得图像的分辨率？在线等待!!急。。。急。。(100分)

Z

zhoulu281

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-14

• #1

如何取得图像的分辨率？我用的是Image控件![!][!][!]

 

任

任豆豆

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-14

• #2

图像的原始大小么？

 

R

rockjie

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-14

• #3

GetDeviceCaps

 

乐

乐天

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-14

• #4

如果autosize是true，width、height应该即是的

 

H

hug

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-14

• #5

var
BmpFileHeader: TBitmapFileHeader;
BmpInfoHeader: TBitmapInfoHeader;
AHandle : Integer;
DPI uoble;//bpm的分辨率
begin
AHandle := FileOpen(YourImageName, fmOpenRead);
FileRead(AHandle, BmpFileHeader, SizeOf(BmpFileHeader));
FileRead(AHandle, BmpInfoHeader, SizeOf(BmpInfoHeader));
DPI := Round(1.0*BmpInfoHeader.biXPelsPerMeter/100);
FileClose(AHandle);
end;

 

Z

zhoulu281

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-14

• #6

我指的是图像分辨率，即像素/英寸，而不是图像的大小(长*宽)

hug兄文档中的“DPI := Round(1.0*BmpInfoHeader.biXPelsPerMeter/100);
”行上的最后数值100是什么意思，是怎么得到的，为什么要除100？

 

R

rockjie

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-14

• #7

如果不想用其他办法的话就用hug的方法
Round(1.0*BmpInfoHeader.biXPelsPerMeter/100);这是算法！