Crear un thumbnail rapido

[Rako]

Hola, no tengo mucha idea de como hacer esto ni como funciona, pero el caso es que me peta y no se muy bien porque. Este codigo haria un thumbnail de una imagen grande, dejando el valor mayor de anchura/altura a 70, y el otro a su correspondiente escala:

 try
    ImageEnIO1.LoadFromFileJpeg(filename);
    //MejoraFotoProc.AttachedBitmap:=ImageEnIO1.AttachedBitmap;
    MejoraFotoProc.AttachedIEBitmap:=ImageEnIO1.AttachedIEBitmap;
    MejoraFotoProc.AttachedBitmap:=ImageEnIO1.AttachedBitmap;
    //if ImageEnIO1.AttachedBitmap.Height > ImageEnIO1.AttachedBitmap.Width then begin
    //if ImageEnIO1.Bitmap.Height > ImageEnIO1.Bitmap.Width then begin
    if MejoraFotoProc.AttachedBitmap.Height > MejoraFotoProc.AttachedBitmap.Width then begin
      //scale := 70 / jpg.Height;
      scale := 70 / ImageEnIO1.Bitmap.Height;
    end else begin
      scale := 70 / ImageEnIO1.Bitmap.Width;
    end;
    w:=Round(ImageEnIO1.Bitmap.Width * scale);
    h:=Round(ImageEnIO1.Bitmap.Height * scale);
    try
        MejoraFotoProc.Resample(w,h,rfNone);
        ImageEnIO1.IEBitmap:=MejoraFotoProc.AttachedIEBitmap;
        ImageEnIO1.SaveToFileJpeg('tmp_thumb.JPG');
    finally
    end;
  except
    MessageDlg('Error loading picture', mtWarning, [mbOK], 0);
  end;

Me peta cuando simplemente intenta acceder a las variables de width o heigth en el if del imageenio o del imageenproc para saber como escalarlo.

Me imagino que estara mal cargado los imageenio e imageenproc. Pretendia que imageenIO cargara un .jpg del discoduro, y le pasara la imagen al imageenproc.

muchas gracias por adelantado

[[cHackAll]]