-
Total de itens
359 -
Registro em
-
Última visita
Tudo que Pirambu! postou
-
(Resolvido) visualizar relatorios apenas uma vez
pergunta respondeu ao Pirambu! de Pirambu! em Delphi, Kylix
Jhonas, decobrir o problema realmente eu estava limpando da memoria retirei esta parte do codigo e funcionar sem problema if RelatCliente = nil then Actrion:= Cafree; RelatCliente:=nil; eu já utlizava relatório mas abria de outra forma, resolvir tentar desta forma e achei mais fácil. -
Criei um form de pesquisa de cliente, e outro que mostra o relatorio quando ao abrir o form pela primeira vez ele mostra os dados no relatorio sem problema, se o form for fechado e aberto novamente os dados dentro de relatório não mostram mas (no band Detalhe do form) fica vazio, para visualizar o relatorio eu fiz assim no botão if RelatCliente = nil then Application(TRelatCliente, Relatcliente); RelatCliente.QuickReport1.Previews; No RelatCliento: Procedure TRelatCliente.Close... begin Actrion:= Cafree; RelatCliente:=nil; end; Alguém sabe com resolver esse problema?
-
Jhonas, o problema era no código realmente, eu utilizei uma tela de login que tinha utilizado para acessar o banco de dados ACCESS onde eu colocava assim: SQl.add('set acesso = :A'); em que eu nunca tive problema, mas utilizando o MySql era dá esse erro tive que mudar e ficou assim: SQl.add('set acesso = :acesso'); esse era o problema já foi resolvido , valeu pela força.
-
Eu instalei um aplicativo em um cliente com banco de dados Mysql no dia que instalei funcionou sem problema conectou realizou o login, abrir as telas e no dia seguinte não realizou o login ficou mostrando este erro "incorrect token followed by ":"" alguém faz ideia doque possa ser? eu achei que se fosse erro nos codigos não teria funcionado no dia anterior, e outra coisa para acessar o banco de dados estou usando o Mysql-Fronts, no dia seguinte ao clicar duas vezes não estava abrindo.
-
Jhonas, realmente não dá certo continua informando "file no found", mas resolvir usando este codigo abaixo funcionou sem problema. obrigado pela força. const cEspacoLinha = 5; cMargemSuperior = 50; cMargemEsquerda = 30; var AlturaLinha, Y, I: integer; begin Printer.BeginDoc; try { Usa na impressora a mesma fonte do memo } Printer.Canvas.Font.Assign(Memo.Font); AlturaLinha := Printer.Canvas.TextHeight('Tg'); Y := cMargemSuperior; for I := 0 to Memo.Lines.Count -1 do begin if Y > Printer.PageHeight then begin Printer.NewPage; Y := cMargemSuperior; end; Printer.Canvas.TextOut(cMargemEsquerda, Y, Memo.Lines[I]); Y := Y + AlturaLinha + cEspacoLinha; end; finally Printer.EndDoc; end; end;
-
Jhonas, ao compilar eu clico no botão ele mostra esta linha como erro "REWRITE(porta);".
-
Jhonas, eu comprei o Cabo e fiz da formar que você passou, deu um problema talvez no meu código ou algumas "USES" que esteja faltando o erro foi "File no Found"
-
Beleza, vou tentar
-
Jhonas, eu tenho este codigo para escrever na porta paralela LPT1 é só para confirmar porque eu pensava que o fato de ser LPT1 era especifico da porta paralela. procedure TForm1.´butomClick(Sender: TObject); var Porta:TextFile; // o P = pagina; o L = Linha da pagina P,L:integer; Begin //direciona a porta Assignfile(porta,'LPT1'); //e manda abrir REWRITE(porta); QryGrupo.First; P:=1; While not QryGrupo.Eof do begin writeln(porta,'xxxxxxxxxxxxxxxxxxxxxxxx'); writeLN(porta,xxxxxxxxx:' + inttostr(P)); writeln(porta,'.........................................'); writeln(porta,xxxxx); writeln(porta,'.........................................'); L:= 6; while (not QryGrupo.Eof) and (L<=58) do begin writeln(porta,inttostr(xxxx.Value) + ' ' + xxxx.value); L:= L+1; QryGrupo.Next; IF L > 58 then begin P:= P + 1; writeln(porta,#12); end; end; end; closefile(porta); end; end.
-
Jhonas, uma dúvida, a forma de enviar os dados para impressora de porta paralela vão mudar usando o Cabo USB?
-
Talvez usando uma query de certo mudando algumas coisas. with Qryinserecontasrec do Begin Close; Sql.Clear; Sql.add('inserto into Tabela(campo1,campo2,...)'); Sql.add('values(:campo1,:campo2,...)'); params[0].values:= ediCodigo.Text; params[1].values:= ediCodigo.Text; ... ExecSql; end; não precisa do "datasource"
-
Jhonas da forma que o Manoel Zancheta, não daria certo na query a qual o Dbgrid esta linkado criar um campo para calculo com string com o nome data e em "OnCalcFields" da Query,ele poderia colocar a condição de aparecer a data ou não.
-
Obrigado Jhonas, vou tentar desta forma.
-
no meu PC não tem conector DB9 e DB25 apenas USB, tem como eu mandar impressão para impressora de cupom, usando conector RJ11 da placa de Fax/Modem?
-
Estou criando um aplicativo com banco de dados em Mysql, para conectar ao banco estou usando Zeos, roda sem problema mas como fazer para rodar em outro terninal?
-
Jhonas você conhece alguém que conseguiu fazer funcionar este Spbina? para que eu possa entrar em contato. Se eu não conseguir vou ter que montar uma circuito para receber o sinal DTMF e enviar código binario para um porta paralela.
-
Jhonas, eu estava pesquisando e achei isso Só tem um problema , não sei onde fica este console para comunicar com o Modem, você pode me ajudar?
-
Eu já tentei enviar um e-mail para ele, mas é invalido: eu baixei o Tcomport para tentar ler o sinal e ficar monitorando a porta de Entrada "Com2" , mas o máximo que conseguir foi pegar apenas o "Ring" que vem antes no Número. Desta forma seria mais complicado Jhonas?
-
Sim, eu conseguir as instruções: no Modem eu deixei em branco e ele setou e preencheu assim: [MODEM] setado=Sim classe8=Sim classe80=não Porta=COM2 DDDLocal=85 Para o Comando ATI ele ficou assim, esse foi a resposta do meu modem [RESULTADO_ATI] 0=ATI1 1=000 3=ATI2 5=ATI3 6=PCtel HSP56 MR 2.30-9K 8=ATI3 9=SM56 PCI III Rel. 6.10 Si\Sp1 Build 06 11=ATI5 12=ATI4 14=ATI6 15=Build 2020 17=LAST DISCONNECT: DTR DROP 18=SETSELECTED - ATZ 20=ATI6 21=55 22=55 4=ATI2 16=ATI5 25=0,1,8 26=0,1,8 29=Resultado dos Comandos ATI 30=Data: 18/07/2009 Hora: 22:33:14 31=Data: 16/07/2009 Hora: 23:37:41 24=AT +FCLASS= ? 28=********************************* [MEU_MODEM] Tipo=SM56 PCI III Rel. 6.10 Si\Sp1 Build 06 cmdAT_0=ATZ cmdAT_1=AT&F cmdAT_2=AT &C0 V1 S40=2 S41=1 X3 +FCLASS=8 cmdAT_3=ATDT000 /~aaaaaa aaaaaaa aaa/~AT &C0 V1 S40=2 cmdAT_4= cmdAT_5= Não tenho certeza se essa deveria ser a resposta esperada
-
Jhonas ele pode tentar isso para facilitar: Adiciona a USES: jpeg, clipbrd; ...................................... no Botão: procedure TFCad_Clientes.BitBtn13Click(Sender: TObject); var jpg: Tjpegimage; begin dados.TBClientes.Edit; if OpenPictureDialog2.Execute then begin jpg:= Tjpegimage.Create; jpg.LoadFromFile(openpictureDialog2.FileName); Clipboard.Assign(jpg); Dbimage2.PasteFromClipboard; jpg.Free; end; dados.TBClientes.Post; end;
-
Jhonas e Churc, eu estou insistindo com isso porque só falta isso para colocar para instalar, Eu solicitei o Sinal de Bina DTMF para a linha telefonica. Comprei a placa que identifica o sinal DTMF e trabalha com a Classe 0,1,8 eu indiquei a 8 Conseguir o Delphi 5 + Serial e instalei no local do Delphi 7 que eu estava usando. Coloquei um Registor de 3k9 para colocar na tomada não usei extensão para outro telefone. mando rodar o [comando0] e roda sem problema apareçe "ok" para todas as opções, no funcionamento, quanto esta disativado e eu ligo do celular para o numero que estou testando chama normal como se o telefone estiverse no gancho, mas quando esta ativo ele atende e fica mudo a pessoa que esta no celular não escuta nada e o Bina não mostra nada. não tenho mais ideia para tentar alguém sabe de algum detalhe que eu não esteja sabendo e que possa me ajudar? Eu vir uma observação que diz que é para a Plataforma: Windows 98, NT, 2000. Eu Estou usando o Windows XP isso pode ser o motivo? se for como eu resolvo sem trocar o XP?
-
Rodrigo Hoffmann, tenta desta forma, with query do begin Close; sql.clear; Sql.add('Select * from TabelaNotafiscal '); Sql.add('where DATAAUTORIZACAO BETWEEN :A and :B and CONTADOR = :C'); parameters[0].values:= datetoStr(Edit1.text); // Data Inicial. parameters[1].values:= datetoStr(Edit2.text); // Data Final. parameters[2].values:= DBlookupcombobox1.keyValue; //o Nome do Contador. Open; end;
-
Jhonas, eu já baixei o arquivo "vcljpg50.blp", eu devo colocar em alguma pasta do delphi?
-
Jhonas, criei novas esperanças, vou tentar depois post o resultado
-
Jhonas, agradeço pela foça mas não estou conseguindo, gostaria de sabe se alguém conseguiu criar um bina para o PC usando DEPHI 7? já tentei varias formas.