Access Violation - Set DataSetting
RB 10.03
Hi,
I have a strange behavior when at runtime when I close TppDesigner Form and
I navigated on Data Page Form Designer and I perform second time next code
at runtime, before to reopen Form Designer.
begin
try
//Clear Previos Report and Data
FppREPORTEuro.Template.New;
FppREPORTEuro.FreeModules;
//Load Report
FppREPORTEuro.Template.Format:= ftBinary;
FppREPORTEuro.Template.LoadFromStream(FMemStream);
//Set DataSetting
{ACCESS VIOLATION AFTER I CLOSE FORM TPPDESIGNER AND I PERFORM NEXT
CODE.
IF I DON'T GO IN DATA PAGE OF FORM DESIGNER IT WORK FINE}
FppDESIGNEur.DataSettings.AllowEditSQL:= True;
FppDESIGNEur.DataSettings.CollationType:= ctASCII;
FppDESIGNEur.DataSettings.DatabaseType:= dtInterBase;
FppDESIGNEur.DataSettings.GuidCollationType:= gcString;
FppDESIGNEur.DataSettings.IsCaseSensitive:= True;
FppDESIGNEur.DataSettings.SessionType:= 'FIBSession';
FppDESIGNEur.DataSettings.SQLType:= sqSQL2;
FppDESIGNEur.DataSettings.UseDataDictionary:= False;
FppDESIGNEur.DataSettings.DatabaseName:= 'FBEurDataBase'; }
{END ACCESS VIOLATION }
FppREPORTEuro.AutoStop:= False;
FppREPORTEuro.PrinterSetup.DocumentName:= FBDataREPNOME.AsString;
FppREPORTEuro.ArchiveFileName:=
GetFileNameStampe(FppREPORTEuro.PrinterSetup.DocumentName);
FppREPORTEuro.OutlineSettings.CreatePageNodes:= True;
FppREPORTEuro.OutlineSettings.Enabled:= False;
FppREPORTEuro.OutlineSettings.Visible:= False;
FppREPORTEuro.PreviewFormSettings.ZoomSetting:= zsPageWidth;
Hi,
I have a strange behavior when at runtime when I close TppDesigner Form and
I navigated on Data Page Form Designer and I perform second time next code
at runtime, before to reopen Form Designer.
begin
try
//Clear Previos Report and Data
FppREPORTEuro.Template.New;
FppREPORTEuro.FreeModules;
//Load Report
FppREPORTEuro.Template.Format:= ftBinary;
FppREPORTEuro.Template.LoadFromStream(FMemStream);
//Set DataSetting
{ACCESS VIOLATION AFTER I CLOSE FORM TPPDESIGNER AND I PERFORM NEXT
CODE.
IF I DON'T GO IN DATA PAGE OF FORM DESIGNER IT WORK FINE}
FppDESIGNEur.DataSettings.AllowEditSQL:= True;
FppDESIGNEur.DataSettings.CollationType:= ctASCII;
FppDESIGNEur.DataSettings.DatabaseType:= dtInterBase;
FppDESIGNEur.DataSettings.GuidCollationType:= gcString;
FppDESIGNEur.DataSettings.IsCaseSensitive:= True;
FppDESIGNEur.DataSettings.SessionType:= 'FIBSession';
FppDESIGNEur.DataSettings.SQLType:= sqSQL2;
FppDESIGNEur.DataSettings.UseDataDictionary:= False;
FppDESIGNEur.DataSettings.DatabaseName:= 'FBEurDataBase'; }
{END ACCESS VIOLATION }
FppREPORTEuro.AutoStop:= False;
FppREPORTEuro.PrinterSetup.DocumentName:= FBDataREPNOME.AsString;
FppREPORTEuro.ArchiveFileName:=
GetFileNameStampe(FppREPORTEuro.PrinterSetup.DocumentName);
FppREPORTEuro.OutlineSettings.CreatePageNodes:= True;
FppREPORTEuro.OutlineSettings.Enabled:= False;
FppREPORTEuro.OutlineSettings.Visible:= False;
FppREPORTEuro.PreviewFormSettings.ZoomSetting:= zsPageWidth;
This discussion has been closed.
Comments
If possible, please send a small example in .zip format I can run on my
machine that demonstrates this error to support@digital-metaphors.com.
--
Regards,
Nico Cizik
Digital Metaphors
http://www.digital-metaphors.com
Nico Cizik
Digital Metaphors
http://www.digital-metaphors.com