Jump to content
Fórum Script Brasil

RafaelemeNt

Membros
  • Content Count

    43
  • Joined

  • Last visited

Community Reputation

0 Neutro

About RafaelemeNt

  • Birthday 05/18/1986

Contatos

Perfil

  • Gender
    Male
  • Location
    Araçatuba - SP
  1. Jhonas, obrigado pela atenção. Final de semana que vem, farei vários testes sobre isso. Espero que consigo resolver o problema. Domingo que vem, no mais tardar segunda-feira eu posto os resultados aqui. Obrigado.
  2. Olá Jhonas, obrigado pelo interesse. Estou usando apenas figuras JPEG no sistema. Todas redimensionadas para aproximadamente 800x600px com tamanho médio de 70 KB. Eis o código da Unit que faz a gravação no banco de dados e copia as figuras: unit untFrmCarregarImagem; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtDlgs, StdCtrls, Buttons, ExtCtrls; type TfrmCarregarImagens = class(TForm) GroupBox4: TGroupBox; Label35: TLabel; GroupBox5: TGroupBox; Label30: TLabel; Panel2: TPanel; imgChassi: TImage; bt
  3. Senhores, alguma sugestão? Ainda estou com o problema... Se quiserem, eu disponibilizo todos os códigos Delphi, Banco, ScreenShots e etc.... Muito obrigado.
  4. Obrigado por responder Jhonas. Desculpe não ter respondido antes, estava viajando e só consegui ver esse final de semana. Acrescentei a liberação que você sugeriu. Eu coloquei o código abaixo dentro do evento "onClose" do formulário do Relatório (frmRelatorio). FreeAndNil(QuickRep1); FreeAndNil(QuickRep2); Seria isso? O Código compilou sem erros. Colocarei em teste e depois postarei os resultados. Agradeço sua ajuda. Abraços,
  5. Boa noite senhores. Desculpem abrir novamente o tópico, porém o meu pesadelo voltou. Eu pensei que havia resolvido o problema, mas eu só retardei. Explicarei melhor o que está acontecendo, desde o início. Criei uma pequena aplicação para gerar Laudos técnicos de vistoria de Veículos. O laudo precisa conter informações de veículos e principalmente as FOTOS da vistoria. Assim sendo, criei a aplicação com Delphi 7 + QuickReport + IBExpert + Firebird 1.5 + Componentes DBExpress. Basicamente, a aplicação salva em Banco de Dados apenas o CAMINHO da imagem, e usa esse caminho posteriormente para
  6. Concordo! Você quer que o DBEdit seja ligado ao campo código porém exiba qual é o funcionário? Você realizará outra ação com o campo do funcionário ou só exibição? Talvez você precise usar o componente DBLookUpComboBox. Com ele você pega valores de uma tabela, e grava em outra! abraços
  7. boa tarde Jhonas! Obrigado pela sua ajuda! Acrescentei o código de bloqueio de Input no meu código. Agora, consegui resolver o problema. Primeiramente, a rotina que eu havia colocado para carregar as imagens para o QRImage estava no lugar errado. Eu deveria ter colocado no onCreate do FORM do Relatório. Segundo: realmente, o tamanho das imagens estava influenciando. Embora todas fossem Jpeg, elas tinham dimensões enormes, de 4000 x 3000 ou um pouco menor. Diminuindo as dimensões, seu tamanho foi pra em torno de 100Kb cada uma, e assim o programa funcionou normalmente. Agradeço a atenção d
  8. Para complementar, eis o código que carrega as imagens para o relatório. Não sei se ajuda, mas eu já tentei colocar ele em outros eventos como: beforePrint e onStartPage. Sem sucesso, continua o mesmo problema. //Variaveis locais recebendo caminho das imagens a ser exibidas caminho_chassi := dmModelo.cdsPesquisaLaudo.FieldByName('PATHCHASSI').AsString; caminho_motor := dmModelo.cdsPesquisaLaudo.FieldByName('PATHMOTOR').AsString; caminho_placa := dmModelo.cdsPesquisaLaudo.FieldByName('PATHPLACA').AsString; caminho_extra := dmModelo.cdsPesquisaLaudo.FieldByName('PATHEXTRA').AsString;
  9. Bom dia srs, Tenho uma aplicação, feita com Delphi 7 + Firebird 1.5 + DBExpress+ QuickReport. É um software de vistoria de veículos. São inseridos dados, imagens da vistoria e o software gera um laudo impresso. As imagens que são inseridas no programa, são copiadas para uma outra pasta do do computador, e são renomeadas. Posteriormente são recuperadas para fazer o relatório. O problema é: o relatório é montado normalmente, e todas as imagens da vistoria aparecem. Porém, quando eu mando imprimir, algumas imagens não são impressas (apenas algumas imagens da vistoria, e não partes do relatório
  10. isso eu não tinha tentado! muito obrigado pela dica, vou tentar agora mesmo! depois eu posto o resultado obrigado pela atenção Jhonas!! abraço
  11. Anti-virus: desativei para realizar o teste e mesmo assim, não funcionou. Firewall: Acrescentei o software como exceção, e também adicionei a porta do firebird 3050, não funcionou. Definição incorreta: aí eu já não saberia nem como testar, uma vez que eu não utilizei portas na programação. Como citei, configurei o aliases.conf do firebird e acrescentei as DLL's necessárias. Em outras máquinas funciona dentro do esperado, porém nessa máquina em específico não. Quando eu me referi a "incompatibilidade de hardware", na realidade eu quis dizer algo como problema na placa de rede. Seria possível?
  12. Olá Jhonas, obrigado por responder Eu testei isso também e não funciona. Para analisar a situação em OUTRA máquina, troquei o servidor. Mudei o executável, o banco de lugar, e as configurações de rede local (pois a minha aplicação depende de uma pasta compartilhada no servidor). Ou seja, inverti os papéis: a máquina que era cliente virou servidor e o servidor virou cliente. Para minha surpresa: FUNCIONOU. As configurações típicas, feitas normalmente. Firebird, compartilhamento de pastas, configuração das propriedades no Delphi... tudo a mesma coisa. Só me resta afirmar que foi uma "incompat
  13. Para completar: Fiz o teste da seguinte forma: peguei a minha máquina de desenvolvimento e coloquei momentaneamente como servidora da aplicação. Aí SIM, a aplicação no cliente roda. Ao transportar o meu sistema para outra máquina, e transformar esta em servidor, a aplicação deixa de funcionar EM REDE, e fica funcionando apenas localmente. Olhando o arquivo firebird.txt (LOG), notei o erro: SERVER (Client) Sun Nov 29 19:34:27 2009 INET/inet_error: connect errno = 10060 Alguma idéia????
  14. Boa tarde senhores. Tenho uma aplicação, que deve funcionar em rede. Para isso, utilizei Delphi7 + DBExpress + Firebird 1.5 A aplicação funciona dentro do esperado, tanto na máquina de desenvolvimento, quanto na máquina SERVIDORA (uma máquina com apenas o Windows XP instalado, atualizada e Firebird 1.5 completo - superserver) O banco de dados está nessa máquina, referenciado no aliases.conf do firebird através de: dbmodelo = d:\Program Files\modelo\database\modelo.fdb Na aplicação Delphi, o componente SQLConnection está definido com: Connected := True database := modelo01:dbmodelo Onde
  15. Olá Andreza, eu não entendi muito bem sua dúvida. O que você precisa exatamente? Quanto mais detalhes você der, mais fácil fica de entender! Você precisa de duas páginas no Rave ??? Uma diferente da outra??
×
×
  • Create New...