Copiar texto de uma pagina html

[Wagner Campanari Pereira]

Estou tentando montar um sistema que copie o texto de um site qualquer e me devolva o texto em um edit apenas uma unica palavra. Eu estou usando o ponteiro do mouse para selecionar o texto e usando a função colar. as vezes funciona, mais as vezes ele não cola o texto certo e cola parte do código do delphi. Não entendo se é alguma proteção do site ou o que é? 

SetCursorPos(941, 385);
  Mouse_event(MOUSEEVENTF_LEFTDOWN,0,0,941,385 );
  //SetCursorPos(548, 839);
  Mouse_event(MOUSEEVENTF_LEFTDOWN,0,0,1006,385 );
  Mouse_event(MOUSEEVENTF_LEFTUP,0,0,1006,385 );

Chromium1.Browser.GetFocusedFrame.Copy;

      Edit1.SetFocus;
      Chromium1.Browser.GetFocusedFrame.Paste;
      Edit1.PasteFromClipboard;

  

[Jhonas]

realmente exitem sites que colocam proteção nas paginas para evitar cópias.

https://www.google.com.br/search?ei=9Yf_WfmoH8SuwASA3p7oBQ&q=copiar+texto+html+protegido&o que=copiar+texto+html++&gs_l=psy-ab.1.0.0i22i30k1l5j0i22i10i30k1j0i22i30k1l3j0i22i10i30k1.783437.785618.0.792124.2.2.0.0.0.0.1071.1071.7-1.1.0....0...1.1.64.psy-ab..1.1.1070....0.RuuqmOk5Sn0

o exemplo abaixo, pega o texto da pagina e joga em um Memo, depois usando o comando POS voce pode procurar a palavra que quiser no texto do Memo  e jogar em um Edit

procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
 var
  Document: IHtmlDocument2;
begin
  edit1.text:=url;
  document := webbrowser1.document as IHtmlDocument2;
  memo1.lines.add(trim(document.body.innertext));  // pegar o texto
end;

OBS: é só mudar para o  código para o componente Chromium1 em vez do WebBrowser1

Se não for isso, dê um exemplo.

abraço

 

[Wagner Campanari Pereira]

Jhonas é isso mesmo que eu preciso, só que o metodo pelo webbrowser1 não funciona no Chromium.  

Porque ele não aceita o IHtmlDocument2, pesquisando verifiquei ele não suporta.

 https://recalll.co/app/?q=chromium - How can I get IHtmlDocument2 in chrome browser? 

Não compreendi a forma de fazer no Chromium1, pelo link do site.  

 

[Wagner Campanari Pereira]

Encontrei  esse Código para o chromium, funciona mais para o que eu preciso não da certo, porque os valores que eu tenho que pegar vem de um script em java, mais vou postar para outros que precisarem.

Código: procedure ShowSource(const SRC: ustring); begin ShowMessage(SRC); end; procedure TMainForm.ChromiumLoadEnd(Sender: TObject; const browser: ICefBrowser; const frame: ICefFrame; httpStatusCode: Integer); begin // это событие срабатывает, когда документ загружен if (browser <> nil) and (browser.Identifier = Chromium.BrowserId) and ((frame = nil) or (frame.IsMain)) then Chromium.Browser.MainFrame.GetSourceProc(ShowSource); end;

preciso pegar os preços das moedas desse site https://hitbtc.com/ da listagem que aparece.

 

[Jhonas]

Com relação ao código, faltou colocar a uses

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, OleCtrls, SHDocVw, StdCtrls, Buttons;

type
  TForm1 = class(TForm)
    WebBrowser1: TWebBrowser;
    Edit1: TEdit;
    Memo1: TMemo;
    BitBtn1: TBitBtn;
    procedure WebBrowser1DocumentComplete(Sender: TObject;
      const pDisp: IDispatch; var URL: OleVariant);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

uses MSHTML;

procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
 var
  Document: IHtmlDocument2;
begin
  edit1.text:=url;
  document := webbrowser1.document as IHtmlDocument2;
  memo1.lines.add(trim(document.body.innertext));  // pegar o texto
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
   WebBrowser1.Navigate(Edit1.Text);
   WebBrowser1.Silent;
end;

end.

 informações sobre cotação :

[
  {
    "timestamp": "2017-10-20T20:00:00.000Z",
    "open": "0.050459",
    "close": "0.050087",
    "min": "0.050000",
    "max": "0.050511",
    "volume": "1326.628",
    "volumeQuote": "66.555987736"
  },
  {
    "timestamp": "2017-10-20T20:30:00.000Z",
    "open": "0.050108",
    "close": "0.050139",
    "min": "0.050068",
    "max": "0.050223",
    "volume": "87.515",
    "volumeQuote": "4.386062831"
  }
]

A listagem dos preços não aparecem como texto no Page Source da pagina

tanto que se voce tentar marcar para dar um Copy / Paste voce não consegue

eles tem uma API para isso ... voce já verificou ?

 

[Wagner Campanari Pereira]

Jhonas, tem api, mais não tenho a minima noção de como usar essa api no delphi é possivel? Gostaria de monitorar o preço das moedas e programar ordens de compra e venda.

https://hitbtc.com/api

[Jhonas]

Acho que para o delphi não ...  olhando no site descobri que é para Java, Python e PHP

https://pypi.python.org/pypi/ccxt

https://stackoverflow.com/questions/44380178/python3-hitbtc-restfull-api

https://www.mercadobitcoin.com.br/api-doc/

abraço

[Wagner Campanari Pereira]

Obrigado pela ajuda

[Jhonas]

o ultimo link que te passei, é possivel utilizar no delphi

https://www.mercadobitcoin.com.br/api-doc/

leia e veja se é o que voce quer

abraço