delphi 调用c++的dll

vs dll，dll中使用了现场，我的锁不知道  锁哪个地方，暂时没锁，调用如果是单线程 ，应该没啥影响

// TestDll.cpp : 定义 DLL 应用程序的导出函数。

//

#include "stdafx.h"

#include "thread"

#include "mutex"

BOOL ThreadEnd = FALSE;

std::mutex mut;

int Add(int a,int  b)

{

return a + b;

}

void AutoAdd(int& a)

{

ThreadEnd = FALSE;

int k = a;

a = 0;

for (int i = 1; i <= k; ++i)

{

a += i;

}

ThreadEnd = TRUE;

}

int ThreadAdd(int a)

{

std::thread *t = new std::thread(AutoAdd, std::ref(a));//线程去计算  

t->join();

while (!ThreadEnd)

{

Sleep(10);

}

return a;

delete t;

}

delphi   调用

type  Tadd = function (a,b: integer): Integer;cdecl;    //c++ 的dll

type  TthreadAdd = function (a: Integer): Integer; cdecl;

var  

  h: Thandle;

  ladd: tadd;

  ltadd: TthreadAdd;

  i,k: Integer;

begin

  h := LoadLibrary('TestDll.dll');

  if h > 0 then

  begin

    ladd := GetProcAddress(h,'Add');

    ltadd := GetProcAddress(h,'ThreadAdd');

    i := ladd(10,13);

    k :=  ltadd(100);

    FreeLibrary(h);

    ladd := nil;

    ltadd := nil;

    ShowMessage(i.ToString());

     ShowMessage(k.ToString());

  end;

————————————————

原文链接：https://blog.csdn.net/y281252548/article/details/114267053