Para Antonio. Problemas ultima version.

[dbzap]

Con la ultima version de agosto, mi sistema solo puede ejecutarse con la compilacion de xharbour.
En lo usual, no compilamos con xb solo el harbour normal.
El exe luego de cargarse se descarga de inmediato, puse unas banderas para avisar si ingresa o no y ni siquiera llega a la declaracion de LOCAL o MEMVAR.
Tienes algun reporte de este tipo de falla ?
No trabajamos con ninguna clase modificada ni lib externa.
Agradeceria tu ayuda.
Saludos

PD: extrañamente todos los ejemplos funcionan.

[mag071]

Igualmente al bajar el ultimo FTDN intente compilar el cual lo hace sin errores pero la aplicacion nunca llega a levantarse tuve que volver al anterior FTDN

uso BCC + Harbour + FWH

[Antonio Linares]

Comprobad que no esteis usando un harbour.exe anterior en vuestro ordenador. El build actual es Harbour Compiler Alpha build 46.2 (Flex) y mide 431.104 bytes.

Por otra parte, el pcode ha cambiado, por lo que hay que recompilar todos los PRGs y librerías propias que esteis usando.

[José Vicente Beltrán]

Antonio,

He recompilado todo y efectivamente funciona, pero la aplicación genera mensajes de error al ejecutar OLE, he tenido que volver al build de junio y todo esta otra vez en su sitio.

Saludos

FWH 2.7 build de julio (otra vez) + Harbour (junio otra vez) + borland

[dbzap]

Antonio.
Efectivamente recompile todos mis prg y libs.
Lo raro de esto, es que para comprobar recompile todo nuevamente con xharbour ( del mismo ftdn ) y todo funciono correctamente ( solo harbour lo genera y no carga ).
Por favor revisalo, quizas existe alguna diferencia con el compilador de modulos en C pues es la unica cosa extra que podria indicarte ( no se, solo lo menciono para alguna pista pues no se que con que mas ayudar )
Te agradecere revisarlo.
Saludos todos.

[Antonio Linares]

José Vicente,

Que errores OLE te aparecen ? Puedes proporcionarnos un ejemplo para reproducirlos ? Gracias

[Antonio Linares]

dbzap (usais nicks y es imposible saber vuestros nombres )

Nosotros probamos FWH indistintamente con Harbour y xHarbour y funcionan ambos correctamente.

Puedes proporcionarnos un PRG de ejemplo que no te funcione ? Asi lo construimos aqui, lo probamos y te enviamos el EXE. Gracias

[José Vicente Beltrán]

José Vicente,

Que errores OLE te aparecen ? Puedes proporcionarnos un ejemplo para reproducirlos ? Gracias

Antonio es esta función (proporcionada hace tiempo al foro por René y que yo utilizo de forma masiva), no consigo que funcione con los builds de agosto.

FWH2.7 + HARBOUR + BORLAND + HBOLE.LIB

//----función para conectar con cualquier pagina web-------------------//
function conecta(cDirWeb, lVisible, lToolBar, lStatusBar, lMenuBar)
local Ole

DEFAULT lVisible := .t., lToolBar:= .t., lStatusBar:= .t., lMenuBar:= .t.

ole:=TOleAuto():New("InternetExplorer.Application")
ole:Set("Visible", lVisible)
ole:Set("ToolBar", lToolBar)
ole:Set("StatusBar", lStatusBar)
ole:Set("MenuBar", lMenuBar)
ole:Invoke("Navigate",cDirWeb)
ole:End()

Return Nil

[Antonio Linares]

Jose Vicente,

Este ejemplo (el tuyo con unas pequeñas modificaciones) funciona perfectamente con xHarbour y FWH 2.7 Agosto 2006. Observa que he comentado ole:End() ya que no tiene ese método. Por favor, pruébalo y dinos si te funciona bien, gracias:

Code: Select all

#include "FiveWin.ch"

