Olá Felipe.
Fiz algo parecido em um sistema.
Criei um form só com o componente webbrowser e os botões necessário pra
fechar ou alguma função mais que precise.
Depois no meu cadastro, coloquei um botão na frente do endereço que chama o
mapa, dessa maneira:
Application.CreateForm(TFrmMapa, FrmMapa);
FrmMapa.WebBrowser1.Navigate('http://maps.google.com/maps?q=' +
TrimRight(DBEdtEndereco.Text) + ',' +
TrimRight(DBEDTCidade.Text) + ',' +
TrimRight(DBCBEstado.Text) + ', Brasil');
FrmMapa.ShowModal;
FrmMapa.Free;
Isso resolveu sem problemas. A única coisa é que carrega a página toda do
googlemaps. Tem outra forma que não inclui no sistema ainda que carrega só o
mapa. Só questão de configurar os campos. Assim:
<iframe width="425" height="350" frameborder="0" scrolling="no"
marginheight="0" marginwidth="0" src="http://maps.google.com/maps?q=av. sao
paulo 175
maringa&sll=37.0625,-95.677068&sspn=31.150864,59.238281&ie=UTF8&
amp;ll=-23.413083,-51.940784&spn=0.008801,0.014462&z=14&om=1&
;output=embed&s=AARTsJqGyCChOukyMX_CAaQ01tl-1QdG4A"></iframe><br
/><small><a href="http://maps.google.com/maps?q=av. sao paulo 175
maringa&sll=37.0625,-95.677068&sspn=31.150864,59.238281&ie=UTF8&
amp;ll=-23.413083,-51.940784&spn=0.008801,0.014462&z=14&om=1&
;source=embed" target="_blank" style="color:#0000FF;text-align:left">Exibir
mapa ampliado</a></small><br>
Esse é o fonte da página que ele usa. Claro que é possível parametrizar e
fazer uma função. A parte em negrito é onde tá o endereço.
Abraço.
_____
Claudiney Cogo
N2 Sistemas e Soluções em Informática
Av. São Paulo, 172 - 15º Andar - Sala 1505
Fone/Fax: (44) 3029-6053 - Maringá - Paraná
<http://www.n2solutions.com.br/> www.n2solutions.com.br
<http://www.nfe.n2solutions.com.br/> www.nfe.n2solutions.com.br
<http://www.studion2.com.br/> www.studion2.com.br
De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de Felipe Oriani
Enviada em: segunda-feira, 7 de setembro de 2009 15:29
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Componente WebBrowser
Olá Pessoal, como vai ? Tenho uma aplicação em delphi 7 e gostaria de exibir
o google maps a partir de um endereço. Estou tentando fazer manualmente mas
estou com alguns problemas. Tentei associar um arquivo html a um componente
webbrowser e funcionou porém não consegui parametrizar. Gostaria de não
precisar deste arquivo html (externo) a minha aplicação então resolvi
colocar o código HTML dentro de minha aplicação. Assim encontrei na web uma
função que me permite escrever html em um componente webbrowser (veja a
função no final do email). O problema é que quando executo no browser este
HTML ele funciona sem problemas, porém ele pede autorização do IE para
executar um ActiveX, e quando rodo este no Delphi ele da um erro (alert de
javascript... sem mensagem) e não exibe o mapa... imagino que deva ser por
causa do ActiveX.
Minha dúvida: Existe alguma forma de ativar a execução de ActiveX no
WebBrowser do Delphi ???
OU
Gostaria de saber se existe algum componente a parte que permita que eu
passe o enderço, cidade, estado, cep, para ele e ele me desse a localização
no maps ???
Obrigado
Att,
Função que estou usando para exibir um código HTML em um WebBrowser:
procedure WBLoadHTML(WebBrowser: TWebBrowser; HTMLCode: string) ;
var
sl: TStringList;
ms: TMemoryStream;
begin
WebBrowser.Navigate('about:blank') ;
while WebBrowser.ReadyState < READYSTATE_INTERACTIVE do
Application.ProcessMessages;
if Assigned(WebBrowser.Document) then
begin
sl := TStringList.Create;
try
ms := TMemoryStream.Create;
try
sl.Text := HTMLCode;
sl.SaveToStream(ms) ;
ms.Seek(0, 0) ;
(WebBrowser.Document as
IPersistStreamInit).Load(TStreamAdapter.Create(ms)) ;
finally
ms.Free;
end;
finally
sl.Free;
end;
end;
end;
--
______________________________________
Felipe B. Oriani
fbori...@gmail.com <mailto:fboriani%40gmail.com> | www.felipeoriani.com.br
"...Examina o sentido, o modo e a direção de tuas palavras, antes de
pronunciá-las.." por Emmanuel
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
