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.