Buscar por:

Linkar um obj ao executável

Código

{Primeiro você deve "linkar" o OBJ ao seu executável. No Delphi , isto é feito com a diretriz de compilação $L. Fica, na sua unit principal, assim:}

{$L MyOBject.OBJ} 

{Incluindo as chaves. Logo depois, você deve declarar a função contida em MyObject.OBJ da forma usual. Você precisara conhecer os parâmetros usados pela mesma, bem como o tipo e a ordem em que são passados. Você deve incluir também a diretriz PASCAL ou CDECL. Sugiro tentar primeiro com PASCAL. Ficaria assim na seção implementation: 

}

function (Parametro1 : TipoDoParametro1, Parametro2 : TipoDoParametro2): TipoDoRetorno; pascal; 

//se não der certo, tente: 

function (Parametro1 : TipoDoParametro1, Parametro2 : TipoDoParametro2): TipoDoRetorno; cdecl; 

//caso não seja uma função e sim uma procedure, tente: 

procedure (Parametro1 : TipoDoParametro1, Parametro2 : TipoDoParametro2); pascal; 

//ou 

procedure (Parametro1 : TipoDoParametro1, Parametro2 : TipoDoParametro2); cdecl;  

{Se você não sabe quais os parâmetros usados pela função/procedure, uma solução seria linkar o seu OBJ num programa qualquer e disassembla-lo. Aí pelo menos você saberá a quantidade e o tipo de cada parâmetro. De qualquer forma, para saber para que serve cada um, terá que ser na tentativa e erro...a não ser que você também tenha paciência para analisar o código disassemblado. 

OBS: Se o seu OBJ não estiver num formato reconhecível pelo LINK do Delphi  (um formato similar ao COFF), você pode tentar outros Linkers, e criar uma dll. Existem vários linkers gratuitos, que reconhecem vários formatos (exemplos, são lcclnk, djlnk, walk2lnk e o próprio linker da microsoft...também gratuito

}