Greed

Ele está dando muito bug assim! Não tem outra maneira?

Me diz uma coisa amigo! Quando você carrega o programa, ele carrega todos os forms ou durante a execução ele vai criando os forms?? Isso pode deixar a sua aplicação mais rápido! Nos botões que você chama o form ao invez de chama-lo assim Form.Show; ou Form.ShowModal; Tire todos os forms secundários de Auto-Create forms e deixe-os em Available Forms (Menu Project>Options) Para criar os forms eu utilizo este código Application.CreateForm(TForm,Form) Form.Show; Não se esqueça de no evento OnClose do form inserir este código Form.Release; Isto retira o form da memória! Agora quais forms deve ser criados com a execução do programa? Form Principal DataModule e form que são utilizados pelo Principal(No caso de haver) Espero que isso te ajude!

Eu já utilizaei o Paradox (Não recomendo) FireBird (Muito Bom) e o MySql eu não consegui fazer a ligação entre o delphi e o banco :wub:

Bom dia galera, Alguém sabe como eu faço para filtrar uma Table da palheta BDE por ordenação alfabética de um camopo? Se fosse numa Query, eu faria ORDER BY Sigla Mas como eu faço numa Table? Tem que ser numa table infelizmente :wacko: Tem a propriedadt Filter e o evento OnFiltrRecord, mas eu não sei como fazer em nenhum deles! Agradeceria uma ajuda! Grato

Eu não tinha pansado nisso! Vou passar o campo para Date então! Valeu

Eu estive conversando com o pessoal da Code Gear! Só o Delphi 2007 custa R$ 1080,00 Agora o Rad Studio está por volta de 4,500,00 que vem o delhi win32, delphi for php, Jbuilder... Onde vocês virem quem está R$ 4,500 a licença do 2005 sendo que a do 2007 direto da CodeGear brasil está 1080,00?? Pelo menos até a uma semana atráz

Bom dia Como eu faço para corrigir o bug que em cada navegador o meu CSS aparece posicionado em uma posição?? Obrigao pela atenção

Bom dia pessoal! Alguém sabe o código para que eu possa desabilitar todos os códigos em Javascript do meu site? Por que eu estou utilizando um servidor de hospedagem free e ele insere automaticamente em javascript propagandas e eu queria inativalas, pois estas deformam o meu site! Grato pela atenção

Bom dia galera, É o seguinte: Estou desde ontem quebrando a cabeça com essa lógica e não consigo faze-la funcionar :wacko: Estou desenvolvendo um sistema de locação e eu preciso que ele me avise todo mes as contas que eles devem receber! É cobrado mensalmente um valor X de cada cliente cadastrado. Eu pensei nessa lógica aqui, Existem os seguintes campo: Data_baixa, Dia_baixa, Emdia. Exite um Form para dar baixa no cliente. O que ele faz? Simples, ele coloca em: Data_baixa:= Ano+Mes; Dia_baixa:= Dia; Emdia:= 1; Esse Ano,Mes e Dia eu pego do MonthCalendar, ficando assim como exemplo: Data_baixa:= 20086; (ano 2008 e mes 6) Dia_baixa:= 25; Emdia:= 1; Todo dia 25 ele irá pegar este registro e mudar o Emdia para 0, assim o sistema sabe que ele tem contas pendentes. Se o mes atual é 7, quando ele for dar baixa o campo Data_baixa:= 20087 e assim vai e eu utilizaria esse 20087 para fazer uma pesquisa para listar todos que estão em debitos! Outra coisa, ele deve mostrar quanto tempo o cliente demorou para pagar, se foram 2 dias, 15, 30, 45, 90 .... Dias_em_atraso que é o campo que eu criei para isso e o meu banco de dados é em FireBird Como eu faço isso :blink: alguém pode me dar uma luz??? Obrigado pela atenção

Bom dia galera, Comecei a utilziar agora o componente Zeos e estou me defrontando com este erro ao tentar deletar algum registro no meu banco de dados em FireBird. "exception class EZSQLException" Em seguida ele me pede para localizar o Except.inc Alguém saberia me dizer o que esta acontecendo? Não existem nenhuma tabela amarrada no meu sistema! ps: Vasculhei na net, mas tudo que achei não se refere ao problema de deletar registro

