malereis

Olá pessoal. Boa tarde. Tenho uma aplicação que roda muito bem na máquina onde está instalado o Delphi. Dá o seguinte erro Ole error 8004503A quando instalado em outra máquina. A única coisa diferente que estou usando nessa aplicação é o ClientDataSet. O arquivo gerado pelo ClientDataSet está exatamente onde deveria estar, na máquina onde instalo o programa e que não tem Delphi instalado. Estou usando o InnoSetup. Será que falta alguma dll, ou outra coisa? Alguém pode ajudar. Grato pela resposta. Malereis

Olá pessoal. Preciso ir digitando um texto em um campo Memo e que aconteça o seguinte: A cada letra digitada, ou espaço, um contador é incrementado Supor que setei o contador com 80. 80 é o número de caracteres ou espaços contados em cada linha. Quando atingir 80, por exemplo, passa para a linha seguinte até o final do texto. Quando eu estiver digitando esse texto, posso errar em alguma letra na digitação. Preciso dar backspace para apagar esse caracter errado e continuar digitando. Quando errar e apagar, o contador deve ser decrementado. Consegui fazer isso, mas o cursor sempre fica à esquerda dos caracteres e não ficou lá essas coisas. Alguma santa alma pode auxiliar. Grato pela ajuda Malereis Preciso que ele sempre fica à direita, senão apago o que está verto.

Olá pessoal. Procurei em muitos links, mas não achei nada. Tenho 2 problemas. 1- Tenho uma rotina que detecta todas as teclas do PC, com exceção do TAB e PrintScreen. As rotinas normais que encontrei, funcionam para tudas, menos essas duas teclas. Já me disseram que o código do TAB é 9, (O printScreen, não sei) mas como fazer aparecer isso em um edit? 2- Precisava tb anular todas aquelas teclas de atalho, de som, volume, e-mail, internet, hiberna, etc, mas tb não achei nada a respeito. Podem ajudar. Grde abraço Alexandre

Olá pessoal. Bom dia... Preciso ler um arquivo em um Memo e transformar em áudio. As linhas vão sendo lidas e transformadas em áudio, até que uma tecla (Enter) seja acionada e a leitura e áudio são interrompidos, mas no próximo ponto final da frase que estiver lendo. (assim termina a frase) A tecla Enter deve servir para Interromper e Continuar a ler. Consegui esse efeito, mas só a cada ponto final e tenho que clicar em um botão a cada ponto final. (substituir botão pelo enter) Mando o código que tenho e se alguém puder ajudar, agradeço. var frmPrincipal: TfrmPrincipal; voice: OLEVariant; //Var de áudio PosicaoAux, PosicaoAnt: integer; //Para paradas no texto implementation uses MMSystem, StrUtils; procedure TfrmPrincipal.Posicao; begin //Lendo Paragrafo por paragrafo PosicaoAnt:=Table1.fieldByName('Posic').AsInteger; Inc(PosicaoAnt); if PosicaoAnt > Length(Memo1.Text) then begin //Quando o arquivo texto chega ao fim, sonta a msg, fim da mensagem voice:= CreateOLEObject ('SAPI.SpVoice'); voice.volume:=100; voice.Rate:=-1; voice.Speak('Fim da Mensagem.'); PosicaoAnt:=0; PosicaoAux:=0; Table1.Open; Table1.Edit; Table1.FieldByName('Posic').AsInteger:=PosicaoAnt; Table1.Post; Table1.Refresh; end else begin PosicaoAux := PosEx('.', Memo1.Text, PosicaoAnt); if PosicaoAux = 0 then PosicaoAux := Length(Memo1.Text); Memo2.Text := Copy(Memo1.Text, PosicaoAnt, PosicaoAux - PosicaoAnt + 1); PosicaoAnt := PosicaoAux; //Marcando no BDE a posição de parada. Table1.Open; Table1.Edit; Table1.FieldByName('Posic').AsInteger:=PosicaoAnt; Table1.Post; end; end; procedure TfrmPrincipal.Audio; //Aqui vem as linhas de Memo1 para serem lidas linha a linha begin //Lendo as linhas de Memo2. voice:= CreateOLEObject ('SAPI.SpVoice'); voice.volume:=100; voice.Rate:=-1; voice.Speak(Memo2.Text, 1); end; procedure TfrmPrincipal.btnTutorialClick(Sender: TObject); //Esse evento vai ser substituído pelo clique do botão Enter begin Posicao; Audio; end;

Olá pessoal. Tenho um problema aqui e gostaria de saber se podem ajudar. Tenho um form com 2 Memos, Memo 1 e Memo2. No Memo1 carrego um texto. No Memo2 preciso que a cada clique de um botão, carregue 1 frase por vez (uso o ponto final de cada frase como referência) Parte já está pronto. Já tentei vários métodos, mas a maioria deles, para a frase em qualquer posição, antes ou depois de cada ponto final (.) Usei essa rotina: x:=Copy(Memo1.Text,0,Pos('.',Memo1.Text)); Memo2.Text:=x; Ela lè exatamente a primeira frase até seu ponto final, mas não sai disso. Tentei mudar o '0,pos, para uma var do tipo integer, para procurar frases seguintes, mas não deu certo. O que preciso é: Tenho todo o Texto em Memo1. A cada clique de um botão, mando uma frase para o Memo2, e assim por diante, até acabar o texto. Mas ainda preciso guardar cada posição tb ao clique do mesmo botão, Ele lê o parágrafo seguinte e guarda a informação em um banco de dados, por exemplo. (essas rotinas do banco sei fazer,s em problemas). Para que isso??? Vamos supor que eu pare o texto antes de acabar, deslique o PC e deixe para depois. Quando retornar, carrego o aplicativo e ele carrega a mesma frase onde parei e retoma o texto daí para frente. Podem ajudar, pois meu conhecimento está no limite e iso realmente nem tenho idéia de como fazer. Grde abraço e grato se puderem ajudar. Alexandre

