Advertisement

04.07.2008 at 04:57PM PDT, ID: 23303226
[x]
Attachment Details

"BLOB Memo" QRDBRichText fields in Quickreport 3.0.5 does not show in print preview, and does not print

Asked by jedale007 in Delphi Printing, Delphi Programming, Delphi Components

Tags: Delphi, 5, Delphi 5 QuickReport 3.0.5

Hi there,

I am a Novice Delphi programmer, using Delphi 5 Professional with  QuickReport 3.0.5. I have no previous Pascal or Delphi experience.

My problem is that I am working on someone else's Delphi project, and I need to figure out why the QRDBRichText fields on the QuickReports don't work. Basically, when I preview or print a report, all of the fields print out nicely, except for the "Ander vertrekke/Kommentaar:" (or  "comments" field in English).

The above-mentioned field is a QRDBRichText component, and is listed in the database desktop tool as a <BLOB MEMO>.

The attached code snippet is taken from the relevant Delphi project unit which contains the code and the quickreport.

I read somewhere that I need to "reset the data in the BeforePrint event of the QuickReport" as a result of   an issue with  "BLOB caching". I can attach a BeforePrint event to the quickreport easily enough, but I don't have a cooking clue as to what is meant by "reset the data" and I don't know what code to add.

Please assist?
Start Free Trial 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:

unit UnitQRKlientlys;
 
interface
 
uses Windows, SysUtils, Messages, Classes, Graphics, Controls,
  StdCtrls, ExtCtrls, Forms, Quickrpt, QRCtrls;
 
type
  TQRKlientlys = class(TQuickRep)
    QRBand1: TQRBand;
    QRLabel1: TQRLabel;
    QRSysData1: TQRSysData;
    QRSysData2: TQRSysData;
    QRLabel11: TQRLabel;
    QRBand2: TQRBand;
    QRLabel3: TQRLabel;
    QRDBText1: TQRDBText;
    QRLabel4: TQRLabel;
    QRDBText2: TQRDBText;
    QRLabel5: TQRLabel;
    QRDBText3: TQRDBText;
    QRLabel6: TQRLabel;
    QRDBText4: TQRDBText;
    QRLabel7: TQRLabel;
    QRDBText5: TQRDBText;
    QRLabel8: TQRLabel;
    QRDBText6: TQRDBText;
    QRLabel9: TQRLabel;
    QRDBText7: TQRDBText;
    QRLabel10: TQRLabel;
    QRDBText8: TQRDBText;
    QRLabel12: TQRLabel;
    QRDBText9: TQRDBText;
    QRLabel13: TQRLabel;
    QRDBText10: TQRDBText;
    QRLabel14: TQRLabel;
    QRDBText11: TQRDBText;
    QRLabel15: TQRLabel;
    QRDBText12: TQRDBText;
    QRLabel16: TQRLabel;
    QRDBText13: TQRDBText;
    QRLabel17: TQRLabel;
    QRDBText14: TQRDBText;
    QRLabel18: TQRLabel;
    QRDBText15: TQRDBText;
    QRLabel19: TQRLabel;
    QRDBText16: TQRDBText;
    QRLabel20: TQRLabel;
    QRDBText17: TQRDBText;
    QRLabel21: TQRLabel;
    QRDBText18: TQRDBText;
    QRLabel22: TQRLabel;
    QRDBText19: TQRDBText;
    QRDBRichText2: TQRDBRichText;
    QRLabel24: TQRLabel;
    QRDBText20: TQRDBText;
    QRLabel25: TQRLabel;
    QRLabel26: TQRLabel;
    QRDBText21: TQRDBText;
    QRLabel27: TQRLabel;
    QRDBText22: TQRDBText;
    QRDBText23: TQRDBText;
    QRLabel28: TQRLabel;
    QRDBText24: TQRDBText;
    QRLabel29: TQRLabel;
    QRDBText25: TQRDBText;
    QRDBText28: TQRDBText;
    QRLabel33: TQRLabel;
    QRDBText29: TQRDBText;
    QRLabel2: TQRLabel;
    QRSysData3: TQRSysData;
    QRLabel32: TQRLabel;
    QRDBText30: TQRDBText;
    QRDBText31: TQRDBText;
    QRLabel23: TQRLabel;
  private
 
  public
 
  end;
 
var
  QRKlientlys: TQRKlientlys;
 
implementation
 
uses UnitdmMain;
 
{$R *.DFM}
 
end.
[+][-]04.08.2008 at 01:06AM PDT, ID: 21303290

View this solution now by starting your 7-day free trial. Setting up your free trial is quick, easy, and secure. We will return you to this solution, unlocked, when you're done.

 

About this solution

Zones: Delphi Printing, Delphi Programming, Delphi Components
Tags: Delphi, 5, Delphi 5 QuickReport 3.0.5
Sign Up Now!
Solution Provided By: kretzschmar
Participating Experts: 1
Solution Grade: B
 
 
[+][-]04.10.2008 at 04:02PM PDT, ID: 21330137

Often, when Experts are collaborating with members who have asked questions, they will request additional information about the problem. Askers respond with an author comment like this one.

Start your 7-day free trial to view this Author Comment or ask the Experts your question.

 
 
Loading Advertisement...
20080716-EE-VQP-32 / EE_QW_2_20070628