Levantar Proyecto Pascal - Borland Delphi 7 y Componentes

[Neftali [Germán.Estévez]]

Empezado por delphi001

No estoy seguro de como púedo saber que tipo de tecnología(s) se encuentran aplicadas para la conexión con Firebird, pero he encontrado estos componentes en el código base:
TIBQuery (Tengo entendido se trata de IBX)
TDataSource (Tengo entendido se trata de VCL)
IB_Connection (Tengo entendido se trata de Interbase)
TIBOQuery (Tengo entendido se trata de Interbase)
DatabaseName = '192.168.1.2:Mi-BD' (La BD utilizada)

Digamos que la estructura en que se usan los componentes siempre es la misma independientemente de la tecnología.
Algo así:




1) Los 2 primeros se encargan de la conexión (y en el caso de IB/FB también de la transacción)
2) Luego tenemos el TIBTable o TIBQuery que representan TABLAS o SQLs y que se conectan a la conexión
(varios TIBTable, TIBQuery, TIBOQuery,... se pueden conectar a la misma conexión)
3) Finalmente el TDatasource que se encarga de conectar un componente visual (por ejemplo un DBGrid) con una fuente de datos (un TIBTable, TIBQuery,...)

Normalmente casi todos los componentes que se usan para Interbase (en versiones como la tuya Delphi 7) se usan también y son compatibles para conectarse a Firebird.
En cuanto al código, parece que no está completo, pero hay una parte que muestra que la llamada se puede hacer con parámetros, y el segundo parece ser la Base de Datos.

Código Delphi [-]
    //SEGUNDO parámetro: Path de la base de datos
    Case myStrIndex(sTmp,[_NomExeRun,'PALABRA']) Of
    0:begin        
        Try
          getDBPath:=ParamStr(2);          
          DatosIni:=TStringlist.Create;
          k:=Pos(':',getDBPath);
          If k=0 then
            begin
              DatosIni.Add('');
              DatosIni.Add(getDBPath);
            end
          else
            begin
              DatosIni.Add(Copy(getDBPath,1,k-1));
              DatosIni.Add(Copy(getDBPath,k+1,100));
            end;
        Except
          Raise Exception.Create(Incorrecto);
        end;
      end;

ParamStr(2) hace referencia al segunda parámetro de la llamada a tu aplicación.