Matheus Lacombe
Membro Pleno-
Posts
25 -
Cadastrado em
-
Última visita
Reputação
0-
Flight Simulator X (simulador vôo) - Tópico oficial
Matheus Lacombe respondeu ao tópico de gandalfnho em Jogos
Flight Simulator X Deluxe - Portões de embarque sumiram. - Olá pessoal, estava jogando fsx aqui em casa e quando estacionei em SBGL no Rio de janeiro não mais pude encontrar os portões/pontes de embarque que via antes e de onde podia acoplar a aeronave utilizando o atalho "ctrl + J". Até tentei aumentar a densidade de veículos no aeroporto mais não surtiu efeito, apenas os carrinhos de push-back apareceram. Alguém sabe se este "causo" é fruto de alguma outra configuração que eu tenha mexido sem querer. Aguardando, abraços. -
Como ler o conteúdo de um site por um Memo?
Matheus Lacombe respondeu ao tópico de Matheus Lacombe em Programação - outros
Na verdade quero apenas poder copiar tudo o que está escrito em um site (a parte visível à qualquer usuário) e colocar isso, em forma de texto, dentro de um Memo. Logo, pouco importa se vou fazer isso copiando o código fonte HTML, ou de outro jeito qualquer.. O problema é que não dá de baixar o código fonte completo de muitos sites... E é aí que parece complicar. Então, caso você ou alguém aqui saiba alguma forma de se fazer isso, pra mim qualquer uma vale. Valeu? Abraços! -
Como ler o conteúdo de um site por um Memo?
Matheus Lacombe respondeu ao tópico de Matheus Lacombe em Programação - outros
Oi Will702!! Tentei fazer isso.. Porém apenas algumas páginas, quando vou em (Arquivo>Salvar como>Página completa) apenas em alguns sites o html parece "completo".. Fiz errado? E, como poderia fazer para o Delphi baixar o HTML completo, sem ser manualmente..? ENCONTREI ISSO, não entendi como uso esse procedimento, por favor ajuda alguém ai: procedure TForm2.Buscar(WB: TWebBrowser; Text: string); var tr: IHTMLTxtRange; documento: IHTMLDocument2; index: OleVariant; frame_dispatch: IDispatch; framewnd: IHTMLWindow2; framedoc: IHTMLDocument2; begin documento := WebBrowser1.Document as IHTMLDocument2; index := 0; frame_dispatch := documento.Frames.Item(index); if Assigned(frame_dispatch) then begin framewnd := frame_dispatch as IHTMLWindow2; framedoc := framewnd.document; framedoc.Get_body.Get_outerText; if Assigned(WB.Document) then begin tr := ((framedoc AS IHTMLDocument2).body AS IHTMLBodyElement).createTextRange; if tr.findText(Text, 1, 0) then begin ShowMessage('achou'); end; end; end; -
Como ler o conteúdo de um site por um Memo?
Matheus Lacombe respondeu ao tópico de Matheus Lacombe em Programação - outros
Pessoal, alguém sabe? Por favor? Pergunta boba: não teria como fazer o delphi selecioinar o WebBrowser e dar um Ctrl+A e copiar tudo para o memo? -
Como ler o conteúdo de um site por um Memo?
Matheus Lacombe postou um tópico em Programação - outros
EDIT: "Poxa pessoal, ninguém pode dar uma força? Como ler o conteúdo de um site por um Memo? tentei pegar o código-fonte desta forma, mas parece que nem tudo que está escrito na página fica ali.. E o que eu queria era justamente ler a página. Fiz dessa forma: unit Farejador; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, OleCtrls, SHDocVw, StdCtrls, XPMan; type TForm1 = class(TForm) WebBrowser1: TWebBrowser; Memo1: TMemo; Button1: TButton; XPManifest1: TXPManifest; procedure WebBrowser1Enter(Sender: TObject); procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.WebBrowser1Enter(Sender: TObject); begin WebBrowser1.Navigate('http://www.google.com.br'); end; procedure TForm1.Button1Click(Sender: TObject); var oStringList: TStringList; begin oStringList := TStringList.Create; try oStringList.Text := WebBrowser1.OleObject.document.Body.InnerHTML; Memo1.text:=oStringList.text; finally oStringList.Free; end; end; end. Se nem todos os textos de uma página ficam no codigo-fonte, como faço para ler tudo o que está está escrito nela?
Sobre o Clube do Hardware
No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais
Direitos autorais
Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais