Clique abaixo para nos ajudar
Login

Esqueci minha senha

Estamos no Facebook
Buscar
 
 

Resultados por:
 


Rechercher Busca avançada

Quem está conectado
12 usuários online :: Nenhum usuário registrado, Nenhum Invisível e 12 Visitantes :: 2 Motores de busca

Nenhum

[ Ver toda a lista ]


O recorde de usuários online foi de 468 em 1/3/2012, 10:43
Últimos assuntos
USAR REPORT FORM

30/12/2016, 09:06 por AJC

Pessoal bom dia,
Estou com um grande problema, já pesquisei muita coisa sobre report form, mas o …

Comentários: 3

Impressora Ticket

15/11/2016, 09:20 por clima238

Bom dia,
Por favor alguém me explique porque o código abaixo imprime no ecrã em vez do printer: …

Comentários: 2

Visite meu canal no Youtube

20/1/2017, 00:45 por ImRicoh

VFP Unlimited


Comentários: 0

Bloquear edição do ListBox

17/6/2010, 15:13 por Julio

Pessoal

Boa Tarde!

Tnho uma listbox apenas para exibir o resultado.
Preciso bloquear a listbox …

Comentários: 17

automação do mozilla e chrome

15/1/2017, 12:16 por Handerson Mildroz

Boa tarde a todos!

Sou iniciante no VFP. Preciso de ajuda, pois tenho um código que usa o …

Comentários: 0

Estatísticas
Temos 6991 usuários registrados
O último usuário registrado atende pelo nome de cpmacedo

Os nossos membros postaram um total de 9 mensagens em 3 assuntos

Cotações

Ver o tópico anterior Ver o tópico seguinte Ir em baixo

Resolvido Cotações

Mensagem por pablo_frosi em 7/11/2009, 18:11

Alguém conhece algum WebService, ou qualquer site que forneça informações de cotações de moeda e de ações através de algum parâmetro ou array?

O meu objetivo é criar um sistema para esse tipo de informações, porém eu preciso do essencial, as cotações!

Grato!

pablo_frosi
Começando a Participar
Começando a Participar


Voltar ao Topo Ir em baixo

Resolvido Re: Cotações

Mensagem por alceu11 em 8/11/2009, 11:44

achei este site
link
[Você precisa estar registrado e conectado para ver este link.]

[Você precisa estar registrado e conectado para ver este link.]

[Você precisa estar registrado e conectado para ver este link.]

depois olha isto que nao entendi direito

[Você precisa estar registrado e conectado para ver este link.]

alceu11
Usuário 5 Estrelas
Usuário 5 Estrelas


Voltar ao Topo Ir em baixo

Resolvido Re: Cotações

Mensagem por pablo_frosi em 8/11/2009, 22:05

Tá, certo, mas e como eu faço então pra trazer essas informações pra dentro de um sistema?!

pablo_frosi
Começando a Participar
Começando a Participar


Voltar ao Topo Ir em baixo

Resolvido Re: Cotações

Mensagem por Marcos Guedes em 8/11/2009, 23:09

Olá, Pablo!
Você poderia explicar quais informações você gostaria de obter do site, e qual o link do mesmo?

Acredito que você poderia utilizar um objeto da classe "MSXML2.XMLHTTP" para buscar tais informações, via POST ou GET.

_________________
Marcos Guedes - Programador e desenvolvedor Web.


Visite o nosso portal:
[Você precisa estar registrado e conectado para ver este link.]

Marcos Guedes
Webmaster
Webmaster


Voltar ao Topo Ir em baixo

Resolvido Re: Cotações

Mensagem por pablo_frosi em 9/11/2009, 13:51

Bom, as informações seriam várias! hahaha

Desde Balanços à Cotações mesmo! Porém, o site que há mais confiança seria o [Você precisa estar registrado e conectado para ver este link.]
Eu preciso das informações atualizadas, geralmente esses esquemas de cotações tem a informação com atraso. E nesse site que passei é tudo separado, ou seja pra pegar, por exemplo, a cotação da VALE5, ECOD3 e PETR4 eu teria que acessar 3 páginas, no mínimo, para pegar somente as cotações.

Com a classe "MSXML2.XMLHTTP" eu consigo trazer os dados pra dentro d form, ou só em formato HTML?

