Jhonas

"Error accessing the OLE registry".. Erro acessando o registro OLE Solução da Borland: http://qc.borland.com/wc/qcmain.aspx?d=3015 abraço

Da uma olhada nestes posts deve ajudar http://scriptbrasil.com.br/forum/index.php...st&p=479886 http://scriptbrasil.com.br/forum/index.php...st&p=479024 abraço

É praticamente igual a este seu post... é só fazer as modificações necessarias http://scriptbrasil.com.br/forum/index.php...st&p=468178 abraço

Isto é possivel se voce gerar um documento com extensão RTF, como DOC não vai dar Com o arquivo .rtf pelo word voce vai usar nomes de variaveis que não poderão existir no texto do documento exemplo: VNome, VCidade, VEnder, VBairro..etc depois pelo delphi voce cria uma rotina para jogar o arquivo .rtf dentro de um Memo por exemplo e em seguida outra rotina para procurar e substituir estas variaveis pelo conteudo do BD e salva o conteudo do Memo novamente como um documento com extensão .rtf ao abrir o documento pelo word, voce vera as variaveis trocadas pelo conteudo do BD nas posições em que voce as colocou. seria algo como foi colocado neste post http://scriptbrasil.com.br/forum/index.php...st&p=473652 abraço

Tenta esta modificação: procedure TForm1.Button2Click(Sender: TObject); Var S : string; begin //............MONTAR UM NOME DE BACKUP...................... EdBackupTitle.Text := 'Backup'+datetostr(date()); S := EdBackupTitle.Text; while Pos('/', S) > 0 do delete(s,Pos('/', S),1); EdBackupTitle.Text := s; //........................................................... if Filelistbox.items.count = 0 then begin Showmessage('Nenhum arquivo selecionado'); exit; end; if EdBackupTitle.Text = '' then SaveDialog.Execute; begin if uppercase(copy(SaveDialog.filename, 1, 1)) = 'A' then begin Showmessage('Drive A selecionado - por favor inserir um disco vazio'); BackupFile1.maxSize := 1400000; //backup to floppy end else BackupFile1.maxSize := 0; if EdBackupTitle.Text <> '' then backupfile1.backuptitle := EdBackupTitle.text; if rgBackupmode.itemindex = 0 then backupfile1.backupmode := TBackupMode(bmAll) else backupfile1.backupmode := TBackupMode(bmIncremental); case rgCompressionLevel.itemindex of 0 : backupfile1.compressionLevel := TCompressionLevel(clFastest); 1 : backupfile1.compressionLevel := TCompressionLevel(clDefault); 2 : backupfile1.compressionLevel := TCompressionLevel(clMax); 3 : backupfile1.compressionLevel := TCompressionLevel(clNone); end; backupfile1.SaveFileID := CbSaveFileID.checked; if EdBackupTitle.Text = '' then begin if backupfile1.backup(filelistbox.items, SaveDialog.filename) then Showmessage('Backup realizado com sucesso. Taxa de Compressão = '+inttostr(BackupFile1.compressionrate)+' %') else Showmessage('Backup falhou ou abortou'); end else begin if backupfile1.backup(filelistbox.items, Edit1.Text + '\' + EdBackupTitle.Text) Showmessage('Backup realizado com sucesso. Taxa de Compressão = '+inttostr(BackupFile1.compressionrate)+' %') else Showmessage('Backup falhou ou abortou'); end; end; end; abraço

Sim ou poderia ser assim tambem DM.QPesqQtd.Close; DM.QPesqQtd.SQL.Clear; DM.QPesqQtd.SQL.Text := 'select * from OS where Data_Inicio >= :Data1 and Data_Inicio <= :Data2'; DM.QPesqQtd.ParamByName("Data1").AsDate := DateEdit1.Date; DM.QPesqQtd.ParamByName("Data2").AsDate := DateEdit2.Date; DM.QPesqQtd.Open; abraço

e é ... me expressei errado .. é porque eu uso o delphi 7 e este componente ( Indy 9 ) esta instalado nele. vou dar uma pesquisada, e depois posto .... enquanto isto se alguém tiver outra sugestão... abraço

Este componente é do delphi 7

Acho que o Micheus já respondeu algo muito parecido para voce e no forum existem outros topicos abordando o mesmo assunto... tenta este; http://scriptbrasil.com.br/forum/index.php...=DBGrid+and+cor abraço

Voce deve ser mais especifica, pois no forum existem muitos topicos sobre email abraço

TIdAttachment.size(idMsgSend.MessageParts) Lista de partes de mensagem para a mensagem. propriedade MessageParts: TIdMessageParts; Descrição MessageParts é um TIdMessagePartsList usado para armazenar os componentes de TIdMessagePart que compõem a mensagem. MessageParts pode conter dois descendentes de TIdMessagePart: TIdText e TIdAttachment. MessageParts é usado quando IsEncoded é fixado para True (em enviar), ou NoDecode é fixado para falso para receber. O que eu quis dizer é: use o codigo e modifique-o para o seu uso... ai voce vai conseguir fazer o que esta querendo abraço

