digitosistemas

RESOLVIDO.

Enviei sem ter finalizado o assunto: Ao tentar enviar email aparece a mensagem Smtp Error: Unable to login, 10091-Network subsystem unusable. Como corrigir? Enviei por outro componente e o email esta sendo enviado. Só que gostaria de usar somente o acbr. Var Dir, ArqXML: string; MS: TMemoryStream; //P, N: Integer; begin ACBrMail1.From := edemailRemetente.text; ACBrMail1.FromName := EdnomeRemetente.text; ACBrMail1.Host := edtHost.text; // servidor smtp -> smtp.outlook.com ACBrMail1.Username := edtUser.text; ACBrMail1.Password := edtPassword.text; ACBrMail1.Port := edtPort.text; // porta do servidor smtp 587 ACBrMail1.SetTLS := chkTLS.Checked; //False ACBrMail1.SetSSL := chkSSL.Checked; //True servidor necessita SSL //ACBrMail1.DefaultCharset := TMailCharset(cbbDefaultCharset.ItemIndex); //ACBrMail1.IDECharset := TMailCharset(cbbIdeCharSet.ItemIndex); ACBrMail1.AddAddress(edEmailDestinatario.Text, edtAddressName.text); ACBrMail1.UseThread := False; if edEmailBCC.Text <> '' then ACBrMail1.AddCC(edEmailBCC.Text); // opcional //ACBrMail1.AddReplyTo('um_email'); // opcional //ACBrMail1.AddBCC('um_email'); // opcional //case rgPrioridade.ItemIndex of //0 : ACBrMail1.Priority := MP_high; //1 : ACBrMail1.Priority := MP_high; //end; //ACBrMail1.ReadingConfirmation := True; // solicita confirmação de leitura mLog.Lines.Clear; ProgressBar1.Position := 1; Dir := FormPrincipal.Caminho; //P := pos(' - ', edSubject.Text); //if P > 0 then //begin // N := StrToIntDef(copy(edSubject.Text, P + 3, 5), 0) + 1; // edSubject.Text := copy(edSubject.Text, 1, P + 2) + IntToStr(N); //end; ACBrMail1.Clear; ACBrMail1.IsHTML := cbUsarHTML.Checked; ACBrMail1.Subject := edSubject.Text; // mensagem principal do e-mail. pode ser html ou texto puro if cbUsarTXT.Checked then ACBrMail1.AltBody.Assign(edMensagem.Lines); if cbUsarHTML.Checked then ACBrMail1.Body.Assign(mBody.Lines); {NÃO INCLUIR if cbUsarHTML.Checked and cbAddImgHTML.Checked then begin // Depende de: "<img src='cid:LogoACBr'>" em ACBrMail1.Body; if Pos('cid:LogoACBr', ACBrMail1.Body.Text) > 0 then ACBrMail1.AddAttachment(Dir + 'acbr_logo2.png', 'LogoACBr', adInline); end; } { if cbAddImgAtt.Checked then ACBrMail1.AddAttachment(Dir + 'acbr_logo.jpg', '', adAttachment); } { if cbAddXML.Checked then begin MS := TMemoryStream.Create; try ArqXML := '52240821962645000185550010000111291000111298-nfe.xml'; MS.LoadFromFile(Dir + ArqXML); ACBrMail1.AddAttachment(MS, ArqXML, adAttachment); finally MS.Free; end; end; } ACBrMail1.Send(cbUsarThread.Checked); If Fechar Then Close; end;

Ao tentar enviar email aparece a mensagem Smtp10091-Network subsystem unusable. Como corrigir?

Mudei o provedor para: cwsCNPJWS e deu certo.

