Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Coloboración Paypal con ClubDelphi

 
 
Herramientas Buscar en Tema Desplegado
  #9  
Antiguo 18-08-2008
Avatar de mlara
[mlara] mlara is offline
Miembro Premium
 
Registrado: jun 2003
Ubicación: Colombia
Posts: 667
Poder: 24
mlara Va por buen camino
Pues la cosa va así:

Comment: Excelente el Inno Setup, la verdad no lo había probado, pero es muy bueno.
  1. Usando InnoSetup incluyo el instalador de la última versión de Firebird 2.1, la 2.1.1.17910.
  2. Luego en la sección de código escribo esta función, la cual permite instalar silenciosamente Firebird, siempre y cuando el usuario haya seleccionado la instalación del servidor, de otra manera se instalará el cliente.

    Código Delphi [-]
    function NextButtonClick(CurPageID: Integer): Boolean;
    var
      ResultCode: Integer;
    begin
      case CurPageID of
        wpReady:
          begin
            ExtractTemporaryFile('Firebird-2.1.1.17910-0_Win32.exe');
    
            // Instalación del servidor
            if IsComponentSelected('Firebird_2_1') then begin
              MsgBox('A continuación se instalará el motor de bases de datos Firebird 2.1', mbInformation, MB_OK);
              if not Exec(ExpandConstant('{tmp}\Firebird-2.1.1.17910-0_Win32.exe'),
                     '/SILENT /LOG /NOCANCEL /NOICONS /TYPE=CustomInstall /COMPONENTS="ServerComponent,ServerComponent\SuperServerComponent,DevAdminComponent,ClientComponent" /MERGETASKS="CopyFbClientToSysTask"',
                     '',
                     SW_SHOWNORMAL, ewWaitUntilTerminated, ResultCode) then
                MsgBox('No se pudo realizar la instalación de Firebird 2.1.'#13#13#10'Mensaje de error del sistema'#13#13#10+SysErrorMessage(ResultCode)+'.', mbError, MB_OK)
              else begin
                // Hacer algo después de la instalación...
                // ...
              end
            end
    
            // Instalación del cliente
            else if IsComponentSelected('Archivos_Cliente') then begin
              MsgBox('A continuación se instalará cliente del motor bases de datos Firebird 2.1', mbInformation, MB_OK);
              if not Exec(ExpandConstant('{tmp}\Firebird-2.1.1.17910-0_Win32.exe'),
                     '/SILENT /LOG /NOCANCEL /NOICONS /TYPE=ClientInstall',
                     '',
                     SW_SHOWNORMAL, ewWaitUntilTerminated, ResultCode) then
                MsgBox('No se pudo realizar la instalación del cliente Firebird 2.1.'#13#13#10'Mensaje de error del sistema'#13#13#10+SysErrorMessage(ResultCode)+'.', mbError, MB_OK)
            end
          end
      end;
    
      Result := True
    end;

Observen ustedes que al ejecutar el instalador de Firebird la línea de comandos es indispensable, pues de esta manera puedo instalarlo de la manera más adecuada.

Hay que tener en cuenta el nombre de los tipos de instalación, y si se quiere de los componentes y tareas de la instalación, usados para crear el instalador de Firebird. Estos nombres se pueden ver en el script de Inno Setup (FirebirdInstall_20.iss) usado para instalar Firebird. Este archivo se encuentra dentro del archivo Firebird-2.1.1.17910-0.tar.bz2, el cual contiene los archivos fuente de Firebird.

Nota. El instalador también podría ejecutarse sin necesidad de adicionarlo al Setup.

__________________
...y mañana caminaré por las calles pasando inadvertido, como siempre.

Última edición por mlara fecha: 18-08-2008 a las 23:22:41.
Responder Con Cita
 



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Instalar Interbase 7.1 Neeruu Varios 2 09-08-2008 21:11:09
Cómo instalar el Servicio de Apache para que se inicie de forma manual dec Windows 4 23-07-2007 23:32:31
Instalar BDE para interbase judoboy Conexión con bases de datos 2 28-07-2005 18:53:03
como instalar Interbase 7 jsamanp Firebird e Interbase 0 19-08-2004 18:31:49
existe una forma visual para crera tablas y consultas en interbase? viajero2015 Firebird e Interbase 4 21-02-2004 22:58:36


La franja horaria es GMT +2. Ahora son las 15:05:52.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi