PC Toledo

Enviado: **05 Nov 2013 11:28**

Olá Simões

Refiz quase tudo de novo, mas o Map Location abre com os dados "BROADWAY 500" "NEW YORK" "USA", não importando os dados
que eu envie, ou seja, ele aceita os parâmetros do meu sistema em Clipper, o que eu verifiquei por mensagens dentro do MInigui,
mas abre com seus dados default, pré-definidos não sei aonde pois pesquisei todos os demais arquivos .

Você experimentou com dados diferentes daqueles que constou em seu exemplo ?

FUNCTION MAIN
cParametro1:="BROADWAY 500"
cParametro2:="NEW YORK"
cParametro3:="USA"
cRun:='GOOGLE.EXE '+'"'+cParametro1+'"'+' '+'"'+cParametro2+'"'+' '+'"'+cParametro3+'"'
! &cRun.
RETURN Nil

Apaguei o .EXE e o .OBJ gerados na compilação e rastreei todos os demais arquivos do exemplo e não encontrei nenhuma ocorrência de BROADWAY, por exemplo.

Refiz a compilação, e agora está presente no código executável gerado, ou seja, algum arquivo tem os parâmetros criptografados e eles são inseridos automaticamente, presumo.

O duro é descobrir o porque ele obriga a usar os default.

Não seria uma forma de desabilitar automatizações ?

Enviado: **05 Nov 2013 11:43**

Billy,

Sim, fiz teste com diferentes dados, o problema tá no google.prg veja:
Abre o teu google.prg e altera a função fOpenActivex, comenta as variáveis cStreet, cCity e cCountry (ex. abaixo)
Recompila com o compile e testa novamente.

Código: Selecionar todos

*-----------------------------------------------------------------------------*
Static Procedure fOpenActivex()
*-----------------------------------------------------------------------------*
   //Local cStreet := PadR( "BROADWAY 500", 80 )
   //Local cCity := PadR( "NEW YORK", 80 )
   //Local cCountry := PadR( "USA", 80 )

   GOOGLE.TEXT_1.VALUE  :=  cStreet
   GOOGLE.TEXT_2.VALUE  := cCity
   GOOGLE.TEXT_3.VALUE  := cCountry

   oWActiveX := TActiveX():New( "GOOGLE", "Shell.Explorer.2" , 0 , 0 ,;
                GetProperty( "GOOGLE" , "width" ) - 8 , GetProperty( "GOOGLE" , "height" ) - 150 )
   oActiveX := oWActiveX:Load()

   SHOW( cStreet, cCity, cCountry )

Return

Na function Main faz esta alteração:

Código: Selecionar todos

*-----------------------------------------------------------------------------*
PROCEDURE Main( ... )
*-----------------------------------------------------------------------------*
PUBLIC cStreet, cCity, cCountry, aParams, cParam

   aParams:=hb_AParams()

   cStreet :=PadR(aParams[1],80)
   cCity   :=PadR(aParams[2],80)
   cCountry:=PadR(aParams[3],80)
   
   LOAD WINDOW GOOGLE

   GOOGLE.Center()
   GOOGLE.Activate()

RETURN

Enviado: **05 Nov 2013 18:31**

Oi, SImões !

Rufem os tambores e soem as trombetas !

Deu certo, mas deu um baile também, não é ?

Muito obrigado pela força e empenho dispensados

RESOLVIDO.

Enviado: **05 Nov 2013 19:45**

Billy,

Sempre que possível vou ajudando, eu também aprendo muito é um exercício para o cérebro!

[]´s

PC Toledo

Compilar exemplo do Minigui

Compilar exemplo do Minigui

Compilar exemplo do Minigui

Compilar exemplo do Minigui

Compilar exemplo do Minigui