Delphi DLL 字符串传递例子

本文整理自网络，侵删。

 
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.
 

相关阅读 >>

Delphi 获取所有应用程序窗口标题 类似任务管理器

Delphi 输入年月判断天数

Delphi'控件的相对坐标与屏幕坐标转换

Delphi 调用外部程序获取程序id，并能关闭该程序

Delphi中如何判断是否有程序全屏

Delphi 获取外网ip的函数

Delphi getpublicip 获取公网ip

Delphi10及以上版本安装activex控件

Delphi xe7实现的登录窗体的正确用法示例

Delphi取代sleep的延时代码

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi DLL 字符串传递例子