ActiveDelphi

[H4ck3r]

Olá companheiros delphinianos, alguém sabe como enviar o arquivo XML da Anvisa diretamente de um programa desenvolvido em delphi sem ter que, para isso, utilizar o site da Anvisa. Quem tiver a solução e quiser postar aqui, eu agradeço muito.

Hélio França
Força Sempre.

[claudiofsfs]

SNGPC - Srs. por apenas R$ 14,00 por mês (pagamento anual de R$ 168,00) voce tem um software para SNGPC completo. Nosso software agora na versão 2.0 vem com banco de dados contendo 10.000 medicamentos cadastrados com seu respectivo codigo de registro MS. Mais 9.000 princípios ativos também cadastrados. com esses novo recurso não é mais necessário ir no site da Anvisa pesquisar o registro MS do medicamento para cadastrá-lo. Atualizações automáticas tanto do software quanto do banco de dados de medicamentos grátis para quem adquirir o software.

confira em nosso site : software para SNGPC

Claudio
CMA Sistemas


Respondendo:


Var
WebService : sngpcSoap;
Retorno : String;
HashId : WideString;
PathName : String;

Begin
WebService := GetsngpcSoap();
LeArquivoParaWideString;
HashId := MD5Print(MD5File(NomeArq));

Try
Retorno := WebService.EnviaArquivoSNGPC(LowerCase (Global.UsuarioRTT.EMAIL),
LowerCase (Global.UsuarioRTT.SENHA),
Arquivo, HashId);
Except
// Tratar a excecão
End;
end;

Não está completo e nem vai funcionar só com este código pois tem outras coisas que voce tem que fazer, tipo gerar a interface soap do WebService (sngpcSoap) , Ter a rotina de MD5 (é facilmente encontrada na internet) , etc... mas já dá uma idéia.