Delphi met Devil

[Philips10]

Hallo

Ik ben op zoek naar een lopend demo-project voor de wrapper voor
Devil (bij sourceforge.net).

Ik heb, met wat hulp van de Duitse programmeur van de
Duitse forum Delphi-praxide.de het volgende:

Procedure TForm1.TntButton1Click(Sender: TObject);
Var
  ImgId: TILuint;
  Bitmap: TBitmap;
  MemDC: HDC;
  _Bitmap: HBITMAP;
Begin
   OpenIL.ilInit;
   IlutInit;
 
   // how many images ??
  IlGenImages(1, @imgID);
  IlBindImage(imgid);
 
  // Normal überschreibt devil beim saven nicht hiermit schon der
  // Befehl ist ilsave(test.bmp') oder welches format auch immer
  IlEnable( IL_File_Overwrite );
 
  If OpenPictureDialog1.Execute then begin
     IlLoadImage(PChar(OpenDialog1.FileName));
 
     //logisch....
     Bitmap := TBitmap.Create;
 
    //grösse von geladenem bild holen
    Bitmap.Width := ilGetInteger(IL_IMAGE_WIDTH);
    Bitmap.Height := ilGetInteger(IL_IMAGE_HEIGHT);
 
    //hdc
    MemDC := CreateCompatibleDC(Canvas.Handle);
 
    //convert eventuell direkt winloadimage benutzen
    _Bitmap := ilutConvertToHBitmap(Bitmap.Canvas.Handle);
 
    //Versteh ich nicht??
    // SelectObject(MemDC, _Bitmap);
 
    //das ist klar
    BitBlt(Bitmap.Canvas.Handle, 0, 0, Bitmap.Width, Bitmap.Height, MemDC, 0, 0, SRCCOPY);
 
    // Bitmap.SaveToFile(ExtractFilePath(Application.ExeName)+'output.bmp');
    Bitmap.SaveToFile('output.bmp');
 
    Image1.Picture.Assign(Bitmap);
 
    DeleteDC(MemDC);
    DeleteObject(_Bitmap);
    Bitmap.Free;
 
   IlDeleteImages(1, @ImgId);
 
  End; //if OpenPictureDialog1.Execute then begin
End;

Er wordt echter geen beeld getoond.

De programmeur werkt niet meer onder Delphi en kan mij
niet meer verder helpen en ook bij de Duitse forum wordt
niet meer op hulp-aanvragen ingeaan.

Wie kan mij hier in Nederland wel helpen?

Bedankt