Pera aí...
Pra mostrar que funciona, o fornecedor mandou um fonte que NÃO USA a dll?
Como então ele considera que funciona?
Com certeza, caso realmente seja Delphi, o que eu não acredito, deveria ser diferente, se é que é possível.
Que eu saiba, as funções do harbour/xharbour são pra usar uma função dentro de uma DLL.
Como tem programador que gosta de complicar, não existe a função GeraCripto()
O que existe é uma classe que possui o método GeraCripto()
Portanto, o exemplo não serve pra essa DLL.
Tem mais esse ponto a considerar, na "briga" com a dll.
Sinto muito, mas só o fornecedor vai poder te ajudar.
A propósito, encontrei o "manual":
2.13. Criptografia dos Campos - Detalhamento
Os campos SL_CHAVE, SL_SENHA, SL_COD_DOC e SL_OPER (OPER_REGANS,
OPER_NUMCARTEIRA, OPER_EXAME e OPER_NUMGUIA) devem ser criptografados, isto é,
antes de compor cada um destes campos, deve-se executar a DLL (SLineCripto.dll), fornecida
pela S_Line, que retornará o campo criptografado para preencher cada tag, sendo:
GeraCripto(TEXTO_A_CRIPTOGRAFAR, ref RETORNO_DE_ERRO);
O método GeraCripto possui os seguintes parâmetros:
• TEXTO_A_CRIPTOGRAFAR: Texto que deseja que seja criptografado;
• RETORNO_DE_ERRO: Caso essa variável venha preenchida ao término do método,
aconteceu algum problema ao criptografar.
Caso aconteça tudo certo, a string criptografada será o retorno do método GeraCripto.
Nota: Para usar a DLL (SLineCripto.dll), deve-se registrá-la no Windows da seguinte maneira:
• Windows 32 bits: Abrir o Prompt de Comando, ir até a pasta onde se encontra a dll e
executar: regsvr32 SLineCripto.dll (talvez seja preciso executar o Prompt de Comando
como Administrador);
• Windows 64 bits: Colocar a DLL na pasta C:\Windows\SysWOW64, abrir o Prompt de
Comando, entrar na pasta acima e executar: regsvr32 SLineCripto.dll (talvez seja
preciso executar o Prompt de Comando como Administrador).
http://www.sline.com.br/proprio.htm