80分求教：怎么在delphi中打开位图文档并自由读取位图的高度，宽度和图形数据？

Question

procedure TForm1.Button1Click(Sender: TObject);
var
  BMP:TBitmap;
begin
  bmp:=TBitmap.Create;
  bmp.LoadFromFile('D:\Photo\me.bmp');
  image1.Width:=bmp.Width;
  image1.Height:=bmp.Height;
  image1.Canvas.Draw(0,0,bmp);
  bmp.Free;
end;

Answer 1

TImage
      .AutoSize:=True;      .LoadFromFile(FileName);      .Height
      .Width

Answer 2

和skimeister(网寻欢╃)的想法一样。
但是在bmp.LoadFromFile时最好是用OpenPictureDialog所打开的文件名。
if OpenPictureDialog.Execute then
begin
  if OpenPictureDialog.FileName <> "" then
  begin
    skimeister(网寻欢╃)的代码。
    其中语句变动: bmp.LoadFromFile(OpenPictureDialog.FileName);
  end;
end;