Matheus Lacombe

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.

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!

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;

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?

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?