Ir para conteúdo
  • Cadastre-se

dev botao
Seja bem-vindo
Regras e orientações da nossa comunidade Participe do Discord do ACBr

Acbrdownload = Svn

intelmib
 Compartilhar
  • Este tópico foi criado há 3878 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

intelmib Collaborator

intelmib

Postado
Postado (editado)

Contribuição 

 

ACBRDownload = SVN   (Neste exemplo o ACBR está operando tipo um SVN)

 

"OBS: não use http://, troque por www., caso seja ip coloque o ip direto."

 

Veja abaixo como atualizar a pasta Schemas automaticamente em tempo de execução.

 

Chamada

procedure Tform1.Button1Click(Sender: TObject);
begin
  svn([ ,'www.seusite.com.br/Schemas/cancNFe_v3.00.xsd'
        ,'www.seusite.com.br/Schemas/CCe_v1.00.xsd'
        ,'www.seusite.com.br/Schemas/confRecebto_v1.00.xsd'
        ,'www.seusite.com.br/Schemas/consCad_v2.00.xsd'
        ,'www.seusite.com.br/Schemas/consDPEC_v1.01.xsd'
        ,'www.seusite.com.br/Schemas/consNFeDest_v1.01.xsd'
        ,'www.seusite.com.br/Schemas/consReciNFe_v2.00.xsd'
        ,'www.seusite.com.br/Schemas/consReciNFe_v3.00.xsd'
        ,'www.seusite.com.br/Schemas/consSitNFe_v2.00.xsd'
        ,'www.seusite.com.br/Schemas/consSitNFe_v2.01.xsd'
        ,'www.seusite.com.br/Schemas/consSitNFe_v3.00.xsd'
        ,'www.seusite.com.br/Schemas/consStatServ_v2.00.xsd'
        ,'www.seusite.com.br/Schemas/consStatServ_v3.00.xsd'
        ,'www.seusite.com.br/Schemas/downloadNFe_v1.00.xsd'
        ,'www.seusite.com.br/Schemas/e110110_v1.00.xsd'
        ,'www.seusite.com.br/Schemas/e110111_v1.00.xsd'
        ,'www.seusite.com.br/Schemas/e210200_v1.00.xsd'
        ,'www.seusite.com.br/Schemas/e210210_v1.00.xsd'
        ,'www.seusite.com.br/Schemas/e210220_v1.00.xsd'
        ,'www.seusite.com.br/Schemas/e210240_v1.00.xsd'
        ,'www.seusite.com.br/Schemas/envCCe_v1.00.xsd'
        ,'www.seusite.com.br/Schemas/envConfRecebto_v1.00.xsd'
        ,'www.seusite.com.br/Schemas/envDPEC_v1.01.xsd'
        ,'www.seusite.com.br/Schemas/envEventoCancNFe_v1.00.xsd'
        ,'www.seusite.com.br/Schemas/envEvento_v1.00.xsd'
        ,'www.seusite.com.br/Schemas/enviNFe_v2.00.xsd'
        ,'www.seusite.com.br/Schemas/enviNFe_v3.00.xsd'
        ,'www.seusite.com.br/Schemas/eventoCancNFe_v1.00.xsd'
        ,'www.seusite.com.br/Schemas/inutNFe_v2.00.xsd'
        ,'www.seusite.com.br/Schemas/inutNFe_v3.00.xsd'
        ,'www.seusite.com.br/Schemas/leiauteCancNFe_v2.00.xsd'
        ,'www.seusite.com.br/Schemas/leiauteCancNFe_v3.00.xsd'
        ,'www.seusite.com.br/Schemas/leiauteCCe_v1.00.xsd'
        ,'www.seusite.com.br/Schemas/leiauteConfRecebto_v1.00.xsd'
        ,'www.seusite.com.br/Schemas/leiauteConsNFeDest_v1.01.xsd'
        ,'www.seusite.com.br/Schemas/leiauteConsSitNFe_v2.00.xsd'
        ,'www.seusite.com.br/Schemas/leiauteConsSitNFe_v2.01.xsd'
        ,'www.seusite.com.br/Schemas/leiauteConsSitNFe_v3.00.xsd'
        ,'www.seusite.com.br/Schemas/leiauteConsStatServ_v2.00.xsd'
        ,'www.seusite.com.br/Schemas/leiauteConsStatServ_v3.00.xsd'
        ,'www.seusite.com.br/Schemas/leiauteConsultaCadastro_v2.00.xsd'
        ,'www.seusite.com.br/Schemas/leiauteDownloadNFe_v1.00.xsd'
        ,'www.seusite.com.br/Schemas/leiauteDPEC_v1.01.xsd'
        ,'www.seusite.com.br/Schemas/leiauteEventoCancNFe_v1.00.xsd'
        ,'www.seusite.com.br/Schemas/leiauteInutNFe_v2.00.xsd'
        ,'www.seusite.com.br/Schemas/leiauteInutNFe_v3.00.xsd'
        ,'www.seusite.com.br/Schemas/leiauteNFe_v2.00.xsd'
        ,'www.seusite.com.br/Schemas/leiauteNFe_v3.00.xsd'
        ,'www.seusite.com.br/Schemas/leiauteSRE_v1.00.xsd'
        ,'www.seusite.com.br/Schemas/nfe_v2.00.xsd'
        ,'www.seusite.com.br/Schemas/nfe_v3.00.xsd'
        ,'www.seusite.com.br/Schemas/procCancNFe_v2.00.xsd'
        ,'www.seusite.com.br/Schemas/procCancNFe_v3.00.xsd'
        ,'www.seusite.com.br/Schemas/procCCeNFe_v1.00.xsd'
        ,'www.seusite.com.br/Schemas/procConfRecebtoNFe_v1.00.xsd'
        ,'www.seusite.com.br/Schemas/procEventoCancNFe_v1.00.xsd'
        ,'www.seusite.com.br/Schemas/procEventoNFe_v1.00.xsd'
        ,'www.seusite.com.br/Schemas/procInutNFe_v2.00.xsd'
        ,'www.seusite.com.br/Schemas/procInutNFe_v3.00.xsd'
        ,'www.seusite.com.br/Schemas/procNFe_v2.00.xsd'
        ,'www.seusite.com.br/Schemas/procNFe_v3.00.xsd'
        ,'www.seusite.com.br/Schemas/retCancNFe_v2.00.xsd'
        ,'www.seusite.com.br/Schemas/retCancNFe_v3.00.xsd'
        ,'www.seusite.com.br/Schemas/retConsCad_v2.00.xsd'
        ,'www.seusite.com.br/Schemas/retConsDPEC_v1.01.xsd'
        ,'www.seusite.com.br/Schemas/retconsNFeDest_v1.01.xsd'
        ,'www.seusite.com.br/Schemas/retConsReciNFe_v2.00.xsd'
        ,'www.seusite.com.br/Schemas/retConsReciNFe_v3.00.xsd'
        ,'www.seusite.com.br/Schemas/retConsSitNFe_v2.00.xsd'
        ,'www.seusite.com.br/Schemas/retConsSitNFe_v2.01.xsd'
        ,'www.seusite.com.br/Schemas/retConsSitNFe_v3.00.xsd'
        ,'www.seusite.com.br/Schemas/retConsStatServ_v2.00.xsd'
        ,'www.seusite.com.br/Schemas/retConsStatServ_v3.00.xsd'
        ,'www.seusite.com.br/Schemas/retDownloadNFe_v1.00.xsd'
        ,'www.seusite.com.br/Schemas/retDPEC_v1.01.xsd'
        ,'www.seusite.com.br/Schemas/retEnvCCe_v1.00.xsd'
        ,'www.seusite.com.br/Schemas/retEnvConfRecebto_v1.00.xsd'
        ,'www.seusite.com.br/Schemas/retEnvEventoCancNFe_v1.00.xsd'
        ,'www.seusite.com.br/Schemas/retEnvEvento_v1.00.xsd'
        ,'www.seusite.com.br/Schemas/retEnviNFe_v2.00.xsd'
        ,'www.seusite.com.br/Schemas/retEnviNFe_v3.00.xsd'
        ,'www.seusite.com.br/Schemas/retInutNFe_v2.00.xsd'
        ,'www.seusite.com.br/Schemas/retInutNFe_v3.00.xsd'
        ,'www.seusite.com.br/Schemas/tiposBasico_v1.03.xsd'
        ,'www.seusite.com.br/Schemas/tiposBasico_v1.03_OPENSSL.xsd'
        ,'www.seusite.com.br/Schemas/tiposBasico_v3.00.xsd'
        ,'www.seusite.com.br/Schemas/V200/PL_006s.zip'
        ,'www.seusite.com.br/Schemas/V200/PL_006t.ZIP'
        ,'www.seusite.com.br/Schemas/V300/PL_007b_NFCe.zip'
        ,'www.seusite.com.br/Schemas/V310/PL_008a.zip'
        ,'www.seusite.com.br/Schemas/V310/PL_008b.zip'
        ,'www.seusite.com.br/Schemas/V310/PL_008c.ZIP'
        ,'www.seusite.com.br/Schemas/xmldsig-core-schema_v1.01.xsd'
       ]
       ,'www.seusite.com.br/Schemas/'
       ,'c:\Schemas');
