Ir para conteúdo

marcio.theis

Members
  • Total de itens

    6.588
  • Registro em

  • Última visita

Reputação

3 Comum

Sobre marcio.theis

  • Data de Nascimento 31-08-1983

Últimos Visitantes

2.191.972 visualizações
  1. marcio.theis

    DashBoard em Delphi

    Já montei um dashboard utilizando os componentes da devexpress.com eles tem componentes específicos para isto.
  2. marcio.theis

    Baixar arquivos das loterias da caixa economica

    Olhando o site da caixa, eles fazem a requisição para a seguinte URL: http://loterias.caixa.gov.br/wps/portal/!ut/p/a1/04_Sj9CPykssy0xPLMnMz0vMAfGjzOLNDH0MPAzcDbwMPI0sDBxNXAOMwrzCjA0sjIEKIoEKnN0dPUzMfQwMDEwsjAw8XZw8XMwtfQ0MPM2I02-AAzgaENIfrh-FqsQ9wNnUwNHfxcnSwBgIDUyhCvA5EawAjxsKckMjDDI9FQE-F4ca/dl5/d5/L2dBISEvZ0FBIS9nQSEh/pw/Z7_HGK818G0KO6H80AU71KG7J0072/res/id=buscaResultado/c=cacheLevelPage/=/ E para buscar um concurso precisa adicionar dois parâmetros: timestampAjax e concurso Exemplo: http://loterias.caixa.gov.br/wps/portal/!ut/p/a1/04_Sj9CPykssy0xPLMnMz0vMAfGjzOLNDH0MPAzcDbwMPI0sDBxNXAOMwrzCjA0sjIEKIoEKnN0dPUzMfQwMDEwsjAw8XZw8XMwtfQ0MPM2I02-AAzgaENIfrh-FqsQ9wNnUwNHfxcnSwBgIDUyhCvA5EawAjxsKckMjDDI9FQE-F4ca/dl5/d5/L2dBISEvZ0FBIS9nQSEh/pw/Z7_HGK818G0KO6H80AU71KG7J0072/res/id=buscaResultado/c=cacheLevelPage/=/?timestampAjax=1517410180591&concurso=2006 E o retorno vem em JSON, bem fácil de manipular.
  3. marcio.theis

    Consulta SQLSERVER LENTA

    Você tem índices nesta tabela? Chegou a analisar o que esta deixando a tabela lenta, qual campo que esta fazendo a consulta ficar lenta?
  4. marcio.theis

    Problema para pular resultados de consulta

    Boa tarde. Veja se desta forma é o que precisa: SELECT * FROM ( SELECT GuildMember.G_Name as G_Name, SUM(Character.Resets) as TotalResets, ROW_NUMBER() OVER(ORDER BY SUM(Character.Resets) DESC) as Rank FROM MuOnline.dbo.GuildMember, MuOnline.dbo.Character WHERE GuildMember.Name = Character.Name GROUP BY GuildMember.G_Name HAVING SUM(Character.Resets) >= 0 ) AS LISTA WHERE LISTA.RANK > 4
  5. marcio.theis

    Pegar números próximos

    Bom dia. Uma forma simples de fazer seria: DECLARE @NUMERO INT = 5 SELECT TOP 10 ABS(TABELA.NUMERO - @NUMERO) AS DIFERENCA, TABELA.NUMERO FROM TABELA ORDER BY 1, 2 Digamos que tenhamos uma lista de números de 1 a 15, e o número 5 não exista na tabela, vai retornar a menor diferença para o número ordenado de forma crescente, ficando:
  6. Uma forma bem simples de fazer é: SELECT * INTO TESTE FROM ( SELECT COLUNA_1, COLUNA_2 FROM TABELA_1 UNION ALL SELECT COLUNA_1, COLUNA_2 FROM TABELA_2 ) AS TABELAS Vai criar uma tabela chamada TESTE com a união dos dados de TABELA_1 e TABELA_2.
  7. Boa tarde. Já tive este problema, o que acabei fazendo foi migrar para o Access Database Engine https://www.microsoft.com/en-us/download/details.aspx?id=13255 Depois de instalar precisa configurar o Provider (Microsoft.ACE.OLEDB.12.0) no LinkedServer do SQL Server marcando as opções AllowInProcess e DynamicParameters Seu comando irá ficar: INSERT INTO Conversoes SELECT * FROM OPENROWSET ('Microsoft.ACE.OLEDB.12.0', 'EXCEL 4.0;Database=C:\Users\Caio\Desktop\hoje.XLS', Planilha1$)
  8. marcio.theis

    TIdHttp e TIdSSLIOHandlerSocketOpenSSL

    Boa tarde. Para este link esta dando o seguinte retorno; {"status": {"message": "Forbidden","status_code": 403}}
  9. marcio.theis

    DBGRID VAZIO QUANDO A QUERY ESTÁ NO DATAMODULE

    Boa tarde. Já fez testes para ver se esta sendo criado o DataModule, e a conexão e a query estão abertas?
  10. marcio.theis

    Ferramenta para Gestão de Campanhas de SEO

    Olá, veja se a ferramenta hubspot, atende o que você precisa.
  11. marcio.theis

    Foco do TEdit

    Você tem algum evento de controle como OnKeyDown, OnKeyPress ou algum outro?
  12. marcio.theis

    CopyFile não copia arquivo

    O CopyFile precisa que se defina o arquivo na origem e destino, testa desta forma e veja se funciona: procedure TfrmData.btCopiar(Sender: TObject); var arqdata, vpasta : String; begin arqdata:='C:\SFB\data\2017\02\21\YTX4L-BS-16-144115.txt' vpasta:='Z:\'+IntToStr(n)+'\' + ExtractFileName(arqdata); //n é um numero de 1 a 20 CopyFile(PChar(arqData),PChar(vpasta),True); end;
  13. marcio.theis

    Integração Serasa...

    Bom, não cheguei a ver isto no componente ainda... Assim que sobrar um tempo eu verifico...
  14. marcio.theis

    Integração Serasa...

    Não tenho, o sistema monta ela de diversas partes...
  15. marcio.theis

    Integração Serasa...

    Quase a mesma coisa, exemplo: IEHTTP1.ExecuteURL(url); Memo.Text:=IEHTTP1.sl.Text;
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.