Hello,
We have an application that uses wPDF and WPtools. When we have wPDF v2 this application worked perfectly but since updating to wPDF V3 (January 2007 build) we are getting errors, we get either an "Not enough storage to is available to process this command" in WPCTRMemo Line 8330
or a "Canvas does not allow drawing" error that happens in WPPDFR1 line 959
Here is the code used to make the pdfs
Code
procedure TForm1.Button1Click(Sender: TObject);
var
PDF: TWPPDFExport;
strFileName: string;
begin
RzProgressBar1.PartsComplete:=0;
WPDF_Start('xxx, 'xxx');
PDF := TWPPDFExport.Create(nil);
try
PDF.CidFontMode := wpCIDUnicode;
PDF.Source := WPRichText1;
PDF.FontMode := wpEmbedSymbolTrueTypeFonts;
PDF.CompressStreamMethod := wpCompressFlate;
PDF.JPEGQuality := wpJPEG_50;
dbisamtable1.open;
wprichtext1.TextLoadFormat := 'Auto';
RzProgressBar1.TotalParts:=dbisamtable1.RecordCount;
while not dbisamtable1.Eof do
begin
// Load Text
try
WPRichText1.TextLoadFormat := 'Auto';
WPRichText1.BeginUpdate;
WPRichText1.AsString := dbisamtable1.FieldByName('DrugInfoSheet').AsString;
WPRichText1.EndUpdate;
RzProgressBar1.IncPartsByOne;
WPRichText1.ReformatAll(True, False);
pdf.Filename := 'D:\Documents and Settings\bernr\Desktop\!test\' + dbisamtable1.FieldByName('DrugInfoSheet_GUID').AsString + '.pdf';
PDF.BeginDoc;
PDF.Print;
PDF.EndDoc;
except
application.ProcessMessages;
end;
dbisamtable1.Next;
end;
finally
dbisamtable1.Close;
pdf.free;
end;
end;
Alles anzeigen
Any ideas.
Bern
WPTools 5.22
wPDF dll version 3.0.6.5 Dated 1/25/2007
BDS 2006