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 :gruebel:

dank im vorraus :stupid:

gruß
Mike

[Luckie]

Ich kenne die Komponente nicht aber war bei der Komponente keine Hilfe oder eine Demo dabei? Ist eigentlich so üblich.

Für was steht der letzte Parameter von FreeImage_Load und FreeImage_Save? Warum hast du da null stehen?

[The Re@l]

Hi

Ich habe eine Doku als PDF dabei, aber die hilft mir irgendwie nicht weiter.
Demo ist auch dabei, allerdings wird da nur das Load benutzt.

Die 0 steht für flag[int] und wozu diese gebraucht wird hmm :gruebel:

Freeimage PDF

Ich hoffe das ihr mir weiterhelfen könnt :-D
gruß
Mike