怎么获得jpg图片的分辨率？

Question

谢谢各位了！

Answer 1

Image1.Picture.Width 
Image1.Picture.Height

Answer 2

procedure GetResJpg(JPGFile: string); 
const 
  BufferSize = 50; 
var 
  Buffer: string; 
  Index: integer; 
  FileStream: TFileStream; 
  HorzRes, VertRes: Word; 
  DP: Byte; 
  Measure: string; 
begin 
  FileStream := TFileStream.Create(JPGFile, 
    fmOpenReadWrite); 
  try 
    SetLength(Buffer, BufferSize); 
    FileStream.Read(buffer[1], BufferSize); 
    Index := Pos('JFIF' + #$00, buffer); 
    if Index > 0 then 
    begin 
      FileStream.Seek(Index + 6, soFromBeginning); 
      FileStream.Read(DP, 1); 
      case DP of 
        1: Measure := 'DPI'; //Dots Per Inch 
        2: Measure := 'DPC'; //Dots Per Cm.
      end; 
      FileStream.Read(HorzRes, 2); // x axis
      HorzRes := Swap(HorzRes);
      FileStream.Read(VertRes, 2); // y axis
      VertRes := Swap(VertRes);
    end 
  finally 
    FileStream.Free; 
  end; 
end;
我使用上面的方法，但是对某些jpg图不管用

Answer 3

uses Jpeg, StdCtrls;procedure TForm1.Button1Click(Sender: TObject);
var Image1:TImage;
begin
  Image1:=TImage.Create(self);
  Image1.Picture.LoadFromFile('c:\a.jpg');
  ShowMessage(IntToStr(Image1.Picture.Width)+'*'+IntToStr(Image1.Picture.Height));
  Image1.Free;
end;

Answer 4

应该 uses ExtCtrls, Jpeg;

Answer 5

这是获得图片的宽高啊，图片dpi怎么计算呢？