Buscar Cota��o automatica em site pelo delphi.

Question

ol� amigos,estou precisando  desenvolver uma fun��o que busque automaticamente as ultimas cota��es  do INCC do site //www.portalbrasil.net/incc.htm.tipo no onclick de um botao, o programa vai no ...

Dbergkamps10 · Answer

Ol�,Vc vai precisar de um componente TWebBrowser dentro do seu form. Para carregar o endere�o no WebBrowser, utilize o seguinte:[code:1:99015c1f1c]WebBrowser.Navigate(�//www.portalbrasil.net/incc.htm�);[/code:1:99015c1f1c]Depois de carregar vc utiliza o seguinte para colocar o resultado como TEXTO dentro de um memo:[code:1:99015c1f1c]memo1.Text := WebBrowser1.OleObject.Document.documentElement.innerText;[/code:1:99015c1f1c]Depois � so procurar dentro do memo as cota��es q vc quer buscar e atribuir os campos ao BDEspero ter ajudado.AttDalton...

Daniel Martins · Answer

excelente dica! vou testa-la e depois digo se funcionou.. por hora como eu tive que importar todos os valores antigos do indice. eu copiei as informa��es e colei num arquivo xls depois fiz uma conex�o ADO + 1 la�o para ir cadastrando os valores.

mas para manter atualizado o banco com certeza vou precisar de uma rotina de atualiza��o automatica.

obrigado

Johnny-walker · Answer

tente isto aqui, assim vc interage pelas celulas, n�o sei se � a mais f�cil ara vc, mas em todo caso aih vai...

How can I iterate through all the cells of a <TABLE>?
A: This sample code shows how to interate through all the cells of a table, adding the contents of each cell to a TMemo:
procedure TForm1.Button1Click(Sender: TObject);
var
i, j: integer;
ovTable: OleVariant;
begin
ovTable := WebBrowser1.OleObject.Document.all.tags(�TABLE�).item(0); // I�m using the first for i := 0 to (ovTable.Rows.Length - 1) do
begin
for j := 0 to (ovTable.Rows.Item(i).Cells.Length - 1) do
begin
Memo1.Lines.Add(ovTable.Rows.Item(i).Cells.Item(j).InnerText;
end;
end;
end;

bye

Daniel Martins · Answer

ol� Johnny-Walker, com rela��o ao Excel ja est� resolvido.. eu criei uma tabela e defini um nome pra ela, depois com ado fiz a conexao, da� usando um adotable fiz um la�o de repeti��o pra cadastrar todos os dados no meu banco de dados.

o mais importante agora � manter atualizado msm...

mas mesmo assim, obrigado pela dica!

F�rum Buscar Cota��o automatica em site pelo delphi. #367858