Criar DLL
Boa tarde
tenho um sistema de uma tela, com os campos login,Senha,CNPJ,Arquivo,HASH, e botões Enviar,Consultar.
Arquivo = caminho de um arquivo xml
HASH = hash calculado
nesta tela eu tenho um componente XML
no projeto uso
um pas que é o webservice,
um pas que é o que faz a criptografia.
está funcionando perfeitamente.
Objetivo enviar o arquivo para um webservice.
Novo Projeto
Transformar o sistema em uma dll
tentei como abaixo
Library USEnviar;
uses
SysUtils,
Classes,
lib_sngpc, // Webservice
Lib_md5 //Calcula o Hash do arquivo
Procedure Enviar(login,Senha,Arquivo,CaminhoArq : string):string:expert:stdcall;
var
Servico : sngpcSoap;
Resultado : string;
HashIdentificacao : string;
begin
If FileExist(Pchar(CaminhoArq)) then
begin
XMLDOcument.LoadFromFile(CaminhoArq);
HashIdentificacao := MD5Print(MD5String(XMLDocument.XML.text));
Resultado := servico.Enviararquivo(email,senha,XMLDOcument.XML.text,HashIdentificacao);
Exports USEnviar Resultado
end;
else
Exports USEnviar 'Arquivo de envio não localizado
end;
Procedure Consultarr(login,Senha,CNPJ,Arquivo,HASH : string):string:expert:stdcall;
var
Servico : sngpcSoap;
Resultado : string;
begin
Resultado := servico.Enviararquiv0(email,senha,Arquivo,HASH);
Exports USEnviar Resultado
end;
end
Recebo a mensagem de erro
Procedure cannot have a result type
Statement expected but 'EXPORTS found
',' or ',' expected but identifier 'Resultado' found
tem mais problemas do tipo o controle XML que não está inserido
Se um dos colegas puder mim ajudar eu agradeço
Arnaldo Cruz
cscjak@hotmail.com
joscru01@bol.com.br
José Cruz
Curtidas 0