Jump to content
Fórum Script Brasil

Vírus~

Membros
  • Content Count

    14
  • Joined

  • Last visited

Community Reputation

0 Neutro

About Vírus~

Perfil

  • Location
    Americana - SP
  1. Já desisti e passei a usar TABLE... Percebi que div modo tabela não funcionava em internet explorer... Grato.
  2. Olá, Estou com um problema ao esconder várias linhas de uma tabela em DIV, se alguém puder ajudar será muito bem vindo... Exemplo: <div style="display: table;"> <div style="display: table-row;"> <div style="display: table-cell;"> Celula 1</div> <div style="display: table-cell;"> Celula 2</div> </div> <div style="display: table-row;"> <div style="display: table-cell;"> Celula 1,1</div> <div style="display: table-cell;"> Celula 2,1</div> </div> <div style="display: table-row;"> <div style="display: table-ce
  3. tr.scrollIntoView(True); try i:=GetCurrentWbPos(WebBrowser1); finally ScrollWb(WebBrowser1, i + 200); end; Não funcionou, fiz assim... Expliquei errado no post anterior... queria dizer que o scrollIntoView funciona, mas o outro não :/
  4. Nãodeu. Fiz assim Dei o scrool, ai ele foi sozinho até o treco, depois mandei descer 200, 500 e não desceu nada @[email protected]
  5. Aproveitando o tópico para outra dúvida do mesmo assunto: O comando "tr.scrollIntoView(True);" vai levar o documento até a 'ponta' do que ta escrito... Eu queria que ele descesse umas 2 ou 3 linhas a mais, para mostrar o scrap inteiro (vou tirar foto)... Tentei o "WebBrowser1.ScrollBy();" mas ele desce o treco todo e a foto continua saindo identica. Se alguém (Churc) souber como fazer isso... agradeço novamente a ajuda XD
  6. Postando a solução para quem algum dia precisar disso ^^ Me ajudam eu ajudo também quem precisar :P 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_outerT
  7. Ahhhhhhhhhh!!! Funcionou. Bom saber que tem gente inteligente assim em Americana (Y) XD Obrigado²³¹³¹²³¹²³²¹ Churc ;D
  8. você quer fazer um CE, é isso? O.ô
  9. Olha, encontrei um código que funciona como preciso: procedure TForm2.WBFindDialog(AWebBrowser: TWebbrowser); const CGID_WebBrowser: TGUID = '{ED016940-BD5B-11cf-BA4E-00C04FD70816}'; HTMLID_FIND = 1; var CmdTarget : IOleCommandTarget; vaIn, vaOut: OleVariant; PtrGUID: PGUID; begin New(PtrGUID); PtrGUID^ := CGID_WebBrowser; if AWebBrowser.Document <> nil then try AWebBrowser.Document.QueryInterface(IOleCommandTarget, CmdTarget); if CmdTarget <> nil then try CmdTarget.Exec(PtrGUID, HTMLID_FIND, 0, vaIn, vaOut); finally
  10. Não entendi. Você quer um componente que mostre porcentagem? Tenta usar o MaskEdit com a ultima casa porcentagem... É isso? '-'
  11. Testei o código... Ele funciona nas páginas normais (no google funciona, etc) mas no orkut não ;x~ Esse é o problema, ele simplesmente não busca nada '-' Já é o 3 código desse tipo que usa... Código que analisa HTML não funciona, porque o código do orkut é todo importado, não da nem para salvar as páginas. Tem que ser alguma função que faça uma busca identica à busca dos navegadores... Elas encontram as palavras no orkut, mas no delphi as funções comuns não estão funcionando não :/ Nota: Obrigado pela resposta ^^ Se souber algum outro código ou como posso achar isso agradeço muito '-'
  12. Hi there. Gostaria de saber como posso descobrir se há algo em uma página. Exemplificando: Quero saber se no google.com existe a palavra "amigo" escrito. Mas não posso puxar o html para pesquisar nele (estou trabalhando com um site que usa import por javascript). Ok ok, direto ao ponto. É um programa que ficará monitorando meu orkut (ele puxa tudo por javascript, html não pega os textos...) e se encontrar alguma palavra de xingamento (de uma lista de palavras) me avisa imediatamente (com uma mensagem na tela). O que preciso saber é apenas como descobrir se há algo escrito na página... Já p
×
×
  • Create New...