Antonio tengo un problema con las libs que me enviaste.

Posts: 1816

Joined: Wed Oct 26, 2005 02:49 PM

Antonio tengo un problema con las libs que me enviaste.
Posted: Tue Feb 21, 2006 07:17 PM

Antonio, como raro yo molestando.

Tengo una inquitud con respecto a los dialogos con fondo, mira el codigo es el siguiente:

Code: Select all Collapse

*************************************************************
*cuadro de dialogo para verificación conexion con el servidor
*************************************************************
PROC Inicio()

DEFINE BRUSH oBrush RESOURCE "INICIO"
DEFINE DIALOG oDlg RESOURCE "Plano10" TRANSPARENT BRUSH oBrush OF oWinp
 oProgress = TProgress():Redefine( 4001, oDlg )
 REDEFINE SAY oT1os1 ID 15 OF oDlg UPDATE
 oProgress:SetRange( 0, 2 )
 oProgress:SetPos( 0 )
ACTIVATE DIALOG oDlg CENTERED ON PAINT verifica() VALID(oLamcla:vPPexit)

PROC verifica()
oProgress:SetRange( 0, 2 )
oProgress:SetPos( 0 )
oLamcla:vPPexit:=.F.

oLamcla:oServer := TMySQLServer():New( oLamcla:cHost,oLamcla:cUsuario,oLamcla:cPassword)
IF oLamcla:oServer:NetErr()
  oT1os1:Settext("No se Puede Extablecer Comunicación Con el Servidor")
  MSGINFO("No se PuedO Extablecer Comunicación Con el Servidor")
  QUIT
ELSE
  oT1os1:Settext("Verificando Conexion con servidor")
  oProgress:nPosition += 1
  IF !(oLamcla:oServer:DBExist(oLamcla:nDBdat))
    oT1os1:Settext("La base de Datos no existe")
    MSGINFO("La base de datos no existe,"+CRLF+"por favor informe al administrador: 6136913 Ext 114 "+CRLF+"Bogotá - Colombia")
    QUIT
  ELSE
    oProgress:nPosition += 1
    oT1os1:Settext("Fin del Proceso")
    oLamcla:vPPexit:=.T.
    INKEY(4)
    oDlg:update()
    oDlg:End()
  ENDIF
  oLamcla:oServer:SelectDB( oLamcla:nDBdat )
ENDIF

*CUANDO APLICO ESTA CLAUSULA LA PRIMERA VEZ SE CAMBIA Y QUEDA SUPER BIEN

oT1os1:Settext("No se Puede Extablecer Comunicación Con el Servidor")

*PERO CUANDO HAGO POR SEGUNDA VEZ

oT1os1:Settext("Fin del Proceso")

El primer texto no se borra si no que las letras quenda montadas unas sobre las otras.

Que me sugieres?

FWH 2.7 Diciembre + Xharbour
[/img]

Saludos
LEANDRO AREVALO
Bogotá (Colombia)
https://hymlyma.com
https://hymplus.com/
leandroalfonso111@gmail.com
leandroalfonso111@hotmail.com

[ Turbo Incremental Link64 6.98 Embarcadero 7.70 ] [ FiveWin 25.01 ] [ xHarbour 64 bits) ]

karinha

Posts: 8515

Joined: Tue Dec 20, 2005 07:36 PM

Antonio tengo un problema con las libs que me enviaste.
Posted: Tue Feb 21, 2006 09:03 PM

Intente:

oDlg:Refresh()

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Antonio tengo un problema con las libs que me enviaste.
Posted: Wed Feb 22, 2006 09:21 AM

Leandro,

Es un bug que ya está solucionado. Envíame un email, gracias.

regards, saludos

Antonio Linares
www.fivetechsoft.com

leandro

Posts: 1816

Joined: Wed Oct 26, 2005 02:49 PM

No funcionan?
Posted: Mon Feb 27, 2006 02:22 PM

Antio cuando monte las libs y compile y genero el siguiente error?

Error: Unresolved external '_hb_dynsymSymbol' referenced from C:\FWH\LIB\FIVEHC.LIB|HARBOURC

Eso no me sucede con las anteriores.

FWH dic/05 + xharbour.

Saludos
LEANDRO AREVALO
Bogotá (Colombia)
https://hymlyma.com
https://hymplus.com/
leandroalfonso111@gmail.com
leandroalfonso111@hotmail.com

[ Turbo Incremental Link64 6.98 Embarcadero 7.70 ] [ FiveWin 25.01 ] [ xHarbour 64 bits) ]

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Antonio tengo un problema con las libs que me enviaste.
Posted: Mon Feb 27, 2006 06:31 PM

Leandro,

Añade esta función a tu aplicación:

Code: Select all Collapse

#pragma BEGINDUMP 

#include "hbapi.h" 
#include "hbapiitm.h" 

PHB_SYMB hb_dynsymSymbol( PHB_DYNS pDynSym ) 
{ 
return pDynSym->pSymbol; 
} 

#pragma ENDDUMP

regards, saludos

Antonio Linares
www.fivetechsoft.com

FiveTech Support Forums

Continue the discussion