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.883 visualizações
  1. DashBoard em Delphi

    Já montei um dashboard utilizando os componentes da devexpress.com eles tem componentes específicos para isto.
  2. 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. 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. 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. 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. TIdHttp e TIdSSLIOHandlerSocketOpenSSL

    Boa tarde. Para este link esta dando o seguinte retorno; {"status": {"message": "Forbidden","status_code": 403}}
  9. 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. Ferramenta para Gestão de Campanhas de SEO

    Olá, veja se a ferramenta hubspot, atende o que você precisa.
  11. Foco do TEdit

    Você tem algum evento de controle como OnKeyDown, OnKeyPress ou algum outro?
  12. 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. preciso criar checkbox em tempo de execução

    Precisa criar o TPageControl e o TGroupBox da mesma forma que cria o TCheckBox, uma auda para iniciar... unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons, ComCtrls; type TForm1 = class(TForm) BitBtn1: TBitBtn; procedure BitBtn1Click(Sender: TObject); private { Private declarations } function PageControl(objetoOwner: TWinControl): TWinControl; function GroupBox(objetoOwner: TWinControl): TWinControl; procedure CheckBox(objetoOwner: TWinControl; rotulo: string; coluna, altura: integer); public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} function TForm1.PageControl(objetoOwner: TWinControl): TWinControl; var page: TPageControl; begin page:=TPageControl.Create(objetoOwner); page.Parent:=objetoOwner; page.Height:=250; page.Top:=10; page.Width:=550; page.Left:=10; PageControl:=page; end; function TForm1.GroupBox(objetoOwner: TWinControl): TWinControl; var grupo: TGroupBox; begin grupo:=TGroupBox.Create(objetoOwner); grupo.Caption:=' Teste: '; grupo.Parent:=objetoOwner; grupo.Height:=225; grupo.Top:=10; grupo.Width:=525; grupo.Left:=10; GroupBox:=grupo; end; procedure TForm1.CheckBox(objetoOwner: TWinControl; rotulo: string; coluna, altura: integer); var check: TCheckBox; begin check:=TCheckBox.Create(objetoOwner); check.Parent:=objetoOwner; check.Caption:=rotulo; check.Top:=(altura * 17); check.Width:=175; check.Left:=(coluna * 160) - 145; end; procedure TForm1.BitBtn1Click(Sender: TObject); var x, y: integer; owner: TWinControl; begin owner:=GroupBox(PageControl(Self)); for y:=1 to 3 do for x:=1 to 11 do CheckBox(owner,'Check Box (Col: ' + IntToStr(y) + ', Linha: ' + IntToStr(x) + ')',y,x); end; end.
  14. Aplicações desenvolvidas em Delphi

    Se você já teve curiosidade ou já lhe perguntaram sobre programas desenvolvidos em delphi, abaixo no link tem uma lista de algumas aplicações famosas e também desconhecidas feitas em delphi... http://delphi.wikia.com/wiki/Good_Quality_...ilt_With_Delphi
  15. Integração Serasa...

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

Informação importante

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

Este projeto é mantido e patrocinado pelas empresas:
Hospedado por: