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
  #5  
Antiguo 11-01-2024
delphi001 delphi001 is offline
Registrado
 
Registrado: nov 2023
Posts: 7
Poder: 0
delphi001 Va por buen camino
Smile

Gracias Casimiro Notevi!
Gracias Neftali [Germán.Estévez]!
Gracias Delphi01!


¡Saludos!

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)


En cuanto al código base, dejo un par de fragmentos que me indican que se usa una serie de parámetros especificados en alguna parte que aun no logro comprender. Archivo: proyecto.dpr

Código:
 frmSplash:=TfrmSplash.Create(Application);
  frmSplash.Caption:=sNomSystem;
  PreparaSplash(True, 1, 1, 1); // Mostrar, nMin, nMax, posIni
  ActSplash('Conectando con el Servidor...',' ',0);
  ActSplash('','Revisar que tenga todos los parámetros',1);
    If ParamCount<2 then
      begin
        myMessageDlg('Faltan Parámetros: '+_Enter+sNomSystem, mtError ,'',0);        
      end;

  ActSplash('','...',1);
    //PRIMER parámetro: Indica se esta ejecutando desde RunSystem
    Try
      sTmp:=myUpperCase(ParamStr(1));      
    Except
      Raise Exception.Create(Incorrecto);
    end;
    //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;

          

 begin
            DatosIni:=TStringlist.Create;
            DatosIni.LoadFromFile(_NomIniSystemMiFile);
            //GET Path BD de las DOS PRIMERAS LINEAS del file _NomIniSystemMiFile
            getDBPath:=DatosIni[0]+':'+DatosIni[1];
Desafíos que enfrento:

- Aparentemente se guarda en un archivo .ini pero no localizo un .ini que contenga 192.168.1.2:Mi-BD
- Intenté reemplazando todas las coincidencias de 192.168.1.2:Mi-BD en archivos *.dfm por mi BD TEST en 192.168.1.1B-Test (No funcionó ya que se sigue conectando a la base 192.168.1.2:Mi-BD)
- Mi BD Test ya me aseguré tenga su alias, puerto y bien configurada para ser accedida desde local y desde la red lan (probe accediendo con clientes como flamerobin y IBExpert y funciona bien en ambos casos).

Nota: El proyecto se conecta unicamente a una BD en Firebird.

Tu experiencia y orientación serán invaluables para avanzar en este tema. ¿Puedes proporcionar más información o consejos para abordar estos desafíos? ¡Aprecio mucho tu colaboración!
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
Proyecto emular procesadores usando Delphi PASCAL y Ensamblador compsystems La Taberna 0 16-12-2014 22:36:52
Free Pascal proyecto del mes de SourceForge Ñuño Martínez La Taberna 7 25-04-2014 21:45:22
Proyecto Oberon: Reimaginando todo (padre de pascal) mamcx La Taberna 1 03-12-2013 23:18:53
[Z80 Pascal] Proyecto de compilador Ñuño Martínez ASM y Microcontroladores 6 11-05-2010 14:37:47
primer proyecto con Mikro pascal no compila gaston260 ASM y Microcontroladores 15 08-01-2010 04:45:55


La franja horaria es GMT +2. Ahora son las 09:30:08.


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