Jhonas

Amigo, nesse tópico voce disse que já havia resolvido esse problema outro exemplo para o Gmail http://www.activedelphi.com.br/forum/viewtopic.php?t=65938&highlight=yahoo abraço

veja... esses componentes. Voce tem que coloca-los no Form ( estão nas Paletas do Indy ) IdSMTP1: TIdSMTP; IdSSLIOHandlerSocket1: TIdSSLIOHandlerSocket; IdMessage1: TIdMessage; Erro: Não foi possível conectar ao servidor SMTP. Cloud not load SSL library tem que ter a biblioteca SSL ( voce pode baixar da Internet ) Esse componente IdSSLIOHandlerSocket1 é o mesmo que esse IdSSLIOHandlerSocketOpenSSL1? acho que sim OBS: quanto aos erros que voce reportou, aqui não acontece. Então não posso te dizer o motivo dos erros na sua maquina. abraço

ok ... vou te passar um exemplo unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Button2: TButton; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} { OBS: Interbase Guardian é o nome do serviço do Interbase. verifique como está registrado em: Painel de Controle - Ferramentas Administrativas - Serviços - Guia Nome. } procedure TForm1.Button1Click(Sender: TObject); begin ///Startar Interbase Server ... WinExec('command.com /c net start "Interbase Guardian"',SW_HIDE); showmessage(' O Serviço do Interbase está Ativo '); end; procedure TForm1.Button2Click(Sender: TObject); begin ///Parar Interbase Server ... WinExec('command.com /c net stop "Interbase Guardian"',SW_HIDE); showmessage(' O Serviço do Interbase está Parado '); end; end. outras informações: http://firebirdsql.org/manual/pt_br/ibfbcoex-running-ib-fb-together-pt_br.html abraço

Seria tipo isso: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, IdMessage, IdIOHandler, IdIOHandlerSocket, IdSSLOpenSSL, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdMessageClient, IdSMTP, StdCtrls, IdServerIOHandlerSocket, IdServerIOHandler; type TForm1 = class(TForm) Button1: TButton; IdSMTP1: TIdSMTP; IdSSLIOHandlerSocket1: TIdSSLIOHandlerSocket; IdMessage1: TIdMessage; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin with IdSMTP1 do begin AuthenticationType := atLogin; Host := 'smtp.gmail.com'; IOHandler := Socket; Password := 'aslale'; Port := 465; Username := 'aslalexandre@gmail.com'; end; IdSSLIOHandlerSocket1.SSLOptions.Method := sslvSSLv2; IdSSLIOHandlerSocket1.SSLOptions.Mode := sslmBoth; IdMessage1.From.Address:= 'aslalexandre@gmail.com'; //-- requer autenticacao IdSMTP1.AuthenticationType:= atLogin; //-- conexao segura SSL IdSMTP1.IOHandler := IdSSLIOHandlerSocket1; IdMessage1.MessageParts.Clear; //-- ORIGEM IdMessage1.From.Address := Trim('Seu Endereço'); IdMessage1.Subject := Trim('Sistema de Backup'); IdMessage1.Body.Text := Trim('Texto: Envio de Email - Teste'); //-- DESTINO IdMessage1.Recipients.EMailAddresses := 'aslalexandre@gmail.com'; IdMessage1.BccList.EMailAddresses := ''; IdMessage1.CCList.EMailAddresses := ''; if NOT IdSMTP1.Connected then IdSMTP1.Connect(3000); if IdSMTP1.Connected then begin //IdSMTP1.Authenticate; IdSMTP1.Send(IdMessage1); Application.ProcessMessages; Application.MessageBox('E-Mail enviado com sucesso!','Aviso',mb_IconInformation +mb_ok); IdSMTP1.Disconnect; //EdtPara.Clear; end; end; end. ou pode tentar esse exemplo: http://programandodetudo.blogspot.com.br/2011/07/enviando-email-com-programa-feito-em.html abraço

