![]() |
![]() |
| Paypal | FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
|||||||
| Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
|
Herramientas | Buscar en Tema | Desplegado |
|
#5
|
|||
|
|||
|
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];
- 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.1 B-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! |
|
|
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 |
|