Alguém pode me ajudar??

Deixe-me aproveitar este tópico para tentar sanar uma dúvida! Tenho um sistema que desenvolvi em paradox a mais ou menos 1 ano atrás para 3 computadores! No começo o sistema era acessado apenas por um, no máximo 2 computadores ao mesmo tempo. Até ai tudo bem. Só tem um probleminha, quando os 3 pcs tentam acessar, o paradox da um bug muito loco, não sei ao certo o erro, mas a terceira máquina não acessa o banco de dados. SEMPRE A TERCEIRA MÁQUINA QUE DA ESTE ERRO! O que eu posso fazer neste caso? Só o banco está no servidor, o executavel esta em cada máquina. Pode ser que eu digitei algo errado, pois a letra do funcionário que anotou isso para mim é péssima. Não seria isso um erro do BDE instalado na máquina ou do próprio Windows? Tenho de formata-lo?? Obrigado pela atenção

Deixe-me aproveitar o mesmo tópico, pois estou com o mesmo problema! Eu criei um arquivo chamado conf.ini Se eu rodo local funciona legalzinho, mas se tento colocar em rede, ele da erro e não roda! estou utilizando os componentes InterBase, pois descobri o ZConnecton nesses dias e o meu projeto já estava com meio caminho andado e até agora eu não não mexer com o Zconnection, mesmo porque não tive tempo de fuçar nele e pretendo utilizá-lo com MySql! Voltando... o endereço do banco de dados é: //Servidor/Programa/Banco.FDB Quando eu colo isso no arquivo ini, ele da erro! o componente IBDatabase recebe na sua propriedade DatabaseName o caminho gravado no arquivo conf.ini Estou achando que o IBDatabase não consegue entender o significado de //Servidor/Programa/Banco.FDB Detalhe importânte: Existe um outro sistema que eu desenvolvi a 1 ano atráz em paradox e ele roda legal em rede. Claro, fica dando uns erros meio retardados que são comuns no Paradox, mas funciona! Como eu faço para resolver este bug??? Eu estava pensando em Mapear a unidade de rede, mas como o Windows XP não é um SO muito estável, ao contrario do Linux, me disseram que pode acontecer de algumas informações de perderem!! Se eu mapeasse a unidade que está no servidor, ela apareceria como um M: ou F: nas máquinas como se fosse uma partição do HD, dai acho eu que iria funcionar o programa, mas eu não quero fazer isso! Como eu posso resolver, tem uma outra maneira deu pegar o endereço?? Os ips são fixos! e o servidor está localizado na recepção e a secretária utiliza ele no momento, mas no futuro ele vai ser separado e acho que em Linux! Aguardo um auxilio!

Boa noite galera, alguém sabe como se pega a extensão da foto selecionada num OpenPictureDialog? Para pegar o caminho eu uso OpenPictureDialog.filename Mas e para eu pegar a extensão dela? Porque é o seguinte: Eu tenho 6 campos com fotos, o usuario click nos campos e o openpicturedialog é executado, ele seleciona a imagem e o caminho desta imagem vai para um DBEdit, quando o usuario salvar no banco, esta imagem vai para uma pasta de onde o próprio usuário configura numa parte de programa, como pasta de fotos do sistema. O problema é que ele abre arquivos .JPEG, JPG e BMP Para salvar eu consigo, o unico problema é com a extensão, porque se eu coloco uma extensão errada na hora de abrir pelo programa ele da problema, mas pelo windows ele abre, se eu padronizo só o JPEG ou o BMP, o sistema roda legal, mas eu não queria fazer isso, pois meu cliente utiliza estes 3 tipos de extensões! Como eu faço para pegar a extensão da imagem?? Grato pela atenção

