ActiveDelphi

[joscru01]

Colegas estou tentando montar o XML do inventario e movimentação para enviar para anvisa mais não estou conseguindo

esta é a função de envio

function EnviaArquivoSNGPC(const Email: string; const Senha: string; const Arq: TByteDynArray; const HashIdentificacao: string): string; stdcall;

1 - Como transformar o arquivo para TByteDynArray ?

2 - Gera-se o xml do inventario compacta em formato zip e depois transforma para TByteDynArray ?

3 - No envio da movimentação gera o xml e transforma para TByteDynArray ?

já procurei no google como transforma o arquivo em TByteDynArray e não encontrei nada, se alguem puder mim dá umas dicas eu agradeço, estou perdidaço.

Obrigado

uiraunasoftware@hotmail.com

[Cambiaghi]

Bom dia.
Acompanhe o post SNGPC 2.0

[emersonact]

Pessoal,

To trabalhando numa aplicação SNGPC 2.0, ao enviar o arqui
vo eu transformei o arquivo em Base64, para
TByteArr mas ao compilar fala:
incompatibles types
acusa problemas com a variável ArquivoArr
na linha do Enviaarquivo e não complia, já olhei vários foruns, liguei ANVISA
mas nada alguém pode me ajudar ? segue o código, estou fazendo o que errado ?

procedure Tf_Principal.Button1Click(Sender: TObject);
var
Arquivo64, Hashidentificacao: String;
ArquivoArr: TByteArr;
ws: SngpcSoap;
begin
ws := GetSngpcSoap;
Arquivo64 := EncodeBase64('inventario2.zip');
SetLength(Arquivoarr, Length(Arquivo64));
ArquivoArr := StrToByte(Arquivo64);
Edit1.Text := Hashidentificacao;

Memo1.Lines.Add(ws.EnviaArquivoSNGPC(EditEmail.Text, EditSenha.Text, ArquivoArr, HashIdentificacao));

end;

[vinicius.ultramax]

Olá.

Pessoal, quando tentamos consultar movimento na ANVISA através de webservice, em ambiente produção, é retornado erro de senha inválida. A senha não está inválida, e nem os dados enviados.

Acontece com mais alguém? Alguma sugestão?

Abraço!