Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.
Mensajes - fxge
Páginas: [1]
1
« en: Miércoles 22 de Noviembre de 2006, 16:16 »
Hola Ayla, gracias por tu respuesta.
No he podido aplicar tus recomendaciones. Al colocar el codigo en el evento BeforeInsert obtengo un error en respecto a que el dataset no está en modo EDIT. Según la ayuda de Delphi, eso es correcto ya que el evento se dispara antes de cambiar el estado del dataset. Coloqué el codigo en BeforePost y se ejecuta la primera vez, pero no dispara el trigger y coloca ORDEN_ID := 0, por supuesto que luego no vuelve a correr ya que trata de colocar otro registro con el mismo valor de ORDEN_ID ques es mi clave primaria.
Me extraña tu comentario "Si no tienes el campo definido en control Data aware no hace falta que le asignes ningún valor" ya que no tengo ese campo definido en un control por lo que supongo que no debería darme ningun problema.
Alguna sugerencia?
Saludos,
2
« en: Martes 21 de Noviembre de 2006, 17:53 »
Estoy usando un control TIBTable y otro TDBNavigator para para obtener información de una tabla en Firebird. Funcionan perfectamente bien. Sin embargo, cuando trato de agregar un registro obtengo el error "field ORDEN_ID must have a value". Este campo está definido como no nulo y tiene un trigger asociado (BEFORE INSERT) con su respectivo generador (el cual funciona bien si se trata de agregar datos directamente desde IBEasy+ o FlameRobin), evidentemente el trigger no está siendo accionado en el intento de insertar los datos.
¿Existe alguna consideración respecto el uso de controles data aware y los triggers en la base de datos?
Gracias de antemano.
Francisco
3
« en: Martes 19 de Septiembre de 2006, 14:48 »
Tengo una áplicación (cliente) que activa un segundo proceso en paralelo (servidor) para manejar la adquisicón de datos a partir de unidades de conversión AD conectadas vía USB. Los procesos se comunican mediante mensajes cuya recepción se controla a través de subclassing.
Por ejemplo, el servidor envía cierta data usando Sendmessage:
Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
en wParam se indica "acerca de que habla" y lParam apunta a una de varias posibles estructuras que contienen los datos
El programa en VB6 tiene una ruitina para el subclassing que recibe wParam y lParam. Mi problema es recuperar el contenido de lparam.
Se me ocurre una manera poco "elegante" de hacerlo definiendo una serie de rutinas (una por cada tipo de estrutura) y usar un select case para llamarlas, Algo así;
Dim A : RecordType1
Dim B : RecordType2
.
.
.
select case wParam
Case 1
A = Recupera1(lParam)
Case 2
B = Recupera2(lParam)
...
Function Recupera1 (byRef E as RecorType1) as RecordType1
Recupera1 = E
end function
Function Recupera2 (byRef E as RecorType2) as RecordType2
Recupera2 = E
end function
No lo he probado pero creo que trabajaría. Sin embargo quería saber si existe un camino más directo y flexible.
Gracias,
4
« en: Lunes 18 de Septiembre de 2006, 22:19 »
Tengo una llamada a la API que regresa entre sus argumentos un apuntador a una estructura en memoria. Existen varias posibles estructuras (aunque yo conozco en todo momento cual de ellas está siendo regresada) Mi problema es como tomar la dirección que se regresa para referenciar el contenido de la estructura siendo esta variable. En pascal sería algo como:
case TIPO of
1 : a := lpData^.s
2 : a := lpData^.f
end;
donde lpData es el apuntador regresado por la API
¿Existe alguna forma de hacer esto en VB6?
Gracias de antemano.
5
« en: Viernes 15 de Septiembre de 2006, 17:33 »
¿Es posible hacer un flush de un stream sin necesidad de cerrarlo? Necesito garantizar que los datos se graben de inmediato en el disco sin las demoras de escritura que originan lo buffers
6
« en: Miércoles 26 de Julio de 2006, 23:35 »
Al cargar un bitmap desde un TImageList mediante GetBitmap obtengo un objeto que ignora la propiedad Transparency = true (al dibujarse tiene el fondo blanco), si el mismo mapa de bits se carga directamente desde un archivo mediante LoadFromFile, Transparency = true es respetado. Supongo que esto demuestra que la estructura del bitmap no está corrompida y el método TImageList.GetBitmap es el que ocasiona el problema.
¿Alguna idea sobre como corregir esto?
Gracias,
7
« en: Jueves 29 de Junio de 2006, 21:32 »
Necesito crear un componente durante la ejecución del programa. Especificamente un TImage. Mi problema es ¿como puedo asociarle una rutina al evento OnClick del nuevo objeto? No puedo asociar directamente el procedure a la propiedad OnClick por cuanto ésta espera un TnotifyEvent. ¿Alguna sugestión?
Gracias,
Francisco
8
« en: Martes 11 de Octubre de 2005, 15:15 »
Gracias Bartolomeo, este código si permitió cargar el metafile desde el portapapeles y visualizarlo en unTImage
If clipboard.HasFormat(CF_METAFILEPICT) then begin
Metafile:=TMetaFile.create;
MetaFile.Assign(clipboard);
image1.Picture.Metafile := Metafile;
MetaFile.Free;
end;
9
« en: Sábado 8 de Octubre de 2005, 17:53 »
Agradezco tu respuesta pero no veo como utilizar el enfoque de recuperar metaarchivos de bases de datos para resolver mi problema.... Estoy tratando de cargar el metaarchivo presentes en el portapapeles.  Saludos
10
« en: Viernes 7 de Octubre de 2005, 18:44 »
Saludos:
Tengo un metafile en el portapaples y lo estoy tratando de mostrar en un control TImage a traves de la instrucción:
image1.Picture.Metafile.LoadFromClipboardFormat(Aformat,Adata,Apalette);
Según la documentación, esto debería ser suficiente para cargar el gráfico, pero se origina una excepción con el mensaje "Unsupported clipboard format"
El metafile está allí y es correcto (puede cargarse con Word, p. ejemplo) si se verifica el contenido del clipboard con Delphi se encuentran los formatos cf_metafilepict y cf_enhmetafile presentes.
Conseguí una referencia a este problema en la web pero era un foro en un idioma ininteligible para mí (¿turco?)
Agradezco cualquier ayuda que puedan ofrecerme.
Gracias de antemano.
Páginas: [1]
|
Mostrar Mensajes
