Google Maps localización

[Rapinto]

Não sei se interessa a alguém, mas podemos a partir do Fujitsu Cobol, abrir o Google Maps, passando uma morada (rua ou Av., postal code cidade, pais) e mostrar logo o localização.

É muito simples:

Basta criar um URL do tipo:

MOVE 
"http://maps.google.com/maps? f=q&hl=en&geocode=&time=&date=&ttype=&q=@ADDR@&ie=UTF8&t=m"  TO URL.

Substituindo "@ADDR@" pela morada+cidade+pais

em seguida executar o comando:

    INVOKE POW-SELF "Execute" USING CALLBROWSER.   

a variável CALLBROWSER é igual a "iexplore.exe URL"

Se quiserem posso carregar um pequeno exemplo.

(Também podem utilizar o Yahoo, substituindo o URL por :
"http://maps.yahoo.com/maps_result.php?q1=@ADDR@" )


Saludos,
Rui Pinto

[Josber]

Pues si no te importa poner/subir un ejemplo, sería de agradecer Rui.

Muchas gracias
Un saludo.-

[Rapinto]

Josber,

Aqui vai.
Está em PowerCobol Ver. 9.0
Para a vista externa deve ser alterada a localização e nome do browser.
Para a vista interna, tem que acrescentar o objecto ieframe.dll da Microsoft.


Saludos,
Rui

[Adrianeloy]

Tambien funciona ejecutar en cualquier DDE esta linea:

cmd /c start [url="https://www.google.com.ar/maps/@-32.9531356,-60.6575539,15z"]https://www.google.com.ar/maps/@-32.9531356,-60.6575539,15z[/url]

Yo lo hago en mis programas de PowerCobol V3.
De ese modo se abre la pagina con el navegador predeterminado de Windows.

Ej:

01 LINEA PIC X(256).
     MOVE "cmd /c start https://www.google.com.ar/maps/@-32.9531356,-60.6575539,15z" TO LINEA.
     CALL EXECAPL OF DDE1 USING LINEA POW-SWNORMAL.

adrianeloy, usa los botones CODE, COBOL etc. de resalto de sintaxis.

[Eslopes]

Olá,

podemos levar a integração com o browser um passo adiante. Tenho um exemplo de integração com o GoogleMaps que permite a uma aplicação PowerCobol não apenas carregar o mapa num determinado endereço, mas executar funções Javascript, passando parâmetros e recebendo de volta valores das funções dentro do html

O exemplo está em inglês, mas é muito fácil de se entender.

GoogleMaps + Cobol


O segredo é a capacidade do Power de manipular objetos COM:

 ENVIRONMENT     DIVISION.
 DATA            DIVISION.
 WORKING-STORAGE SECTION.
 01  webBrowserCom usage object reference COM.    *> será usado para referenciar o objeto WebBrowser1
 01  document      usage object reference COM.         *> representa o documento HTML carregado no WebBrowser1
 01  parentWindow  usage object reference COM.      *> representa o topo da hierarquia DOM do HTML

Primeiro, carregamos a página Web no objeto WebBrowser1:

INVOKE WebBrowser1 "Navigate" USING "http://www.100coolthings.net/Portals/3/GoogleMapsAPI.html"

Segundo, precisamos converter um objeto POWER para o tipo COM:

     CALL "POWERCONVTOCOM" USING WebBrowser1 returning webBrowserCom

Em seguida obtemos o objeto que representa o HTML carregado

     invoke webBrowserCom "GET-Document" returning document

Agora obtemos o objeto que representa o topo da hierarquia DOM do HTML carregado no WebBrowser1:

     invoke document      "GET-parentWindow"  returning parentWindow

A partir deste momento podemos executar QUALQUER Javascript que exista na página:

     invoke parentWindow "execScript" using "findLocation('Colatina, ES, BR');" & X"00"

No caso a URL usada aponta para uma página HTML que contém o seguinte Javascript:

// findLocation is called by PowerCobol to look for a location based in the passed address
    function findLocation(address) {
      document.forms[0].q.value = address;
      showLocation();
    }

Se quisermos obter um valor de retorno, podemos declarar o INVOKE da seguinte forma:

     invoke parentWindow "execScript" using "findLocation('Colatina, ES, BR');" & X"00" RETURNING retorno

"retorno" seria uma variável PIC X(n).

Dá para usar jQuery, Mootols, montar telas em HTML5, usar componentes online ou offline (html local) etc , etc, etc...

Pensem nas possibilidades

Saludos, Emerson


eslopes, usa el resalto de sintaxis (sintax highlight buttons)

---------- Post added at 08:23 ---------- Previous post was at 08:06 ----------

Olá, agora entendi o que significa "usa el resalto de sintaxis (sintax highlight buttons)" rs...

Vou usar este recurso na próxima vez (antes eu achava que o forum fazia isto automaticamente, rs.

Saludos, Emerson

[Galileo]

Tambien funciona ejecutar en cualquier DDE esta linea:

cmd /c start [url="https://www.google.com.ar/maps/@-32.9531356,-60.6575539,15z"]https://www.google.com.ar/maps/@-32.9531356,-60.6575539,15z[/url]

Yo lo hago en mis programas de PowerCobol V3.
De ese modo se abre la pagina con el navegador predeterminado de Windows.

Ej:

01 LINEA PIC X(256).
     MOVE "cmd /c start https://www.google.com.ar/maps/@-32.9531356,-60.6575539,15z" TO LINEA.
     CALL EXECAPL OF DDE1 USING LINEA POW-SWNORMAL.

adrianeloy, usa los botones CODE, COBOL etc. de resalto de sintaxis.

Correcto. Es más, en mis programillas la ayuda consistía en un fichero HTML y usaba este método para invocarla:

CALL EXECAPL OF PRINCIPAL USING "EXPLORER AYUDA.HTM".

[Joseg]

Necessito de uma integração com o Google Maps, do tipo, pesquisar uma determinada morada (parece fácil com os exemplos aqui mostrados), e devolver as coordenadas da morada seleccionada para registar numa tabela.
Alguém consegui uma iteração total ou parcial com o Google Maps?

Gracias

[Galileo]

Esto funciona en PowerCOBOL 3.0:

 ENVIRONMENT DIVISION.
 DATA        DIVISION.
 WORKING-STORAGE SECTION.
 01 LLAMADA.
    02  FILLER  PIC X(9) VALUE "explorer ".
    02  FILLER  PIC X(1) VALUE QUOTE.
    02  FILLER  PIC X(69) VALUE "http://maps.google.com/maps?f=q&hl=en&geocode=&time=&date=&ttype=&q=@".
    02  DIRECC  PIC X(80) VALUE SPACES.
    02  FILLER  PIC X(13) VALUE "@&ie=UTF8&t=m".
    02  FILLER  PIC X(1) VALUE QUOTE.
 PROCEDURE   DIVISION.
    MOVE "fuenlabrada+madrid" TO DIRECC.
    CALL EXECAPL OF SHEET1 USING LLAMADA.

En DIRECC pueden quedar muchos espacios al final, pero se gestionan automáticamente, por lo que no es un problema.