Olá pessoal. Tenho um arquivo texto.... Ok.. Preciso ler paragrafo por paragafo ( o limite de cada um é o ponto final). A cada paragrafo lido, ao toque de um botão, apresento em um campo Memo. Preciso guardar essa informação de onde parei o texto, para poder recomeçar desse último paragrafo apresentado no Memo, e recomeçar daí para frente. Tentei algumas rotinas que fiz com o pos, mas não deu muito certo. Podem ajudar?? Grato

Bom dia amigos. Vi alguns links de tópico de nosso amigo Jonas sobre uma questão que estou tendo problemas. Para fazer o Delphi falar um texto, muito bom, funciona. Para corrigir a fonética, instalei o software Raquel... e ficou uma beleza. Agora o problema que só vi e sei fazer de forma manual. Para acertar a fonética, fui em Menu Iniciar, Configurações, Painel de Controle, Fala e lá em uma janela no campo Seleção da Fala, coloco ScanSoft_Raquel_Full_22MHz...... Beleza. Depois regulo a velocidade em uma taskbar no windows para controle da velocidade da fala. Muito bom... tudo funciona certinho. Mas... 1- Como faço para o Delphi carregar automaticamente a seleção de fala assim que executar a aplicação? 2- Coloco uma taskbar no Delphi tb e como é o código para regular a velocidade da fala? Isso é o que preciso fazer, mas não tenho a mínima idéia de como escrever esses códigos para o Delphi setar isso sozinho na execução e eu poder controlar a velocidade da fala via Delphi... qualquer ajuda é bem vinda. Grato Alexandre

Olá... Alguém sabe como colocar senha no SQL Lite? Grato.

Olá Pessoal. Seguinte, Os exemplos que achei na internet são para salvar e carregar imagens através de um path... LoadFromfile ('c:\minhasimagens\imagea.jpeg); Ok... mas preciso usar de outra forma. (guardar a imagem e carregar do Banco de dados) Vamos lá.... Tenho uma imagem JPEG já carregada em um DBImage. Penso que o código para salvar seja esse: TBlobField(AdoTable1.FieldByName('ImageA')).SaveToFile(FileListBox1.FileName); AdoTable1.Post; Mas não consigo reverter o processo para ler essa imagem. 1- A rotina para gravar está correta? 2- Como seria esse código para ler em um DBImage direto do banco. Grato pela ajuda, porque estou no sufoco... :wacko: Mauricio

Olá amigos... Tenho um componente DBMemo que já contém um texto do DBanco de dados. Preciso evitar que qualquer pessoa faça uma seleção do texto e copie para outro lugar (um bloco de notas por exemplo) Tentei colocar no evento onclick um comando para dar um Clear, ou mesmo desabilitar o banco de dados do DBMemo, se colocasse o cursor do mouse para marcar o texto. Mas o comando chega atrasado e dá para copiar antes que o texto desapareça. Alguém tem uma idéia de como posso evitar que essa cópia aconteça? Grato pela dica MAlareis

Olá Jhonatan. Estou ficando louco aqui, com a mesma dificuldade. você poderia enviar os componentes e o sorce code? Vai ajudar e muito. Não sei se você pode enviar isso via email (mecpobox@gmail.com)se não implica em nenhuma regra do Fórum... Mas te agradeço de qualquer forma e se precisarem de códigos para aplicações em eletrônica e mecânica, posto para vocês. Grato Olá... Tb estou ficando meio louco aqui. Cê tem o source code e componentes? Me dê uma dica de como utilizar. Preciso enviar e receber emails sem dar erros. mecpobox@gmail.com

Grato por sua atenção Jhonas. Tentei, mas as units que tenho, ao que parece, falta alguma coisa e dá erro. Já me disseram para criar uma procedure para registro, mas tb não funciona. Tenho uma aplicação pronta e só falta enviar emails com anexo de vários provedores, pagos ou não para um email específico e vice-versa. Fiz isso no Delphi 5 com os componentes FastNet, mas por mais que eu modifique as rotinas, funciona para um e falha para outro. Pesquisei e ficou claro que a partir para o Delphi7, usando Dll's para criptografia SSL, resolve o problema. Pena que não consigo fazer todos os componentes, por + que eu busque e na verdade, não tenho a mínima idéia de como fazer esse código. + uma vez te agradeço e tb a todos os membros do Fórum.

Olá... Tenho os componentes na forma de units. Abro a aba Component - Install Component, Install New Pakage, 1- Campo: Nome da unit que vou utilizar (já está copiada para dentro da livraria) 2- Campo: Deixo o path como está ($(DELPHI)\Lib;$(DELPHI)\Bin;$(DELPHI)\Imports;$(DELPHI)\Projects\Bpl) 3- Pakage File Name : Nome do componente 4- Pakage Description: Descrição do componente. Fiz isso várias vezes e não é criada paleta nova e não sei onde foi parar o componente. Preciso instalar no Delphi 7 os seguintes componentes: Idsmtp, idMessage e idPop3 Vi inúmeras soluções nos fóruns, mas não consigo sair disso.. Onde estará meu erro? Grato pela resposta. malareis

Olá... Boa tarde. Não tenho muita experiência em instalação de componentes. Tenho uma série de zips que baixei (Indy xx-xxxx) Como são muitos, não sei qual a diferença, uma vez que não é informado se refere-se a alguma versão em especial. Estou usando a versão 7 e gostaria de um passo a passo detalhado para que eu não cometesse erros. Estou levando uma surra à semanas. Grato pela ajuda Malereis