I iseek Unregistered / Unconfirmed GUEST, unregistred user! 2003-05-02 #2 procedure _LoadTIFF(Bitmap:TBitmap;FileName:String;ModeA,ModeB:Integer); var aTIFF:TTIFFFile; begin aTIFF:=TTIFFFile.Create; aTIFF.LoadFromFile(dd.tif); Bitmap.Assign(aTIFF.Bitmap); bBitmap.SaveToFile(dd.bmp); aTIFF.Free; end;
procedure _LoadTIFF(Bitmap:TBitmap;FileName:String;ModeA,ModeB:Integer); var aTIFF:TTIFFFile; begin aTIFF:=TTIFFFile.Create; aTIFF.LoadFromFile(dd.tif); Bitmap.Assign(aTIFF.Bitmap); bBitmap.SaveToFile(dd.bmp); aTIFF.Free; end;