类的实例与record在指针上的本质不同_record 函数 r语言-CSDN博客

多线程用消息传递类对象的问题

一程序，有主窗体和一工作线程，现两者间通过消息传递内容并执行，工作线程的消息循环已经建立，主窗体postthreadmessage到工作线程，工作线程postmessage到主窗体，由于相互传输的数据根据功能不同而不同，故不能统一传输格式，只能根据实际的数据创建不同的类（dto）来传输，举个例子
主窗体登陆：在登陆事件中创建登陆数据类局部变量TLoginData，并用postthreadmessage发送消息，消息中wparam是Integer(@LoginData)
工作线程接收时还原类PLoginData(Msg.wparam)^便取得相应的数据，使用后在工作线程free掉
实际过程中发现在线程中有时获取成功有时不行，并且报内存错误，难道是创建类示例的是局部变量，退出登陆函数后局部变量被系统自动回收？尽管变量被回收，但指针指向的数据没有被free掉，在线程中应该也可以获取吧？

用sendmessage肯定没问题，但程序需要只能用postmessage，否则线程处于等待状态。

主窗体向线程发送消息可以收到，但线程向主窗体发送消息时就报内存错误了。
主窗体登陆发送：
procedure TfrmMain.btnLoginClick(Sender: TObject);
var
  LD: TLoginData;
begin
  LD := TLoginData.Create;
  。。。
  PostThreadMessage(FThread.ThreadID, WM_CUSTOM, Integer(@LD), 0);
end;

线程接收登陆请求：
procedure TCustomThread.Execute;
var
  Msg: TMsg;
  LD: TLoginData;
begin
  while not Terminated and GetMessage(Msg, 0, 0, 0) do
  begin
    if Msg.message = WM_CUSOM then
    begin
      LD := PLoginData(Msg.WParam)^;
      if Assigned(LD) then
      begin
        try
          。。。
        finally
          LD.Free;
        end;
      end;
    end;
  end;
end;

反过来线程发送登陆结果：
procedure TCustomThread.Login;
var
  LDR: TLoginDataResult;
begin
  LDR := TLoginDataResult.Create;
  。。。
  PostMessage(MainForm.Handle, WM_CUSTOM, Integer(@LDR), 0);
end;

来窗体接收登陆结果
procedure ReceiveWorkThreadMessage(var Msg: TMessage); message WM_CUSTOM;

procedure TfrmMain.ReceiveWorkThreadMessage(var Msg: TMessage);
var
  LDR: TLoginDataResult;
begin
  LDR := PLoginDataResult(Msg.WParam)^;
  if Assigned(LDR) then
  begin
    try
      LDR.xxx = xxx; //这里出错
    finally
      LDR.Free;
    end;
  end;
end;

传递实例指针, 不是传局部变量指针, 所以你每次postthreadmessage 传递的指针都是错的, 根本不是实例的地址, 你应该这么写Integer(LDR) 而不是 Integer(@LDR), 另外接受到消息后, 直接转换回来即可不需要 PLoginDataResult, PLoginData这么2个东西, 按下面方式改
LDR := TLoginDataResult(Msg.WParam);
LD := TLoginData(Msg.WParam);

应该传实例指针，这是我受网上传record参数的方法影响，没有注意到类的实例与record在指针上的本质不同.