upgrading rb 10.05 to 10.07
Hi,
After sucessful installation of rb 10.07 I am unable to install Nexusdb
interface, and as well gridpack addon. I encounter error message:
"The procedure entry point @Pptoolbars@initialization$qqrv could not be
located in the dynamic link library rbIDE1010.bpl"
After click OK to this message the following message appears:
Can''t load package .Controls packageDesign.bpl
After erasing the new bpl's and dcp's, I am able to easily re-install rb
10.05 and all works fine
I am able to sucessfully compile to create bpl's; just not install.
I also have a second problem. I wish to send an email viz rb in runtime
code. It works very sporadically; the report will be converted to a pdf and
outlook will be spawned. It will not run a second time and in fact it takes
many tries to make it work the "first" time. When it does "not work", there
is some disk activity and a momentary change of the cursor to hourglass as
though the pdf file is being created, so I suspect it is just a matter of
spawning outlook. I have examined the example but still I am having
problems.
Here is my code:
With ppReport Do
Begin
{TppSMTPPlugIn.RegisterClass(TppSMTPMapi);}
ResetDevices;
EmailSettings.Enabled:=True;
EmailSettings.Attachments.Clear;
ppRichText1.Clear;
ppRichText1.LoadFromRTFStream(MyStream);
FreeAndNil(MyStream);
TLetter.Cancel;
AllowPrintToFile:=True;
ShowPrintDialog:=False;
DeviceType:='PDF';
If (TLicense.FieldValues['FirstName']<>Null) And
(TLicense.FieldValues['FirstName']<>'') Then
PDFSettings.Author:=TLicense.FieldValues['FirstName']+' '+
TLicense.FieldValues['LastName']
Else
PDFSettings.Author:=TLicense.FieldValues['LastName'];
If TLetter.FieldValues['DocumentSubject']<>Null Then
PDFSettings.Title:=TLetter.FieldValues['DocumentSubject'];
PDFSettings.OpenPDFFile:=False;
If (TLetter.FieldValues['DocumentSubject']<>Null) And
(TLetter.FieldValues['DocumentSubject']<>'') Then
EmailSettings.Subject:=TLetter.FieldValues['DocumentSubject']
Else
EmailSettings.Subject:='Document';
EmailSettings.FileName:='Document.Pdf';
EmailSettings.ReplyTo:=PracticeEmailAddress;
EmailSettings.Recipients.Clear;
EmailSettings.Recipients.Add(SendTo);
EmailSettings.ReportFormat:='Pdf';
EmailSettings.PreviewInEmailClient:=True;
EmailSettings.ShowEmailDialog:=False;
EmailSettings.ShowCancelDialog:=False;
SendMail;
End;
Close;
End;
Any help would be appreciated.
Barry Noble
After sucessful installation of rb 10.07 I am unable to install Nexusdb
interface, and as well gridpack addon. I encounter error message:
"The procedure entry point @Pptoolbars@initialization$qqrv could not be
located in the dynamic link library rbIDE1010.bpl"
After click OK to this message the following message appears:
Can''t load package .Controls packageDesign.bpl
After erasing the new bpl's and dcp's, I am able to easily re-install rb
10.05 and all works fine
I am able to sucessfully compile to create bpl's; just not install.
I also have a second problem. I wish to send an email viz rb in runtime
code. It works very sporadically; the report will be converted to a pdf and
outlook will be spawned. It will not run a second time and in fact it takes
many tries to make it work the "first" time. When it does "not work", there
is some disk activity and a momentary change of the cursor to hourglass as
though the pdf file is being created, so I suspect it is just a matter of
spawning outlook. I have examined the example but still I am having
problems.
Here is my code:
With ppReport Do
Begin
{TppSMTPPlugIn.RegisterClass(TppSMTPMapi);}
ResetDevices;
EmailSettings.Enabled:=True;
EmailSettings.Attachments.Clear;
ppRichText1.Clear;
ppRichText1.LoadFromRTFStream(MyStream);
FreeAndNil(MyStream);
TLetter.Cancel;
AllowPrintToFile:=True;
ShowPrintDialog:=False;
DeviceType:='PDF';
If (TLicense.FieldValues['FirstName']<>Null) And
(TLicense.FieldValues['FirstName']<>'') Then
PDFSettings.Author:=TLicense.FieldValues['FirstName']+' '+
TLicense.FieldValues['LastName']
Else
PDFSettings.Author:=TLicense.FieldValues['LastName'];
If TLetter.FieldValues['DocumentSubject']<>Null Then
PDFSettings.Title:=TLetter.FieldValues['DocumentSubject'];
PDFSettings.OpenPDFFile:=False;
If (TLetter.FieldValues['DocumentSubject']<>Null) And
(TLetter.FieldValues['DocumentSubject']<>'') Then
EmailSettings.Subject:=TLetter.FieldValues['DocumentSubject']
Else
EmailSettings.Subject:='Document';
EmailSettings.FileName:='Document.Pdf';
EmailSettings.ReplyTo:=PracticeEmailAddress;
EmailSettings.Recipients.Clear;
EmailSettings.Recipients.Add(SendTo);
EmailSettings.ReportFormat:='Pdf';
EmailSettings.PreviewInEmailClient:=True;
EmailSettings.ShowEmailDialog:=False;
EmailSettings.ShowCancelDialog:=False;
SendMail;
End;
Close;
End;
Any help would be appreciated.
Barry Noble
This discussion has been closed.
Comments
In order to make GridPack work on RB10.06+, you need to rename all
"ppDesignTools" unit to "ppToolResources" unit in all uses clause of
GridPack source units.
Regards,
William
Which version of Windows are you currently using and which version of
Outlook? In some of our testing with Outlook 2007, it was necessary to
close the application before calling SendMail with the MAPI plugin or else
it would ignore the command. One option is to try the Outlook plugin
ppSMTPOutlook which uses COM to communicate with the program. Another is to
use the built-in email dialog which can be customized to look and work the
way you need.
--
Regards,
Nico Cizik
Digital Metaphors
http://www.digital-metaphors.com
Nico Cizik
Digital Metaphors
http://www.digital-metaphors.com