Hi James Same result - AV
Mark On 10 Jun 2003 at 14:25, James Sugrue wrote: > What happens if you take the close out of the after preview event ? > > -----Original Message----- > From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] > On Behalf Of Mark Howard Sent: Tuesday, 10 June 2003 2:04 pm To: > Multiple recipients of list delphi Subject: RE: [DUG]: Quick Reports > Preview > > Hi Steve > > If I comment out the line that frees QR1 I still get an AV. > > :-( > > Mark > > On 10 Jun 2003 at 13:54, Stephen Barker wrote: > > > Mark, > > > > you don't need to free the QR1 component - it is owned by the form > > and will get destroyed when the form destroys. > > > > regards, > > Steve > > > > > -----Original Message----- > > > From: Mark Howard [mailto:[EMAIL PROTECTED] > > > Sent: Tuesday, 10 June 2003 1:42 p.m. > > > To: Multiple recipients of list delphi > > > Subject: [DUG]: Quick Reports Preview > > > > > > > > > Hi All > > > > > > I'm trying to give my users the ability to display (and > > > print) previously > > > run and saved Quick Reports (ie .QRP files). > > > > > > I must admit that (among other things) the structure of > > > QuickReports has been a considerable mystery to me. > > > > > > I have managed to get a Preview screen loaded with a saved report > > > and displayed. I can resize and navigate the pages of the report > > > OK but when I close the Preview I get an AV. > > > > > > I'd appreciate some help. It must be something to do with > > > not properly > > > freeing something. > > > > > > Below is what I have done. > > > > > > > > > > > > I have created a PreviewFm form and placed a TQuickRep component > > > (QR1) on this form. The AfterPreview event contains just a > > > "Close" statement. > > > > > > In my app I have the following procedure: > > > > > > procedure HandleViewReportsClick; //mh 2003-06-10 > > > begin > > > MainForm.OpenDialog.Filter := 'Report Files, *.qrp|*.QRP'; > > > MainForm.OpenDialog.Title := 'Select file to view'; > > > MainForm.OpenDialog.InitialDir := > > > ExtractFileDir(Application.ExeName); > > > > > > if MainForm.OpenDialog.Execute then try > > > Application.CreateForm(TPreviewFm, PreviewFm); > > > PreviewFm.QR1.Prepare; > > > try > > > PreviewFm.QR1.QRPrinter.Load(MainForm.OpenDialog.FileName); > > > PreviewFm.QR1.QRPrinter.Preview; > > > finally > > > PreviewFm.QR1.Free; > > > end; > > > finally > > > PreviewFm.free; > > > end > > > end; > > > > > > Any help greatly appreciated > > > > > > Mark > > > > > > -------------------------------------------------------------- > > > ------------- > > > New Zealand Delphi Users group - Delphi List - > > > [EMAIL PROTECTED] > > > Website: http://www.delphi.org.nz > > > To UnSub, send email to: [EMAIL PROTECTED] > > > with body of "unsubscribe delphi" > > > Web Archive at: > > > http://www.mail-archive.com/delphi%40delphi.org.nz/ > > > > > > --- > > > Incoming mail is certified Virus Free. > > > Checked by AVG anti-virus system (http://www.grisoft.com). > > > Version: 6.0.488 / Virus Database: 287 - Release Date: 5/06/2003 > > > > > > > > -------------------------------------------------------------------- > > -- ----- > > New Zealand Delphi Users group - Delphi List - > > [EMAIL PROTECTED] > > Website: http://www.delphi.org.nz > > To UnSub, send email to: [EMAIL PROTECTED] > > with body of "unsubscribe delphi" > > Web Archive at: http://www.mail-archive.com/delphi%40delphi.org.nz/ > > > > > ---------------------------------------------------------------------- > -- --- > New Zealand Delphi Users group - Delphi List - > [EMAIL PROTECTED] > Website: http://www.delphi.org.nz > To UnSub, send email to: [EMAIL PROTECTED] > with body of "unsubscribe delphi" > Web Archive at: http://www.mail-archive.com/delphi%40delphi.org.nz/ > > --- > Incoming mail is certified Virus Free. > Checked by AVG anti-virus system (http://www.grisoft.com). > Version: 6.0.488 / Virus Database: 287 - Release Date: 5/06/2003 > > > --- > Outgoing mail is certified Virus Free. > Checked by AVG anti-virus system (http://www.grisoft.com). > Version: 6.0.488 / Virus Database: 287 - Release Date: 5/06/2003 > > > ---------------------------------------------------------------------- > ----- > New Zealand Delphi Users group - Delphi List - > [EMAIL PROTECTED] > Website: http://www.delphi.org.nz > To UnSub, send email to: [EMAIL PROTECTED] > with body of "unsubscribe delphi" > Web Archive at: http://www.mail-archive.com/delphi%40delphi.org.nz/ > --------------------------------------------------------------------------- New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED] Website: http://www.delphi.org.nz To UnSub, send email to: [EMAIL PROTECTED] with body of "unsubscribe delphi" Web Archive at: http://www.mail-archive.com/delphi%40delphi.org.nz/
