Speichern mit Freeimage Komponente

[The Re@l]

Code:

procedure TMainForm.saveImage( Name : string);
var
  dib : PFIBITMAP;
  t : FREE_IMAGE_FORMAT;
 begin
  try



    ImgView32.Bitmap.SaveToFile(name);
    t := FreeImage_GetFileType(PChar(name), 16);
    dib := FreeImage_Load(t, PChar(name),0);

    if Dib = nil then Close;

    FreeImage_Save(FIF_JPEG, dib, PChar('c:\da.jpg'),0);

    FreeImage_Unload(dib);
    except

  end;
end;



procedure TMainForm.Button1Click(Sender: TObject);
begin
saveImage('c:\temp.bmp');
end;

Hi

Ich wollte das bearbeitete Bild Temporär auf c:\temp.bmp und danach als jpg wieder ablegen. nur werden meine jpgs 0 kb´s

kann mir da mal einer bei helfen, Bitte

dank im vorraus

gruß
Mike