delphi下不同线程发送字符串示例

不同线程之间发送字符串主要是通过copydata方法。

子线程发送：

var
  cdds : TCopyDataStruct;
begin
  cdds.dwData := 0;
  cdds.cbData := Length(s) + 1;
  GetMem (cdds.lpData, cdds.cbData ); //为传递的数据区分配内存
  StrCopy (cdds.lpData, PChar (s));
  SendMessage( TForm( FAOwner ).Handle , WM_COPYDATA , 0 , Cardinal( @cdds ) );

end;

主线程接受消息，函数定义如下：

 procedure ShowNewForm( var Msg : TMessage ); message WM_COPYDATA;

函数实现：

var
  cdds : TcopyDataStruct;
begin

    cdds := PcopyDataStruct( Msg.LParam )^;
    sData := ( Pchar( cdds.lpData ) );
end;