pablo_frosi
Começando a Participar
Começando a Participar


Voltar ao Topo Ir em baixo

Resolvido Re: Cotações

Mensagem por Marcos Guedes em 9/11/2009, 13:54

[Você precisa estar registrado e conectado para ver este link.] escreveu:Com a classe "MSXML2.XMLHTTP" eu consigo trazer os dados pra dentro d form, ou só em formato HTML?
Você receberia em formato HTML, mas aí usarias a função STREXTRACT() para filtrar apenas os dados necessários.

_________________
Marcos Guedes - Programador e desenvolvedor Web.


Visite o nosso portal:
[Você precisa estar registrado e conectado para ver este link.]

Marcos Guedes
Webmaster
Webmaster


Voltar ao Topo Ir em baixo

Resolvido Re: Cotações

Mensagem por Marcos Guedes em 9/11/2009, 16:21

Pablo, criei uma função a partir do link [Você precisa estar registrado e conectado para ver este link.] o qual foi disponibilizado por Alceu.

Seria algo assim que você precisa?
Código:
LOCAL ocursor AS STRING
LOCAL contador AS INTEGER
*!*
m.ocursor = cotacoes()
*!*
IF USED(m.ocursor) THEN
   SELECT(m.ocursor)
   GO TOP
   BROWSE
   USE IN SELECT(m.ocursor)
ENDIF
*!*
FUNCTION cotacoes AS STRING
   LPARAMETERS nomecursor AS STRING
   *!*
   LOCAL url AS STRING
   LOCAL parametros AS STRING
   LOCAL cotacao AS STRING
   LOCAL conttemp AS INTEGER
   LOCAL valor as Number
   LOCAL crescimento as Number
   LOCAL pointTemp as String
   LOCAL cstatus as String
   *!*
   IF ( VARTYPE(m.nomecursor)!="C" OR EMPTY(m.nomecursor) ) THEN
      nomecursor = SYS(2015)
   ENDIF
   *!*
   CREATE CURSOR (m.nomecursor) (cotacao c(20), cstatus c(10), valor n(10,2), crescimento n(10,2))
   *!*
   m.url = "http://g1.globo.com/Noticias/Economia_Negocios/0,,OLL0-9356,00.html"
   m.parametros = ""
   m.conttemp = 1
   *!*
   m.loxmlhttp = CREATEOBJECT("MSXML2.XMLHTTP")
   m.loxmlhttp.OPEN("POST",m.url,.F.)
   m.loxmlhttp.setrequestheader("content-type", "application/x-www-form-urlencoded")
   m.loxmlhttp.SEND(m.parametros)
   m.lcresponse = loxmlhttp.responsetext
   m.loxmlhttp = .NULL.
   *!*
   m.cotacao = STREXTRACT(m.lcresponse,[alt=''>],[</th>],  m.conttemp)
   DO WHILE !EMPTY(m.cotacao)
      *!* Extrai os valores que serão armazenados no cursor
      m.cstatus = STREXTRACT(m.lcresponse,[<td class="colA">],[</td>],  m.conttemp)
      m.valor = STRTRAN( STREXTRACT(m.lcresponse,[<td class="colB">],[</td>],  m.conttemp), ".", "")
      m.crescimento = STRTRAN( STRTRAN( STREXTRACT(m.lcresponse,[<td class="colC">],[</td>],  m.conttemp), ".", ""), "%", "")
      *!* Converte os valores, em formato string, para numérico
      m.pointTemp = SET("Point")
      SET POINT TO ","
      m.valor = VAL(m.valor)
      m.crescimento = VAL(m.crescimento)
      SET POINT TO (m.pointTemp)
      *!*
      INSERT INTO (m.nomecursor) (cotacao, cstatus, valor, crescimento) VALUES (m.cotacao, m.cstatus, m.valor, m.crescimento)
      *!*
      m.conttemp = m.conttemp + 1
      m.cotacao = STREXTRACT(m.lcresponse,[alt=''>],[</th>],  m.conttemp)
   ENDDO
   *!*
   RETURN m.nomecursor
ENDFUNC

Obs: É necessário apenas executar o código acima.

Espero ter ajudado!
Smile

_________________
Marcos Guedes - Programador e desenvolvedor Web.


Visite o nosso portal:
[Você precisa estar registrado e conectado para ver este link.]

