Instead of copying file as suggested by Nigel. I use the following code because when I load and Image in ImageEn and save it the size of image is reduced substantially:
// Copy all photos loaded in ImageEnM to the project folder
ieMain.Clear;
for I := 0 to iemComments.ImageCount - 1 do
begin
ImageFileName := iemComments.ImageFileName[I];
ieMain.IO.LoadFromFile(ImageFileName);
NewImageFileName := NewFolder + ExtractFileName(ImageFileName);
ieMain.IO.Params.JPEG_Quality := 90;
ieMain.IO.Params.JPEG_Smooth := 3;
ieMain.IO.Params.JPEG_Progressive := false;
ieMain.IO.SaveToFileJpeg(ImageFileName);
ieMain.Clear;
end;
HTH
Yogi Yang
Search
