Tenho uma DLL (gbasmsb_library.dll) disponibilizado pela Farmácia Popular responsável por retornar algumas funções para interação com este ambiente.
Penso que seja uma DLL escrita em C, preciso consumir esta DLL em VB6 OU C#.
No Guia do programador do programador tenho as seguintes informações para o uso da DLL:
1:
Sintaxe:
const char* IdentificaEstacao();
Valor de retorno: Uma string contendo o DNA da máquina.
2:
Sintaxe:
const char* PegaSolicitacao(
const char* CNPJ,
const char* CPF,
const char* CRM,
const char* UF_CRM,
const char* DT_EMISSAO );
Uma string que será utilizada para validação da solicitação através da geração da assinatura da máquina.
Em VB6 consegui consumir a primeira função (1), já a segunda retorna erro:
49 Bad DLL calling convention
Código VB6:
Private Declare Function PegaSolicitacao Lib "c:\temp\gbasmsb_library.dll" (ByRef CNPJ As String, ByRef CPF As String, ByRef CRM As String, ByRef UF_CRM As String, ByRef DT_EMISSAO As String) As String
Private Declare Function IdentificaEstacao Lib "c:\temp\gbasmsb_library.dll" () As String
Private Sub Form_Load()
MsgBox (IdentificaEstacao) //1 - retorno OK
Dim CNPJ As String, CPF As String, CRM As String, UF_CRM As String, DT_EMISSAO As String
Dim resp As String
CNPJ = "98352942000133"
CPF = "72794534491"
CRM = "7347"
UF_CRM = "AM"
DT_EMISSAO = "01/01/1991"
resp = PegaSolicitacao(CNPJ, CPF, CRM, UF_CRM, DT_EMISSAO) //2 - ERRO
end sub
Já alterei a assinatura da função para byVal, mudei os parâmetro para array também sem sucesso.
Código C# Sem sucesso na chamada de nenhuma FUNÇÃO.
[DllImport(@"c:\temp\gbasmsb_library.dll")]
private static extern string PegaSolicitacao(string cnpj, string cpf, string crm, string ufCrm, string dtEmissao);
[DllImport(@"c:\temp\gbasmsb_library.dll")]
private static extern string IdentificaEstacao();
private void button1_Click(object sender, EventArgs e)
{
var cnpj = "98352942000133";
var cpf = "72794534491";
var crm = "7347";
var ufCrm = "PI";
var dtEmissao = "01/01/1991";
//MessageBox.Show(PegaSolicitacao(ref cnpj, ref cnpj, ref cnpj, ref cnpj, ref cnpj));
//ERRO
MessageBox.Show(PegaSolicitacao(cnpj, cpf, crm, ufCrm, dtEmissao));
//ERRO
IdentificaEstacao();
}