Ir para conteúdo
Fórum Script Brasil

Jhonas

Monitores
  • Total de itens

    9.657
  • Registro em

Tudo que Jhonas postou

  1. Se for usar o quick report , defina o tamho do papel como Custom Size e de as medias que voce pretente usar monte o relatorio e imprima abraço
  2. Veja em http://marciorossato.meucanal.com.br/erro_dclindycore_delphi2010/ abraço
  3. veja com calma esse link, vai encontrar a solução http://www.caiooliveira.com.br/wp-content/plugins/ajaxcomment/getcomments.php?id=73&s=0&n=10000 abraço
  4. exemplos http://www.intesoft.com.br/artigo.php?id=71 http://www.activedelphi.com.br/forum/viewtopic.php?p=176571&sid=301af89e46a00f3df4806d354912692b abraço
  5. INET / inet_error: ler errno = 10054 ou 10038 ou 10093 amostras de erro Múltiplas entradas em firebird.log ou interbase.log com erros 10054, 10038, 10093, etc razão Esses erros são causados ​​por problemas na rede - verifique os seus hubs, adaptadores de rede, etc, não é um erro Firebird / InterBase si, mas podem impactar no Firebird / InterBase. processo de recuperação você pode usar a ferramenta FBScanner para resolver erros "10054 . http://www.ib-aid.com/products/firebird_interbase/monitoring/FBScanner chances de recuperação Não aplicável.
  6. use o comando POS do delphi .... exemplo procedure TForm1.Button1Click(Sender: TObject); var S, texto: string; begin S := ' <input name="ucOneClickCardAdd1:txtNumero" type="text" value="123456" '+ 'maxlength="25" id="ucOneClickCardAdd1_txtNumero" class="text medium" '+ 'onkeypress="return SomenteNumero(event)" />'; if Pos(' type="text" value=', S) > 0 then texto := copy(s,Pos('type="text" value=', S)+19,6); showmessage(texto); end; o resultado sera = 123456 abraço
  7. fast report para o delphi xe3 http://softadvice.informer.com/Fastreport_For_Delphi_Xe3.html abraço
  8. veja que você tem 9 parâmetros na sua função .... o erro: Parâmetro Inválido refere-se a que um dos parâmetros não está sendo passado o valor correto ( tipo ou valor ) coloque um showmessage para cada parâmetro para saber que valores estão sendo passados para a função abraço
  9. o Inno Setup é uma boa opção para a instalação do seu sistema no computador cliente vale lembrar que o install Shield que vem junto com o delphi tem a mesma finalidade outra coisa: quando você coloca o executável em outro micro, algumas dlls ou bpls tem que acompanhar o seu executável, e normalmente esses arquivos ficam no diretório do Windows na pasta System32 abraço
  10. a ideia é ... enquanto a net esta ativa, voce trabalha usando o banco de dados remoto se a net perde a conexão voce passa a usar um banco de dados local ( ou da a mensagem de conexão perdida e pede para esperar ) ao restaurar a conexão o seu sistema faz um upload dos dados do banco local para o remoto e deleta os dados do banco local abraço
  11. ok... meu micro não esta lendo o meu outro hd onde tenho a solução ... mas se conseguiu, beleza abraço
  12. no evento OnPrint do campo que seria a comissão ( na banda Detail ) do quick report voce coloca if totalVenda > valorEstipulado then value := comissão calculada sobre (totalVenda-valorEstupilado) else value := 0; abraço
  13. Amigo, faça uma pesquisa no forum ... essa duvida já foi respondida abraço
  14. tente assim query4.Params[0].AsString:=trim(combobox1.Text); abraço
  15. tente nesse link http://www.indyproject.org/Sockets/fpc/indy-10.2.0.3.zip ou http://www.google.com.br/search?hl=pt&source=hp&q=indy10+download&gbv=2&o que=indy10+dow&gs_l=heirloom-hp.1.0.0j0i22i30l9.576.4108.0.8567.7.7.0.0.0.0.1062.2935.0j2j1j2j0j1j0j1.7.0....0...1ac.1.24.heirloom-hp..4.3.915.IzMjAXYSSqU abraço
  16. Imagine que no seu memo tenha as seguintes linhas Texto1 Texto2 C:\Teste.pdf uses Shellapi; procedure TForm1.Memo1Click(Sender: TObject); var Pdir: Pchar; begin if Memo1.CaretPos.Y = 2 then begin GetMem(pDir,256); StrPCopy(pDir, Memo1.Lines.Strings[2]); ShellExecute(0, nil, pCHAR(Memo1.Lines.Strings[2]), nil, Pdir, SW_NORMAL); FreeMem(pdir,256); end; end; procedure TForm1.Memo1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin if Memo1.CaretPos.Y = 2 then begin Memo1.Cursor := crHandPoint; sleep(500); end else begin Memo1.Cursor := crDefault; sleep(500); end end; OBS: somente quando voce clicar na linha 2 do mouse ( pois a contagem de linhas do memo começa em 0 ) o comando para abrir um arquivo pdf ( o caminho e o nome do arquivo pdf ) é que sera executado. entretanto como no memo o cursor só muda de posição se voce clicar dentro dele, mesmo que voce use o evento OnMouseMove do memo, não ocorrerá a mudança de cursor .... essa mudaça somente ocorrerá se voce clicar na linha do memo ..... abraço
  17. tente for I := 0 to MyNode.ChildNodes.Count -1 do begin ChildNode := RetornoNode.ChildNodes[I]; if ChildNode.NodeName = 'protNFe' then protNFe := ChildNode.NodeValue; end; ou veja em http://www.devmedia.com.br/forum/leitura-arquivo-xml-de-nfe/12766 http://delphi.about.com/od/internetintranet/ss/xml_rss_read_3.htm abraço
  18. use o componente TBackup para fazer os backups de seu sistema ... bem pratico e util http://www.planetadelphi.com.br/delphi/exemplos/completos/00004406.rar abraço
  19. que tipo de arquivo voce esta colocando no .Res ?
  20. table1.fieldbyname('nome_grupo').AsString; se a tabela estiver fechada ou o campo nome_grupo estiver vazio o resultado é nulo abraço
  21. exemplo http://www.planetadelphi.com.br/dica/6619/executar-aplicativo-e-esperar-sua-finalizacao abraço
  22. exemplos que vão lhe ajudar http://www.planetadelphi.com.br/artigo/97/criando-um-webbrowser-avancado-passo-a-passo-de-uma-forma-muito-simple http://delphi.about.com/cs/adptips2004/a/bltip0504_3.htm http://lpnobrasil.blogspot.com.br/2010/02/criando-um-webbrowser-avancado-parte-3.html http://www.delphi.eti.br/colunistas/ktpigs/WebBrowser%20do%20ARTIGO.zip abraço
  23. nesse link tem um artigo do que usar em uma instalação minima para o Firebird funcionar http://www.destructor.de/firebird/minimumclient.htm abraço
  24. erro: Tentativa de executar uma instrução SQL dinâmica despreparada QryUpdate.sql.append (' UPDATE COMPROVADO set COMPROVADO = "1" where DC_LAN = "1" '); OBS: de preferencia não use nome de campo igual ao nome da tabela abraço
  25. provavelmente o problema esta no circuito eletronico da impressora e não no cabeçote algum problema com componetes do circuito, pode provocar esse tipo de problema para entupimentos de cabeçote veja http://www.tudosobreimpressao.com.br/2013/06/05/motivos-para-entupimento-de-cabecas-epson/#more-1172 abraço
×
×
  • Criar Novo...