Intentado integrar google maps en delphi 5

[radge]

Buenas , soy usuario de delphi5 e intento mostrar un mapa obtenido de google maps mediante el componente webbrowser.

En el click del botón tengo lo siguiente extraido de algun tutorial.

Código Delphi [-]

procedure TForm1.Button2Click(Sender: TObject);
var
  Doc2: IHTMLDocument2;
begin
WebBrowser2.Navigate('http://www.stevetrefethen.com/files/googlemap.htm');

  with WebBrowser2.Document as IHTMLDocument2 do
    with parentWindow do
      execScript('createMapMarker("31.05173494", "-122.03160858", "test")', 'JavaScript');
end;

Me compila... pero me salta una excepción cuanda pasa por la linia with parentWindow do

Se os ocurre por donde pueden ir los tiros ?

salu2 radge

[[maeyanes]]

Hola...

¿Y podríamos saber cual es la excepción que te "salta"?


Saludos...

[radge]

Me salta...

Access violation at address 0047C5E9 in module 'xxxx.exe'. Read of address 00000000

salu2 radge

[[maeyanes]]

Hola...

El error es por que estás tratando de usar un método de un objeto que referencia a nil...

Código Delphi [-]
with WebBrowser2.Document as IHTMLDocument2 do
  if Assigned(parentWindow) then  // <--- verifico si está asignado parentWindow...
    with parentWindow do
      execScript('createMapMarker("31.05173494", "-122.03160858", "test")', 'JavaScript');

Saludos...

[radge]

Empezado por maeyanes

Hola...

El error es por que estás tratando de usar un método de un objeto que referencia a nil...

Código Delphi [-]with WebBrowser2.Document as IHTMLDocument2 do if Assigned(parentWindow) then // <--- verifico si está asignado parentWindow... with parentWindow do execScript('createMapMarker("31.05173494", "-122.03160858", "test")', 'JavaScript');



Saludos...

He probado y me sale exactamente lo mismo

Access violation at address 0047C5E9 in module 'xxxx.exe'. Read of address 00000000


gracias , radge