function Main()

   Conecta( "www.google.com" )
   MsgInfo( "ok" )

return nil

function conecta( cDirWeb, lVisible, lToolBar, lStatusBar, lMenuBar ) 

   local Ole 

   DEFAULT lVisible := .t., lToolBar:= .t., lStatusBar:= .t., lMenuBar:= .t. 

   ole = TOleAuto():New("InternetExplorer.Application") 
   ole:Set("Visible", lVisible) 
   ole:Set("ToolBar", lToolBar) 
   ole:Set("StatusBar", lStatusBar) 
   ole:Set("MenuBar", lMenuBar) 
   ole:Invoke("Navigate",cDirWeb) 
   // ole:End() 

Return Nil

[dbzap]

Me es dificil enviarte todo nuestro sistema.
Pues como te señalé, los ejemplos de programas ( los samples ) funcionan.
Pero lo unico extraño es que nuestro sistema tiene muchisimos prgs ( sobre 180 ) y ademas con la compilacion de de julio hacia atras funcionaba estupendamente.
No hemos realizado nada distinto entre esas compilaciones y esta ultima.
Te pido revisar algo o darnos alguna idea.
Te adjunto el rmk de nuestro sistema administrativo, quizas tu vez algo que nosotros no veamos.
Saludos y gracias.

Code: Select all

#Borland make sample, (c) FiveTech Software 2005

HBDIR=c:\harbour27
BCDIR=c:\bcc55
FWDIR=c:\clipper.53\fwh27

OBJDIR=c:\RanMul32.SQL\Obj32
RANDOMDIR=c:\RanMul32.SQL

#change these paths as needed
.path.PRG = .\gestion;.\gepac;.\contab;.\terceros\grafica
.path.OBJ = .\obj32
.path.CH  = $(FWDIR)\include;$(HBDIR)\include;.\gestion;.\terceros\grafica
.path.C   = .\gestion
.path.rc  = .\

#important: Use Uppercase for filenames extensions, in the next two rules!

PRG = menuges.PRG \
      c_tbsql.PRG c_tbram.PRG c_tbcram.PRG rddsys.PRG FuncSql.PRG c_tdospr.PRG \
      errsysw.PRG c_nomlar.PRG deffunc.PRG defusua.PRG defusua6.PRG defempre.PRG defsuc.PRG \
      defbode.PRG defcaja.PRG deffami.PRG defdimew.PRG tratpre.PRG traprod.PRG trastmi.PRG \
      proporem.PRG funporem.PRG tratppp.PRG confesta.PRG errsysw.PRG defmone.PRG defluga.PRG \
      defendp.PRG deftene.PRG defreti.PRG defturno.PRG defzona.PRG defrumar.PRG defcodal.PRG \
      defimpu.PRG defconc.PRG defli.PRG defrecet.PRG defpcc.PRG muesdoc.PRG defprod.PRG defenti.PRG \
      defform.PRG defchec.PRG confcopi.PRG borrado.PRG consolst.PRG elinodef.PRG cambiaco.PRG inf007.PRG \
      visado.PRG transuc.PRG rececen.PRG recegti.PRG transbol.PRG trparam.PRG resesuc.PRG chequeo.PRG \
      inf001.PRG inf015.PRG inf015c.PRG venven.PRG inf006.PRG inflclv.PRG infcob.PRG infrk3.PRG iStockBo.PRG \
      ilotebod.PRG iStockGe.PRG cuadratu.PRG estadisp.PRG estadis.PRG estadism.PRG inf012.PRG cofapla.PRG \
      stockval.PRG infantic.PRG inf031.PRG inf021.PRG margenw.PRG infdoc.PRG inf005.PRG inf011.PRG \
      inf022.PRG infsald.PRG istocklo.PRG istockse.PRG infvenc.PRG inf004.PRG inf004oc.PRG infrk12.PRG \
      infenti.PRG inf030.PRG foliador.PRG masisa.PRG tomainv.PRG proyecci.PRG correo.PRG correo32.PRG saldos.PRG saldodoc.PRG \
      librolet.PRG infreten.PRG inf016.PRG c_label.PRG label.PRG litem.PRG deftcara.PRG tradocw.PRG trado_g.PRG \
      tragarw.PRG tradocgw.PRG pagos.PRG pagadoc.PRG pagorap.PRG pagosbat.PRG pagosbnc.PRG tratpag.PRG stock.PRG \
      tradoccw.PRG cartagui.PRG defforcg.PRG elilotes.PRG imprebat.PRG infpread.PRG \
      presuadm.PRG inf033.PRG inf034.PRG emiret.PRG consnume.PRG rendilot.PRG cambcod.PRG remoto.PRG deforbi.PRG \
      defmetas.PRG genarch.PRG metas.PRG metaspag.PRG docxcaja.PRG deftcara.PRG defforcp.PRG leerb2b.PRG \
      geneb2b.PRG deftfil.PRG exporta.PRG bolehon.PRG formul29.PRG infnega.PRG genxml.PRG cambiave.PRG \
      defmode.PRG defcarac.PRG ENCADENA.PRG trasdir.PRG report.PRG saldofe.PRG btnGet.PRG \
      g_window.PRG g_server.PRG g_graph.PRG g_column.PRG g_elemen.PRG g_func.PRG \
      btnGetDown.PRG bodegraf.PRG chequind.PRG prasigst.PRG endosos.PRG ConsuSQL.PRG EPrincipal.PRG