Jhonas, Me desculpa, mas eu fiz umas 2 pesquisas no forum e ele me retornou nenhuma pesquisa encontrada :unsure: Obrigado pela ajuda, consegui fazer roda aqui! Só tem um pequeno bug aqui e gostaria de saber se você ou alguém poderia me ajudar, eu já perdi 1 hora nisso :wacko: Quando eu abro a imagem e seleciono ela, beleza, roda legal. Mas se eu clico para abrir, não seleciono nenhuma foto e cancelo ou fecho a janela, ele da erro! Dai eu inseri este código if (DM.OpenPictureDialog.FileName <> null) then begin DM.OpenPictureDialog.Execute; DM.IBTimoveis.Edit; DBImage1.Picture.LoadFromFile(DM.OpenPictureDialog.Filename); DBImage1.Stretch := true; DBImage1.Refresh; DM.SavePictureDialog.FileName:= DM.IBTconfiguracoesLINKFOTOS.Value + '\' + Edit1.Text + 'a.pimage'+ DM.SavePictureDialog.DefaultExt;// Diretorio a salver Edit2.Text:= DM.IBTconfiguracoesLINKFOTOS.Value + '\' + Edit1.Text + 'a.pimage'+ DM.SavePictureDialog.DefaultExt; // recebendo o local que a imagem está alocado l1:= 1; // ação para identificar quem será salvo end else begin Edit2.Text:= ''; // ação para o programa não gerar nenhum arquivo exit; end; Dessa maneira não dá erro, mas só tem um bug nisso! Eu tenho o Edit2.Text que irá mostrar o local que a imagem está e será responsável por salvar o caminho da imagem gerada no banco! Se eu cancelo, o Edit2 recebe o caminho de qualquer maneira, ou seja, o meu código está errado correto? O que eu posso fazer para consertar?? Eu já perdi a manha toda tentando fazer isso :wacko: Grato pela atenção

Instalar os componentes eu sei, mas não sei como instalar os arquivos de skins (.*skn) Tem esse componente Vcl Skins, mas ele é pago! Se eu colocar ele na minha aplicação sem pagar, ela automaticamente se torna um software pirata e não é essa a minha intenção! O que eu quero é algum componente ou maneira de instala-las sem ter de pagar! Valeu pela atenção

Boa tarde galera, Eu preciso salvar que o meu programa salve as fotos numa pasta no servidor, o nome dela tem de ser o código do cadastro e o numero da foto, exemplo Codigo 45 foto1 (foto45a.bmp) codigo 45 foto2 (foto45b.jpeg) Só que o meu código não funciona! DM.OpenPictureDialog.Execute; DM.IBTimoveis.Edit; DbImage1.Picture.LoadFromFile(DM.OpenPictureDialog.Filename); DBImage1.Stretch := true; DBImage1.Refresh; Edit2.Text:= DM.OpenPictureDialog.Filename; f1:= DM.IBTconfiguracoesLINKFOTOS.Value; DBImage1.Picture.SaveToFile(f1) A imagem aparece no DBImage, mas da erro, dizendo que não pode ser salva na pasta! O link está correto (DM.IBTconfiguracoesLINKFOTOS.Value) O que eu estou fazendo de errado? Outra coisa, como eu faço para abrir imagens .jpeg?? Obrigado pela atenção

não tem nenhum free?? Não precisa ser necessariamente do windows vista, só queria algum para deixar o sistema com uma cara nova! Como eu instalo essas skins no delphi? Eu achei na net mais algumas com a mesma instenção, mas não sei como instalar!

Boa tarde galera, Vocês poderiam me indicar algum componente que muda o visual do programa? Estou utilizando o Delphi 6. Eu vi um que mudava o visual para as janelas do Mac Os, mas eu vi isso em uma video aula! Eu queria algo para deixar como o do linux ou do Windows Vista, pois o meu cliente possui windows XP e acho que ficaria legal o meu sistema com a aparência do Vista! Grato pela atenção.

Boa tarde galera, Eu desenvolvi um site em php + mysql e eu preciso desenvolver agora um sistema que utilize este banco que está hospedado no servidor web. Como eu faço para ujtilizá-lo na minha aplicação? Para que eu possa editar as informações do banco, sem ter de ficar logando no provedor, pois pelo meu software, iria agilizar o processo de cadastro, edição e até mesmo exclusão, pois as edições de muitos registros são diários. Sem contar que sei mais Delphi do que php, pois apanhei que nem um condenado para desenvolver o site! Obrigado pela atenção!

