Estou precisando utilizar métodos de uma DLL que foi desenvolvida por terceiros. Tenho somente o arquivo ".DLL".
A documentação da DLL é escassa... existe um exemplo de execução do método que preciso em VB
Private Const TamMsgErro As Long = 1000
Dim oTED As New clsGeraMidiaTed
Dim lResult As Long
Dim sMsgErroTED As String * TamMsgErro
'Chamada no Projeto
Set oTED = CreateObject("PRGerarMidiaTED.clsGeraMidiaTED")
lResult = oTED.Gerar_MidiaTEDDat(sListaArqEntrada, _
sArqSaida, _
sTipoDoc, _
sMsgErroTED, _
TamMsgErro)
If lResult <> 0 Then
MsgBox sMsgErroTED
Else
MsgBox "Arquivo [" & sArqSaida & "] gerado com sucesso !"
End If
Preciso desenvolver em Delphi, e o problema que estou tendo é que o método "Gerar_MidiaTEDDat" não é exportado pela DLL. Este método está em uma classe na DLL.
Utilizando o PE Explorer consegui obter os seguintes dados da DLL:
//PRGerarMidiaTED
//Version: 1.0
PRGerarMidiaTED;
GUID = {DA0AA6B5-73AC-41B7-BBA5-DF03D6367C63};
Dispatch _clsGeraMidiaTed;
GUID = {EEF15A9A-5C3E-45A0-B876-4E10381C7D2E};
function QueryInterface(riid: ^GUID; out ppvObj: ^^VOID); stdcall;
function AddRef: UI4; stdcall;
function Release: UI4; stdcall;
function GetTypeInfoCount(out pctinfo: ^UINT); stdcall;
function GetTypeInfo(itinfo: UINT; lcid: UI4; out pptinfo: ^^VOID); stdcall;
function GetIDsOfNames(riid: ^GUID; rgszNames: ^^I1; cNames: UINT; lcid: UI4; out rgdispid: ^I4); stdcall;
function Invoke(dispidMember: I4; riid: ^GUID; lcid: UI4; wFlags: UI2; pdispparams: ^DISPPARAMS; out pvarResult: ^Variant; out pexcepinfo: ^EXCEPINFO; out puArgErr: ^UINT); stdcall;
function Gerar_MidiaTEDDat(sListaArqEntrada: BSTR; sArqSaida: BSTR; sTipoDoc: BSTR; out sMsgErro: ^BSTR; lTamMsgErro: I4): I4; stdcall;
function Verificar_VersaoGerarMidiaTED(out sVersaoGerarMidia: ^BSTR; out sMsgErro: ^BSTR; lTamMsgErro: I4): Bool; stdcall;
CoClass clsGeraMidiaTed;
GUID = {664BF784-A2D6-477B-8022-1F32FDD90FD6};
Nas funções exportadas o PE Explorer me indicou que existe a função DllGetClassObject
que deve ser utilizada para obter a instancia da classe, porém não encontrei exemplos de como fazer isto.
Alguma sugestão ?