喫茶XRAY [Mr.XRAY掲示板]

DLL の関数を作成して，その関数で，DLL 側で文字列を受け取る時は，
基本的には PChar 型にしておいた方が無難です．
以下は簡単な例です．
動作確認は Windows 7 U64(SP1) + Delphi XE(UP1) Pro です．

[参考]
[889] [08_DLL 内の関数で外部に文字列を渡す]
http://mrxray.on.coocan.jp/Delphi/plSamples/889_VCLStyleResource.htm#08

//----------------- DLLの全コード-----------------------------------------
// ファイル名は DllTest_PChar.dpr

library DllTest_PChar;

uses
  Windows,
  SysUtils,
  Dialogs;

function SetText2Dll(Buff: PChar):Bool; stdcall;
var
  LText : string;
begin
  LText := string(Buff);
  ShowMessage(LText);
  Result := True;
end;

exports
  SetText2Dll;

end.

//----------------- テスト側のコード ------------------------------------------

implementation

{$R *.dfm}

function SetText2Dll(Buff: PChar):Bool; stdcall; external 'DllTest_PChar.dll';

procedure TForm1.Button1Click(Sender: TObject);
begin
  Edit1.Text := BoolToStr(SetText2Dll('日本語'));
end;