Ir para conteúdo
Fórum Script Brasil

Pesquisar na Comunidade

Mostrando resultados para as tags ''delphi''.

  • Pesquisar por Tags

    Digite tags separadas por vírgulas
  • Pesquisar por Autor

Tipo de Conteúdo


Fóruns

  • 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

Encontrar resultados em...

Encontrar resultados que...


Data de Criação

  • Início

    FIM


Data de Atualização

  • Início

    FIM


Filtrar pelo número de...

Data de Registro

  • Início

    FIM


Grupo


AIM


MSN


Website URL


ICQ


Yahoo


Jabber


Skype


Location


Interests

  1. Olá pessoal da scriptbrasil, Estou desenvolvendo um software de proteção para minha empresa, porém me surgiu a necessidade de fazer com que meu aplicativo inicie antes de efetuar o logon no Windows. Procurei por exemplos no google é não achei nada similar, alguém poderia me ajudar?? obrigado.
  2. Código usado:#Código 1 2 3 4 5 6 7 8 9 10 11 procedure TForm1.Button1Click(Sender: TObject); var vXMLDoc: TXMLDocument; no_Principal,no_pai,no_cabecalho: IXMLNode; begin vXMLDoc := TXMLDocument.Create(self); vXMLDoc.LoadFromFile('nfe.xml'); no_Principal := vXMLDoc.DocumentElement.ChildNodes.FindNode('Nfe'); no_pai := no_Principal.ChildNodes.FindNode('infNFe'); no_cabecalho := no_pai.ChildNodes['ide']; Edit1.Text := no_cabecalho.ChildNodes['serie'].Text; end; xml que esta lendo:-<Nfe>-<infNFe>-<ide><serie>2</serie></ide></infNFe></Nfe>
  3. Olá, preciso criar uma procedure "simples", para mostrar todas as informações de uma tabela, porém retorna erro ao executar. O comando que estou usando é:create or alter procedure lista_estoquebeginselect * from estoquesuspend;end;O que pode estar errado ?
  4. Olá amigos da script Brasil, estou desenvolvendo um keylogger para um jogo online (WEB), então preciso capturar apenas o que for digitado no campo login/senha . os inputs do site estão assim: <input type="text" name="GC_login"> <input type="password" name="GC_senha"> Preciso capturar em tempo real o que foi digitado nesses campos. Abrs
  5. Boa tarde alguém já viu isso o quickreport esta duplicando dados na hora de visualizar Relatórios Exemplo OS Data 29 10/07/2015 29 10/07/2015 30 11/11/2015 já verifiquei o SQL, não existe dados duplicados no banco é só na hora de imprimir, alguém já viu isso?
  6. alex.areis

    TPlanner

    Bom dia, estou começando a usar o componente tplanner para criar uma agenda de compromissos e estou tenho dificuldade em adicionar os dias nos grupos, para navegar por semanas nas colunas, se algum souber de algo...
  7. Olá pessoal da script brasil. Preciso posicionar meu Form dentro do navegador Google Chrome / Internet Explorer / Opera / Mozilla Firefox. Aqui está uma screenshot da parte que quero por meu form: http://prntscr.com/8g7tv8 Aqui está outra screenshot de como eu quero que fique assim: http://prntscr.com/8g7vb2 Procurei de tudo na internet e não achei, se poderem me ajudar irei agradeçer muitoo
  8. Olá pessoal da scriptbrasil . Gostaria de saber como faço para capturar URLs digitadas nos navegadores (firefox,chrome,explorer..) Por exemplo, se digitarem: (www.scriptbrasil.com.br) ele da um ShowMessage avisando que achou a URL . Tem algum codigo de exemplo ?? abraços..
  9. Código ! Link Para Teste ! http://mac.hplivre.com.br/bcash.html Help !
  10. Bom, tenho um form (Flogin) e um (Fprinciapl). No delphi, coloquei o Flogin como main form. O problema é que ao clicar em ok no Flogin e abrir a tela do form Fprincipal, ele não aparece na barra de tarefas, apenas o Flogin aparece na barra de tarefas, ao abrir o form Fprincipal já não fica mais na barra. Ao clicar em ok no form Flogin, o Flogin fica invisivel e da um showmodal no Fprincipal, mas ai acontece isso que mencionei. Teria como deixar o Fprincipal como main form depois que ele é aberto ? Ou teria outra forma de resolver isso ?
  11. Eu Gostaria de alterar apenas a cor da descrição de apenas um registro no dbGrid, por exemplo, na linha do item CELULAR, apenas a palavra celular ficar em vermelho, estou usando o código abaixo, porem todos os registros da linha ficam na cor vermelha. #Código if (condição...) then begin DBGrid1.Canvas.Brush.color := clGradientInactiveCaption; DBGrid1.Canvas.font.color := clRed; DBGrid1.Canvas.FillRect(Rect); DBGrid1.Canvas.TextOut(Rect.Left+2,Rect.Top,Column.Field.AsString); end; E também por que quando coloco algo no evento OnDrawColumnCell alguns registros da linha ficam alinhados de forma diferente, exemplo, as informações que antes estavam alinhadas a direita ficam alinhadas para a esquerda e tambem os campos de valores, ex(2,00) perdem a virgula ficando apenas o 2 !
  12. Olá, gostaria de saber como pegar a posição da coluna e da linha de um dbGrid e então gravar esse valor em uma variável, que provavelmente vai ser do tipo integer. Pois ao abrir o form, a dbGrid vai receber a posição que esta nas variáveis,retornando ao campo que estava antes. Alguém poderia me ajudar como poderia fazer isso ?
  13. Olá, estou começando a trabalhar com vendas no meu sistema, porem estou com duvidas de como fazer o vinculo com essas tabelas, exemplo, ao dar dois clicks na tabela de venda, vai abrir a venda que foi selecionada com as informações da venda e informações dos itens que estão na venda que vem de outra tabela. Acredito que todas as tabelas teriam de estar em mesmo clientdataset. Como poderia fazer isso ?
  14. Tenho um ClientDataSet_estoque do qual exibe as informações do fornecedor de outro ClientDataSet, do ClientDataSet_forncedor, fiz isso através de um campo virtual no ClientDataSet_estoque, porem não consigo fazer filtro nesse campo virtual do fornecedor, acredito que por motivo de estar em outro ClientDataSet, mas tentei de varias formas e não deu certo, nos outros campos que são do próprio ClientDataSet_estoque consigo filtrar normal, apenas o campo virtual do fornecedor que não. Alguém sabe como poderia ser feito esse filtro ?
  15. Alguém sabe como seria um algoritmo de ordenação de letras e outro para data ?
  16. Estou com dificuldade para colocar as barras de rolagem, procurei em vários sites, porém todos informam que basta colocar o ScrollBox, alinhar ele como alClient, então colocar os componentes nele, mas fiz isso e as barras de rolagem não aparecem, e a opção autoScroll esta ativa. Estou usando Delphi XE6, agradeço se conseguirem me ajudar
  17. Olá, preciso gravar algumas informações que estão na variável (arquivo) do tipo TStringList para o banco de dados, no banco de dados esta como Blob. Estou com dificuldades para fazer essa conversão. Veja o código: var arquivo:TStringList; begin arquivo := TSTringList.Create; arquivo.Add('.........'); ClientDataSet_teste.Insert; ClientDataSet_teste.FieldByName('info'). .. >> depois disso, como poderia fazer para que o ClientDataSet receba o valor da variável arquivo ! ClientDataSet_teste.post; ClientDataSet_teste.ApplyUpdates(0);
  18. Olá pessoal. Faz tempo que não dou as caras por aqui. :) Volto hoje com uma dúvida. Já há algum tempo meu programa desktop armazena a senha encripitada utilizando o componente TLbSHA1 TurboPower LockBox (LockBox 2). Só que recentemente eu estou fazendo uma pequena implementação em PHP onde utilizo a função sha1 para codificar a senha de entrada, porém ela nunca é igual àquela que foi armazenada via app desktop. já tentei utilizar outro código de emcriptação no Delphi (Crypt.SHA1.pas), mas segue com o mesmo problema. Assim, minha pergunta é: tem alguém aqui que utiliza ou já utilizou desta combinação (BD acessado via Delphi e PHP) incluindo a criptografia sha1 e teve sucesso na validação por ambas as aplicações? Se sim, o que é que eu estaria deixando de fazer o como deveria proceder para resolver este problema? Grato pela atenção Micheus
  19. Olá, estou com um pequeno problema, ao fazer um filtro por código retorna erro informando que a expressão terminou incorretamente. Porém não consegui achar uma forma de funcionar. Veja código abaixo : fEstoque.ClientDataSet_estoque.Filter := 'COD_PRODUTO>='''+(Edit_cod_inicial.Text+''''+ 'COD_PRODUTO<='''+Edit_cod_final.Text)+'''';
  20. Olá amigos, estou gerando um relatório do qual contém as informações de todas as colunas do produto: código, cod_barras,descrição, preço etc. Gostaria de fazer um método de que o usuário escolhe-se quais campos vão sair no relatório. Meu código esta desta forma : #Código .... AssignFile ( arq, 'C:\Relatório.txt' ); Rewrite ( arq ); ClientDataSet_estoque.First; writeln(arq,'Código Cód. Barras Descrição'); writeln(arq,'------ ----------- ----------------------------------------'); while not ClientDataSet_estoque.Eof do begin Write( arq,AjustaStr(ClientDataSet_estoque.FieldByName('COD_PRODUTO').AsString,9)+ AjustaStr(ClientDataSet_estoque.FieldByName ('COD_BARRAS').AsString,15)+ AjustaStr(ClientDataSet_estoque.FieldByName ('DESCRICAO').AsString,42)); .... Ai então pensei de usar o componente CheckBox e fazer algo assim: #Código if CheckBox_codigo.Checked = true then begin writeln(arq,'Código'); writeln(arq,'------'); end else begin while not ClientDataSet_estoque.Eof do begin Write( arq,AjustaStr(ClientDataSet_estoque.FieldByName('COD_PRODUTO').AsString,9)); ... Mas desta forma não da certo, alguém poderia me orientar alguma forma que de certo de fazer isso? Obrigado pela atenção.
  21. Olá amigos da Script brasil, Eu estou desenvolvendo um aplicativo (jogo on-line) com uma forma de pagamento própria, enfim. Consegui um website para verificar os tipos dos cartões (crédito/debito) . Seguinte, o website disponibiliza o meio REQUEST : http://www.binlist.net/json/ Meu script está basicamente assim: const strWEB = 'http://www.binlist.net/json/'+ strCompletWebRequest.Text; begin end; No caso ficando da seguinte forma: http://www.binlist.net/json/548826 O website exibe o seguinte resultado: {"bin":"548826","brand":"MASTERCARD","sub_brand":"","country_code":"BR","country_name":"Brazil","bank":"CAIXA ECONOMICA FEDERAL","card_type":"CREDIT","card_category":"STANDARD","latitude":"-10","longitude":"-55","query_time":"344.902µs"} Queria exibir em um outro edit da seguinte forma: CAIXA ECONOMICA FEDERAL | CREDIT MASTERCARD | BRAZIL Como posso fazer isto ? Obrigado !! Preciso com urgencia !!!!
  22. Preciso retornar o nome do computador para tanto estou usando a Function function nomecomputador : String; var lpBuffer : PChar; nSize : DWord; const Buff_Size = MAX_COMPUTERNAME_LENGTH + 1; begin nSize := Buff_Size; lpBuffer := StrAlloc(Buff_Size); GetComputerName(lpBuffer,nSize); Result := String(lpBuffer); StrDispose(lpBuffer); end; Até ai tudo bem. A questão é que só retorna o nome da máquina em LETRAS MAIUSCULAS, gostaria que retornasse tal qual está escrito. Na maquina onde realizo o teste está assim Trabalho-PC mas só retorna TRABALHO-PC o que devo fazer?
  23. Faço um backup pelo winrar e queria que o sistema só apresentasse a mensagem quando ele terminar de processar: como posso fazer ? esse é o meu codigo: Empresa := copy(FrmPrincipal.PnEmpresa.Caption,1,3); if DirectoryExists(TxtSalvar.Text) then begin dtmIza.dbaIza.Connected := False; DtmEmp.DbaEmp.Connected := False; Banco := 'C:\IzaCfc\Bancos'; Copia(Banco,'C:\IzaCfc\Backup'); Banco := 'C:\IzaCfc\Backup'; Data := Date; Nome := 'BK'+Empresa+'-'+ FormatDateTime('dd-mm-yy', Data); Caminho := ChangeFileExt(TxtSalvar.Text+'\'+Nome,'.rar'); if FileExists('C:\IzaCfc\Backup\' + Nome + '.rar') then begin DeleteFile('C:\IzaCfc\Backup\' + Nome + '.rar'); end; if not DirectoryExists('C:\Program Files (x86)\WinRAR\') then begin if not DirectoryExists('C:\Program Files\WinRAR\') then begin ShowMessage('WinRAR não localizado !'); exit; end else begin LinhadeComando :='C:\Program Files\WinRAR\WINRAR.EXE a "'+Caminho+'" "'+Banco+'"'; end; end else begin LinhadeComando :='C:\Program Files (x86)\WinRAR\WINRAR.EXE a "'+Caminho+'" "'+Banco+'"'; end; try WinExec(Pchar(LinhadeComando),sw_hide); ShowMessage('Backup Gerado com Sucesso!'); dtmIza.dbaIza.Connected := True; DtmEmp.DbaEmp.Connected := true; close; except ShowMessage('Erro ao gerar Backup!'); end; end else begin Showmessage('Diretório Inexistente!' ); end;
  24. Gostaria de saber se é possível criar uma tela genérica de comandos SQL onde consiga inserir registros no banco de dados, atualizar ou até mesmo deletar registros. Preciso que a tela seja bem simples, apenas com um grid e um edit, no evento onKeyPress do Edit então eu iria colocar o código para que busca-se o comando do edit e coloca-se em um componente de banco de dados. Até então os componentes que utilizei para conectar com o banco de dados foi : SQLdataset, DataSetProvider e ClientDataSet ; Mas com estes componentes eu conseguiria fazer isso que preciso ou teria de usar outros componentes ? E de que forma faria isso ? Pois a dbGrid vai mostrar informações de todas as tabelas do banco (conforme o select inserido no edit), e os componentes que serão utilizados terão de manipular informações de todas as tabelas do banco e não apenas de uma tabela.
  25. Alguém poderia me auxiliar a como colocar o dia da semana no meu DateTimePicker1 ?
×
×
  • Criar Novo...