C = btnGet_c.C

PROJECT : Ges_32.exe

Ges_32.exe : $(PRG:.PRG=.OBJ) $(C:.C=.OBJ) $(RANDOMDIR)\Rc_Base\Gestion.res
   echo off
   echo $(BCDIR)\bin\c0w32.obj + > b32.bc
   echo $(OBJDIR)\menuges.obj + >> b32.bc
   echo $(OBJDIR)\c_tbsql.obj $(OBJDIR)\c_tbram.obj $(OBJDIR)\c_tbcram.obj $(OBJDIR)\rddsys.obj $(OBJDIR)\FuncSql.obj $(OBJDIR)\c_tdospr.obj + >> b32.bc
   echo $(OBJDIR)\errsysw.obj $(OBJDIR)\c_nomlar.obj $(OBJDIR)\deffunc.obj $(OBJDIR)\defusua.obj $(OBJDIR)\defusua6.obj $(OBJDIR)\defempre.obj $(OBJDIR)\defsuc.obj + >> b32.bc
   echo $(OBJDIR)\defbode.obj $(OBJDIR)\defcaja.obj $(OBJDIR)\deffami.obj $(OBJDIR)\defdimew.obj $(OBJDIR)\tratpre.obj $(OBJDIR)\traprod.obj $(OBJDIR)\trastmi.obj + >> b32.bc
   echo $(OBJDIR)\proporem.obj $(OBJDIR)\funporem.obj $(OBJDIR)\tratppp.obj $(OBJDIR)\confesta.obj $(OBJDIR)\errsysw.obj $(OBJDIR)\defmone.obj $(OBJDIR)\defluga.obj + >> b32.bc
   echo $(OBJDIR)\defendp.obj $(OBJDIR)\deftene.obj $(OBJDIR)\defreti.obj $(OBJDIR)\defturno.obj $(OBJDIR)\defzona.obj $(OBJDIR)\defrumar.obj $(OBJDIR)\defcodal.obj + >> b32.bc
   echo $(OBJDIR)\defimpu.obj $(OBJDIR)\defconc.obj $(OBJDIR)\defli.obj $(OBJDIR)\defrecet.obj $(OBJDIR)\defpcc.obj $(OBJDIR)\muesdoc.obj $(OBJDIR)\defprod.obj $(OBJDIR)\defenti.obj + >> b32.bc
   echo $(OBJDIR)\defform.obj $(OBJDIR)\defchec.obj $(OBJDIR)\confcopi.obj $(OBJDIR)\borrado.obj $(OBJDIR)\consolst.obj $(OBJDIR)\elinodef.obj $(OBJDIR)\cambiaco.obj $(OBJDIR)\inf007.obj + >> b32.bc
   echo $(OBJDIR)\visado.obj $(OBJDIR)\transuc.obj $(OBJDIR)\rececen.obj $(OBJDIR)\recegti.obj $(OBJDIR)\transbol.obj $(OBJDIR)\trparam.obj $(OBJDIR)\resesuc.obj $(OBJDIR)\chequeo.obj + >> b32.bc
   echo $(OBJDIR)\inf001.obj $(OBJDIR)\inf015.obj $(OBJDIR)\inf015c.obj $(OBJDIR)\venven.obj $(OBJDIR)\inf006.obj $(OBJDIR)\inflclv.obj $(OBJDIR)\infcob.obj $(OBJDIR)\infrk3.obj $(OBJDIR)\iStockBo.obj + >> b32.bc
   echo $(OBJDIR)\ilotebod.obj $(OBJDIR)\iStockGe.obj $(OBJDIR)\cuadratu.obj $(OBJDIR)\estadisp.obj $(OBJDIR)\estadis.obj $(OBJDIR)\estadism.obj $(OBJDIR)\inf012.obj $(OBJDIR)\cofapla.obj + >> b32.bc
   echo $(OBJDIR)\stockval.obj $(OBJDIR)\infantic.obj $(OBJDIR)\inf031.obj $(OBJDIR)\inf021.obj $(OBJDIR)\margenw.obj $(OBJDIR)\infdoc.obj $(OBJDIR)\inf005.obj $(OBJDIR)\inf011.obj + >> b32.bc
   echo $(OBJDIR)\inf022.obj $(OBJDIR)\infsald.obj $(OBJDIR)\istocklo.obj $(OBJDIR)\istockse.obj $(OBJDIR)\infvenc.obj $(OBJDIR)\inf004.obj $(OBJDIR)\inf004oc.obj $(OBJDIR)\infrk12.obj + >> b32.bc
   echo $(OBJDIR)\infenti.obj $(OBJDIR)\inf030.obj $(OBJDIR)\foliador.obj $(OBJDIR)\masisa.obj $(OBJDIR)\tomainv.obj $(OBJDIR)\proyecci.obj $(OBJDIR)\correo.obj $(OBJDIR)\saldos.obj + >> b32.bc
   echo $(OBJDIR)\librolet.obj $(OBJDIR)\infreten.obj $(OBJDIR)\inf016.obj $(OBJDIR)\c_label.obj $(OBJDIR)\label.obj $(OBJDIR)\litem.obj $(OBJDIR)\deftcara.obj $(OBJDIR)\tradocw.obj $(OBJDIR)\trado_g.obj + >> b32.bc
   echo $(OBJDIR)\tragarw.obj $(OBJDIR)\tradocgw.obj $(OBJDIR)\pagos.obj $(OBJDIR)\pagadoc.obj $(OBJDIR)\pagorap.obj $(OBJDIR)\pagosbat.obj $(OBJDIR)\pagosbnc.obj $(OBJDIR)\tratpag.obj $(OBJDIR)\stock.obj + >> b32.bc
   echo $(OBJDIR)\tradoccw.obj $(OBJDIR)\cartagui.obj $(OBJDIR)\defforcg.obj $(OBJDIR)\elilotes.obj $(OBJDIR)\imprebat.obj $(OBJDIR)\infpread.obj + >> b32.bc
   echo $(OBJDIR)\presuadm.obj $(OBJDIR)\inf033.obj $(OBJDIR)\inf034.obj $(OBJDIR)\emiret.obj $(OBJDIR)\consnume.obj $(OBJDIR)\rendilot.obj $(OBJDIR)\cambcod.obj $(OBJDIR)\remoto.obj $(OBJDIR)\deforbi.obj + >> b32.bc
   echo $(OBJDIR)\defmetas.obj $(OBJDIR)\genarch.obj $(OBJDIR)\metas.obj $(OBJDIR)\metaspag.obj $(OBJDIR)\docxcaja.obj $(OBJDIR)\deftcara.obj $(OBJDIR)\defforcp.obj $(OBJDIR)\leerb2b.obj + >> b32.bc
   echo $(OBJDIR)\geneb2b.obj $(OBJDIR)\deftfil.obj $(OBJDIR)\exporta.obj $(OBJDIR)\bolehon.obj $(OBJDIR)\formul29.obj $(OBJDIR)\infnega.obj $(OBJDIR)\genxml.obj $(OBJDIR)\cambiave.obj + >> b32.bc
   echo $(OBJDIR)\defmode.obj $(OBJDIR)\defcarac.obj $(OBJDIR)\ENCADENA.obj $(OBJDIR)\trasdir.obj $(OBJDIR)\PRASIGST.OBJ $(OBJDIR)\correo32.obj  + >> b32.bc
   echo $(OBJDIR)\BtnGet.obj $(OBJDIR)\BtnGet_c.obj $(OBJDIR)\BtnGetDown.obj + >> b32.bc
   echo $(OBJDIR)\g_window.obj $(OBJDIR)\g_server.obj $(OBJDIR)\g_graph.obj $(OBJDIR)\g_column.obj $(OBJDIR)\g_elemen.obj $(OBJDIR)\g_func.obj + >> b32.bc
   echo $(OBJDIR)\report.obj $(OBJDIR)\saldofe.obj $(OBJDIR)\bodegraf.obj $(OBJDIR)\chequind.obj $(OBJDIR)\endosos.obj $(OBJDIR)\consusql.obj + >> b32.bc
   echo  $(OBJDIR)\saldodoc.obj, + >> b32.bc
   echo Ges_32.exe, + >> b32.bc
   echo Ges_32.map, + >> b32.bc
   echo $(RANDOMDIR)\Lib32\TG3_32.lib + >> b32.bc
   echo $(FWDIR)\lib\FiveH.lib $(FWDIR)\lib\FiveHC.lib + >> b32.bc
   echo $(HBDIR)\lib\rtl.lib + >> b32.bc
   echo $(HBDIR)\lib\vm.lib + >> b32.bc
   echo $(HBDIR)\lib\gtwin.lib + >> b32.bc
   echo $(HBDIR)\lib\lang.lib + >> b32.bc
   echo $(HBDIR)\lib\macro.lib + >> b32.bc
   echo $(HBDIR)\lib\rdd.lib + >> b32.bc
   echo $(HBDIR)\lib\dbfcdx.lib + >> b32.bc
   echo $(HBDIR)\lib\hbsix.lib + >> b32.bc
   echo $(HBDIR)\lib\common.lib + >> b32.bc
   echo $(HBDIR)\lib\pp.lib + >> b32.bc
   echo $(HBDIR)\lib\codepage.lib + >> b32.bc
   echo $(BCDIR)\lib\cw32.lib + >> b32.bc
   echo $(BCDIR)\lib\import32.lib + >> b32.bc
   echo $(BCDIR)\lib\psdk\odbc32.lib + >> b32.bc
   echo $(BCDIR)\lib\psdk\nddeapi.lib + >> b32.bc
   echo $(BCDIR)\lib\psdk\iphlpapi.lib + >> b32.bc
   echo $(BCDIR)\lib\psdk\rasapi32.lib + >> b32.bc
   echo $(RANDOMDIR)\Lib32\TFileXLS.lib + >> b32.bc
   echo $(RANDOMDIR)\Lib32\Lib32m.lib, >> b32.bc

   IF EXIST $(RANDOMDIR)\Rc_Base\Gestion.res echo $(RANDOMDIR)\Rc_Base\Gestion.res >> b32.bc
   $(BCDIR)\bin\ilink32 -Gn -aa -Tpe -s @b32.bc
   del b32.bc
   del Ges_32.map
   del Ges_32.tds

.PRG.OBJ:
  $(HBDIR)\bin\harbour $< /n /a /v /w /dHARBOUR32BITS /Oobj32\ /I$(FWDIR)\include;$(HBDIR)\include;$(RANDOMDIR);$(RANDOMDIR)\gestion >>0error.log
  $(BCDIR)\bin\bcc32 -c -tWM -I$(HBDIR)\include -oobj32\$&  obj32\$&.c

.C.OBJ:
  echo -c -tWM -D__HARBOUR__ -DHB_API_MACROS > tmp
  echo -I$(HBDIR)\include;$(FWDIR)\include >> tmp
  $(BCDIR)\bin\bcc32 -oObj32\$& @tmp gestion\$&.c
  del tmp

$(RANDOMDIR)\Rc_Base\Gestion.res : $(RANDOMDIR)\Rc_Base\Gestion.rc
  $(BCDIR)\bin\brc32.exe -r $(RANDOMDIR)\Rc_Base\Gestion.rc

[/code]

[José Vicente Beltrán]

Jose Vicente,

function conecta(cDirWeb, lVisible, lToolBar, lStatusBar, lMenuBar)
local Ole

DEFAULT lVisible := .t., lToolBar:= .t., lStatusBar:= .t., lMenuBar:= .t.

ole:=TOleAuto():New("InternetExplorer.Application")
ole:Set("Visible", lVisible)
ole:Set("ToolBar", lToolBar)
ole:Set("StatusBar", lStatusBar)
ole:Set("MenuBar", lMenuBar)
ole:Invoke("Navigate",cDirWeb)
//ole:End()

