Delphi DLL 字符串传递例子

最新推荐文章于 2024-04-26 16:19:18 发布

原创最新推荐文章于 2024-04-26 16:19:18 发布 · 430 阅读

1 ·

本内容遵循CC 4.0 BY-SA版权协议

收录于

本文介绍了一个使用 Delphi 编写的 DLL 示例，展示了如何在 DLL 中定义函数来传递和处理字符串数据。通过两个函数 GetJobType 和 GetRates，演示了字符串的复制和长度比较过程。

Delphi DLL 字符串传递例子



library EN;



uses

  SysUtils,

  Classes,

  UnitFormEN in 'UnitFormEN.pas' {FormEN};

{$R *.res}



function GetJobType(p: PChar): Boolean; stdcall;

var

  str: string;

begin

  str := '我们是中国人，我们爱自己的祖国.';

  StrCopy(p, PChar(str));

  Result := Length(p) > Length(str);

end;





function GetRates(p: PChar): Boolean; stdcall;

var

  str: string;

begin

  str := '我爱北京天安门.';

  StrCopy(p, PChar(str));

  Result := Length(p) > Length(str);

end;





exports

  GetJobType,

  GetRates,

  ShowFormEN;





begin

end.