Marcos Guedes
Webmaster
Webmaster


Voltar ao Topo Ir em baixo

Resolvido Re: Cotações

Mensagem por pablo_frosi em 9/11/2009, 16:33

Beleza cara, testarei em casa, sabe como é... não misturar trabalho com coisas pessoais! hahahaha

pablo_frosi
Começando a Participar
Começando a Participar


Voltar ao Topo Ir em baixo

Resolvido Re: Cotações

Mensagem por Marcos Guedes em 9/11/2009, 16:43

hahahahaha
Beleza!

Se resolver avisa!
Qualquer coisa estamos por aqui.

Very Happy

_________________
Marcos Guedes - Programador e desenvolvedor Web.


Visite o nosso portal:
[Você precisa estar registrado e conectado para ver este link.]

Marcos Guedes
Webmaster
Webmaster


Voltar ao Topo Ir em baixo

Resolvido Re: Cotações

Mensagem por pablo_frosi em 9/11/2009, 20:55

Só não te xingo porque queimaria nossos filmes! hahahaha
#@$%&*@!)(+_-#, funfo certinho, onde vc aprendeu sobre as API do Win?

Só que claro, quero aprender pq tenho que reunir muitas informações agora, já que estou tratando com análise gráfica.

pablo_frosi
Começando a Participar
Começando a Participar


Voltar ao Topo Ir em baixo

Resolvido Re: Cotações

Mensagem por Marcos Guedes em 9/11/2009, 22:30

[Você precisa estar registrado e conectado para ver este link.] escreveu:Só não te xingo porque queimaria nossos filmes! hahahaha
#@$%&*@!)(+_-#, funfo certinho, onde vc aprendeu sobre as API do Win?

Só que claro, quero aprender pq tenho que reunir muitas informações agora, já que estou tratando com análise gráfica.
hahahahaha
Irei tomar isto como sendo um problema solucionado, mas qualquer coisa é só avisar.

Quanto a API do Windows, ainda estou aprendendo...
Very Happy

O caminho é longo pela frente.
A dúvida que fiquei agora é o que se passou na sua cabeça quando você me xingou com #@$%&*@!)(+_-#.

hahahahahahahaha

Mas vamos deixar isto pra lá por causa dos menores de idade.
afro

_________________
Marcos Guedes - Programador e desenvolvedor Web.


Visite o nosso portal:
[Você precisa estar registrado e conectado para ver este link.]

Marcos Guedes
Webmaster
Webmaster


Voltar ao Topo Ir em baixo

Resolvido Re: Cotações

Mensagem por pablo_frosi em 10/11/2009, 20:47

Pow, sou de menor aqui! hahahaha
E sobre o "#@$%&*@!)(+_-#" era outra coisa que eu havia postado, mas sei lá o que deu!

Ou eu que estava com muito sono! hahaha

pablo_frosi
Começando a Participar
Começando a Participar


Voltar ao Topo Ir em baixo

Resolvido Re: Cotações

Mensagem por Marcos Guedes em 11/11/2009, 07:04

hahahahahaha

Basketball

Very Happy

_________________
Marcos Guedes - Programador e desenvolvedor Web.


Visite o nosso portal:
[Você precisa estar registrado e conectado para ver este link.]

Marcos Guedes
Webmaster
Webmaster


Voltar ao Topo Ir em baixo

Resolvido Re: Cotações

Mensagem por RafaelSegat em 11/11/2009, 08:15

Legal!
Muito interessante "MSXML2.XMLHTTP"

RafaelSegat
Participante Regular
Participante Regular


Voltar ao Topo Ir em baixo

Resolvido Re: Cotações

Mensagem por Marcos Guedes em 11/11/2009, 09:54

Vale lembrar um detalhe:
Quando houver mudanças nos valores das cotações, o ideal é ficar atento se a páginas na qual a função está se baseando também será atualizada, pois senão deveremos mudar a url e adaptar a função.

Obs: Esta função foi apenas um exemplo de que podemos obter as informações necessárias a partir de um site confiável.


_________________
Marcos Guedes - Programador e desenvolvedor Web.


Visite o nosso portal:
[Você precisa estar registrado e conectado para ver este link.]

Marcos Guedes
Webmaster
Webmaster


Voltar ao Topo Ir em baixo

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo


 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum