Postmessage参数传递自定义字符串乱码

[Mr Dang]

8个线程中频繁使用Postmessage传递调试消息到主窗口

PostMessage(Hnl_MainWin,WM_USER+2000,Integer(PChar(Str_CommName)),Integer(PChar(Str_ReponseFrame)));

主窗体中接收消息并显示到界面上。

procedure TFrm_Main.OnThreadMessage(var Message:TMessage);
var
    Str_CommName,Str_DebugMsg:string;
begin
    if Message.Msg= WM_USER+2000 then
    begin
        Str_CommName:=PChar(Message.WParam);
        if sl_ComList.IndexOf(Str_CommName)>=0 then
        begin
            TMemo(FindComponent('mmo_Debug'+IntToStr(sl_ComList.IndexOf(Str_CommName)))).Lines.Add(PChar(Message.LParam));
        end;
    end;
end;

自定义的字符串中有空格等字符，界面上显示的消息经常乱码，都在主线程中跑能显示正常，试了多次无解，求助大牛！

[FlashDance]

type
  TForm1 = class(TForm)
    btn1: TButton;
    procedure btn1Click(Sender: TObject);
  private
    { Private declarations }
    procedure WMCustom(var Msg:TMessage);message WM_USER+100;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

var
  S1,S2:string;

procedure TForm1.btn1Click(Sender: TObject);
begin
  S1:='这是一个测试';
  S2:='This is a test';
  PostMessage(Form1.Handle,WM_USER+100,Integer(S1),Integer(S2));
end;

procedure TForm1.WMCustom(var Msg: TMessage);
begin
  ShowMessage(Format('%s%s%s',[S1,#13#10,S2]));
end;

end.

[FlashDance]

修改为：

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type
  TForm1 = class(TForm)
    btn1: TButton;
    procedure btn1Click(Sender: TObject);
  private
    { Private declarations }
    procedure WMCustom(var Msg:TMessage);message WM_USER+100;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

var
  S1,S2:string;

procedure TForm1.btn1Click(Sender: TObject);
begin
  S1:='这是一个测试';
  S2:='This is a test';
  PostMessage(Form1.Handle,WM_USER+100,Integer(S1),Integer(S2));
end;

procedure TForm1.WMCustom(var Msg: TMessage);
begin
  ShowMessage(Format('%s%s%s',[string(Msg.WParam),#13#10,string(Msg.LParam)]));
end;

end.

[蓝色光芒]

楼上的别误导，你这是常量字符串，如果不是常量字符串，是要出错的。 正确的做法是，用全局变量，如果全局变量可能存在多次赋值的情况，就新申请内容来传递。或者改用SendMessage来发送消息，具体原因到处都有讲解。

[FlashDance]

不要信楼上误导你，这是显然全局字符串变量

[FlashDance]

不要信楼上误导你，这显然是全局字符串变量 Integer(S1)只是个地址，如果用局部字符串变量，传递地址后局部string变量有可能被释放掉，导致接收不到

[Mr Dang]

感谢蓝色光芒，感谢各位。 线程太多了，全局变量不便于管理，使用SendMessage可以了，虽然慢了点，但是没乱码了。