o ultimo link é um provedor particular, voce só conseguira baixar os arquivos se ele estiver ativo com relação ao seu código... testei aqui com o delphi 7 e usando a versão do Indy 10.2.0.1 e funcinou corretamente caso queira tentar outro código: Componentes IdSSLIOHandlerSocket1 = Vai na SSLOption= Method : sslvSSLv3 IdSMTP1 IdMessage1 Codigo : Código: IdSMTP1.Host := 'smtp.gmail.com'; IdSMTP1.Username := 'SuaContaGmailAqui'; IdSMTP1.Password := 'SuaSenhaGmailAqui'; IdSMTP1.Port := StrToInt(Trim('465')); //-- requer autenticacao IdSMTP1.AuthenticationType:= atLogin; //-- conexao segura SSL IdSMTP1.IOHandler := IdSSLIOHandlerSocket1; IdMessage1.MessageParts.Clear; //-- ORIGEM IdMessage1.From.Address := Trim('Seu Endereço'); IdMessage1.Subject := Trim('Seu Titulo da Msg Pro Carinha'); IdMessage1.Body.Text := Trim('Sua Mensagem pro Carinha'); //-- DESTINO IdMessage1.Recipients.EMailAddresses := 'Email Do Carinha'; IdMessage1.BccList.EMailAddresses := ''; IdMessage1.CCList.EMailAddresses := ''; if NOT IdSMTP1.Connected then IdSMTP1.Connect(2000); if IdSMTP1.Connected then begin //IdSMTP1.Authenticate; IdSMTP1.Send(IdMessage1); Application.ProcessMessages; IdSMTP1.Disconnect; ======================================================================== procedure TfrmENVIAR.FormCreate(Sender: TObject); begin with SMTP do begin AuthenticationType := atLogin; Host := 'smtp.gmail.com'; IOHandler := SSLSocket; Password := 'senha'; Port := 465; Username := 'nome@gmail.com'; end; SSLSocket.SSLOptions.Method := sslvSSLv3; SSLSocket.SSLOptions.Mode := sslmClient; end; Botão ENVIAR: begin with MSG do begin Body.Text := memo1.text ; From.Address := 'email do remetente'; //opcional From.Name := 'Agenda'; //opcional Recipients.Add; Recipients.Items[0].Address := eddest.Text ; Recipients.Items[0].Name := eddest.Text ; //opcional Subject := 'Tarefas de hoje' ; end; try SMTP.Connect(); SMTP.Send(MSG); SMTP.Disconnect; except ShowMessage('Falha no envio!'); exit; end; ShowMessage('E-MAIL COM OS COMPROMISSOS FOI ENVIADO COM SUCESSO!'); ; end; email := TIdMessage.Create(nil); serV := TIdSMTP.Create(nil); if Autenticacao then begin SSL := TIdSSLIOHandlerSocket.Create(nil); { seta as propriedades do componente IdSMTP } Serv.IOHandler := SSl; serV.Port := 465; end else serV.Port := 25; serV.AuthenticationType := atLogin; Serv.Username := Usuario; Serv.Password := Senha; serV.Host := Servidor; { Seta as propriedades do componente IdMessage } email.From.Address := EmailRemetente; email.Recipients.EMailAddresses := EmailDestinatario; email.Subject := Assunto; email.Body.Text := Mensagem; { insere os anexos } for i := 0 to FAnexo.Count - 1 do begin TIdAttachment.Create(email.MessageParts,FAnexo.Strings[i]); end; { envia o email } try try serV.Connect(1000); serV.Send(email); except raise EspdNFeEmail_EnviarEmailException.Create('Erro ao enviar Email Verifique as Configurações do Email'); end; finally if serV.Connected then serV.Disconnect; end; end; email.Free; serV.Free; if Autenticacao then SSL.Free; abraço

Class EDataBaseError with message 'IBQuery1: Cannot Modify a Read-Only Dataset. Process stopped. no compoente IBQuery a propriedade RquestLive deve estar como True abraço

use o Regedit ( Editor de Registro do Windows ) va em Inciar > Executar > Regedit localize onde esta o registro do Firebird e coloque o caminho no código OBS: O Interbase / Firebird deve estar instalado na maquina abraço

