![]() |
Speichern mit Freeimage Komponente
Code:
Hi
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; 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 |
Re: Speichern mit Freeimage Komponente
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? |
Re: Speichern mit Freeimage Komponente
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: ![]() Ich hoffe das ihr mir weiterhelfen könnt :-D gruß Mike |
Alle Zeitangaben in WEZ +1. Es ist jetzt 12:28 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz