Hello
I am trying to print almost 40000 letters out and at around 8000 letters, the process fails. I receive an access violation.
" Project Letter.exe raised exception class EOutOfMemory with message
'Zu wenig Arbeitsspeicher (4544)' "
The unit WPPDFR1 is the unit raising the exception. The procedure DrawMetaFileex to be precise.
Here is my code
WPPDFExport2 := TWPPDFExport.Create(Application);
WPPDFExport2.Source := DBWPRichText_1;
WPPDFExport2.Filename := YesBackSlash(DBPath) +
oDataSet.FieldByName('Mem_No').AsString +
cLetterNumber + '.pdf';
WPPDFExport2.BeginDoc;
WPPDFExport2.Print;
WPPDFExport2.EndDoc;
MyPDF := TMemoryStream.Create;
try
BS := oDataSet.CreateBlobStream(oDataSet.FieldByName
('LetterImage'), bmWrite);
try
MyPDF.Clear;
MyPDF.LoadFromFile(cPDFFilename);
MyPDF.SaveToStream(BS);
finally
BS.free;
end;
finally
MyPDF.Free;
end;
WPPDFExport2.Free;
Any ideas as to what I could do to improve this code so I don't suck my memory dry?
Thank!
Zosox