isso não é um erro, é apenas uma mensagem de aviso voce pode ignorar esse aviso teclando F9, e continuar o envio, no entanto, não vai resolver a exceção. isso ocorre quando a conexão é fechada antes de finalizar o envio solução: Connection closed gracefully Como o EIdConnClosedGracefully é uma exceção comum especialmente com determinados servidores, ele desce da EIdSilentException. Na guia Exceções de idioma das Opções do Debugger (Menu Ferramentas), você pode adicionar EIdSilentException à lista de exceções para ignorar. Depois disso, as exceções ainda ocorrerão no código e serão tratadas, mas o depurador não interromperá o programa para depurá-las. ou veja em http://www.swissdelphicenter.ch/en/showarticle.php?id=1 veja tambem se o problema esta no timeout do componente TIdSSLIOHandlerSocketOpenSSL: Código: IdSSLIOHandlerSocketOpenSSL1.ReadTimeout := 30000; Veja tambem com relação ao GMail http://tsdn.tecnospeed.com.br/blog-da-consultoria-tecnica-tecnospeed/post/corrigindo-o-erro-connection-closed-gracefully-gmail em ultimo caso, voce ainda pode tentar outra versao do indy ( voce não mencinou qual a versão do seu windows ) http://minhaweb2.zapto.org:9090/downloads/Indy10.rar abraço

a versão do seu Indy é muito antiga tente com essa http://www.indyproject.org/Sockets/fpc/indy-10.2.0.3.zip abraço

veja nesse post

ok ... se voce esta usando o OneDrive já deve ter uma conta, certo ? para acessar o arquivo na Nuvem basta voce digitar a URL em um navegador e voce já tera acesso aos seus arquivos a maneira que eu sei é usando o Delphi e pelo Zeos para acessar remotamente o MYSQL, mas no seu caso, acho que bastaria voce colocar o IP ou a URL e em seguida digitar o caminho para o arquivo do Excel na Nuvem ( Disco Virtual ) na configuração de acesso seria tipo: www.onedrive.com/minhapasta/arquivodoexcell ou //40.121.209.160:80/minhapasta/arquivodoexcell outra sugestão: sei que se voce usar o componente TIdFTP da paleta Indy voce consegue baixar o arquivo do excel na maquina do cliente para uso local. ainda não me preocupei em usar a Nuvem, por isso não posso dizer com certeza, pois faço uso de servidor dedicado na internet. nesse link tem um projeto pronto feito em delphi que acessa a nuvem se interessar dá uma olhada. https://sourceforge.net/p/radstudiodemos/code/HEAD/tree/branches/RADStudio_Tokyo/Object Pascal/Database/CloudAPI/CloudExplorer/ abraço

voce não precisa criar um programa em delphi para isso https://support.office.com/pt-br/article/Trabalhar-com-dados-de-planilha-no-OneDrive-c051a205-1c06-4feb-94d8-793b0126b53a abraço

voce olhou os links que passei sobre os serviços na nuvem ? Serviços Onlne abraço

Sim .... O que é computação em Nuvem Acredita-se que no futuro ninguém mais precisará instalar nenhum software em seu computador para desempenhar qualquer tipo de tarefa, desde edição de imagens e vídeos até a utilização de programas de escritório (Office), pois tudo isso será acessível através da internet.Estes são os chamados serviços online. Ou seja, você simplesmente cria uma conta no site, utiliza o aplicativo online e pode salvar todo o trabalho que for feito para acessar depois de qualquer lugar. É justamente por isso que o seu computador estará nas nuvens, pois você poderá acessar os aplicativos a partir de qualquer computador que tenha acesso à internet. abraço

Mande uma mensagem para o Administrador do Forum ( Script Brasil ) https://www.scriptbrasil.com.br/forum/messenger/compose/?to=1 abraço

ok... o primeiro link é para baixar os componentes de acesso a um servidor na nuvem o segundo é um projeto pronto usando o delphi XE e DataSnap o terceiro é uma serie de links de sites para voce saber um pouco mais sobre o assunto. ----------------------------------------------------------------------------- Há muito tempo atraz eu fiz um teste com um aplicativo feito em delphi, acessando uma base de dados em um servidor externo. para isso utilizei o componente Zeos e no servidor utilizei o banco de dados MYSQL e funcinou perfeitamente. ( veja na internet MYSQL Acesso Remoto ) a unica diferença entre o banco de dados local e um num servidor da internet, é que o servidor tem que dar acesso ao banco de dados .... então voce pode criar um exe no Cliente e configurar pelo Zeos o acesso ao banco de dados no lado Servidor. OBS: leve em conta que dependendo do grau de sigilo de seus dados, não é aconselhavel esse tipo de acesso. ( voce deve criar o seu proprio servidor ) outra coisa é: quantas conexões voce terá e a velocidade da internet... isso pode deixar o sistema lento, dependendo do trafego da quantidade de dados. http://infomoz.net/pt/experimente-usar-uma-base-de-dados-mysql-nas-nuvens-com-a-xeround/ abraço