Bom dia Senhores, Um cliente me relatou um "erro 404 - not in cache" ao consultar o CNPJ, o que pode ser? provedor = CWSRECEITAWS Meu código: If not ValidarCNPJ(MeCPFCli.Text) Then Begin If not ValidarCPF(MeCPFCli.Text) Then KDialog('O CNPJ inválido.'#13'Favor fazer a correção e tentar novamente','Alerta','INFO') else KDialog('Esta pesquisa é somente para CNPJ.'#13'Ação cancelada','Alerta','INFO'); MeCPFCli.SetFocus; exit; end; Try // MANDA COMANDO E FICA AGARRADO EM ONSOLICITA CAPTCHA If Not ACBrConsultaCNPJ1.Consulta(MeCPFCli.Text, '', False) Then Begin Consultar_cnpj(); Exit; End; if ACBrConsultaCNPJ1.Situacao <> '' then Begin //EditTipo.Text := ACBrConsultaCNPJ1.EmpresaTipo; EditRazaoCli.Text := Copy(ACBrConsultaCNPJ1.RazaoSocial,1,50); EditFantCli.Text := Copy(ACBrConsultaCNPJ1.Fantasia,1,40); if (EditFantCli.Text = '') or (Copy(EditFantCli.Text,1,4) = '****') then EditFantCli.Text := Copy(EditRazaoCli.Text,1,40); if ACBrConsultaCNPJ1.Situacao = 'ATIVA' then Begin RDGAtivo.ItemIndex := 0; deDataCadastro.Text := DateToStr( ACBrConsultaCNPJ1.Abertura); MECepCli.Text := FormataCEP(ACBrConsultaCNPJ1.CEP); LocalizaCidade(MECepCli.Text, True); EditEndCli.Text := Copy(Trim(ACBrConsultaCNPJ1.Endereco)+' '+ Trim(ACBrConsultaCNPJ1.Complemento),1,50); txtNum.Text := ACBrConsultaCNPJ1.Numero; cbUF.ItemIndex := cbUF.Items.IndexOf(ACBrConsultaCNPJ1.UF); EditBairroCli.Text := Copy(RemoveEspacos(ACBrConsultaCNPJ1.Bairro),1,30); carrega_cid(cbUF.Text); txtCidade.ItemIndex := txtCidade.Items.IndexOf(Trim(ACBrConsultaCNPJ1.Cidade)); If Loc_Cidade(cbUF.Text,txtCidade.Text) Then edIBGE.Text := AchaCid[0]; EditEMailCli.text := LowerCase(ACBrConsultaCNPJ1.EndEletronico); EditFoneCli.text := ACBrConsultaCNPJ1.Telefone; EditInscEstCli.SetFocus; End else Begin RDGAtivo.ItemIndex := 1; KDialog('O Cadastro deste cliente esta inativo na Receita Federal','Informação','erro'); End; End; Except on e : Exception do KDialog('Não consegui fazer a pesquisa'#13#13'Motivo: '+e.Message,'Alerta','erro'); End;

Agora eu pirei Será que estou instalando o Fastreport corretamente? Pq tenho o Delphi Alexandria em outra maquina (instalei recentemente o Delphi) e instalei o Fastreport e acabei de criar a pasta Acbr e baixar arquivos. Vou instalar o Acbr e deu o mesmo erro de compilação. Da outra maquina desinstalei todos os componentes, desinstalei o XE6 e agora estou instalando novamente. Vamos se persisti o erro. Não sei posso postar isso!!! Mas tem alguém no forum que tenha interresse em conectar em minha máquina e fazer a instalação para mim? Será gratificado por isso! Se não puder postar, peço desculpas aos moderadores (é o desespero) e pode apagar o post, ou redireciona-lo. Passo meu zap para combinarmos.

Tentei fazer a instalação marcando a opção "Remover arquivos antigos do disco (pode demorar bastante)" porém o erro persisti. Pensei em fazer isso, mas vou tentar a outra solução do @Juliomar Marchetti primeiro. @Juliomar Marchetti você pode me explicar direito como fazer isso? esta me batendo um desespero

O FortReport também não consegue instalar. Removi toda pasta do ACbr e fiz o Update novamente no trunk2, e tentei novamente não dá certo. Instalando sem marcar nada do FastReport e nada do FortReport dá certo.

Foi assim: *Tive problemas no delphi, então desinstalei e instalei novamente. *Instalei e abri e fechei o delphi *Instalei o Fastreport, abri o delphi e fechei. *Instalei outros componentes (com delphi fechado, e com delphi aberto) *Tentei instalar o ACBr deu erro, recompilei o Fast. *Continuou com erro. *Desinstalei o Delphi novamente. *Instalei o Fastreport, abri e testei o fast e deu certo. *Fechei o Delphi e *Fui instalar o ACbr e deu erro.

Obrigado amigo, mas já fiz isso e não resolveu. Pode ser pq talvez eu tenha escolhido opções erradas na hora de compilar o Fastreport.? Estou com dúvidas na escolha das opções: 1) Select the Fastreport Version? (Escolhi Enterprise - Já tentei com Professional) 2) Select the Teechart version? (Não sei qual escolher, já tentei Teechart6) 3) Path to teechart DCU files? (Deixei o padrão. Não é onde o local onde esta o componente!) 4) Compilei Change language, já Recompilei todos (Recompile all packages) 5) Select path FIB e Indy10 deixei em branco. (não sei se preenche alguma coisa) Estou precisando muito, meus projetos estão parados (Precisando fazer manutenção) Pago pela instalação.

Colegas, Precisei reinstalar meu Delphi, e ao instalar o ACBr me deparei com este erro. Desinstalei o Delphi novamente e instalei de novo e continua com o mesmo problema. Como resolver este problema? ... ... C:\ACBr\Fontes\ACBrDFe\ACBrNFe\DANFE\NFe\Fast\ACBrNFeDANFEFRDM.pas(45) Fatal: E2225 Never-build package 'frx20' must be recompiled Compilation failure Erro ao compilar o pacote "ACBr_NFeDanfeFR.dpk". Abortando... Ocorreram erros na compilação dos pacotes. Desde já agradeço.

A pista é de recompilar o programa, reinstalar o programa na máquina do cliente.

Não consegui identificar o que ocorreu inicialmente. Curiosamente, ao reinstalar o programa, ele passou a funcionar normalmente. Parece que a versão anterior do programa estava utilizando uma versão desatualizada do ACBr. Pode ser uma pista importante a ser considerada!

Caros colegas, Estou com o problema ao assinar NFCe. Ao tentar transmitir as notas me aparece o Erro ao Enviar Nota: The Cryptographic Service Provider type '24' is not supported. Depois que o certificado digital foi renovado não consegui mais emitir NFCe (Certificado da Serasa). Coisas que já fiz: * Já desinstalei o certificado, instalei novamente. * O Windows não é pirata. * Já pesquisei na Internet e não encontrei a solução. * Baixei o Valid para ver se resolvia. * Instalei a cadeia de certificados novamente * Atualizei o Capicom * Atualizei o Openssl * Na SSLib usei como libwincript, OpenSLL, Capicom e nada. O que mais me resta? Att;

Já havia testado dessa forma, mas não aparece a chave de acesso na página, igual acontece na consulta da NFe Linkto('https://www.cte.fazenda.gov.br/portal/consultaRecaptcha.aspx?tipoConsulta=resumo&tipoConteudo=cktLvUUKqh0='+ cdsManifestoCHAVENFE.AsString + '&') Fica desse jeito: