Foros Club Delphi - Script Con Inno setup para Interbase

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Firebird e Interbase (https://www.clubdelphi.com/foros/forumdisplay.php?f=19)

- - Script Con Inno setup para Interbase (https://www.clubdelphi.com/foros/showthread.php?t=25670)

Script Con Inno setup para Interbase

Hola Amigo he estado haciendo un instlador para una aplicaion que trabaja con InterBase pero no me funciona el pues me parece que no estoy madando todos los archivos necesarios para que Interbase pueda trabar con la base de datos me podrian decir que archivos son inmpresindibles para el funcionamiento si no soy muy claro por favor diganmelo muchas gracias de antemano

Hola,

Para mí tengo que entre los resultados de esta búsqueda vas a encontrar lo que precisas.

Gracias David, sin embargo ha consutado alguna cosas que encontrado aqui mismo pero aun asi no me funciona bien la instalacion que es lo que pasa no lose, pero resulta que si tengo intalado Interbase y para ver si funciona el intalador con InnoSetup lo desintalo lo intalo junto con mi aplicacion nuevamente y funciona, el proble es que si realizo la misma intalacion en una maquina que nunca se ha intaldo interbase este intalador ya no me funciona, pienso que existe algun archivo que interbase necesita. pero no se cual es????

Hola,

Me temo que no voy a poder ayudarte mucho, pero, ¿cuando dices que no te funciona qué quieres decir? Me explico. Si obtienes algún error, ¿cuál es el mensaje de error que obtienes? Creo que cuanta más información puedas proporcionar más sencillo será que alguien con conocimiento sobre el tema pueda echarte el cable que necesitas. ¿Verdad? ;)

El intalador copia todos estos archivos

----------------------------------------------

Source: ibconfig; DestDir: {app}
Source: bin\ibserver.exe; DestDir: {app}\bin
Source: interbase.msg; DestDir: {app}
Source: isc4.gdb; DestDir: {app}
Source: isc4.gbk; DestDir: {app}
Source: gds32.dll; DestDir: {sys}
Source: msvcrt.dll; DestDir: {sys}
Source: bin\instreg.exe; DestDir: {app}\bin
Source: bin\ibguard.exe; DestDir: {app}\bin

----------------------------------------------

y al finalizar la instalacion se ejecuta

----------------------------------------------

Filename: {app}\bin\instreg.exe; Parameters: "install ""{app}"""; Flags: nowait runminimized
Filename: {app}\bin\ibguard.exe; Flags: nowait

----------------------------------------------

El guardian se jecuta sin problemas pareciera que todoesta bien
pero al momento de utilizar la base de datos no lo reconoce como una vace de datos valida.

pero si utlizo el intalador propio de interbase en una maquina "PC-1" funciona perfectamente luego desintalo interbase para hacer la prueba con el intalador hecho en innosetup , funciona exelentemente no hay problema, el problema se cuando intento intalar en tro maquina que no haya instalado intebase antes.

pienso que existe algun archivo que no estoy mandando a copiar, per que este se guarda en algun lugar que no es visible fasilmente si alguien sabe que es lo que me falta copiar por favor les pido que me ayuden. muchas gracias.

Hola,

Yo hace poco tambien consulte el foro en busca de informacion para realizar una instalacion de IB6 silenciosa conjuntamente con mi aplicación. Los ejemplos que encontre tanto en el foro como en las paginas dedicadas a interbase (para innosetup) no me han funcionado muy bien que se diga.

El motivo es que la instalacion de IB6 difiere en algunos aspectos segun en el sistema en el que lo vamos a instalar (W95/98, NT/W2K, XP).

He comparado los scritps y cada uno contempla algunas cosas que los otros no, claves en el registro y otras cosas.

Yo al final he decidido incluir en mi instalacion la instalacion original del IB6 empaquetado dentro de mi setup y se ejecuta automaticamente.

De todas formas aqui te incluyo el ejemplo mas completo que he encotrado.

Un saludo,

Cita:

; This script was first created by ISTool
; http://www.lerstad.com/istool/

; adaptation Claude GUTH

; Script d'installation d'une application IB 6

[Registry]
;enlever le commentaire de la clé ci-dessous si vous voulez que le serveur démarre avec le boot
;Root: HKLM; Subkey: Software\Microsoft\Windows\CurrentVersion\Run; ValueType: string; ValueName: InterBaseGuardian; ValueData: {app}\bin\ibguard.exe; Flags: uninsdeletekey

;Root: HKLM; Subkey: Software\Borland\InterBase; ValueType: DWord; ValueName: UseCount; ValueData: {reg:HKLM\Software\Borland\InterBase, UseCount|0} + 1
;Root: HKLM; Subkey: Software\Borland\InterBase\CurrentVersion; ValueType: DWord; ValueName: UseCount; ValueData: {reg:HKLM\Software\Borland\InterBase\CurrentVersion, UseCount|0} + 1
Root: HKLM; Subkey: Software\Borland\InterBase\CurrentVersion; ValueType: string; ValueName: GuardianOptions; ValueData: 1
Root: HKLM; Subkey: Software\Borland\InterBase\CurrentVersion; ValueType: string; ValueName: RootDirectory; ValueData: {app}\
Root: HKLM; Subkey: Software\Borland\InterBase\CurrentVersion; ValueType: string; ValueName: ServerDirectory; ValueData: {app}\bin

[Types]
Name: "Serveur"; Description: "Installation avec serveur en local"
Name: "ServeurMini"; Description: "Installation compacte avec serveur en local"
Name: "Client"; Description: "Installation en application client"
Name: "ClientMini"; Description: "Installation compacte en application client"

[Components]
Name: "Client"; Description: "Application en client"; Types: Client ClientMini Serveur ServeurMini; Flags: fixed
Name: "Serveur"; Description: "Application avec serveur sur le poste"; Types: Serveur ServeurMini
Name: "Administration"; Description: "Outils d'administration"; Types: Serveur
Name: "Documentation"; Description: "Documentation IB"; Types: Serveur

[Files]
;Mon application
;Source: c:\Program Files\Borland\Delphi5\Reso lib\IBFacilitator\TestIBFacilitator.exe; DestDir: c:\temp
;Ma base
;Source: c:\temp\test.gdb; DestDir: c:\temp
;Fichiers Interbase
Source: ibconfig; DestDir: {app}; Components: Serveur
Source: interbase.msg; DestDir: {app}
Source: isc4.gdb; DestDir: {app}; CopyMode: onlyifdoesntexist; Flags: uninsneveruninstall; Components: Serveur
Source: isc4.gbk; DestDir: {app}; CopyMode: onlyifdoesntexist; Flags: uninsneveruninstall; Components: Serveur
Source: bin\ibguard.exe; DestDir: {app}\bin; Components: Serveur
Source: bin\ibserver.exe; DestDir: {app}\bin; Components: Serveur
Source: gds32.dll; DestDir: {sys}
Source: msvcrt.dll; DestDir: {sys}
;le fichier suivant est à extraire de la distribution
Source: license.htm; DestDir: {app}
;Utilitaire installation service pour NT/2000
Source: bin\instsvc.exe; DestDir: {app}; Components: Serveur; MinVersion: 0, 4.0
;Fichiers IBConsole {mis en commentaire pour gain de place}
; Source: bin\IBConsole.exe; DestDir: {app}\bin; Components: Administration
;Fichiers Documentation {mis en commentaire pour gain de place}
; Source: bin\IBConsole.hlp; DestDir: {app}\bin; Components: Documentation
; Source: bin\IBConsole.cnt; DestDir: {app}\bin; Components: Documentation
; Source: bin\IBGloss.hlp; DestDir: {app}\bin; Components: Documentation
; Source: bin\IBGloss.cnt; DestDir: {app}\bin; Components: Documentation
; Source: bin\IBServer.hlp; DestDir: {app}\bin; Components: Documentation
; Source: bin\IBServer.cnt; DestDir: {app}\bin; Components: Documentation
; Source: bin\Perform.hlp; DestDir: {app}\bin; Components: Documentation
; Source: bin\Perform.cnt; DestDir: {app}\bin; Components: Documentation
; Source: bin\SQLRef.hlp; DestDir: {app}\bin; Components: Documentation
; Source: bin\SQLRef.cnt; DestDir: {app}\bin; Components: Documentation

[Dirs]
;Name: {app}\bin

[Run]
;Lance le serveur sous Win9x, sous NT/2000 démarrer le service ibserver
Filename: {app}\bin\ibguard.exe; Flags: nowait; MinVersion: 4.0, 0
;Utilitaire installation service pour NT/2000
Filename: {app}\bin\instsvc.exe; Flags: nowait; MinVersion: 0, 4.0

[Setup]
;
AppName=Test installation application IB6
AppCopyright=Claude GUTH, Inprise
;SourceDir=C:\Program files\Interbase Corp\Interbase
DefaultDirName={pf}\Borland\InterBase
AppVerName=Test IB 6.0
DefaultGroupName=Test Install IB6
;
;OutputDir=c:\temp\output
;MessagesFile=compiler:France.isl
DisableProgramGroupPage=false
AllowNoIcons=true
;inhibe l'installation si IB actif
;AppMutex=ibserver
;privilèges d'administrateur requis pour l'installation serveur sur NT/2000
AdminPrivilegesRequired= yes
; Components: Serveur

[UninstallRun]
;Filename: {app}\bin\instreg.exe; Parameters: remove; Flags: runminimized

Código:

   

 try

           IBInstall1.SourceDirectory := ExtractFilePath(Application.ExeName) + 'Interbase';

           IBInstall1.InstallCheck;

           IBInstall1.InstallExecute;

           WinExecNoWait32(IBInstall1.DestinationDirectory + '\Bin\ibserver.exe',SW_SHOWNORMAL);

        Except

            ' lanzas un mesaje, o bien no se ha podido instalar o ya esta instalado'

end;

Con esto instalo el servidor compiando en el cd de instalacion en el la carpeta donde esta el ejecutable/interbase los ficheros de intalacion. IBInstall lo encontraras en la palete Interbas Admin.

Esto otro es el script de instalacion de Inno setup que uso para firebird:

Código:

; Script generated by the Inno Setup Script Wizard.

; SEE THE DOCUMENTATION FOR DETAILS ON CREATING INNO SETUP SCRIPT FILES!



[Setup]

AppName=Nombre de la aplicacion

AppVerName=Nombre y version

AppPublisher=Nombre empresa

AppPublisherURL=pagina web

AppSupportURL=pagina web

AppUpdatesURL=pagina web

DefaultDirName=c:\hf\

DisableDirPage=yes

DefaultGroupName=Nombre del grupo de programas

;InfoBeforeFile=licencia.txt

OutputBaseFilename=instalación

Compression=lzma

SolidCompression=yes



[Languages]

Name: "es"; MessagesFile: "compiler:languages\SpanishStd-2-5.1.0.isl"



[Tasks]

Name: "desktopicon"; Description: "{cm:CreateDesktopIcon}"; GroupDescription: "{cm:AdditionalIcons}"; Flags: unchecked



[Files]

Source: "C:\hf\Instalador\hf\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs

; NOTE: Don't use "Flags: ignoreversion" on any shared system files



[Icons]

Name: "{group}\Nombre aplicacion"; Filename: "{app}\ejecutable con la ruta completa"

Name: "{group}\{cm:UninstallProgram,Nombre aplicacion}"; Filename: "{uninstallexe}"

Name: "{userdesktop}\Nombre aplicacion"; Filename: "{app}\ejecutable con la ruta completa"; Tasks: desktopicon





[Run]

Filename: "{app}\Firebird.exe"; Description: "{cm:LaunchProgram,Servidor firebird}"; Flags: skipifsilent

Filename: "{app}\ejecutable con la ruta completa"; Description: "{cm:LaunchProgram,Nombre aplicacion}"; Flags: postinstall skipifsilent

Espero haber contribuido en en algo, si tienes dudas, no dudes en pantearlas.

Saludos

Claudio Herrador.

Muchas Gracias con este material boy a poder trabajar, gracia a la ayuda que me dieron cual quir cosa boy a consultarlos he muchas gracias bye bye