Jump to content
Fórum Script Brasil

Search the Community

Showing results for tags 'delphi'.

  • 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

  1. 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..
  2. Código ! Link Para Teste ! http://mac.hplivre.com.br/bcash.html Help !
  3. 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 ?
  4. 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 alinhado
  5. 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 ?
  6. 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 ?
  7. 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 ?
  8. Alguém sabe como seria um algoritmo de ordenação de letras e outro para data ?
  9. 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
  10. 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);
  11. 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
  12. 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)+'''';
  13. 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('CO
  14. 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_c
  15. 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?
  16. 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+'\
  17. 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
  18. Alguém poderia me auxiliar a como colocar o dia da semana no meu DateTimePicker1 ?
  19. Ao excluir um item do estoque, gostaria que me mostra-se a descrição do item a ser excluído junto com a mensagem de confirmação de exclusão. veja código abaixo : if Application.MessageBox('Deseja realmente excluir este Produto ?','Confirme', MB_ICONQUESTION+MB_YESNO) = ID_YES then begin ClientDataSet_estoque.Delete; ClientDataSet_estoque.ApplyUpdates(0); end; Como poderia então fazer com que apareça a descrição do item que foi selecionado para exclusão ? alguém poderia me ajudar ?
  20. Olá amigos da script brasil. Estou tendo á necessidade de integrar minha aplicação ao Mercadolivre, porém ao tentar fazer login na conta do usuário o mercadopago me pede Captcha, Gostaria de saber se tem alguma forma de quebrar esse captcha . Link da página do mercadolivre: https://www.mercadolivre.com/jms/mlb/lgz/login?go=http://www.mercadolivre.com.br/gz/home/logged?display=page Meu script: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, OleCtrls, SHDocVw; type TForm1 = class(TForm) GroupBo
  21. Quando clico no botão OK do form filtro, da erro de acess violation. Código que esta no botão OK do form filtro: frmEstoque.ClientDataSet_estoque.Filtered := false; frmEstoque.ClientDataSet_estoque.Filter := 'data_cad>='''+DateToStr(DateTimePicker1.Date)+''''+ 'and data_cad<='''+DateToStr(DateTimePicker2.Date)+''''; frmEstoque.ClientDataSet_estoque.Filtered := true; neste caso, o erro acontece por que o ClientDataSet_estoque esta no form estoque, e não no form do filtro, então como eu teria de fazer nesse caso, pois não consigo trabalhar com nenhum componente do banco de dados que est
  22. Olha eu novamente . Então pessoal estou tendo um problema ao clicar no botão do TWebBrowser no delphi . No website está da seguinte forma: <div id="submit-row" class="form-row"> <div class="input"><input class="btn-dark" type="submit" value="Donate"/> </div> </div> </form> Então, Eu já tentei fazer das seguintes formas: Procedure ClicaBottao; var Elements: OleVariant; i: Integer; begin with Form1 do begin WebBrowser1.Silent := true; Elements := WebBrowser1.OleObject.Document.forms.item(0).elements; for i := 0 to (Elements.Length - 1)
  23. Ola, tenho uma tabela com varias informaçoes, exemplo : descrição, preço, un.. Tenho um botão 'Filtrar', do qual abre um novo form, com varios panels, preciso saber como faço para que quando a culuna descrição por exemplo esteja selecionada, ao clicar no botão 'filtrar' fique visivel o panel_filtro_descricao no form de filtros, ou quando esteja selecionada a coluna preço e clicar no 'filtrar' fique visivel o panel_filtro_preco. Aguem poderia de ajudar ?
  24. Olá amigos da script brasil. Gostaria de saber como faço para por um Edit desse tamanho na minha aplicação do delphi, PS: O Edit normal quando eu almento á largura do mesmo ele volta para o normal, so cresce á altura Me ajudem obrigado .
  25. Tenho um pequeno problema em relação ao PopupMenu, pois coloquei uma posição fixa para ele : procedure TfPrincipal.Image5Click(Sender: TObject); begin PopupMenu1.Popup(555,149) end; Tenho varios botões em meu form principal, todos alinhados a esquerda; Tenho uma opção que deixa invisivel os botões, então a imagem onde faz o PopupMenu aparecer muda de lugar conforme habilito ou sesabilito alguns botões, sendo assim se eu colocar uma posição fixa para meu PopupMenu, ele não vai acompanhar minha imagem, teria como colocar na posição do PopupMenu algum comando para que ele acompanhe a 'imagem5'
×
×
  • Create New...