end;

Procedure

procedure svn(Arquivos_Online: array of string; PastaOnline , Diretorio_local:string);
var
  lop:Integer;
  lista:TStringList;
  NIVEL_PASTA:Integer;
        procedure Inicia_Processo(Origem:string);
        var
          Lop_Pastas:Integer;
          DIRETORIO_DESTINO:string;      
        Begin
          Try
            if (Copy(Diretorio_local, Length(Diretorio_local),1) <> '\') then
              Diretorio_local:= Diretorio_local+'\';

            DIRETORIO_DESTINO := ExtractFilePath(Diretorio_local);

            if not DirectoryExists(DIRETORIO_DESTINO) then
              ForceDirectories(DIRETORIO_DESTINO);

            Origem := StringReplace(Origem, 'http://', '', [rfReplaceAll]);
            lista := TStringList.Create;
            ExtractStrings(['/'], ['/'], PChar(Origem),  lista);
            if (lista.Count - 1) > NIVEL_PASTA then
            Begin
              for Lop_Pastas := 0 to lista.Count - 1 do
              Begin
                if (Lop_Pastas  + 1) > NIVEL_PASTA then
                Begin
                  if (Lop_Pastas <> (lista.Count - 1)) then                  
                    DIRETORIO_DESTINO := DIRETORIO_DESTINO + lista[Lop_Pastas]+'\';
                End;
              End;
            End;

            if not DirectoryExists(DIRETORIO_DESTINO) then
              ForceDirectories(DIRETORIO_DESTINO);

            F_Principal.ACBrDownload1.DownloadDest    := DIRETORIO_DESTINO;
            F_Principal.ACBrDownload1.DownloadNomeArq := lista[lista.Count-1];
            F_Principal.ACBrDownload1.DownloadUrl     := Origem;
            F_Principal.ACBrDownload1.StartDownload;

            lista.Free;
          Except
            Result := False;
            F_Principal.MSG_AGUARDE('','');
          End;
        End;

Begin
  lista := TStringList.Create;
  ExtractStrings(['/'], ['/'], PChar(PastaOnline),  lista);
  NIVEL_PASTA := lista.Count;
  lista.Free;

  for lop := 0 to High(Arquivos_Online) do
    Inicia_Processo(Arquivos_Online[lop]);
End;
Editado por intelmib

Atenciosamente Renan Kemp Peixoto Nhola

Software www.intelmib.com.br

Whatsapp / Tim:  (19) 9-8303-9217 

 

intelmib Collaborator

intelmib

Postado
  • Autor
Postado (editado)

Será que alguém consegue Listar os arquivos de um diretorio online via http assim : www.seusite.com.br/schemas 

Editado por intelmib

Atenciosamente Renan Kemp Peixoto Nhola

Software www.intelmib.com.br

Whatsapp / Tim:  (19) 9-8303-9217 

 

  • Consultores
EMBarbosa Veteran

EMBarbosa

Postado
  • Consultores
Postado

Olá intelmib,

 

    Não entendi exatamente o objetivo do post. Poderia esclarecer?

[]'s

Consultor SAC ACBr

Elton
Profissionalize o ACBr na sua empresa, conheça o ACBr Pro.

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Um engenheiro de Controle de Qualidade(QA) entra num bar. Pede uma cerveja. Pede zero cervejas.
Pede 99999999 cervejas. Pede -1 cervejas. Pede um jacaré. Pede asdfdhklçkh.
intelmib Collaborator

intelmib

Postado
  • Autor
Postado (editado)

Olá Elton, grande prazer em ver sua interação.

 

Idéia: Manter os clientes com sua pasta atualizada, exemplo pasta Schemas da Nfe, entre outros arquivos como relatorios fr3

 

Método Utilizado: Coloco os arquivos em um servidor online, o sistema no cliente automaticamente baixa os arquivos.

 

Pós: Não precisa fica baixando arquivos no cliente, o app faz isso automaticamente através do AcbrDownload

 

Contra: Seria interesante passar somente o caminho da web ".com.br/suapasta" (bastaria aprender a listar arquivos online via http)

Editado por intelmib

Atenciosamente Renan Kemp Peixoto Nhola

Software www.intelmib.com.br

Whatsapp / Tim:  (19) 9-8303-9217 

 

  • Este tópico foi criado há 3878 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora
 Compartilhar
Ir para a lista de tópicos
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.