Bom dia Micheus, eu cheguei a ver sim, o problema é que o mozilla não atualizou a pagina e eu não vi o seu post, por isso que ficou meio repetitivo. Mas estou fazendo como você disse! Eu salvei o conteudo num arquivo .rtf e estou abrindo no quick report. No Jedi até tem um componente para impressão, mas não é tão profissional quanto o Quick Report. Quando o código: QRRichText1.ParentRichEdit := JvRichEdit; Ele não funciona, ele não aceita outro componente que não seja um RichEdit. O delphi retorna uma mensagem de erro dizendo que essa ação não é compatível, RichEdit e JvRichEdit. Obrigado mais uma vez pela sua ajuda e paciência Micheus

agora eu consegui fazer o texto aparecer no quic report para ser impresso, mas lembra das tabelas? então, elas desaparecem se eu coloco elas no RichEdit ou se eu passo as informações do JvRichEdit para o QRRichText1 usando um desses dois códigos: QRRichText1.lines.add(JvRichEdit.Text); QRRichText1.lines:= JvRichEdit.Lines; Você tem alguma idéia do que eu possa fazer? Desculpa a pergunta, mas qual é o código para eu abrir um arquivo .rft no Quick Report? Eu estava tentando aqui, mas não consegui! Eu acho que a unica maneira vai ser eu salvar o arquivo e depois abrir dentro do Quick Report. Tem como eu abrir um arquivo rtf né? Obrigado pela anteção

Achei o erro, ele não está passando por parâmetros as informações e nem colando do ClipBoard as informações! O que eu estou fazendo de errado? Eu estou utilizando aquele programa que você disponibilizou como exemplo num outro tópico, nele funciona, mas no meu sistema não! O que eu estou errando? Botão Imprimir: procedure TFrmResultado.FilePrint(Sender: TObject); Var // s: String; ms :TMemoryStream; begin // seleciona todo ele JvRichEdit1.SelectAll; JvRichEdit1.CopyToClipboard; ms := TMemoryStream.Create; JvRichEdit1.Lines.SaveToStream(ms); ms.Position := 0; FrmQRResultado := TFrmQRResultado.Create(Self); try FrmQRResultado.ImprimeDoc(ms); finally FrmQRResultado.Release; ms.Free; end; end; Form do Quick Report: .... private { Private declarations } public procedure ImprimeDoc(ms :TMemoryStream); { Public declarations } end; var FrmQRResultado: TFrmQRResultado; implementation Uses U_DataModule, Resultado; {$R *.DFM} procedure TFrmQRResultado.FormCreate(Sender: TObject); begin //RichEdit1.PasteFromClipboard; // Aqui foi uma tentativa de colar o texto já copiado, quando o form for criado, mas não deu certo. Dai eu deixei comentado end; procedure TFrmQRResultado.ImprimeDoc(ms :TMemoryStream); begin //RichEdit1.PasteFromClipboard; // Também tentei colar aqui, mas infelizmente não vai RichEdit1.Lines.LoadFromStream(ms); //QRRichText1.lines.LoadFromStream(ms); // Também tentei colar direto no QRRichText1, mas não deu também MessageDLG(RichEdit1.Text,mtError,[mbOk],0); // Erro para ver o que estava sendo colado, mas sempre aparece vazio, como se nada estivesse sendo colado ou copiado. QuickRep1.Preview; end; end.

Bom dia Micheus, eu não achei este componente no meu Quick Report! o unico mais próximo que encontrei foi este QRRichText Eu inseri o RichEdit no meu quick report, mas o ParentRichEdit no meu QRRichText não me deixa selecioná-lo. Eu passei por paremetro, mas mesmo assim ele não recebe o texto. Eu coloquei os códigos no evento BeforePrint do QR. É neste evento que eu coloco correto? Você saberia me dizer o motivo do ParentRichEdit não estar aceitando o meu RichEdit? eu coloquei até o JvRichEdit, mas nem ele foi aceito. Grato pela atenção.

Pra dizer a verdade Micheus, eu fiquei um tempinho afastado deste projeto e dos fóruns, estou dando uma olhada agora. Acabei postando uma coisa nada a vê. era só pra perguntar se existe mesmo este componente ou se o cara estava tirando comigo! TQRRichEdit eu não consegui achar no meu delphi, onde eu encontro ele, em qual palheta? obrigado pela atenção e desculpa a mancada no post :(