Question

我需要从delphi 7或lazarus调用一个dll。关于dll的信息很少，但我在visual studio中有一个例子：声明：

import Test.QuickCheck.Property (succeeded, failed, reason)

prop a b =
  if res /= []
    then succeeded
    else failed { reason = reason }
   where
      (res, reason) = checkCode a b

如何在Delphi 7或Lazarus中声明和调用这些函数？

我唯一的文件是： 1，普通传输： PTcomm（int com，int boud，int * Rcount） Com为串口号，boud率为9600，* Rcount为记录总数
＆＃34; 1＆＃34;意味着成功返回，＆＃34; 0＆＃34;表示没有记录，＆＃34; -1“表示打开端口失败，” - 2“表示传输失败

2，常见的收集数据 PTrecord（int num，字节记录[8]）记录{8}表示8字节（包括读卡器号），num表示序列号＆＃34; 1＆＃34;意味着成功返回，＆＃34; 0＆＃34;意味着返回失败我只在Visual Studio中有一个示例，我甚至无法尝试，因为它是在旧版本的VS中编写的，并且自动转换不起作用。这时我无意学习VS.该帖子前面提到的声明来自该例子。我被指责甚至不认识那些不了解我并且不知道我做了什么的人。我试过并失败了，这就是我要问的原因。

谢谢Jean-Claude

Answer 1

在Delphi和Lazarus中尝试这些声明：

function PTcomm(com, boud: Integer; var Rcount: Integer): Integer; stdcall; external 'landwell.dll';

function PTcomm_YPWJ(com, boud: Integer; var Rcount: Integer): Integer; stdcall; external 'landwell.dll';

function PTrecord(num: Integer; rec: PByte): Integer; stdcall; external 'landwell.dll';

从delphi或lazarus调用visual studio dll

1 个答案: