Usando o VFP 9.0 atravez do Harbour.

[Itamar M. Lins Jr.]

Ola!

Using Visual FoxPro 9.0 from Harbour

Usando hbrun, sem compilar!

Código: Selecionar todos

#require "hbwin"

PROC Main
  LOCAL vfp, DateNow, DateThen, DateDif, AgeYears

  vfp = win_oleCreateObject("VisualFoxPro.Application")

  SET DECIMALS TO 3

  DateNow  = VAL(vfp:EVAL("SYS(1)"))
  DateThen = VAL(vfp:EVAL("SYS(11, '09/26/1962')"))
  DateDif = DateNow - DateThen
  AgeYears = DateDif / 365.25

  ? "Today's Julian Date    "
  ?? TRANSFORM(DateNow, '9999999')
  ? "1962/11/03 Julian Date "
  ?? TRANSFORM(DateThen,'9999999')
  ? TRANSFORM(DateDif, 'A difference of        9999999')
  ? TRANSFORM(AgeYears,'Age In Years            99.999')
  ?

  vfp:Quit()

RETURN

Compilando.
c:\users\jlc\utils>hbmk2 orders.prg hbwin.hbc

Código: Selecionar todos

#include "hbgtinfo.ch"

PROC Main()
  local vfp, cText

  vfp = win_oleCreateObject("VisualFoxPro.Application")

  vfp:DoCmd("cd c:\utils")
  vfp:DoCmd("SELECT * FROM orders WHERE part_id = 'C-300-4010' INTO CURSOR test")
  vfp:DoCmd("Go Top")
  vfp:DoCmd("_VFP.DataToClip(,,3)")
  vfp:Quit()
  cText := hb_gtInfo( HB_GTI_CLIPBOARDDATA )
  ? cText
RETURN

https://groups.google.com/forum/#!topic ... y7v48zDdK8
Agora aparece essa possibilidade de usarmos esses recursos do VFP. Legal!

Saudações,
Itamar M. Lins Jr.

[Mario Mesquita]

Bom dia!

Então dá pra usar recursos do Visual Fox pelo Harbour, é isso mesmo?

Claro que tem que ter o Fox instalado né? São perguntas bestas, mas achei interessante, um amigo meu ainda usa Fox e adora.

Sempre algo mais pra agregar ao serviço, que bom.

Sds,
Mario.