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. Alguém sabe como seria um algoritmo de ordenação de letras e outro para data ?
  2. 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
  3. 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);
  4. 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
  5. 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)+'''';
  6. 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.
  7. 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 !!!!
  8. 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?
  9. 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;
  10. 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.
  11. Alguém poderia me auxiliar a como colocar o dia da semana no meu DateTimePicker1 ?
  12. 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 ?
  13. 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) GroupBox1: TGroupBox; WebBrowser1: TWebBrowser; GroupBox2: TGroupBox; Edit1: TEdit; Edit2: TEdit; Button1: TButton; procedure FormCreate(Sender: TObject); procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); begin WebBrowser1.Navigate('https://www.mercadolivre.com/jms/mlb/lgz/login?go=http://www.mercadolivre.com.br/gz/home/logged?display=page'); WebBrowser1.Silent := True; end; procedure TForm1.Button1Click(Sender: TObject); begin WebBrowser1.OleObject.Document.all.Item('user_id',0).Value := Edit1.Text; WebBrowser1.OleObject.Document.all.Item('password',0).Value := Edit2.Text; WebBrowser1.OleObject.Document.all.Item('signInButton',0).Click; end; end. O captcha que pede: ----------- Já tentei de tudo se possivel alguém poderia me ajudar????
  14. 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 esta em outro form, no caso no form estoque. Poderia me ajudar ?
  15. 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) do if (Elements.item(i).type = 'submit') then Elements.item(i).Click; end; end; Porém ele da erro e não clica no botão. Já tentei também fazer da seguinte forma: WebBrowser1.OleObject.Document.all.Item('submit-row',0).Click; Porém ele não clica no botão. Queria saber como faço para clicar nesse botão ta dificil aqui . abrçs
  16. 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 ?
  17. 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 .
  18. 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' ?
  19. Olha eu novamente, rss . Enfim .. hojé me surgiu uma necessidade muito grande para envio de mensagens atráves do delphi para um webchat (xat.com) Como funcionaria ? - Meu webbrowser abriria o link: http://xat.com/FCGAZETADOCARTOLA - Após acessar o webbrowser em um memo eu digitaria á mensagem, está mensagem seria digitada no campo grande do webchat. - E um botão para clicar no botão de enviar que fica ao lado da mensagem. Como posso fazer isto, sendo que o webchat é feito com o adobe .. Abrçs.
  20. Boa tarde pessoal... Estou com um pequeno problema... Possuo um sistema onde realizo um cadastro de OS e gravo no banco de dados (frmCadastro) Possuo na tela inicial (frmConsulta), um dbgrid que mostra todas as OS cadastradas. Quero saber como eu posso selecionar a linha do meu dbgrid e abrir um outro formulário idêntico ao de cadastro só que para edição dos campos... esse novo formulário(frmEditar) deve trazer os campos preenchidos já com os dados do Dbgrid. Estou utilizando o Zeos para realizar a comunicação, e Querys para realizar os cadastros e consultas juntamente com DataModule.
  21. Olha eu novamente, rss :) . Então, desenvolvi o seguinte script em Delphi porém não está funcionando á intenção dele é : Verificar se á minha Thread está suspença ou foi finalizada, utilizando á API CreateThread. Code: ******* Criação de um procedimento com meu nome Procedure MyName(Nome : String); begin Nome := 'David'; end; ******* Criação da minha Thread var hThread : THandle; hThdID : Cardinal; hThread := CreateThread(nil, 0, @MyName, nil, 0, hThdID); ******* Verificação das Threads if SuspendThread(hThread) > 0 then ShowMessage('Minha Thread foi suspença'); if TerminateThread(hThread, 0) then ShowMessage('Minha Thread foi finalizada.'); ** FIM. Então este meu script não funciona, fiz com base em um artigo,onde sera que estou errando? rss tranks.
  22. Boa tarde galera... estou necessitando o manual onde consta todos os campos do objeto cobrebemX.. já fucei em tudo quanto é lugar e nada. Alguém consegue me ajudar? é o Layout de 400 Posições, o do Bradesco é diferente dos outros bancos pelo que eu li... PS: já enviei inúmeros emails para o suporte da cobrebemx e nada de resposta e telefone não atende, fica chamando até cair.
  23. Olha eu novamente, rss. Então, estava estudando um pouco sobre Threads é achei um metódo bem simples para serem criadas (CreateThread). Achei está API do Windows muito bacana é simples de se utilizar, Diferente das Classes que precisamos fazer mil é uma coisas, Enfim. Estou desenvolvendo um aplicativo é preciso fazer uma checagem se minha Thread está suspença, caso esteja ela ficaria ativa novamente. Nas classes eu achei á função TThread.Resume (); - TThread.Suspend (); Queria saber como posso utilizar essas funções na API CreateThread . Abraços.
  24. Olá amigos da Scriptbrasil. Então, desenvolvi um aplicativo no Delphi, no qual ele acessa uma página na WEB é á cada 10 segundos ele atualiza á pagina. Então, estou querendo por uma lista de PROXYS para á cada atualização ele mudar o PROXY. Funcionando da seguinte forma: Eu adiciono um memo no meu projeto, é la ficaria os meus proxys: 127.0.0.1:8080; 147.0.0.1:8080; Á cada REFRESH do meu WebBrowser ele pegaria á primeira PROXY do memo é daria -1 na lista para remove-ló é ir para o próximo. Queria um exemplo de script para fazer isto, procurei em todo os locais e não achei algo que fica-se mais ou menos como eu queria... Abraços :p
  25. Olá galera... mais uma dúvida minha... Tenho um programa que lê um arquivo Txt e joga para um Memo só que eu precisaria apagar a primeira e a ultima linha desse Memo sendo que ele pode variar de tamanho conforme o dia que eu importar esse arquivo. No meu Memo o código está assim, onde eu detectava alguma palavra que tem em todos TXT na primeira e ultima linha e deleto ela. O TXT contém somente valores numéricos (nos campos que eu preciso).. o que acontece porém é que 1 maldito TXT na última linha só tem um numero 9 e mais nada então essa minha lógica "gambiarra" não funciona... Alguma idéia de como deletar somente a primeira e última linha do Memo? procedure TfrmDebitoConta.mmListaChange(Sender: TObject); var Palavra : String; i : Integer; begin Palavra := 'LOVELY'; for i := Pred(mmLista.Lines.Count) DownTo 0 do begin if Pos(Palavra, mmLista.Lines) > 0 then mmLista.Lines.Delete(i); end; Palavra := 'Z000'; for i := Pred(mmLista.Lines.Count) DownTo 0 do begin if Pos(Palavra, mmLista.Lines) > 0 then mmLista.Lines.Delete(i); end; end;