Search the Community

Showing results for tags 'Delphi'.



More search options

  • Search By Tags

    Type tags separated by commas.
  • Search By Author

Content Type


Forums

  • Programação & Desenvolvimento
    • ASP
    • PHP
    • .NET
    • Java
    • C, C++
    • Delphi, Kylix
    • Lógica de Programação
    • Mobile
    • Visual Basic
    • Outras Linguagens de Programação
  • WEB
    • HTML, XHTML, CSS
    • Ajax, JavaScript, XML, DOM
    • Editores
  • Arte & Design
    • Corel Draw
    • Fireworks
    • Flash & ActionScript
    • Photoshop
    • Outros Programas de Arte e Design
  • Sistemas Operacionais
    • Microsoft Windows
    • GNU/Linux
    • Outros Sistemas Operacionais
  • Softwares, Hardwares e Redes
    • Microsoft Office
    • Softwares Livres
    • Outros Softwares
    • Hardware
    • Redes
  • Banco de Dados
    • Access
    • MySQL
    • PostgreSQL
    • SQL Server
    • Demais Bancos
  • Segurança e Malwares
    • Segurança
    • Remoção De Malwares
  • Empregos
    • Vagas Efetivas
    • Vagas para Estágios
    • Oportunidades para Freelances
  • Negócios & Oportunidades
    • Classificados & Serviços
    • Eventos
  • Geral
    • Avaliações de Trabalhos
    • Links
    • Outros Assuntos
    • Entretenimento
  • Script Brasil
    • Novidades e Anúncios Script Brasil
    • Mercado Livre / Mercado Sócios
    • Sugestões e Críticas
    • Apresentações

Find results in...

Find results that contain...


Date Created

  • Start

    End


Last Updated

  • Start

    End


Filter by number of...

Joined

  • Start

    End


Group


AIM


MSN


Website URL


ICQ


Yahoo


Jabber


Skype


Location


Interests

