vai aí um segredinho... mas não conta pra ninguém, viu!
procedure TForm1.SalvarHTML (WB:TWebBrowser; const FileName : string);
var
PersistStream: IPersistStreamInit;
Stream: IStream;
FileStream: TFileStream;
begin
if not Assigned(WB.Document) then
begin
ShowMessage('O documento está sendo carregado! Aguarde...');
Exit;
end;
PersistStream := WB.Document as IPersistStreamInit;
FileStream := TFileStream.Create(FileName, fmCreate);
try
Stream := TStreamAdapter.Create(FileStream, soReference)
as IStream;
if Failed(PersistStream.Save(Stream, True)) then
ShowMessage('SaveAs HTML fail!');
finally
FileStream.Free;
end;
end;
daí, vc chama num evento qq:
SalvarHTML(WebBrowser1,'c:\DOC.html');
e vai no c:\ pra vc ver...
----- Original Message -----
From: Fernando - Hotforms
To: delphi-br@yahoogrupos.com.br
Sent: Saturday, July 08, 2006 11:06 AM
Subject: [delphi-br] Manipular TWebBrowser
Alguém por acaso sabe como posso manipular o TWebBrowser, preciso fazer
com que ele clique em um determinado link, mas para isso precisava saber
o conteúdo do mesmo.
Sei que é possível, só não sei como!
Se alguém tiver uma dica ai, ficarei grato!
Abraços,
*Fernando dos Santos Sousa*
--
__________ Informação do NOD32 IMON 1.1651 (20060708) __________
Esta mensagem foi verificada pelo NOD32 sistema antivírus
http://www.eset.com.br
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
<*> Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
<*> Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
