Caro colega
Associe o codigo abaixo a um botão e passe os campos que vc precisa.
ShellExecute(0, Nil,
PChar('http://maps.google.com.br/maps?f=q&source=s_q&hl=pt-BR&geocode=&q=' +
RemoveAcento(ESC_ENDE.Text) + '-' + RemoveAcento(ESC_BAIRRO.Text) + '-' +
RemoveAcento(ESC_CIDA.Text) + '-' + ESC_UF.Text +
'&jsv=143c&sll=-23.186453,-46.884453&sspn=0.478436,' +
'0.545883&g=&ie=UTF8&ct=clnk&cd=1'), Nil, Nil, 0);
No meu caso, utilizo uma funcao para remover os acentos, pois se não ele não
acha. e passo as informações de uma consulta do form.
Atenciosamente
Washington André Muller da silva
#######################
NextCorp Informática Ltda
www.nextcorp.com.br
nextc...@nextcorp.com.br
nextc...@terra.com.br
0xx-(51)-3037-6605
#######################
----- Original Message -----
From: "Felipe Oriani" <fbori...@gmail.com>
To: <delphi-br@yahoogrupos.com.br>
Sent: Monday, September 07, 2009 3:29 PM
Subject: [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 | 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]
------------------------------------
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Esta mensagem foi verificada pelo E-mail Protegido Terra.
Atualizado em 08/09/2009
--------------------------------------------------------------------------------
No virus found in this incoming message.
Checked by AVG - www.avg.com
Version: 8.5.409 / Virus Database: 270.13.87/2356 - Release Date: 09/09/09
06:53:00