Links para pesquisa https://sourceforge.net/projects/rest-dataware-componentes/ https://cc.embarcadero.com/item/28141 https://www.google.com.br/search?q=servidor+banco+de+dados+nuvem&o que=BD+nuvem+delphi&gs_l=psy-ab.1.0.0i71k1l4.0.0.0.174290.0.0.0.0.0.0.0.0..0.0.dummy_maps_web_fallback...0...1..64.psy-ab..0.0.0....0.kwj-0kd-r5c abraço

TotalCredito e TotalDebito são campos virtuais ? se forem, basta voce jogar o valor desses campos nos campos da sua tabela e salvar exemplo: IBQuery2.Edit; IBQuery2.HIS_VALOR.Value := TotalCredito ; IBQuery2.Post; IBQuery2.ApplyUpdates; IBQuery2.Refresh; OBS: Dê duplo clique no IBQuery2 para adicionar o campo virtual no componente. abraço

exemplo: Este código mostra como para fazer pedidos HTTP GET para obter páginas do wiki. Você pode alterar o endereço do servidor (http://en.wikipedia.org) ou o nome da página (Página principal) para obter resultados diferentes. http://docwiki.embarcadero.com/CodeExamples/Tokyo/en/HTTP_Get_(Delphi) abraço

Se voce leu, esta escrito: ( A Versão 10.0.52 ( 1.8 Mb ) é, no entanto, uma versão bastante antiga e já não é recomendada ) entretanto ela funciona no delphi 7 com o windows 7 OBS: Só para voce ter uma ideia, a versão do meu Indy é 10.2.0.1 esta versão é mais nova que a minha http://www.indyproject.org/Sockets/fpc/indy-10.2.0.3.zip esta outra versão do indy ( 5.9 Mb ) deve resolver o seu problema http://minhaweb2.zapto.org:9090/downloads/Indy10.rar abraço

O campo da sua tabela sempre tera o valor N ou S voce é que determina na select quais são os registros que voce quer fazer isso ( marcar com S ou N ) voce pode pegar registros de uma data ou de um período e aplicar o UPDATE abraço

Não fique na dúvida .... coloque o campo na tabela e não vai se arrepender... trabalho com tabelas com mais de 250 mil registros e a solução que te passei é muito rapida abraço

sugiro que voce não use esse campo como virtual, coloque ele na tabela ... vai facilitar muito abraço

Ok ... agora entendi melhor a sua dúvida. ,,,, não é preciso usar o comando While se voce quer ganho de performance, voce vai usar um componente TQuery ou outro conforme o banco de dados que estiver usando. simplesmente coloque um componente TQuery no Form e coloque esse código em algum procedimento ou botão, Query1.SQL.Clear; Query1.SQL.Append('UPDATE ContasReceber SET MARCADO = "S" WHERE MARCADO = "N"'); Query1.ExecSQL; Query1.Close; OBS: na clausula SQL voce pode ainda filtrar os registros por data se quiser, da maneira como esta, todos os registros da tabela ( ContasReceber) que estiverem marcados como Não serão marcados como Sim abraço

Eu não sei como voce definiu o seu Form, mas por padrão voce utiliza no Form um botão para Inclusão , um botão para Alteração, um botão para Exclusão e um botão para Impressão; então no Botão < Incluir > ( variavel botao := 1 ) voce coloca o código para abrir a tabela e adicionar novo registro Fiz uns testes no evento OnKeyPress do DBGrid mas não está salvando. no evento OnKeyPress do DBgrid voce modifica o código para salvar o registro dmDados.tblConta.edit; dmDados.tblConta['CON_CREDITO'] := tot1; dmDados.tblConta['CON_DEBITO'] := tot2; dmDados.tblConta['CON_SALDO'] := tot1 - tot2; dmDados.tblConta.post; //=======>>>>> dmDados.tblConta.ApplyUpdates(-1) ou //=======>>>>> dmDados.tblConta.ApplyUpdates; dmDados.tblConta.Refresh; dmDados.tblHistorico.Append; DBGrid2.SelectedIndex:= 0; OBS: Caso voce precise calcular a coluna de varios registros, use um select para filtrar os registros que voce quer e depois bastara voce criar uma rotina para ler os registros e ir fazendo os calculos e jogando os valores na coluna desejada e depois é só salvar os registros modificados. abraço