quot;Pegarquot; dados de uma página na web.
29/09/2004
0
codigo situacao
001 concluida
002 pendente
...
Queria armazenar isso em um banco de dados, ou em uma variavel de forma automática. Como sou meio leigo em delphi, se alguem puder me ajudar...
Yanomami
Posts
29/09/2004
Rodc
[color=darkred:7ee53f8ddd]var
document: IHTMLDocument2;
begin
document := urlBrowser.Document as IHTMLDocument2;
if Assigned(document) then
begin
mTexto.Text := document.body.innerText;
end;
end;[/color:7ee53f8ddd]
29/09/2004
Yanomami
Obrigado.
29/09/2004
Rodc
Substitua todo o código pelo abaixo e faça os links do FormCreate e do Botão.
[color=darkred:ae92e87d80]unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, OleCtrls, SHDocVw;
type
TForm1 = class(TForm)
WebBrowser1: TWebBrowser;
Memo1: TMemo;
Button1: TButton;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses ActiveX;
{$R *.DFM}
procedure TForm1.FormCreate(Sender: TObject);
begin
WebBrowser1.Navigate(´http://www.uol.com.br´);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Memo1.Text := WebBrowser1.OleObject.Document.documentElement.innerText
end;
initialization
OleInitialize(nil);
finalization
OleUninitialize;
end.[/color:ae92e87d80]
29/09/2004
Yanomami
Agradeço pela ajuda, funcionou perfeitamente...
Um bom dia.
09/11/2004
Emir Neto
Eu voi e digito no meu programa os mesmos dados e quando clico no botão ok ele envia para o site os dados e sou cadastrado lá.
09/11/2004
Rodc
[color=darkred:85301e7c8a]WebBrowse1.Navigate(´http://www.google.com.br/search?hl=pt-BR&q=texto_pesquisa´);[/color:85301e7c8a]
mas caso o site não tenha esta opção, aí vc pode estar preenchendo os campos usando o código do site http://www.swissdelphicenter.ch/en/showcode.php?id=262
Neste código pode ser implementado também o evento do clique no botão. Basta achar o componente do botão e fazer
[color=darkred:85301e7c8a]FormItem.Item(j).Click;[/color:85301e7c8a]
09/11/2004
Emir Neto
14/10/2008
Psycho
Mais como entrar em um sistema de login user/senha?
Clique aqui para fazer login e interagir na Comunidade :)