Dear randem,
I have my old problems registering tidate8.ocx, tinumb8.ocx. In the last solution, I include VCRuntime 2008, but still have error when I install it to client. Here is the script:
; InnoScript Version 11.1 Build 18
; Randem Systems, Inc.
; Copyright (c) 2002 - 2011, Randem Systems, Inc.
; Website: https://randemsystems.com (https://randemsystems.com)
; Support: https://randemsystems.support (https://randemsystems.support)
; OS: Windows XP 5.1 build 2600 (Service Pack 2)
; Derived from VB VBP Project File
; Designed for Inno Setup Version: 5.5.0 (a)
; Installed Inno Setup Version: 5.5.0 (a)
; Date: June 19, 2012
; Local Machine Settings. Use these settings as a template for your installation folders
; {app} : C:\Program Files\Randem Systems\InnoScript
; {appdata} : C:\Documents and Settings\Andrianto L. Widodo\Application Data\Randem Systems\InnoScript\
; {localappdata} : C:\Documents and Settings\Andrianto L. Widodo\Local Settings\Application Data\Randem Systems\InnoScript\
; {cf} : C:\Program Files\Common Files\Randem Systems
; {tmp} : C:\Documents and Settings\Andrianto L. Widodo\Local Settings\Temp\
; {commonappdata} : C:\Documents and Settings\All Users.WINDOWS\Application Data\Randem Systems\InnoScript\Release\
; {pf} : C:\Program Files\
; VB Runtime Files Folder: C:\Program Files\Randem Systems\InnoScript\InnoScript 11\VB 6 Redist Files\
; Visual Basic Project File (.vbp): D:\Project VB\SegerAgro\PrSegerAgroNusantara.vbp
; Inno Setup Script Output File (.iss): D:\Project VB\SegerAgro\Scripts\PrSegerAgroNusantara 1.0.0.iss
;: D:\Project VB\SegerAgro\Scripts\Templates\SegerAgro.tpl
;: C:\Documents and Settings\Andrianto L. Widodo\Local Settings\Application Data\Randem Systems\InnoScript\Release\Templates\AutoOSUpdater.tpl
;: C:\Documents and Settings\Andrianto L. Widodo\Local Settings\Application Data\Randem Systems\InnoScript\Release\Templates\VCRuntime.tpl
;: C:\Documents and Settings\Andrianto L. Widodo\Local Settings\Application Data\Randem Systems\InnoScript\Release\Templates\Crystal Reports.tpl
;: C:\Documents and Settings\Andrianto L. Widodo\Local Settings\Application Data\Randem Systems\InnoScript\Release\Templates\dotNETInstall.tpl
; ------------------------
; References
; ------------------------
; OLE Automation - (stdole2.tlb)
; Microsoft ActiveX Data Objects 2.7 Library - (msado27.tlb)
; Crystal Reports ActiveX Designer Design and Runtime Library 11.5 - (craxddrt.dll)
; Crystal Reports ActiveX Designer Library 11.5 - (craxdui.dll)
; Microsoft Data Binding Collection VB 6.0 (SP4) - (MSBIND.DLL)
; --------------------------
; Components
; --------------------------
; Data Dynamics ActiveBar 2.0 - (Actbar2.ocx)
; ActiveSplash 1.0 Type Library - (actsplash.ocx)
; Crystal ActiveX Report Viewer Library 11.5 - (CRViewer.dll)
; ComponentOne True DBDate 8.0 - (tidate8.ocx)
; ComponentOne True DBNumber 8.0 - (tinumb8.ocx)
; ComponentOne True DBMask 8.0 - (timask8.ocx)
; FindButton by Bibin - (FindButton.ocx)
; Microsoft Common Dialog Control 6.0 (SP6) - (comdlg32.ocx)
; Microsoft Windows Common Controls 6.0 (SP6) - (MSCOMCTL.OCX)
; ComponentOne True DBGrid Pro 8.0 (OLEDB) - (todg8.ocx)
; ComponentOne True DBList Pro 8.0 (OLEDB) - (todl8.ocx)
[Setup]
SetupLogging=Yes
AppId=SIB 1.0
;------------------------------------------------------------------------------------------------------------------------
; Taken from VBP/VBG Project File Parameters AppName, AppName AppVersion and Company
;------------------------------------------------------------------------------------------------------------------------
AppName=SIB 1.0 1.0.0
AppVerName=SIB 1.0
AppPublisher=PT. Seger Agro Nusantara
;------------------------------------------------------------------------------------------------------------------------
AppVersion=1.0.0
VersionInfoVersion=1.0.0
AllowNoIcons=yes
DefaultGroupName=SIB 1.0\
DefaultDirName={pf}\SIB 1.0
AppCopyright=2012
PrivilegesRequired=None
MinVersion=0,5.01
OnlyBelowVersion=0,7.0
Compression=lzma
OutputBaseFilename=SIB0100000
[Tasks]
Name: Desktopicon; Description: {cm:CreateDesktopIcon}; GroupDescription: {cm:AdditionalIcons}
Name: AutoOSUpdater; Description: Install Database Support Updater; GroupDescription: Database Support:
Name: VCRuntime2008; Description: Install VC 2008 Runtimes SP1; GroupDescription: VC Runtimes:
Name: DotNetFramework40; Description: Install .Net Framework 40; GroupDescription: .Net Framework:; Check: InstallDotNET40(0)
Name: ScriptingRuntime; Description: Install Microsoft's Scripting Runtime; GroupDescription: Install Scripting Runtime:
Name: CRInstallation; Description: Install Crystal Reports Runtime Files; GroupDescription: Install CR Runtime Files:
Name: mySQLInstaller; Description: Install mySQL 5.5; GroupDescription: Additional Installations:; Flags: unchecked
[Files]
Source: D:\Project VB\SegerAgro\Scripts\VB_VC_DCOM_MDAC_JET_AutoSetup.exe; DestDir: {tmp}; Flags: deleteafterinstall ignoreversion nocompression; AfterInstall: InstallAutoOSUpdater('{tmp}\VB_VC_DCOM_MDAC_JET_AutoSetup.exe','/NORESTART /VERYSILENT'); Tasks: AutoOSUpdater;
Source: D:\Project VB\SegerAgro\Scripts\dotnetfx40.exe; DestDir: {tmp}; Flags: deleteafterinstall ignoreversion nocompression; AfterInstall: InstalldotNETFramework('{tmp}\dotnetfx40.exe','/passive /norestart /log {sd}\dotNET40Log.txt'); Tasks: DotNetFramework40;
Source: D:\Project VB\SegerAgro\Scripts\vcredist_x86_2008_SP1.exe; DestDir: {tmp}; Flags: deleteafterinstall ignoreversion nocompression; AfterInstall: InstallVCRuntime('{tmp}\vcredist_x86_2008_SP1.exe','/q /l{sd}\vcredist_x86_2008_SP1.exe.txt'); Tasks: VCRuntime2008;
Source: D:\Project VB\SegerAgro\Report\*.*; DestDir: {app}\Report\; Flags:
Source: C:\Program Files\Randem Systems\InnoScript\InnoScript 11\VB 5 Redist Files\stdole2.tlb; DestDir: {sys}; Flags: regtypelib restartreplace uninsneveruninstall;
Source: C:\Program Files\Common Files\Data Dynamics\ActiveBar2\Actbar2.ocx; DestDir: {cf}\Data Dynamics\ActiveBar2\; Flags: regserver restartreplace sharedfile;
Source: D:\Project VB\SegerAgro\Scripts\actsplash.ocx; DestDir: {sys}; Flags: regserver restartreplace sharedfile;
Source: D:\Project VB\SegerAgro\Scripts\tidate8.ocx; DestDir: {sys}; Flags: regserver restartreplace sharedfile;
Source: D:\Project VB\SegerAgro\Scripts\CRXI_5_RDC_Redistribution.msi; DestDir: {tmp}; Flags: deleteafterinstall ignoreversion nocompression; Tasks: CRInstallation
Source: D:\Project VB\SegerAgro\Scripts\tinumb8.ocx; DestDir: {sys}; Flags: regserver restartreplace sharedfile;
Source: D:\Project VB\SegerAgro\Scripts\MSBIND.DLL; DestDir: {sys}; Flags: regserver restartreplace sharedfile;
Source: D:\Project VB\SegerAgro\Scripts\timask8.ocx; DestDir: {sys}; Flags: regserver restartreplace sharedfile;
Source: D:\Project VB\SegerAgro\Scripts\FindButton.ocx; DestDir: {sys}; Flags: regserver restartreplace sharedfile;
Source: D:\Project VB\SegerAgro\Scripts\comdlg32.ocx; DestDir: {sys}; Flags: regserver restartreplace sharedfile;
Source: D:\Project VB\SegerAgro\Scripts\MSCOMCTL.OCX; DestDir: {sys}; Flags: regserver restartreplace sharedfile;
Source: D:\Project VB\SegerAgro\Scripts\todg8.ocx; DestDir: {sys}; Flags: regserver restartreplace sharedfile;
Source: D:\Project VB\SegerAgro\Scripts\todl8.ocx; DestDir: {sys}; Flags: regserver restartreplace sharedfile;
Source: D:\Project VB\SegerAgro\SIB.exe; DestDir: {app}; Flags: ignoreversion restartreplace;
Source: D:\Project VB\SegerAgro\Scripts\scripten.exe; DestDir: {tmp}; Flags: deleteafterinstall ignoreversion nocompression; MinVersion: 0,5.0; OnlyBelowVersion: 0,5.02; Tasks: ScriptingRuntime
Source: D:\Project VB\SegerAgro\toolbar.tb2; DestDir: {app}; Flags: ignoreversion;
Source: D:\Project VB\SegerAgro\Background.jpg; DestDir: {app}; Flags: ignoreversion;
Source: D:\Project VB\SegerAgro\Config.lic; DestDir: {app}; Flags: ignoreversion;
Source: D:\Project VB\SegerAgro\sgr.spl; DestDir: {app}; Flags: ignoreversion;
Source: C:\Program Files\Randem Systems\InnoScript\InnoScript 11\VB 5 Redist Files\OLEAUT32.dll; DestDir: {sys}; Flags: restartreplace sharedfile;
Source: C:\Program Files\Randem Systems\InnoScript\InnoScript 11\VB 6 Redist Files\MSVBVM60.DLL; DestDir: {sys}; Flags: regserver restartreplace sharedfile;
Source: C:\Program Files\Randem Systems\InnoScript\InnoScript 11\VB 5 Redist Files\OLEPRO32.DLL; DestDir: {sys}; Flags: regserver restartreplace sharedfile;
[INI]
[Icons]
Name: {group}\PrSegerAgroNusantara ; Filename : {app}\SIB.exe; WorkingDir: {app};
Name: {group}{cm:UninstallProgram, PrSegerAgroNusantara }; Filename: {uninstallexe};
Name: {commondesktop}\PrSegerAgroNusantara ; Filename: {app}\SIB.exe; Tasks: Desktopicon ; WorkingDir: {app};
[Run]
Filename: {tmp}\scripten.exe; Parameters: /quiet /passive; MinVersion: 0,5.0; OnlyBelowVersion: 0,5.02; WorkingDir: {tmp}; Flags: skipifdoesntexist runascurrentuser; Tasks: ScriptingRuntime; StatusMsg: Installing Scripting Runtime;
Filename: msiexec.exe; Parameters: /package CRXI_5_RDC_Redistribution.msi /passive /promptrestart /l* {sd}\CRXI_5_RDC_Redistribution.msi.txt; WorkingDir: {tmp}; Flags: skipifdoesntexist runascurrentuser; Tasks: CRInstallation; StatusMsg: Installing Crystal Reports Runtimes;
; Register the Crystal Reports Merge Module components that need to be registered in place where the Merge Modules installed them
Filename: regsvr32.exe; Parameters: /s {code:GetCLSIDFldr|!F62B9FA4-455F-4FE3-8A2D-205E4F0BCAFB@\11.5.9.1265}{code:LogFileName|crviewer.dll}; WorkingDir: {code:GetCLSIDFldr|!F62B9FA4-455F-4FE3-8A2D-205E4F0BCAFB@\11.5.9.1265}\; StatusMsg: Registering Crystal ActiveX Report Viewer Library 11.5; Tasks: CRInstallation; Flags: runascurrentuser
Filename: regsvr32.exe; Parameters: /s {code:GetCLSIDFldr|!4FB2D832-C996-4EB1-BE0D-4DE953CF25F0@\11.5.9.1265}{code:LogFileName|craxddrt.dll}; WorkingDir: {code:GetCLSIDFldr|!4FB2D832-C996-4EB1-BE0D-4DE953CF25F0@\11.5.9.1265}\; StatusMsg: Registering Crystal Reports ActiveX Designer Design and Runtime Library 11.5; Tasks: CRInstallation; Flags: runascurrentuser
Filename: regsvr32.exe; Parameters: /s {code:GetCLSIDFldr|!BD4B4E53-F7B8-11D0-964D-00A0C9273C2A@\11.5.0.313}{code:LogFileName|craxdui.dll}; WorkingDir: {code:GetCLSIDFldr|!BD4B4E53-F7B8-11D0-964D-00A0C9273C2A@\11.5.0.313}\; StatusMsg: Registering Crystal Reports ActiveX Designer Library 11.5; Tasks: CRInstallation; Flags: runascurrentuser
Filename: {src}\Support\mysql-5.5.24-win32.msi; Parameters: ; Flags: skipifdoesntexist; Tasks: mySQLInstaller; WorkingDir: {tmp}
Filename: {app}\SIB.exe; Description: {cm:LaunchProgram, PrSegerAgroNusantara }; Flags: nowait postinstall skipifsilent runascurrentuser; WorkingDir: {app}
[UninstallDelete]
Type: dirifempty; Name: {app}
[InstallDelete]
Type: files; Name: {app}\Install.log;
[Code]
//=============================================================
// Install the Automatic OS Updater
//=============================================================
Procedure InstallAutoOSUpdater(Filename: String; Param: String);
var
ErrorCode: Integer;
begin
ShellExec('', ExpandConstant(Filename), ExpandConstant(Param), '', SW_SHOW, ewWaitUntilTerminated, ErrorCode);
end;
//===================================================================
// Install VC Runtime files
//===================================================================
Procedure InstallVCRuntime(Filename: String; Param: String);
var
ErrorCode: Integer;
begin
ShellExec('', ExpandConstant(Filename), ExpandConstant(Param), '', SW_SHOW, ewWaitUntilTerminated, ErrorCode);
end;
//================================================================================================================
// This section of code will check for the existance of a .NET installation and service pack associated with it.
//================================================================================================================
//===================================================================
// Get the Service Pack of the .NET installation
//===================================================================
function GetDotNETSP(dotNETVersion: string): cardinal;
var
success: boolean;
install: cardinal;
regloc: String;
begin
regloc := 'SOFTWARE\Microsoft\NET Framework Setup\NDP\' dotNETVersion;
success := RegQueryDWordValue(HKLM, regloc, 'SP', install);
Result := install;
end;
//=========================================================================================================
// Indicates whether .NET Framework 1.1 is installed with the service pack that was queried for
//=========================================================================================================
function IsDotNET11Detected(SP: cardinal): boolean;
var
success: boolean;
install: cardinal;
SPNum: cardinal;
begin
success := RegQueryDWordValue(HKLM, 'SOFTWARE\Microsoft\NET Framework Setup\NDP\v1.1.4322', 'Install', install);
// Check to see if the given Service Pack is installed
SPNum := GetDotNETSP('v1.1.4322')
Result := success and (install = 1) and (SPNum = SP);
end;
//===================================================================
//RETURNS OPPOSITE OF IsDotNet11Detected FUNCTION
//===================================================================
function InstallDotNET11(SP: integer): Boolean;
begin
Result := not IsDotNET11Detected(SP);
end;
//=====================================================================================================
// Indicates whether .NET Framework 2.0 is installed with the service pack that was queried for
//=====================================================================================================
function IsDotNET20Detected(SP: cardinal): boolean;
var
success: boolean;
install: cardinal;
SPNum: cardinal;
begin
success := RegQueryDWordValue(HKLM, 'SOFTWARE\Microsoft\NET Framework Setup\NDP\v2.0.50727', 'Install', install);
// Check to see if the given Service Pack is installed
SPNum := GetDotNETSP('v2.0.50727')
Result := success and (install = 1) and (SPNum = SP);
end;
//===================================================================
//RETURNS OPPOSITE OF IsDotNet20Detected FUNCTION
//===================================================================
function InstallDotNET20(SP: integer): Boolean;
begin
Result := not IsDotNET20Detected(SP);
end;
//=========================================================================================================
// Indicates whether .NET Framework 3.0 is installed with the service pack that was queried for
//=========================================================================================================
function IsDotNET30Detected(SP: cardinal): boolean;
var
success: boolean;
install: cardinal;
SPNum: cardinal;
begin
success := RegQueryDWordValue(HKLM, 'SOFTWARE\Microsoft\NET Framework Setup\NDP\v3.0', 'Install', install);
// Check to see if the given Service Pack is installed
SPNum := GetDotNETSP('v3.0')
Result := success and (install = 1) and (SPNum = SP);
end;
//===================================================================
//RETURNS OPPOSITE OF IsDotNet30Detected FUNCTION
//===================================================================
function InstallDotNET30(SP: integer): Boolean;
begin
Result := not IsDotNET30Detected(SP);
end;
//===================================================================================================
// Indicates whether .NET Framework 3.0 is installed with the service pack that was queried for
//===================================================================================================
function IsDotNET35Detected(SP: cardinal): boolean;
var
success: boolean;
install: cardinal;
SPNum: cardinal;
begin
success := RegQueryDWordValue(HKLM, 'SOFTWARE\Microsoft\NET Framework Setup\NDP\v3.5', 'Install', install);
// Check to see if the given Service Pack is installed
SPNum := GetDotNETSP('v3.5')
Result := success and (install = 1) and (SPNum = SP);
end;
//===================================================================
//RETURNS OPPOSITE OF IsDotNet35Detected FUNCTION
//===================================================================
function InstallDotNET35(SP: integer): Boolean;
begin
Result := not IsDotNET35Detected(SP);
end;
//==================================================================================================
// Indicates whether .NET Framework 3.0 is installed with the service pack that was queried for
//==================================================================================================
function IsDotNET40Detected(SP: cardinal): boolean;
var
success: boolean;
install: cardinal;
SPNum: cardinal;
begin
success := RegQueryDWordValue(HKLM, 'SOFTWARE\Microsoft\NET Framework Setup\NDP\v4\Full', 'Install', install);
// Check to see if the given Service Pack is installed
SPNum := GetDotNETSP('v4')
Result := success and (install = 1) and (SPNum = SP);
end;
//===================================================================
//RETURNS OPPOSITE OF IsDotNet40Detected FUNCTION
//===================================================================
function InstallDotNET40(SP: integer): Boolean;
begin
Result := not IsDotNET40Detected(SP);
end;
//===================================================================
// Install .NET Framework
//===================================================================
Procedure InstalldotNETFramework(Filename: String; Param: String);
var
ErrorCode: Integer;
begin
ShellExec('', ExpandConstant(Filename), ExpandConstant(Param), '', SW_SHOW, ewWaitUntilTerminated, ErrorCode);
end;
//========================================================================================================================
// Get the CLSID from the registry for the queried file to locate where this file was installed by the CR merge module
// We do this so that we know where to register the file after installation.
//========================================================================================================================
function GetCLSIDFldr(Param: String): String;
var
Location: String;
CSLID: String;
LogFile: String;
sStr: String;
begin
CSLID := Param;
StringChangeEx(CSLID, '!', '{', True);
StringChangeEx(CSLID, '@', '}', True);
LogFile := ExpandConstant('{app}') '\Install.log';
SaveStringToFile(LogFile, #13#10 CSLID #13#10, True);
if not RegQueryStringValue(HKEY_CLASSES_ROOT, 'TypeLib\' CSLID '\0\win32','', Location) then
Result := 'Not Registered !!!' #13#10 'Possible Wrong Crystal Reports Version Installed on Source Machine or ' #13#10 'Wrong CRystal Reports Merge Module Installed on Target Machine' #13#10;
begin
Location := ExpandConstant(Location)
sStr := #13#10 Location #13#10 StringOfChar('*',70) #13#10
SaveStringToFile(LogFile, sStr, True);
Result := ExtractFileDir(Location);
end;
end;
//=============================================================
// Log the filename process to a log file
//=============================================================
function LogFileName(Filename: String): String;
var
LogFile: String;
sSTr: String;
begin
LogFile := ExpandConstant('{app}') '\Install.log';
sStr := #13#10 'Registering ' Filename #13#10;
SaveStringToFile(LogFile, sStr, True);
Result := Filename;
end;
//============================================================================
Ok, did you check the log to see if .NET 4.0 installaed correctly ({sd}dotNET40Log.txt')?
Id the .NET task checked when you install?
Dear randem,
I found solution for my problems, first I Create Script in Unsafe mode to get all files that need regsvr32 eg. C:\Windows\System32\tibase8.dll and tishare8.dll etc., then I copy that trouble file cause InnoSetup can't work cause that trouble file must be register in the system32. So I copy that trouble file to another directory and changed manually the script then I compile again and I try to install at client comp and all run well.
I attached another error message (happens when I changed mode from Safe become Unsafe and click Create Script)
(https://randemsystems.support/discus/messages/12/10595.jpg)
The solution you found is documented in at least three places in InnoScript, Help File and the documentation. InnoScript gives you the solution in a message each time you run it to create a script.
As for the error message I will see if I can duplicate it then fix the issue.
Hello
I have just installed version 11.1.18
My registration info will not work
My version 10 software used User Name, Transaction ID, Registration Code, Registration Key
Regards
Robert Wells
(Message edited by Dvdaust on June 27, 2012)
Aloha dvdaust,
Please do not hijack others threads. It leads to confusion when someone is looking for help and the posts in the thread have nothing to do with the topic...
The info you seek is on the welcome page https://randemsystems.support/index.php?topic=37.0 (https://randemsystems.support/index.php?topic=37.0)
More Info: https://randemsystems.support/index.php?topic=26 (https://randemsystems.support/index.php?topic=26)
Thanks for the info.... Can you get more spesific in describing in the Documentation cause I can't find the step by step how to handle componentone register
InnoScript handles Component One registrations automatically if you let it. You cannot modify what it does or it may not work if you do not know what the ramification of your modifications are.
Where exactly are you having issues?
what i means in trouble registering ComponentOne is that if i use Safe mode, Innoscript not automatically add tibase8.dll and tishare8.dll to the script. If i use Unsafe mode, those 2 files created in script.
If it is the problem then i must use unsafe mode to fix it
InnoScript would add those files regardless of SAFE/UNSAFE mode. The only difference would be where the file was found. In SAFE mode the file may not be found but it is still in the script. You have to use the predefined methods explained in the messages and documentation for the file to be found.