Como chamar uma DLL escrita em C

Question

Pessoal...Em primeiro lugar me desculpem se j� possuem t�picos aqui no F�rum que falam sobre assunto, mas � que preciso disso com um pouco de urg�ncia.Eu tenho uma DLL que foi escrita em C++ e preciso...

Massuda · Answer

Voc� deve ter declarado em sua unit �prot�tipos� das fun��es da DLL... experimente fazer assim...

procedure FazMagica(...bla-bla-bla...); cdecl; external �sua.dll�;

Marcos.gandin · Answer

MassudaA minha declara��o a DLL est� sendo feita da seguinte forma:[code:1:526d5b90f4]function BoxProperties(double L, double H, double W, double& A, double& V); external �minhaDLL.dll�;[/code:1:526d5b90f4]No corpo da DLL escrita em C++, a declara��o da fun��o que estou chamando est� assim:[code:1:526d5b90f4]extern "C" __declspec(dllexport) void BoxProperties(double Length, double Height,  double Width, double& Area, double& Volume);[/code:1:526d5b90f4]O que eu estou fazendo de errado ?...

Massuda · Answer

Voc� deveria declarar o �prot�tipo� da fun��o em C++ no Delphi assim...

function BoxProperties(L, H, W: Double; var A, V: Double); external �minhaDLL.dll�;

...se bem que n�o lembro se �double&� do C++ equivale a �var X: Double� do ObjectPascal.

Marcos.gandin · Answer

Tentei fazer como voc� me falou, mas ainda est� dando erro. Function needs result type...

Massuda · Answer

[quote:6dea92eb52=�marcos.gandin�]Function needs result type[/quote:6dea92eb52]Tinha esquecido desse detalhe...Tente assim...[code:1:6dea92eb52]procedure BoxProperties(L, H, W: Double; var A, V: Double); external �minhaDLL.dll�;[/code:1:6dea92eb52]...

Marcos.gandin · Answer

Troquei function por procedure, mas quando eu chamo est� dando o seguinte erro: Incompatible types: �Double� and �procedure, untyped pointer or untyped parameter� :?...

Massuda · Answer

[quote:c07760870b=�marcos.gandin�]mas quando eu chamo est� dando o seguinte erro:[/quote:c07760870b]Mostre como est� chamando. Todos os parametros devem ser do tipo Double.Lembrando que, como � uma procedure, voc� n�o pode atribuir o �retorno da procedure� a uma vari�vel....

Marcos.gandin · Answer

Este � o c�digo que estou usando:[code:1:2fca31a4fc]procedure TfrmTestaDLL.Button1Click(Sender: TObject);var  l, h, w, area, volume, resultado : double;begin  l := StrToFloat(edtLength.Text);  h := StrToFloat(edtHeight.Text);  w := StrToFloat(edtWidth.Text);  area := StrToFloat(edtArea.Text);  volume := StrToFloat(edtVolume.Text);  resultado := BoxProperties(l, h, w, area, volume);  ShowMessage(�Valor da Area e do Volume: � + FloatToStr(resultado));end;[/code:1:2fca31a4fc]...

Massuda · Answer

[quote:94f4e91827=�marcos.gandin�]resultado := BoxProperties(l, h, w, area, volume);[/quote:94f4e91827]BoxProperties � uma procedure, n�o retorna valor algum, logo est� errado tentar atribuir algum valor a �resultado�.[quote:94f4e91827=�marcos.gandin�]  ShowMessage(�Valor da Area e do Volume: � + FloatToStr(resultado));[/quote:94f4e91827]BoxProperties aparentemente retorna valores em Area e Volume, conforme a declara��o dela em C....

Marcos.gandin · Answer

Mas e como eu vou fazer pra mostrar esses valores uma vez que eu os mando para a DLL ?...

Massuda · Answer

N�o sei como � essa sua fun��o que est� na DLL, mas para mim faz sentido mandar para ela altura, largura e profundidade e receber de volta �rea e volume.

Acho que voc� devia apenas mandar os valores L, H e W e mostrar o que retornar em Area e Volume.

Marcos.gandin · Answer

O conteudo da DLL est� assim:[code:1:34f18006bb]// win32DLL.cpp : Defines the entry point for the DLL application.//#include "stdafx.h"// This function is used to calculate the total area of a parallelepid rectangledouble BoxArea(double L, double H, double W);// This function is used to calculate the volume of a parallelepid rectangledouble BoxVolume(double L, double H, double W);// This function is used to get the dimensions of a rectangular parallelepiped// calculate the area and volume, then pass the calculated values to the// function that called it.extern "C" __declspec(dllexport) void BoxProperties(double Length, double Height,                   double Width, double& Area, double& Volume);BOOL APIENTRY DllMain( HANDLE hModule,                         DWORD  ul_reason_for_call,                        LPVOID lpReserved ){    return TRUE;}double BoxArea(double L, double H, double W){    return 2 * ((L*H) + (L*W) + (H*W));}double BoxVolume(double L, double H, double W){    return L * H * W;}void BoxProperties(double L, double H, double W, double& A, double& V){    A = BoxArea(L, H, W);    V = BoxVolume(L, H, W);}[/code:1:34f18006bb]E o c�digo que eu uso pra chamar � aquele que eu postei agora a pouco....

Massuda · Answer

� exatamente o que escrevi no meu post anterior....

Emerson Nascimento · Answer

[quote:3ffe0db504=�marcos.gandin�]Este � o c�digo que estou usando:[code:1:3ffe0db504]procedure TfrmTestaDLL.Button1Click(Sender: TObject);var  l, h, w, area, volume, resultado : double;begin  l := StrToFloat(edtLength.Text);  h := StrToFloat(edtHeight.Text);  w := StrToFloat(edtWidth.Text);  area := StrToFloat(edtArea.Text);  volume := StrToFloat(edtVolume.Text);  resultado := BoxProperties(l, h, w, area, volume);  ShowMessage(�Valor da Area e do Volume: � + FloatToStr(resultado));end;[/code:1:3ffe0db504][/quote:3ffe0db504]� como o Massuda disse: sua fun��o serve para calcular a �rea e volume, dados altura, largura e profundidade. logo, o correto seria:[code:1:3ffe0db504]procedure TfrmTestaDLL.Button1Click(Sender: TObject);var  l, h, w, area, volume: double;begin  l := StrToFloat(edtLength.Text);  h := StrToFloat(edtHeight.Text);  w := StrToFloat(edtWidth.Text);  BoxProperties(l, h, w, area, volume);  ShowMessage(�Os valores s�o -> Area: � + FloatToStr(area) + � e Volume: �+  + FloatToStr(volume));end;[/code:1:3ffe0db504]...

Marcos.gandin · Answer

Eu coloquei o c�digo como o emerson.en sugeriu mas ainda assim est� dando erro na linha:

ShowMessage(�Os valores s�o -> Area: � + FloatToStr(area) + � e Volume: �+  + FloatToStr(volume));

Operator not applicable to this operand type

F�rum Como chamar uma DLL escrita em C #344792