Pesquisar na Comunidade

Boa tarde a todos. Fiz umas alterações no RecuperarXML e inclui a possibilidade de abrir um xml para consulta dos itens e se o usuário quiser imprimir o danfe para conferir ou outras finalidades internas. O problema é que só consigo mostrar o danfe na tela quando executo no meu notebook. Quando rodo o executável em outro pc tenho um erro do tipo "violation access..." bla, bla, bla.... Pesquisei muito no forum para saber se outros usuários do ACBR/FASTREPORT tinham algum problema e vi que os resultados de minha pesquisa apontavam para erros no patch referente ao "FastFile" o que não me ajudou, pois usando patch declarado em variável ou em string para o caminho ocorria o erro do mesmo modo. Vou colocar meu código inteiro para ver se algum amigo pode me auxiliar.... Usando o Delphi XE4 e o projeto foi alterado para rodar a partir de: "C:\XML\". unit principal; interface uses GifImage ,UrlMon, MSHtml, ACBrUtil, pcnAuxiliar, Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, OleCtrls, SHDocVw, ExtCtrls, ComCtrls, WinInet, Menus, ACBrNFe, Vcl.Grids, Vcl.Buttons, frxClass, ACBrNFeDANFEClass, ACBrNFeDANFEFR, frxExportPDF,ShellAPI,Types; type TfrmPrincipal = class(TForm) WebBrowser1: TWebBrowser; ProgressBar1: TProgressBar; lblStatus: TLabel; Panel2: TPanel; Panel3: TPanel; Panel4: TPanel; Image1: TImage; btnPegarHTML: TButton; btnNovaConsulta: TButton; btnGerarXML: TButton; Label1: TLabel; edtChaveNFe: TEdit; Label2: TLabel; edtCaptcha: TEdit; PageControl1: TPageControl; TabSheet1: TTabSheet; TabSheet2: TTabSheet; Memo2: TMemo; Panel1: TPanel; WBXML: TWebBrowser; Button1: TButton; Label3: TLabel; TabSheet3: TTabSheet; Label4: TLabel; Label5: TLabel; TabSheet4: TTabSheet; ACBrNFe1: TACBrNFe; Edit1: TEdit; StringGridProdutos: TStringGrid; BtImprimir: TBitBtn; Label6: TLabel; DANFEFR: TACBrNFeDANFEFR; BtAbrirXml: TBitBtn; OpenDialog1: TOpenDialog; frxPDFExport: TfrxPDFExport; EdChave: TEdit; Label7: TLabel; Button2: TButton; procedure btnPegarHTMLClick(Sender: TObject); procedure FormCreate(Sender: TObject); procedure WebBrowser1DocumentComplete(Sender: TObject; const pDisp: IDispatch; var URL: OleVariant); procedure WebBrowser1ProgressChange(Sender: TObject; Progress, ProgressMax: Integer); procedure btnNovaConsultaClick(Sender: TObject); procedure btnGerarXMLClick(Sender: TObject); procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure Button1Click(Sender: TObject); procedure Label3Click(Sender: TObject); procedure BtImprimirClick(Sender: TObject); procedure BtAbrirXmlClick(Sender: TObject); procedure edtChaveNFeKeyPress(Sender: TObject; var Key: Char); procedure Button2Click(Sender: TObject); private { Private declarations } function DownloadFile(SourceFile, DestFile: string): Boolean; function StripHTML(S: string): string; procedure DeleteIECache; procedure PegarHTML; procedure GeraXml; procedure NovaConsulta; procedure carregaItens; public { Public declarations } FPath,caminho,DanfeRetrato,Dirxml,Dirpdf,Dirxmlfor: string; end; var frmPrincipal: TfrmPrincipal; TpcnCSTIcms: string; implementation uses ACBrNFeUtil, ACBrHTMLtoXML, pcnConversao; {$R *.dfm} procedure TfrmPrincipal.DeleteIECache; var lpEntryInfo: PInternetCacheEntryInfo; hCacheDir: LongWord; dwEntrySize: LongWord; begin { DeleteIECache } dwEntrySize := 0; FindFirstUrlCacheEntry(nil, TInternetCacheEntryInfo(nil^), dwEntrySize); GetMem(lpEntryInfo, dwEntrySize); if dwEntrySize>0 then lpEntryInfo^.dwStructSize := dwEntrySize; hCacheDir := FindFirstUrlCacheEntry(nil, lpEntryInfo^, dwEntrySize); if hCacheDir<>0 then begin repeat DeleteUrlCacheEntry(lpEntryInfo^.lpszSourceUrlName); FreeMem(lpEntryInfo, dwEntrySize); dwEntrySize := 0; FindNextUrlCacheEntry(hCacheDir, TInternetCacheEntryInfo(nil^), dwEntrySize); GetMem(lpEntryInfo, dwEntrySize); if dwEntrySize>0 then lpEntryInfo^.dwStructSize := dwEntrySize; until not FindNextUrlCacheEntry(hCacheDir, lpEntryInfo^, dwEntrySize) end; { hCacheDir<>0 } FreeMem(lpEntryInfo, dwEntrySize); FindCloseUrlCache(hCacheDir) end; { DeleteIECache } function TfrmPrincipal.DownloadFile(SourceFile, DestFile: string): Boolean; const BufferSize = 1024; var hSession, hURL: HInternet; Buffer: array[1..BufferSize] of Byte; BufferLen: DWORD; f: File; sAppName: string; begin sAppName := ExtractFileName(Application.ExeName); hSession := InternetOpen(PChar(sAppName),INTERNET_OPEN_TYPE_PRECONFIG,nil, nil, 0); try hURL := InternetOpenURL(hSession,PChar(SourceFile),nil,0,0,0); try AssignFile(f, DestFile); Rewrite(f,1); repeat InternetReadFile(hURL, @Buffer,SizeOf(Buffer), BufferLen); BlockWrite(f, Buffer, BufferLen) until BufferLen = 0; CloseFile(f); Result := True; finally InternetCloseHandle(hURL) end finally InternetCloseHandle(hSession) end; end; procedure TfrmPrincipal.edtChaveNFeKeyPress(Sender: TObject; var Key: Char); begin //Acbrnfe1.NotasFiscais.LoadFromFile := (ACBrNFe1.NotasFiscais.Items[0].NFe.procNFe.chNFe); BtImprimir.Enabled:= True; end; {begin try Result := UrlDownloadToFile(nil, PChar(SourceFile), PChar(DestFile), 0, nil) = 0; except Result := False; end; end; } function TfrmPrincipal.StripHTML(S: string): string; var TagBegin, TagEnd, TagLength: integer; begin TagBegin := Pos( '<', S); // search position of first < while (TagBegin > 0) do begin // while there is a < in S TagEnd := Pos('>', S); // find the matching > TagLength := TagEnd - TagBegin + 1; Delete(S, TagBegin, TagLength); // delete the tag TagBegin := Pos( '<', S); // search for next < end; Result := S; // give the result end; procedure TfrmPrincipal.btnPegarHTMLClick(Sender: TObject); begin PegarHTML; end; procedure TfrmPrincipal.PegarHTML; begin //edtChaveNFe.Text := Copy(ACBrNFe1.NotasFiscais.Items[0].NFe.infNFe.ID, 4, 44); // EdChave.Text := Copy(ACBrNFe1.NotasFiscais.Items[0].NFe.infNFe.ID, 4, 44); if not ValidarChave('NFe'+edtChaveNFe.Text) then begin MessageDlg('Chave Inválida.',mtError,[mbok],0); edtChaveNFe.SetFocus; exit; end; if trim(edtCaptcha.Text) = '' then begin MessageDlg('Digite o valor da imagem.',mtError,[mbok],0); edtCaptcha.SetFocus; exit; end; Memo2.Lines.Clear; Button1.Enabled := False; btnPegarHTML.Enabled := False; btnNovaConsulta.Enabled := False; btnGerarXML.Enabled := False; try WebBrowser1.OleObject.Document.all.Item('ctl00$ContentPlaceHolder1$txtChaveAcessoCompleta', 0).value := edtChaveNFe.Text; WebBrowser1.OleObject.Document.all.Item('ctl00$ContentPlaceHolder1$txtCaptcha', 0).value := edtCaptcha.Text; WebBrowser1.OleObject.Document.all.Item('ctl00$ContentPlaceHolder1$btnConsultar', 0).click; except btnNovaConsulta.Enabled := True; raise; end; PageControl1.ActivePageIndex := 0; end; procedure TfrmPrincipal.FormCreate(Sender: TObject); begin Dirxml := 'C:\XML\'; Dirpdf := 'C:\XML\\PDF\'; Dirxmlfor := 'C:\XML\XML_FORNECEDOR\'; DANFEFR.PathPDF := 'C:\XML\PDF\'; if not DirectoryExists(Dirpdf) then ForceDirectories(Dirpdf); if not DirectoryExists(Dirxmlfor) then ForceDirectories(Dirxmlfor); StringGridProdutos.ColWidths[0] := 20; // vazio StringGridProdutos.ColWidths[1] := 80; // código StringGridProdutos.ColWidths[2] := 100; // barras StringGridProdutos.ColWidths[3] := 260; // produto StringGridProdutos.ColWidths[4] := 30; // unidade StringGridProdutos.ColWidths[5] := 30; // cst StringGridProdutos.ColWidths[6] := 38; // Qtd StringGridProdutos.ColWidths[7] := 80; // valor unitario StringGridProdutos.ColWidths[8] := 80; // valor total StringGridProdutos.ColWidths[9] := 70; // % icms StringGridProdutos.ColWidths[10] := 100; // valor icms StringGridProdutos.ColWidths[11] := 50; // %IPI StringGridProdutos.ColWidths[12] := 70; // valor IPI //inicio do titulo das colunas StringGridProdutos.Cells[1,0] := 'Código'; StringGridProdutos.Cells[2,0] := 'Cód. Barras'; StringGridProdutos.Cells[3,0] := 'Descrição'; StringGridProdutos.Cells[4,0] := 'Und.'; StringGridProdutos.Cells[5,0] := 'CST'; StringGridProdutos.Cells[6,0] := 'Qtd.'; StringGridProdutos.Cells[7,0] := 'Valor Unit.'; StringGridProdutos.Cells[8,0] := 'Valor Total'; StringGridProdutos.Cells[9,0] := '% ICMS ST'; StringGridProdutos.Cells[10,0] := 'Valor ICMS ST'; StringGridProdutos.Cells[11,0] := '% IPI'; StringGridProdutos.Cells[12,0] := 'Valor IPI'; NovaConsulta; //DANFEFR.PathPDF.Empty; //DANFEFR.PathPDF := 'C:\XML\PDF\'; //DANFEFR.FastFile := 'C:\XML\DANFeRetrato_ti.fr3'; end; procedure TfrmPrincipal.WebBrowser1DocumentComplete(Sender: TObject; const pDisp: IDispatch; var URL: OleVariant); var k, i: Integer; Source, dest: string; textoNFe : IHTMLDocument2; begin Application.ProcessMessages; if WebBrowser1.LocationURL = 'http://www.nfe.fazenda.gov.br/portal/consulta.aspx?tipoConsulta=completa&tipoConteudo=XbSeqxE8pl8=' then begin for k := 0 to WebBrowser1.OleObject.Document.Images.Length - 1 do begin Source := WebBrowser1.OleObject.Document.Images.Item(k).Src; if (Source = 'http://www.nfe.fazenda.gov.br/scripts/srf/intercepta/captcha.aspx?opt=image') then begin dest := ExtractFilePath(ParamStr(0)) + 'captcha.gif'; DownloadFile(Source, dest); end; end; Image1.Picture.LoadFromFile(dest); btnPegarHTML.Enabled := True; end else if WebBrowser1.LocationURL = 'https://www.nfe.fazenda.gov.br/portal/visualizacaoNFe/completa/Default.aspx' then begin WebBrowser1.Navigate('https://www.nfe.fazenda.gov.br/PORTAL/visualizacaoNFe/completa/impressao.aspx'); end else if WebBrowser1.LocationURL = 'http://www.nfe.fazenda.gov.br/portal/consultaCompleta.aspx?tipoConteudo=XbSeqxE8pl8=' then begin textoNFe := WebBrowser1.Document as IHTMLDocument2; repeat Application.ProcessMessages; until Assigned(textoNFe.body); Memo2.Lines.Text := StripHTML(textoNFe.body.innerHTML); Memo2.Lines.Text := StringReplace(Memo2.Lines.Text,'&nbsp;','',[rfReplaceAll, rfIgnoreCase]); i := 0; while i < memo2.Lines.Count-1 do begin if trim(Memo2.Lines[i]) = '' then begin Memo2.Lines.Delete(i); i := i - 1; end; if pos('function',Memo2.lines[i])>0 then begin Memo2.Lines.Delete(i); i := i - 1; end; if pos('document',Memo2.lines[i])>0 then begin Memo2.Lines.Delete(i); i := i - 1; end; if pos('{',Memo2.lines[i])>0 then begin Memo2.Lines.Delete(i); i := i - 1; end; if pos('}',Memo2.lines[i])>0 then begin Memo2.Lines.Delete(i); i := i - 1; end; i := i + 1; end; Image1.Picture := nil; btnGerarXML.Enabled := True; GeraXml; end else if WebBrowser1.LocationURL = 'https://www.nfe.fazenda.gov.br/portal/inexistente_completa.aspx' then begin MessageDlg('NF-e INEXISTENTE na base nacional, favor consultar esta NF-e no site da SEFAZ de origem.',mtError,[mbok],0); Image1.Picture := nil; btnGerarXML.Enabled := True; btnNovaConsulta.Enabled := True; end else begin MessageDlg('Erro carregando URL: '+WebBrowser1.LocationURL,mtError,[mbok],0); Image1.Picture := nil; btnGerarXML.Enabled := True; btnNovaConsulta.Enabled := True; end; end; procedure TfrmPrincipal.WebBrowser1ProgressChange(Sender: TObject; Progress, ProgressMax: Integer); begin if ProgressMax = 0 then begin ProgressBar1.Visible := False; lblStatus.Visible := False; exit; end else begin ProgressBar1.Visible := True; lblStatus.Visible := True; try ProgressBar1.Max := ProgressMax; if (Progress <> -1) and (Progress <= ProgressMax) then ProgressBar1.Position := Progress else begin ProgressBar1.Visible := False; lblStatus.Visible := False; end; except on EDivByZero do exit; end; end; end; procedure TfrmPrincipal.btnNovaConsultaClick(Sender: TObject); begin NovaConsulta; end; procedure TfrmPrincipal.NovaConsulta; begin btnNovaConsulta.Enabled := False; btnGerarXML.Enabled := False; edtcaptcha.Text:=''; Button1.Enabled := True; // DeleteIECache; Memo2.Lines.Clear; WebBrowser1.Navigate('http://www.nfe.fazenda.gov.br/portal/consulta.aspx?tipoConsulta=completa&tipoConteudo=XbSeqxE8pl8='); end; procedure TfrmPrincipal.BtImprimirClick(Sender: TObject); begin //if FilesExists Acbrnfe1.NotasFiscais('C:\XML\XML_FORNECEDOR\'+(edtChaveNFe.Text)+'-nfe.xml') then //DANFEFR.FastFile := ''; //DANFEFR.PathPDF := ''; DANFEFR.FastFile := ExtractFileDir(application.ExeName) + '\DANFeRetrato_ti.fr3'; DANFEFR.PathPDF := 'C:\XML\PDF\'; ACBrNFe1.NotasFiscais.ImprimirPDF; //frxReport1.PrepareReport; //frxReport1.ShowPreparedReport; ACBrNFe1.NotasFiscais.Imprimir; ACBrNFe1.DANFE.MostrarPreview:= True; //carregaItens; //Acbrnfe1.NotasFiscais.LoadFromFile(''); //DANFEFR.PathPDF := EmptyStr; end; procedure TfrmPrincipal.BtAbrirXmlClick(Sender: TObject); var I: Integer; begin if OpenDialog1.Execute then begin caminho := ExtractFilePath(ParamStr(0)); ACBrNFe1.NotasFiscais.Clear; Acbrnfe1.NotasFiscais.LoadFromFile(OpenDialog1.FileName); Acbrnfe1.NotasFiscais.SaveToFile('C:\XML\XML_FORNECEDOR\'); BtImprimir.Enabled := True; Edit1.Text := ACBrNFe1.NotasFiscais.Items[0].NFe.Emit.xNome; edtChaveNFe.Text := Copy(ACBrNFe1.NotasFiscais.Items[0].NFe.infNFe.ID, 4, 44); EdChave.Text := Copy(ACBrNFe1.NotasFiscais.Items[0].NFe.infNFe.ID, 4, 44); //edtChaveNFe.Text := caminho+'PDF\'; DANFEFR.PathPDF := 'C:\XML\PDF\'; //DANFEFR.dmDanfe.frxPDFExport.Start; //frxPDFExport.Start; DANFEFR.FastFile := ExtractFileDir(application.ExeName) + '\DANFeRetrato_ti.fr3'; //DANFEFR.FastFile := 'C:\XML\DANFeRetrato_ti.fr3'; //ACBrNFe1.NotasFiscais.Imprimir; carregaItens; end; end; procedure TfrmPrincipal.btnGerarXMLClick(Sender: TObject); var L: Integer; begin ACBrNFe1.NotasFiscais.Clear; GeraXML; ACBrNFe1.NotasFiscais.LoadFromFile(FPath); Acbrnfe1.NotasFiscais.SaveToFile(Dirxmlfor); Edit1.Text := ACBrNFe1.NotasFiscais.Items[0].NFe.Emit.xNome; edtChaveNFe.Text := Copy(ACBrNFe1.NotasFiscais.Items[0].NFe.infNFe.ID, 4, 44); EdChave.Text := Copy(ACBrNFe1.NotasFiscais.Items[0].NFe.infNFe.ID, 4, 44); carregaItens; end; procedure TfrmPrincipal.GeraXml; var i: integer; begin FPath:=GerarXML(Memo2.Lines.Text); WBXML.Navigate(FPath); MessageBox(0,PChar('XML '+FPath+' gerado com sucesso!'),'Informação', MB_ICONINFORMATION+MB_TASKMODAL); btnNovaConsulta.Enabled := True; btnPegarHTML.Enabled := True; ACBrNFe1.NotasFiscais.LoadFromFile(FPath); Edit1.Text := ACBrNFe1.NotasFiscais.Items[0].NFe.Emit.xNome; edtChaveNFe.Text := Copy(ACBrNFe1.NotasFiscais.Items[0].NFe.infNFe.ID, 4, 44); EdChave.Text := Copy(ACBrNFe1.NotasFiscais.Items[0].NFe.infNFe.ID, 4, 44); carregaItens; PageControl1.ActivePageIndex := 3; end; procedure TfrmPrincipal.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if Key=vk_escape then Close; end; procedure TfrmPrincipal.FormClose(Sender: TObject; var Action: TCloseAction); begin Action := caFree; end; procedure TfrmPrincipal.Button1Click(Sender: TObject); begin PegarHTML; BtImprimir.Enabled := True; DANFEFR.PathPDF := 'C:\XML\PDF\'; DANFEFR.FastFile := ExtractFileDir(application.ExeName) + '\DANFeRetrato_ti.fr3'; ACBrNFe1.DANFE.MostrarPreview:= True; { frxPDFExport.Creator := 'Ti Management'; frxPDFExport.Producer := 'Ti Management'; frxPDFExport.Title := 'DANFE PDF'; frxPDFExport.Subject := 'DANFE PDF'; frxPDFExport.Keywords := 'DANFE PDF'; frxPDFExport.ShowDialog := False; } end; procedure TfrmPrincipal.Button2Click(Sender: TObject); var lerpdf: string; ler: WideChar; begin //lerpdf:= ExtractFileDir(application.ExeName) + '\PDF\'+(EdChave.Text)+'.pdf'; //ReadState('\PDF\'+(EdChave.Text)+'.pdf'); {ler:= StringToWideChar('C:\XML\PDF\'+(EdChave.Text)+'.pdf'); lerpdf:= (ler); ShellExecute(Handle, nil, (lerpdf), nil, nil, SW_SHOWNORMAL);} end; procedure TfrmPrincipal.carregaItens; var i: integer; orig,cst,x: string; peripi,valipi,valpro,vcem,a,b,c: Double; begin //s := IntToStr(n); StringGridProdutos.RowCount := ACBrNFe1.NotasFiscais.Items[0].NFe.Det.Count+1; for i := 0 to ACBrNFe1.NotasFiscais.Items[0].NFe.Det.Count - 1 do begin orig := OrigToStr(ACBrNFe1.NotasFiscais.Items[0].NFe.Det[i].Imposto.ICMS.orig); cst := CSTICMSToStr(ACBrNFe1.NotasFiscais.Items[0].NFe.Det[i].Imposto.ICMS.CST); peripi:= (ACBrNFe1.NotasFiscais.Items[0].NFe.Det[i].Imposto.IPI.pIPI); valipi:= (ACBrNFe1.NotasFiscais.Items[0].NFe.Det[i].Imposto.IPI.vIPI); valpro:= (ACBrNFe1.NotasFiscais.Items[0].NFe.Det[i].Prod.vProd); vcem:=100; StringGridProdutos.Cells[1,i+1] := ACBrNFe1.NotasFiscais.Items[0].NFe.Det[i].Prod.cProd; StringGridProdutos.Cells[2,i+1] := ACBrNFe1.NotasFiscais.Items[0].NFe.Det[i].Prod.cEANTrib; StringGridProdutos.Cells[3,i+1] := ACBrNFe1.NotasFiscais.Items[0].NFe.Det[i].Prod.xProd; StringGridProdutos.Cells[4,i+1] := ACBrNFe1.NotasFiscais.Items[0].NFe.Det[i].Prod.uCom; StringGridProdutos.Cells[5,i+1] := (orig+cst); StringGridProdutos.Cells[6,i+1] := FormatFloat('###,###,###0', ACBrNFe1.NotasFiscais.Items[0].NFe.Det[i].Prod.qCom); StringGridProdutos.Cells[7,i+1] := FormatFloat('R$ ###,###,###0.00', ACBrNFe1.NotasFiscais.Items[0].NFe.Det[i].Prod.vUnCom); StringGridProdutos.Cells[8,i+1] := FormatFloat('R$ ###,###,###0.00', ACBrNFe1.NotasFiscais.Items[0].NFe.Det[i].Prod.vProd); StringGridProdutos.Cells[9,i+1] := FormatFloat('###,###,###0.00 %', ACBrNFe1.NotasFiscais.Items[0].NFe.Det[i].Imposto.ICMS.pICMSST); StringGridProdutos.Cells[10,i+1] := FormatFloat('R$ ###,###,###0.00', ACBrNFe1.NotasFiscais.Items[0].NFe.Det[i].Imposto.ICMS.vICMSST); //StringGridProdutos.Cells[10,i+1] := FormatFloat('###,###,###0.00', ACBrNFe1.NotasFiscais.Items[0].NFe.Det[i].Imposto.IPI.pIPI); StringGridProdutos.Cells[12,i+1] := FormatFloat('R$ ###,###,###0.00', ACBrNFe1.NotasFiscais.Items[0].NFe.Det[i].Imposto.IPI.vIPI); if ACBrNFe1.NotasFiscais.Items[0].NFe.Det[i].Imposto.IPI.vIPI > 0 then a:= (valipi / valpro); b:= (a * vcem); x:= (FloatToString( ); if ( > Trunc(b ) then x:= FloatToStr(Trunc(b )) else x:= FloatToStr(Trunc(b )); //c:= (a / ; //peripi:= b; StringGridProdutos.Cells[11,i+1] := x+' %'; //if not ACBrNFe1.NotasFiscais.Items[0].NFe.Det[i].Imposto.IPI.vIPI > 0 then //StringGridProdutos.Cells[10,i+1] := FormatFloat('###,###,###0.00', ACBrNFe1.NotasFiscais.Items[0].NFe.Det[i].Imposto.IPI.pIPI); BtImprimir.Enabled := True; end; end; procedure TfrmPrincipal.Label3Click(Sender: TObject); begin NovaConsulta; end; end. Desde já agradeço e peço desculpas, caso tenha infringido alguma das regras do forum. RecuperarXML.rar