Fórum Gravar XML de NFE em Banco de Dado #406727

function TFom1.InserirXMLdaNFe: Boolean;var FileStream : TFileStream;    BlobStream : TStream; 	PathArquivoXML : String;begin   Result := True;   try	  PathArquivoXML := 'C:\nfe\NOTA123.XML'
	  // Insiro o conteudo do arquivo no Campo BLOB ...      FileStream := TFileStream.Create(PathArquivoXML, fmOpenRead or fmShareDenyWrite);      BlobStream := Dataset.CreateBlobStream(Dataset.FieldByName('NOME_DO_CAMPO'), bmWrite);
      try         BlobStream.CopyFrom(FileStream, FileStream.Size);         ShowMessage('XML importado com sucesso!');      finally         FileStream.Free;         BlobStream.Free;      end;
   except      Result := False;   end;
end;

procedure TForm1.Button1Click(Sender: TObject);var FileStream : TFileStream;    BlobStream : TStream;    PathArquivoXML : String;begin
    query.append;
    if InserirXMLdaNFe('c:\caminho\NFE.XML') then    begin       query.post;    end    else    begin       query.cancel;    end;end;

function TForm1.InserirXMLdaNFe(PathArquivoXML: String): Boolean;var FileStream : TFileStream;    BlobStream : TStream;begin   Result := True;   try  	  // Insiro o conteudo do arquivo no Campo BLOB ...      FileStream := TFileStream.Create(PathArquivoXML, fmOpenRead or fmShareDenyWrite);      BlobStream := query.CreateBlobStream(query.FieldByName('NOME_DO_CAMPO'), bmWrite);
      try         BlobStream.CopyFrom(FileStream, FileStream.Size);         ShowMessage('XML importado com sucesso!');      finally         FileStream.Free;         BlobStream.Free;      end;
   except      Result := False;   end;
end;