Ir para conteúdo
Fórum Script Brasil

Pirambu!

Membros
  • Total de itens

    359
  • Registro em

  • Última visita

Tudo que Pirambu! postou

  1. 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.
  2. 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?
  3. 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.
  4. 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.
  5. 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;
  6. Jhonas, ao compilar eu clico no botão ele mostra esta linha como erro "REWRITE(porta);".
  7. 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"
  8. 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.
  9. Jhonas, uma dúvida, a forma de enviar os dados para impressora de porta paralela vão mudar usando o Cabo USB?
  10. 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"
  11. 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.
  12. Obrigado Jhonas, vou tentar desta forma.
  13. 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?
  14. 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?
  15. 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.
  16. 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?
  17. 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?
  18. 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
  19. 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;
  20. 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?
  21. 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;
  22. Jhonas, eu já baixei o arquivo "vcljpg50.blp", eu devo colocar em alguma pasta do delphi?
  23. Jhonas, criei novas esperanças, vou tentar depois post o resultado
  24. 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.
×
×
  • Criar Novo...