-
Total de itens
9.657 -
Registro em
Tudo que Jhonas postou
-
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
-
(Resolvido) Required package 'dclIndyCore' not found.
pergunta respondeu ao Milton Carlos de Jhonas em Delphi, Kylix
Veja em http://marciorossato.meucanal.com.br/erro_dclindycore_delphi2010/ abraço -
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
-
exemplos http://www.intesoft.com.br/artigo.php?id=71 http://www.activedelphi.com.br/forum/viewtopic.php?p=176571&sid=301af89e46a00f3df4806d354912692b abraço
-
erro INET/inet_error: read errno = 10054
pergunta respondeu ao Mario Henrique de Jhonas em Delphi, Kylix
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. -
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
-
fast report para o delphi xe3 http://softadvice.informer.com/Fastreport_For_Delphi_Xe3.html abraço
-
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
-
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
-
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
-
Enviar email em html com um anexo em pdf
pergunta respondeu ao Mario Lopes de Jhonas em Delphi, Kylix
ok... meu micro não esta lendo o meu outro hd onde tenho a solução ... mas se conseguiu, beleza abraço -
Como utilizar condição em consulta SQL?
pergunta respondeu ao Gabriel Cabral de Jhonas em Delphi, Kylix
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 -
Enviar email em html com um anexo em pdf
pergunta respondeu ao Mario Lopes de Jhonas em Delphi, Kylix
Amigo, faça uma pesquisa no forum ... essa duvida já foi respondida abraço -
tente assim query4.Params[0].AsString:=trim(combobox1.Text); abraço
-
(Resolvido) Enviar email, onde está Indy?
pergunta respondeu ao Mario Lopes de Jhonas em Delphi, Kylix
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 -
Acessar arquivo PDF através de um link no Tmemo
pergunta respondeu ao Paulo Henrique de Assis de Jhonas em Delphi, Kylix
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 -
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
-
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
-
que tipo de arquivo voce esta colocando no .Res ?
-
table1.fieldbyname('nome_grupo').AsString; se a tabela estiver fechada ou o campo nome_grupo estiver vazio o resultado é nulo abraço
-
exemplo http://www.planetadelphi.com.br/dica/6619/executar-aplicativo-e-esperar-sua-finalizacao abraço
-
Substituir menu de opções de um TWebBrowser do Delphi7[RESOLVIDO]
pergunta respondeu ao lucke de Jhonas em Delphi, Kylix
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 -
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
-
Erro: Attempt to execute an unprepared dynamic SQL statment
pergunta respondeu ao uhtaldoluck de Jhonas em Delphi, Kylix
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 -
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