FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Como compartir metodos entre formularios y tambien la conexion a postgres??
En Lazarus 1.0.2, estoy intentando hacer una clase que solo contenga métodos y en esos métodos se realice cualquier operación y desde los formularios llamar a esos métodos.
El problema es el siguiente cuando quiero por ejemplo inicializar la conexión de postgres. Código:
... class var {Variables de clases} SQLquery:TSQLQuery; Datasource:TDataSource; Transaccion:TSQLTransaction; PQConexion:TPQConnection; ... class procedure StaticData.Inicializa_conexion(usuario,contrasena,host,db:string); begin PQConexion.hostname:=host; PQConexion.databaseName:=db; PQConexion.username:=usuario; PQConexion.password:=contrasena; PQConexion.transaction:= Transaccion; Transaccion.DataBase:=PQConexion; SQLQuery.Transaction:=Transaccion; Datasource.DataSet:=SQLQuery; try PQConexion.connected:=true; Application.MessageBox(PChar('Conexion realizada con exito'),PChar('Conexion'),MB_ICONINFORMATION); except on e:exception do begin Application.MessageBox(PChar('Ha ocurrido el siguiente Error: '+e.Message),PChar('Error'),MB_ICONINFORMATION); PQConexion.connected:=false; end; end; end; Cita:
Código:
PQConexion.hostname:=host; |
#2
|
|||
|
|||
Solucion al error!!
Al final la solución no estaba tan difícil, solo habia que instanciar los objetos de la siguiente manera
Código:
PQConexion:=TPQConnection.Create(nil); Transaccion:=TSQLTransaction.Create(nil); SQLQuery:=TSQLQuery.Create(nil); Datasource:=TDataSource.Create(nil); Código:
PQConexion:=TPQConnection.Create(Application); Transaccion:=TSQLTransaction.Create(Application); SQLQuery:=TSQLQuery.Create(Application); Datasource:=TDataSource.Create(Application); |
#3
|
||||
|
||||
Se agradece el aporte.
__________________
Lazarus Codetyphon : Desarrollo de aplicaciones Object Pascal, libre y multiplataforma. |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
como conectar datos entre formularios | Andres202010 | Varios | 3 | 07-08-2012 09:38:16 |
Cómo cerrar conexión? Delphi, Zeos y Postgres | mangels | PostgreSQL | 4 | 16-11-2007 16:00:59 |
Compartir conexion entre dos PC | chico_bds | Internet | 3 | 02-07-2007 06:21:27 |
Como realizar la conexion con Postgres SQL | alastor | PHP | 2 | 14-08-2006 21:07:18 |
Conexión entre formularios | mcalmanovici | Varios | 3 | 23-06-2006 15:48:06 |
|