открытие изображения

Кусок старого текста, по переводу CMYK тифа в ВMP. Не слишком оптимизированный, но работал.
 
Function TIFFOpen(FileName,OpenMode : String) : LongInt; cdecl;
Function TIFFClose(TIFFHandle : THandle) : Integer; cdecl;
Function TIFFIsTiled(TIFFHandle : THandle) : Integer; cdecl;
Function TIFFScanlineSize(TIFFHandle : THandle) : LongInt; cdecl;
Function TIFFReadScanline(TIFFHandle : THandle; A : PChar; Row : Integer; Z : Integer) : LongInt; cdecl;
Function TIFFGetField(TIFFHandle : LongInt; TIFFTag : LongInt; Value : Pointer) : Integer; cdecl;
 
implementation
 
{$R *.dfm}
 
Function TIFFOpen; External 'libtiff3.dll' Name 'TIFFOpen';
Function TIFFClose; External 'libtiff3.dll' Name 'TIFFClose';
Function TIFFIsTiled; External 'libtiff3.dll' Name 'TIFFIsTiled';
Function TIFFScanlineSize; External 'libtiff3.dll' Name 'TIFFScanlineSize';
Function TIFFReadScanline; External 'libtiff3.dll' Name 'TIFFReadScanline';
Function TIFFGetField; External 'libtiff3.dll' Name 'TIFFGetField';
 
...
 
procedure TForm1.Button2Click(Sender: TObject);
 
Const TIFFTAG_IMAGEWIDTH = 256;
      TIFFTAG_IMAGELENGTH = 257;
      TIFFTAG_BITSPERSAMPLE = 258;
      TIFFTAG_COMPRESSION = 259;
      TIFFTAG_PHOTOMETRIC = 262;
      TIFFTAG_ORIENTATION = 274;
      TIFFTAG_SAMPLESPERPIXEL = 277;
      TIFFTAG_ROWSPERSTRIP = 278;
      TIFFTAG_XRESOLUTION = 282;
      TIFFTAG_YRESOLUTION = 283;
      TIFFTAG_PLANARCONFIG = 284;
      TIFFTAG_RESOLUTIONUNIT = 296;
 
Var DataArray : Array Of PChar;
    TIFFHandle,I,TIFFHeightPixels,TIFFWidthPixels,ScanLineSize,Y,X : LongInt;
    Planar : Word;
    bm : TBitmap;
    P : PChar;
 
begin
     TIFFHandle:=TIFFOpen('c:\имя_файла.tif','r');
     ScanLineSize:=TIFFScanlineSize(TIFFHandle);
     TIFFGetField(TIFFHandle,TIFFTAG_IMAGELENGTH,@TIFFHeightPixels);
     TIFFGetField(TIFFHandle,TIFFTAG_IMAGEWIDTH,@TIFFWidthPixels);
     SetLength(DataArray,TIFFHeightPixels);
     For I:=0 To TIFFHeightPixels-1
         Do
           Begin
                GetMem(DataArray[I],ScanLineSize+1);
                TIFFReadScanline(TIFFHandle,DataArray[I],I,0);
           End;
     bm:=TBitmap.Create;
     bm.PixelFormat:=pf24bit;
     bm.Width:=TIFFWidthPixels;
     bm.Height:=TIFFHeightPixels;
     I:=0;
     For Y:=TIFFHeightPixels-1 DownTo 0
         Do
           Begin
                P:=bm.ScanLine[Y];
                X:=0;
                I:=0;
                While X<TIFFWidthPixels*3
                      Do
                        Begin
                             P[X]:=DataArray[Y][I+2];
                             P[X+1]:=DataArray[Y][I+1];
                             P[X+2]:=DataArray[Y][I];
                             Inc(X,3);
                             Inc(I,3);
                        End;
           End;
     bm.SaveToFile('c:\temp.bmp');
 
     For I:=0 To TIFFHeightPixels-1
         Do
           FreeMem(DataArray[I]);
     DataArray:=Nil;
     TIFFClose(TIFFHandle);
end;