But then the service gets to an Invalid Pointer Exception (which I can't trace). ![]() So, I edited the code, and now I have this: procedure TCustomReport.ExportToFilter(TQRDocumentFilter filter) ĪProgress := TQRFormProgress.Create(Application) Searching the web, I found in this page (1) the suggestion to set ShowProgress to False, and edit the code so that it does not create the progress form when ShowProgress is set to false (apparently, this is due to QReport not being threadsafe). procedure TCustomReport.ExportToFilter(TQRDocumentFilter filter) ĪProgress := TQRFormProgress.Create(Application) // Hangs on this line I'll try to reproduce quickrpt.pas' source as accurrate as I can remember). (note: I'm home right now and I don't have the source code. Debugging it, I got tho the hanging point: The routine works fine when called from within an application, but when called behind a TIdTCPServer, it hangs and never finishes. ![]() The PDF creation is done with a QReport that is then exported into a PDF file with the ExportToFilter procedure. ![]() One of them is supposed to generate and return a PDF report. I have a Delphi web server providing some web services*.
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |