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 xe strpas 遇到的问题

Delphi hide

Delphi tms web core 嵌入js代码

Delphi判断文件夹（目录）是否存在，不存在就创建一个

Delphi 对话框单元

如何减小Delphi应用程序(exe)的大小

Delphi中实现全角转半角

Delphi 无法结束进程的程序

Delphi下获取系统默认的useragent的方法

Delphi一个非常完整的取windows os 版本信息的函数

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

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