Fórum Utilizar funções de DLL escitas em C #360427

main.h


 #include <windows.h>

 ifdef PLUGIN_SOMA_EXPORTS
    define PLUGINSOMA_DLL __declspec(dllexport)
 else
    define PLUGINSOMA_DLL __declspec(dllimport)
 endif

 extern "C"
 {
 PLUGINSOMA_DLL  int calc( int a, int b );
 }

main.cpp

include "main.h"

BOOL APIENTRY DllMain( HMODULE hModule, DWORD dwReasonForCall, LPVOID lpReserved )
{
    switch ( dwReasonForCall )
    {
    case DLL_PROCESS_ATTACH:
    case DLL_THREAD_ATTACH:
    case DLL_THREAD_DETACH:
    case DLL_PROCESS_DETACH:
       break;
    }
    return TRUE;
 }

int calc( int a, int b )
{
   int valor;
   valor = (a + b);
   return (valor);
}

unit Unit1;

interface


uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

  function calc(a: integer; b: integer):integer; external ´New.dll´;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
teste: integer;
begin
  self.Caption := IntToStr(calc(50,100));

end;

end.