Criar DLL

Delphi

05/08/2010

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

José Cruz

Curtidas 0
POSTAR