Delphi 6, Out of system resources

can you show us the code you sue for the manipulation of the images?

Thanks, i use this unit, but i am still have the same error message!

As a mentioned above, i am using TFindFile component. There is an onFileMatch event when image file found, here is the code inside:
   
   inc(os_id);
   buf := 0;
   Memory := TMemoryStream.Create;
   try
   Memory.LoadFromFile(folder+'image.TIF');
   memory.Read(buf, 2);
    sign := inttohex(Buf, 2);
    finally
    Memory.Free;
    end;
   tiff2jpeg(folder+'image.TIF','c:\test\'+inttostr(os_id)+'.jpg','Mark',30,sign);

and here is Tiff2Jpeg function:

var
  tiff,bmp: PFIBITMAP;
  b: TBitmap;
  FileFormat: FREE_IMAGE_FORMAT;
  jpg: TJpegimage;

begin
b:=TBitmap.Create;
  jpg:=TJPEGImage.Create;
  FileFormat:=FreeImage.FreeImage_GetFIFFromFilename(pchar(sFileName));
  case FileFormat of
  FIF_TIFF: begin
            try
            tiff:=FreeImage.FreeImage_Load(FIF_TIFF,pchar(sFilename));
            FreeImage.FreeImage_Save(FIF_BMP,tiff,'C:\test.bmp',BMP_SAVE_RLE);
            try
            try
            b.LoadFromFile('c:\test.bmp');
            b.Canvas.Font.Size:=7;
            b.Canvas.Font.Name:='Tahoma';
            b.Canvas.TextOut(0,0,Watermark);

            jpg.Assign(b);
            finally
            b.free;
            end;

            jpg.CompressionQuality:=Quality;
            jpg.Compress;
            jpg.SaveToFile(dFilename);
            finally
            jpg.Free;
            end;

            finally
            freeimage.FreeImage_unload(tiff);
            end;

            end;

end;

and you don't have any memory leak reports from FastMM?

how big are those images if you store 700 images that are over 1MB it's possible that your system resources are over

ziolko.

Images are very small (about 10 KB)

there 2:
b:=TBitmap.Create;
  jpg:=TJPEGImage.Create;

you free them within your case statement (which isnt complete i think?)

do they always get 'free'd'?

I put
b:=TBitmap.Create;
  jpg:=TJPEGImage.Create;
inside case statement but again the same problem. Yes, they always get 'free' state

agree with Kimbeck what if FileFormat is other than FIF_TIFF?


try this way:

b := TBitmap.Create;
jpg:=TJPEGImage.Create;
try
  case
  ...

finally
  b.free;
  jpg.free
end;

ziolko.

ooops should be: Limbeck sorry!!

ziolko.

haha no problem ziolko :)

Ed.

FileFormat:=FreeImage.FreeImage_GetFIFFromFilename(pchar(sFileName));
  b:=TBitmap.Create;
  jpg:=TJPEGImage.Create;
  try
  case FileFormat of
  FIF_TIFF: begin
            tiff:=FreeImage.FreeImage_Load(FIF_TIFF,pchar(sFilename));
            FreeImage.FreeImage_Save(FIF_BMP,tiff,'C:\test.bmp',BMP_SAVE_RLE);
            b.LoadFromFile('c:\test.bmp');
            b.Canvas.Font.Size:=7;
            b.Canvas.Font.Name:='Tahoma';
            b.Canvas.TextOut(0,0,Watermark);
            jpg.Assign(b);
            jpg.CompressionQuality:=Quality;
            jpg.Compress;
            jpg.SaveToFile(dFilename);
            end;

  end;
  finally
  b.Free;
  jpg.Free;
  freeimage.FreeImage_unload(tiff);
  end;

No, Ziolko, this still doesn't work, the same error!

look at this, are you running the latest version?

http://www.delphiarea.com/products/findfile/

Limbeck, really it was the older version of TFindFile, i install the latest but the problem still again ((

Limbeck, i put this code
 if not ParseFips.Threaded then
    Application.ProcessMessages;
into onFileMath to the end and turn off thread mode in this component and now it works fine, as i think. There is no more that error message. As i suppose, there is a bug inside this TFindFile, right?

i dont know, it might be a errrr feature. ya know, the bugs that nobody bothers to solve ;)