Da uma olhda neste post http://scriptbrasil.com.br/forum/index.php...st&p=480850 abraço

Voce pode fazer uma pesquisa por data ou por defeito Ex: Select * from Tabela Where data_defeito >= :Data1 and data_defeito <= :Data2 Order by maquinas, data_defeito Neste caso Data1 e Data2 são passados como parametros ( data nicial e data final da pesquisa ) Select * Tabela Where defeito like :Def Order by maquinas, data_defeito Neste caso Def é passado como parametro ( descrição do defeito ) .......................................................................... qual a maquina que ocorre mais defeito registrado? Como voce não colocou quantidade de defeitos mas sim descrição do defeito então use a select 2 abraço

alguma coisa tem que ter, se não estiver dentro do proprio QR então deve estar no Form que chama o relatorio... verifique abraço

Fica dificil se voce não disser quais são os erros. abraço

acho que é isso que voce quer.... é só expirementar e ver o que acontece. abraço

abraço

Da uma olhada nestes endereços: http://www.uri.br/~preuss/delphibd/DelphiComBD.htm http://www.feradainformatica.com.br/artigo...p=ver&id=43 abraço

mas seria algum problema com o serviço "Server" ? Tradução: pode ser sim .... verifique os serviços em andamento abraço

DFD é um Editor e intérprete de diagramas de fluxo Excelente editor e leitor de diagramas de fluxo com uma interface gráfica que facilita a criação destes esquemas para a representação de algoritmos que solucionam problemas de computador. Estes diagramas podem ser salvos em discos ou impressos. O programa inda nos brinda com ferramentas de depuração como "Execução passo-a-passo", "Executar até", "Janela de Depuração"(mostra os valores das expressão a medida que o algoritmo se executa) e um "Avaliador de Expressões (que funciona como uma calculadora). endereços para download: http://terrabrasil.softonic.com/file.phtml...;view=downloads http://www.newfreedownloads.com/find/dfd.html http://www.brothersoft.com/visio-gane-sars...load-69163.html http://dfd.alienpicks.com/ http://3d2f.com/tags/visio/dfd/ http://www.soft32.com/Download/free-trial/...4-203953-1.html http://www.softpedia.com/progDownload/Visi...load-46438.html http://www.softpedia.com/progDownload/Visi...load-91008.html http://www.brothersoft.com/visio-gane-sarson-dfd-69163.html abraço

Dica de Christian function TamanhoArquivo(Arquivo: string): Integer; begin try Result := 0; with TFileStream.Create(Arquivo, fmOpenRead or fmShareExclusive) do begin try Result := Size; finally Free; end; end; except end; end; // *********** Anexando Arquivos ****************** // tam := 0; ProgressBar1.Position := 0; if (ListBox1.Items.Count > 0) then for i := 0 to ListBox1.Count - 1 do begin TIdAttachment.Create(idMsgSend.MessageParts, ListBox1.Items.Strings[i]); tam := tam + TamanhoArquivo(ListBox1.Items.Strings[i]); end; ProgressBar1.Max := tam; E no Evento OnWork do TidSMTP você coloca esse código: Código: ProgressBar1.Position := AWorkCount; OBS: voce pode testar a variavel tam .. se for 0 o arquivo esta vazio. abraço

Acho que não é possivel, mas é possivel adicionar e excluir nodes em tempo de execução. abraço

poste o codigo que voce usa para fazer o download... ficara mais facil te ajudar abraço

Tem um exemplo no delphi que vai te dar uma idéia de como começar C:\Arquivos de programas\Borland\Delphi5\Demos\Richedit ou C:\Arquivos de programas\Borland\Delphi7\Demos\Richedit abraço

Com certeza é possivel que seu programa esteja com um "loop" de eventos. Olhando o seu codigo, voce colocou detro do evento FormClose um comando close... isto faz uma chamada recursiva ao proprio evento até dar estouro de pilha ( stack overflow ) procedure TfrmAniverMes.FormClose(Sender: TObject; var Action: TCloseAction); begin frmAgenda.adoAniversario_Dia.Close; //close; chamada recursiva end; outros motivos tambem podem ocasionar este tipo de erro: Por exemplo, se dentro de um BeforePost de uma tabela o seu programa processa alguma rotina que efetua novamente um BeforePost, sobre a mesma tabela, o programa irá entrar em uma recursao até que o espaco da pilha do sistema se esgote. Neste caso experimente colocar um BreakPoint em algum ponto onde voce suspeita que possa haver alguma chamada recursiva, e execute o programa passo-a-passo (use a tecla F7 ou F8 para executar passo-a-passo). Alguns suspeitos: - BeforePost, AfterPost, BeforeEdit, etc. - OnValidate de alguns campos - OnClose - etc., etc. abraço