Clipper On Line • Ver Tópico - Usando o VFP 9.0 atravez do Harbour.

Usando o VFP 9.0 atravez do Harbour.

Projeto Harbour - Compilador de código aberto compatível com o Clipper.

Moderador: Moderadores

 

Usando o VFP 9.0 atravez do Harbour.

Mensagempor Itamar M. Lins Jr. » 12 Mar 2019 13:23

Ola!

Using Visual FoxPro 9.0 from Harbour

Usando hbrun, sem compilar!
#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
#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/harbour-users/5y7v48zDdK8
Agora aparece essa possibilidade de usarmos esses recursos do VFP. Legal!

Saudações,
Itamar M. Lins Jr.
Avatar de usuário

Itamar M. Lins Jr.
Colaborador

Colaborador
 
Mensagens: 6927
Data de registro: 30 Mai 2007 11:31
Cidade/Estado: Ilheus Bahia
Curtiu: 309 vezes
Mens.Curtidas: 503 vezes

Usando o VFP 9.0 atravez do Harbour.

Mensagempor Mario Mesquita » 13 Mar 2019 10:57

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.
Avatar de usuário

Mario Mesquita
Usuário Nível 4

Usuário Nível 4
 
Mensagens: 557
Data de registro: 08 Dez 2009 12:47
Cidade/Estado: Rio de Janeiro
Curtiu: 73 vezes
Mens.Curtidas: 13 vezes




Retornar para Harbour

Quem está online

Usuários vendo este fórum: Google [Bot] e 12 visitantes


Ola Amigo, espero que meu site e forum tem lhe beneficiado, com exemplos e dicas de programacao.
Entao divulgue o link da Doacao abaixo para seus amigos e redes sociais ou faça uma doacao para o site forum...
MUITO OBRIGADO PELA SUA DOACAO!
Faça uma doação para o forum
cron
v
Olá visitante, seja bem-vindo ao Fórum Clipper On Line!
Efetue o seu login ou faça o seu Registro