我怎样才能知道它的长度和宽度呢？

我要显示一张图，可是我怎样才能知道它的长度和宽度呢？  
   
  这对我很重要。请高手赐教！  
  问题点数：20、回复次数：3Top

1 楼m_leaner（和日本鬼子势不两立）回复于 2003-06-04 19:49:51 得分 0

什么格式的,总之读文件的头Top

2 楼deeploves（光芒寂寞）回复于 2003-06-04 20:03:25 得分 0

GIF，BMP格式的，能说一下吗？Top

3 楼qixin000（小齐）回复于 2003-06-04 21:47:15 得分 20

procedure   TImageClass.GetWidthHeight(var   bmpWidth,  
      bmpHeight:   smallint);  
  Var  
          tmpStream:TFileStream;  
          FileHeader:TBitMapFileHeader;  
          FbmHeadInfo:   PBITMAPINFOHEADER;  
  begin  
            TmpStream:=TFileStream.Create(FFilePath,fmOpenReadWrite);  
            try  
                  TmpStream.ReadBuffer(FileHeader,Sizeof(TBITMAPFILEHEADER));  
                  if   FileHeader.bfType<>$4D42   then   raise   Exception.Create('无效的位图文件');  
                          GetMem(FbmHeadInfo,Sizeof(TBITMAPINFOHEADER));  
                  TmpStream.ReadBuffer(FbmHeadInfo^,Sizeof(TBITMAPINFOHEADER))   ;  
   
                  bmpWidth   :=   FbmHeadInfo.biWidth;  
                  bmpHeight   :=   FbmHeadInfo.biHeight;  
                  FreeMem(FbmHeadInfo,Sizeof(TBITMAPINFOHEADER));  
            except  
                  TmpStream.Free   ;  
                  raise   ;  
            end   ;  
            TmpStream.Free   ;  
  end;Top

相关问题

• fbmheadinfo
• tmpstream
• tbitmapinfoheader
• tbitmapfileheader
• fileheader
• bmpwidth
• bmpheight
• 宽度呢
• readbuffer
• tfilestream

• 帖主：deeploves
• qixin000

• Delphi类图书
• Delphi类源码下载
• Delphi控件下载