Return Nil

Antonio,

Corregido y probado, pero el error sigue siendo el mismo

Called from OLESETPROPERTY(0)
Called from TOLEAUTO:SET(127)
Called from CONECTA(64)

La linea 64 es
ole:Set("Visible", lVisible)

En principio solo se pasa a la funcion el valor <cDirWeb>, por lo que lVisible siempres sería .t.

saludos

[Antonio Linares]

Jose Vicente,

Si comentas esa línea, te funciona ? Podemos enviarte el EXE como ZIP para que lo pruebes. Aqui está funcionando bien.

Estás usando XP SP2 y el Internet Explorer más reciente (anterior al 7) ?

[Antonio Linares]

Julio,

Entonces con xHarbour te arranca la aplicación y no lo hace con Harbour ?

Por favor, prueba con el build de Harbour publicado en Agosto:
http://hyperupload.com/download/026ece0 ... r.EXE.html

[José Vicente Beltrán]

Jose Vicente,

Si comentas esa línea, te funciona ? Podemos enviarte el EXE como ZIP para que lo pruebes. Aqui está funcionando bien.

Estás usando XP SP2 y el Internet Explorer más reciente (anterior al 7) ?

Antonio,

Si comento la linea en cuestión, el error pasa a la siguiente y a sí sucesivamente.

Mi sistema es XP SP2 pro actualizado al dia.

¿Podría ser que mi HBOLE.LIB sea antigua?

HBOLE.LIB tamaño ->37888, 07-05-2003

saludos

[Antonio Linares]

José Vicente,

> ¿Podría ser que mi HBOLE.LIB sea antigua?

Claro. Ese es el problema.

Si vas a trabajar con TOleAuto() lo idóneo es que uses xHarbour, hasta que esa clase se importe (ó no) a Harbour. Nosotros lo hemos probado con xHarbour.

Compilar con Harbour ó xHarbour es transparente. No tienes que cambiar nada en tu aplicación.