Found 176 results

  1. Gostaria de saber como faço para fazer uma Lista Branca / Whitelist para servidores de jogos, Ex: Rust - CSGO jogos no qual são da steam, eu sei que para fazer a autenticação em servidores assim é feito pelo steamID nome da conta do usuária entre outro, para acessar o servidor do jogo queria que essa autenticação seja feita pelo meu servidor, pois estou quero para fazer um Anti - Cheater, e uma das maneiras para barrar alguém banido seria se eu meu banco de dados o Jogador A1 tive se banido ele não acessaria os servidores registrados no meu banco, assim eu retiraria no Lista Branca / Whitelist para que ele não acesse mais esses servidores protegidos pelos meus, se alguém tiver alguma ideia pode deixar ai agradeço
  2. Boa tarde, Criei um processo para alterar o IP do computador sem precisar reiniciar, porém nesse metodo tenho que passar o nome do adaptador de rede que infelizmente dependendo do SO e do adaptador isso muda, por exemplo XP "Conexão Local", W8 "Ethernet" e W10 "Rede", então qual minha ideia.... é pegar o nome desse adaptador, porém não achei como fazer....
  3. Boa tarde. Estou desenvolvendo em Delphi berlin firemonkey, preciso retornar o tamanho do papel disponível na impressora. Por exemplo A4. Como fazer isso em Delphi FMX.Printer? Fico no aguardo. Obrigado.
  4. Boa tarde. Como mandar um impressão direto para impressora e se caso a impressora tiver guilhotina acionar o mesmo? OBS(Preciso fazer isso em FMX). Fico no aguardo. Obrigado.
  5. Boa tarde, meu problema é o seguinte, tenho as classes logo abaixo. Na função CreateSQLInsert eu crio o script da tabela. (Aqui tudo OK) a procedure SetParam funciona certo desde que não tenha itens (1:1) como faria nessa procedure para setar os valores no padrão (1:N) ? // Campos da Tabela no banco de Dados TNFEmissaoDet = class(TComponent) private FPRODUTO_ID: string; FSEQUENCIA: Integer; FDESCRICAO: string; // procedure setPRODUTO_ID(const Value: string); procedure setSEQUENCIA(const Value: Integer); procedure setDESCRICAO(const Value: string); protected public constructor Create(aOwner: TComponent); override; destructor Destroy; override; published property PRODUTO_ID: string read FPRODUTO_ID write setPRODUTO_ID; property SEQUENCIA: Integer read FSEQUENCIA write setSEQUENCIA; property DESCRICAO: string read FDESCRICAO write setDESCRICAO; end; // Classe que controla os valores armazenados nos itens TItensNF = class(TObjectList) private FCount: Integer; procedure SetCount(const Value: Integer); protected {protected declarations} function GetItemNF(Index: Integer): TNFEmissaoDet; procedure SetItemNF(Index: Integer; aItemNF: TNFEmissaoDet); public {public declarations} function Add(aNotaFiscal: TNotaFiscal; aItemNF: TNFEmissaoDet): Integer; function Remove(aItemNF: TNFEmissaoDet): Integer; function IndexOf(aItemNF: TNFEmissaoDet): Integer; procedure Insert(Index: Integer; aItemNF: TNFEmissaoDet); property Items[Index: Integer]: TNFEmissaoDet read GetItemNF write SetItemNF; default; property Count: Integer read FCount write SetCount; end; // Função que monta o Script do SQL function CreateSQLInsert(aObject: TObject; aNameTable: string): string; var IndexFildList: Integer; Separador: string; Filds, aSql : TStringList; begin Filds := TStringList.Create; aSql := TStringList.Create; GetObjectProperties(aObject, Filds); // Pega os fields da Tabela try aSql.Add('insert into ' + aNameTable + '('); Separador := ''; for IndexFildList := 0 to Filds.Count-1 do begin aSql.Add(Separador + Filds[IndexFildList]); Separador := ','; end; aSql.Add(')'); aSql.Add('values('); Separador := ''; for IndexFildList := 0 to Filds.Count-1 do begin aSql.Add(Separador + ':' + Filds[IndexFildList]); Separador := ','; end; aSql.Add(')'); Result := aSql.Text; except raise Exception.Create('Erro ao gerar script SQL'); end; Filds.Free; aSql.Free; end; // Rotina para popular os valores. (Quando não tem itens funciona certinho. Tipo TClientes) {Problema agora como pegar aqui os valores dos Itens ?} procedure SetParam(aObject: TObject; aQry: TQuery); var PropCount, PropIndex: Integer; PropList: PPropList; PropInfo: PPropInfo; sValue: Variant; begin PropCount := GetPropList(aObject.ClassInfo, tkAny, nil); GetMem(PropList, PropCount * SizeOf(Pointer)); try PropCount := GetPropList(aObject.ClassInfo, tkAny, PropList); for PropIndex := 0 to PropCount - 1 do begin PropInfo := PropList^[PropIndex]; if not(PropInfo^.PropType^.Kind in tkMethods) then begin sValue := GetPropValue(aObject, PropInfo^.Name, True); case PropInfo^.PropType^.Kind of tkInt64, tkInteger: begin begin if ValidateInteger(sValue) then SetParamValueQuery(PropInfo,PropInfo^.Name, AQry, sValue); end; end; tkChar, tkString, tkLString{, tkUString}: // Para versões superiores ao Delphi 7 acrescentar tkUString begin begin if ValidateString(sValue) then SetParamValueQuery(PropInfo,PropInfo^.Name, AQry, sValue); end; end; tkFloat: begin begin if CompareText(PropInfo^.PropType^.Name, 'TDateTime') = 0 then begin if ValidateDate(sValue) then SetParamValueQuery(PropInfo,PropInfo^.Name, AQry, sValue); end else begin if ValidateFloat(sValue) then SetParamValueQuery(PropInfo,PropInfo^.Name, AQry, sValue); end; end; end; end; end; end; finally FreeMem(PropList); end; end;
  6. Boa Tarde pessoal fiquei a semana inteira quebrando cabeça com uma aplicação e não consegui resolver, eu pago quem me ajudar sem problema... Pra explicar melhor fiz um video e postei no youtube... Realmente estou disposto a pagar por uma consultoria, pois isso é muito importante pra mim, meu whatssap é ( 034 88080777 ) ddd trinta e quatro, fone oito oito zero oito zero sete sete sete. OBs: em algumas maquinas funciona normal e em outras não, já formatei, já fiz de tudo...já testei em umas 10 maquinas, algumas funcionam e outras não, não descobrir o porque, todas que testei foi com windows 7 32 e 64 aleatoriamente, já testei a aplicação local também e acontece o mesmo. Fiz um video e coloquei no youtube pra explicar melhor a situação, segue o link abaixo. Desde já agradeço;linnk https://youtu.be/2lvW1g5-sOE
  7. Bom tarde, (me desculpem se criei em lugar errado)estou utilizando o novo Delphi 10 Seattle e estou com um problema utilizando o DateTimePicker. Tenho um campo em minha tabela (banco MySQL) do tipo "TIME NOT NULL DEFAULT '00:00:00'". Esse campo sempre trabalhei sendo somente time, nunca datetime. Em meu antigo projeto com esse mesmo banco de dados, onde utilizava Delphi 7, eu utilizava um componente de terceiro com um DBDateTimePicker e funcionava perfeitamente. Porém, com a migração do meu projeto para o D10 Seattle, não tenho mais componentes de terceiros e estou usando tudo nativo. Para campos de data e hora, estou utilizando o DateTimePicker e linkando eles com Bind nos campos de minha tabela, "transformando" eles em DBWare já que (infelizmente) não existe um DBDateTimePicker nativo (mancada antiga da Embarcadero). Para os campos de data, funciona perfeitamente. Mas para os campos de hora, não funciona. Alterei a propriedade Kind para dtkTime, linkei o componente no Bind com minha query e simplesmente, no momento de trocar a hora, aponta o erro seguinte erro: "30/12/1899 07:19:00' is not a valid time". Já tentei colocar no Format "HH:mm:ss" mas não adiantou. Existe alguma propriedade ou algo que eu possa fazer sem que tenha que alterar o campo do meu banco de dados para datetime? Quem puder colaborar, agradeço Abraço a todos
  8. Bom dia companheiros, estou com uma dúvida a alguns dias e não consigo resolver, fiz um webbrowser pra acessar o bate papo da uol e mandar mensagens automaticamente(um boot) mas estou enfrentando um problema, pois no botão enviar(enviar a mensagem) ele não envia o que escrevi no edit, e só envia se eu clicar no campo da mensagem dentro da página, sendo que também o campo já é preenchido pelo edit... (lembrando que esse código funcionava perfeitamente com o modelo antigo das salas da uol, ai como mudaram o modelo das salas agora estou com esse problema...) se alguém poder me ajudar ficarei muito grato. segue abaixo o código do meu botão enviar... webbrowser1.OleObject.Document.All.item('chatMessageSend').innerHTML := edit2.text; webbrowser1.OleObject.Document.All.item('chatMessageSend', 0).click; webbrowser1.OleObject.Document.All.item('sendBtn', 0).click ;
  9. Olá senhores,Estou desenvolvendo um sistema para um cliente onde, no ato do cadastro do cliente, ele preenche um radio button que possui 3 valores relacionados a data de vencimento(por exemplo, todo dia 5). Ele quer que implemente algo que quando passasse desse dia de vencimento o status mudasse, informando que o cliente está em débito. Não tenho a mínima ideia de como fazer isso pois só tenho o dia, não uma data completa. Poderiam me ajudar? Desde já obrigado. Segue o código: if DayOf(date) > FDCadPadraoCL_DIA_VENCIMENTO.Value then begin lblStatus.Caption := 'Atrasado'; lblStatus.Color := clRed; end else begin lblStatus.Caption := 'Em dia'; lblStatus.Color := clGreen; end;
  10. Eu montei um processo atraves desse exemplo de Thread; procedure TForm2.Button2Click(Sender: TObject); var MyThread:TThread; begin ProgressBar1.Position := 0; ProgressBar2.Position := 0; MyThread := TThread.CreateAnonymousThread(procedure var i:integer; begin for i := 0 to 100 do begin TThread.Synchronize(MyThread, procedure begin ProgressBar1.Position := i; ProgressBar2.Position := i * 2; end); Sleep(100); end; end); MyThread.Start; end; porém agora o que eu preciso saber quando ela terminou para eu fechar a aplicação;
  11. Como faço para criar os campos do table em runtine de acordo com os campos de uma query ?
  12. Boa tarde, estou usando o FDBatchMoveDataSetReader1 para pegar os dados de uma query e usando o FDBatchMove1 para pegar os dados e jogar num FDBatchMoveSQLWriter1 para gravar os dados em outro lugar....o sql que retorna na query é dinamico e nem todos os campos que tem nele, terá na tabela de destino, então o que preciso é criar os mappings do FDBatchMove1 de origem e destino dinamicamente, estou fazendo assim; with FDQuery1 do begin Active := false; Close; sql.Clear; sql.add('select * from tbl_adm_configsynccampos where nm_tabelapara = ''tbl_prd_produtos'' '); open; end; while not FDQuery1.Eof do begin with BatchMove.Mappings do begin Add.SourceFieldName := FDQuery1.FieldByName('nm_campode').AsString; Add.DestinationFieldName := FDQuery1.FieldByName('nm_campopara').AsString; end; FDQuery1.Next; end; Ele está adicionando, mas está criando um item de mapping de origem e outro item de destino e não no mesmo item incluindo o destino e origem, coloquei manualmente para ver o objeto e ele deu assim; object BatchMove: TFDBatchMove Reader = Reader Mappings = < item SourceFieldName = 'origem' DestinationFieldName = 'destino' end item SourceFieldName = 'de' DestinationFieldName = 'para' end> LogFileName = 'Data.log' Analyze = [taFormatSet, taHeader, taFields] Left = 232 Top = 344 end Como faço para incluir dinamicamente ?
  13. Prezados.. Estou precisando utilizar um boleto de arrecadação um pouco diferente do normal. No local da data convencional AAAAMMDD eu preciso enviar em formato Juliano AANNN Até onde entendi funcionaria da seguinte forma: Exemplo para o dia 02/02/2017 = 17032 AA = Ano com 2 dígitos = 17 NNN = Números corridos de dia do ano = 032 Exemplo para 31/12/2017 = 17365 AA = 17 NNN = 365 Até aqui tudo bem, porém, ao gerar o codigo de barras, o Banco do Brasil diz "DATA INVÁLIDA" Procurei por mais informações e o banco me passou mais alguns esclarecimentos que juro não conseguir entender. Segue-os abaixo:
  14. Estou tentando realizar um post e estou tendo esse erro : HTTP/1.1 401 Unauthorized abaixo meu codigo; procedure TForm2.Button1Click(Sender: TObject); var dados : TStrings; retorno : string; begin IdHTTP1.Request.CustomHeaders.Clear; IdHTTP1.Request.ContentType := 'application/json'; IdHTTP1.Request.Connection := 'Keep-Alive'; IdHTTP1.Request.UserAgent := 'User-Agent:Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/58.0.3029.96 Safari/537.36'; IdHTTP1.HandleRedirects := true; dados := TStringList.Create(); try dados.Add(Memo1.Text); retorno := IdHTTP1.Post('http://127.0.0.1:888/api/teste/pedido_venda/inclui',dados); finally end; dados.Free; end;
  15. Bom dia. Peguei alguns exemplos do uso do Tray icon no firemonkey, mas todos eles estão com o seguinte bug. Quando clico em cima do ícone que se encontra ao lado do relógio do S.O. com o botão direito do mouse, o popupmenu é acionado mas ele fica atrás da bandeja dos ícones. Alguém tem uma solução para isso?
  16. Olá, Se eu quisesse criar um jogo em Delphi que muitas pessoas poderiam jogar juntas ao mesmo tempo, um jogo de estratégia, semelhante à esse jogos Web Browser (MMO). O que precisaria pra manter o jogo funcionando. Precisaria de um servidor o tempo todo ou teria como fazer uma espécie de P2P? O jogo seria desses de conseguir recursos, montar exércitos e atacar outros reinos (outros jogadores). Alguém tem idéia de como eu poderia fazer ou link pra algum tutorial sobre o assunto? Obrigado.
  17. Boa noite tenho uma programação feita direto no speedButom que programa dentro da tabela do mysql o recebimento de parcelas, preciso de ajuda pois preciso calcular: caso a parcela atrase mais que três dias 2% do valor da mesma e 0.33% por dia de atraso, agradeço a atenção segue código: (obs. estou usando xe8 com mysql e dbforge) //rotina para baixar a parcela selecionada TB_baixarParcela.Active := True; TB_baixarParcela.Locate('parc_id', SQL_parcelasProntasparc_id.Value, []); TB_baixarParcela.Edit; TB_baixarParcelaparc_pago.Value := 'SIM'; TB_baixarParcelaparc_data_pago.Value := Date; TB_baixarParcela.Post; ShowMessage('Parcela paga com sucesso !!');
  18. Olá Pessoal Tenho uma tabela cadastro e outra tabela pagamentos (paradox, sem sql). Eu preciso comparar a tabela cadastro (campo nomedealuno) com a tabela pagamentos (campo nomedealuno), para saber quem não efetuou o pagamento da mensalidade num determinado mês e ano. Eu preciso imprimir os inadimplentes e, para isso, creio que a melhor forma de fazê-lo seja subtraindo os pagadores da tabela cadastro, imprimindo os restantes, que seriam os devedores. O que vocês acham? Como fazer??
  19. Como obter o evento minimizar form no delphi firemonkey? Quero saber quando o evento foi acionado para que possa executar uma função. No delphi eu uso procedure WMSysCommand(var Msg: TWMSysCommand); Message WM_SYSCOMMAND; mas no firemonkey não funiciona. Fico no aguardo. Obrigado
  20. Boa tarde. Fiz um programa no Delphi utilizando IntraWeb modo StandAlone e enquanto está sendo executado na minha máquina, consigo utilizar o link gerado normalmente. Porém, preciso conseguir acessar o serviço em rede, ou seja, com o serviço do programa que eu criei rodando em uma máquina, quero poder acessar o link de qualquer outra máquina que também esteja na rede, mas não consigo. Como devo fazer? Obrigado.
  21. Olá amigos do Fórum.. Tenho um form produtos onde tenho dois RadiosButons, "Ativo" e "Inativo"!! Gostaria que quando eu clicasse no RadioButton("Inativo"), A linha em foco ou onde eu selecionar com o mouse ficasse "vermelha" indicando que aquele produto está inativo, mais so aquela linha selecionada.. E o outro para quando o produto ficar "Ativo" denovo, e selecionar e pintar a cor preto por exemplo.. o que eu consegui fazer ate agora sem sucesso foi isso, mais ele acaba colorindo todas as linhas.. procedure TForm5.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); begin if radiobutton2.Checked = true then //If (gdFocused in State) then begin DBGrid1.Canvas.Font.Color := clRed; end; if Radiobutton1.Checked = true then DBGrid1.Canvas.Font.Color := clGreen; DBGrid1.DefaultDrawColumnCell( Rect, DataCol, Column, State); Mais ele colori todas as linhas ao passar o mouse pelo grid.. Quem poder me ajudar a respeito disso!!
  22. olá amigos do forum,Quero saber como faço para alterar o papel de parede em uma aplicação delphi, e se tem como colocar Jpeg ou png.
  23. Boa tarde! Preciso utilizar o AppServer para fazer conexão no Delphi. Alguém tem algum material ou tutorial que possa me ajudar? Obrigado.
  24. Olá, preciso criar um instalador para meu sistema. Estou com dificuldade em relação a instalação do firebird 2.5 que é necessario para funcionar a aplicação. Tentei utilizar o installshield e smart install maker, mas não consegui localizar uma opção para rodar a instalação do firebird de forma 'silenciosa', sem que o usuario perceba que o firebird esta sendo iunstalado. Aguem poderia me dar alguma dica de qual programa usar para criar esse instalador ou como usar o installshield por exemplo para instalar o Firebird ?
  25. Ola, preciso de uma orietação. Preciso criar uma aplicação para cria e restaurar backups, conforme o exemplo do link http://torry.net/vcl/filedrv/backup/backfile.zip Porém para o Delphi XE6 não não é possivel instalar o componente TbackupFile, ao menos não encontrei. Então qual componente posso usar ou existe alguma outra forma mais eficaz para gerar arquivos de backup e depois restaurar os mesmos ? Agradeço a ajuda..