{"id":1745,"date":"2015-01-15T07:48:38","date_gmt":"2015-01-14T23:48:38","guid":{"rendered":"http:\/\/blog.qdac.cc\/?p=1745"},"modified":"2015-01-28T23:29:32","modified_gmt":"2015-01-28T15:29:32","slug":"%e5%9f%ba%e4%ba%8e-qworker-%e7%9a%84delphi%e5%a4%9a%e7%ba%bf%e7%a8%8b%e7%bc%96%e7%a8%8b-%e4%bc%a0%e9%80%92%e5%8f%82%e6%95%b0%e7%bb%99%e4%bd%9c%e4%b8%9a","status":"publish","type":"post","link":"https:\/\/blog.qdac.cc\/?p=1745","title":{"rendered":"\u57fa\u4e8e QWorker \u7684\u591a\u7ebf\u7a0b\u7f16\u7a0b &#8211; \u4f20\u9012\u53c2\u6570\u7ed9\u4f5c\u4e1a"},"content":{"rendered":"<p>\u5728\u4e0a\u4e00\u8282\u4e2d\uff0c\u6211\u4eec\u770b\u5230\u8fd9\u4e2a\u793a\u4f8b\u5b9e\u5728\u662f\u592a\u7b80\u5355\u4e86\uff0c\u5b9e\u9645\u5728\u4f5c\u4e1a\u5904\u7406\u8fc7\u7a0b\u4e2d\uff0c\u7a0d\u5fae\u590d\u6742\u4e00\u70b9\u7684\u4f5c\u4e1a\uff0c\u6211\u4eec\u90fd\u9700\u8981\u4f20\u9012\u53c2\u6570\u7ed9\u4f5c\u4e1a\u7684\u5904\u7406\u51fd\u6570\u3002\u90a3\u4e48\u600e\u4e48\u4f20\u9012\u53c2\u6570\u7ed9\u4f5c\u4e1a\u5462\uff1f<\/p>\n<p>\u5728 Post \u51fd\u6570\u7684\u58f0\u660e\u4e2d\uff0c\u6211\u4eec\u770b\u5230\u6709\u4e00\u4e2a AData \u53c2\u6570\uff0c\u662f\u4e00\u4e2a\u65e0\u7c7b\u578b\u7684\u6307\u9488\uff0c\u6211\u4eec\u5b9e\u9645\u4e0a\u5c31\u662f\u901a\u8fc7\u5b83\u6765\u4f5c\u4e1a\u4f20\u9012\u53c2\u6570\u3002\u6211\u4eec\u77e5\u9053\uff0c\u65e0\u7c7b\u578b\u6307\u9488\u5b9e\u9645\u4e0a\u662f\u4e00\u4e2a\u6574\u6570\u6765\u8bb0\u5f55\u5730\u5740\u7684\u503c\uff0c\u572832\u4f4d\u7a0b\u5e8f\u4e2d\uff0c\u5b83\u662f32\u4f4d\u7684\uff0c\u572864\u4f4d\u7a0b\u5e8f\u4e2d\uff0c\u5b83\u662f64\u4f4d\u7684\uff0c\u90a3\u4e48\uff0c\u6211\u4eec\u5b9e\u9645\u4e0a\uff0c\u5bf9\u4e8e\u5c0f\u4e8e\u7b49\u4e8e32\u7684\u5185\u5bb9\uff0c\u662f\u53ef\u4ee5\u76f4\u63a5\u4f20\u503c\u7684\uff0c\u8fd9\u6837\u505a\u7684\u597d\u5904\u662f\u4e0d\u9700\u8981\u989d\u5916\u7684\u91ca\u653e\u6b65\u9aa4\uff0c\u800c64\u4f4d\u7684\u5185\u5bb9\u5219\u9700\u8981\u89c6\u6211\u4eec\u7684\u5177\u4f53\u7a0b\u5e8f\u73af\u5883\u800c\u5b9a\uff0c\u5177\u4f53\u53ef\u53c2\u8003\u4e0b\u8868\uff1a<\/p>\n<p><a href=\"https:\/\/blog.qdac.cc\/wp-content\/uploads\/2015\/01\/L2Directs.jpg\"><img loading=\"lazy\" decoding=\"async\" class=\"aligncenter size-full wp-image-1747\" src=\"https:\/\/blog.qdac.cc\/wp-content\/uploads\/2015\/01\/L2Directs.jpg\" alt=\"L2Directs\" width=\"688\" height=\"431\" srcset=\"https:\/\/blog.qdac.cc\/wp-content\/uploads\/2015\/01\/L2Directs.jpg 688w, https:\/\/blog.qdac.cc\/wp-content\/uploads\/2015\/01\/L2Directs-300x188.jpg 300w\" sizes=\"auto, (max-width: 688px) 100vw, 688px\" \/><\/a><\/p>\n<p>\u5f53\u7136\uff0c\u8fd9\u4e9b\u53ef\u4ee5\u76f4\u63a5\u4f20\u503c\u7684\u7c7b\u578b\uff0c\u6211\u4eec\u4e5f\u9700\u8981\u505a\u4e00\u4e9b\u7b80\u5355\u7684\u6280\u5de7\u6027\u5904\u7406\uff0c\u5982\u4f20\u9012\u4e00\u4e2a\u5b57\u7b26\u65f6\uff0cDelphi \u4e2d\u5c31\u53ef\u80fd\u9700\u8981\u7528\u5230 Ord \u51fd\u6570\u4f20\u5b83\u7684\u5185\u7801\uff0c\u800c\u4f20\u9012\u4e00\u4e2a\u6574\u6570\u7c7b\u578b\u7684\u503c\u65f6\uff0c\u6211\u4eec\u5c31\u9700\u8981\u5f3a\u5236\u8f6c\u6362\u4e00\u4e2a\uff0cPointer\uff08\u503c\uff09\u5373\u53ef\uff0c\u800c\u4f20\u9012\u6d6e\u70b9\u503c\u65f6\uff0c\u5219\u9700\u8981\u66f4\u590d\u6742\u4e00\u70b9\u7684\u8f6c\u6362\uff0c\u60a8\u53ef\u4ee5\u7528 absolute \u8bed\u6cd5\uff0c\u4e5f\u53ef\u4ee5\u4f7f\u7528\u53d6\u5730\u5740\u8f6c\u6362\u7684\u529e\u6cd5\u6765\u5b8c\u6210\u3002\u5982\u4e0b\u6240\u793a\uff1a<\/p>\n<pre class=\"lang:delphi decode:true \">\/\/\u6574\u6570\u7c7b\u578b\r\nPointer(100);\r\n\/\/\u6d6e\u70b9\u7c7b\u578b-absolute\r\nvar\r\n  f:Single;\r\n  i:Integer absolute f;\r\nbegin\r\n...\r\nf:=1.2;\r\n...\r\nPointer(i);\r\n...\r\nend;\r\n\/\/\u6d6e\u70b9\u7c7b\u578b-\u5f3a\u8f6c\r\nPointer(PInteger(@f)^);\r\n<\/pre>\n<p>\u5f53\u7136\uff0c\u5230\u4e86\u4f5c\u4e1a\u4e2d\u76f8\u5e94\u7684\u9700\u8981\u5c06Pointer\u53cd\u8f6c\u6362\u6765\u5c31\u53ef\u4ee5\u4e86\uff0c\u5177\u4f53\u5c31\u4e0d\u518d\u7f00\u8ff0\uff0c\u7701\u5f97\u5927\u5bb6\u8ba4\u4e3a\u6211\u5728\u9a97\u5b57\u6570\u3002<\/p>\n<p>\u4e0a\u9762\u7684\u7b80\u5355\u7c7b\u578b\u4f20\u9012\u5df2\u7ecf\u641e\u5b9a\u4e86\uff0c\u90a3\u4e48\u590d\u6742\u7684\u7c7b\u578b\u4f20\u9012\u6211\u4eec\u600e\u4e48\u4f20\u5462\uff1f\u5927\u5bb6\u53ef\u80fd\u6ce8\u610f\u5230\u4e86 Post \u51fd\u6570\u8fd8\u6709\u4e00\u4e2a\u53c2\u6570\u53eb AFreeType\uff0c\u5b83\u6307\u5b9a\u4e86 AData \u6307\u9488\u5173\u8054\u7684\u5bf9\u8c61\u5982\u4f55\u53bb\u91ca\u653e\u3002QWorker \u9ed8\u8ba4\u63d0\u4f9b\u4e86\u4e0b\u9762\u51e0\u79cd\u91ca\u653e\u65b9\u5f0f\uff1a<\/p>\n<ul>\n<li>jdfFreeByUser \uff1a\u7528\u6237\u81ea\u5df1\u8d1f\u8d23\uff0cQWorker \u53ef\u4ee5\u5f53\u7529\u624b\u638c\u63e1\u7684<\/li>\n<li>jdfFreeAsObject\uff1a\u4f20\u9012\u7684\u662f\u4e00\u4e2a\u5bf9\u8c61\u6307\u9488\uff0cQWorker \u5728\u4f5c\u4e1a\u751f\u547d\u5468\u671f\u7ed3\u675f\u65f6\uff0c\u8c03\u7528\u5bf9\u8c61\u7684\u6790\u6784\u51fd\u6570\u91ca\u653e<\/li>\n<li>jdfFreeAsSimpleRecord\uff1a\u4f20\u9012\u7684\u662f\u4e00\u4e2a\u7b80\u5355\u8bb0\u5f55\u7c7b\u578b\uff0cQWorker \u5728\u4f5c\u4e1a\u751f\u547d\u5468\u671f\u7ed3\u675f\u65f6\uff0c\u76f4\u63a5\u8c03\u7528Dispose(Pointer) \u6765\u91ca\u653e\uff0c\u6ce8\u610f\u4e0d\u8981\u4f20\u9012\u5305\u542b\u5b57\u7b26\u4e32\u7c7b\u578b\/\u63a5\u53e3\/\u52a8\u6001\u6570\u7ec4\u7b49\u7c7b\u578b\u7684\u6210\u5458\uff0c\u5426\u5219\u4f1a\u9020\u6210\u5185\u5b58\u6cc4\u9732<\/li>\n<li>jdfFreeAsInterface\uff1a\u4f20\u9012\u7684\u662f\u4e00\u4e2a\u63a5\u53e3\uff0cQWorker \u4f1a\u81ea\u52a8\u8c03\u7528 AddRef \u548c Release \u6765\u7ef4\u62a4\u5176\u751f\u547d\u5468\u671f<\/li>\n<li>jdfFreeAsC1\u00a0~ jdfFreeAsC6\uff1a\u4f20\u9012\u7684\u662f\u4e00\u4e2a\u7528\u6237\u81ea\u5b9a\u4e49\u7684\u5185\u5b58\u91ca\u653e\u65b9\u5f0f\uff0c\u7531\u7528\u6237\u81ea\u884c\u6307\u5b9a Workers.OnCustomFreeData \u4e8b\u4ef6\u7684\u54cd\u5e94\u51fd\u6570\u6765\u5904\u7406<\/li>\n<\/ul>\n<p>\u770b\u8d77\u6765\u633a\u591a\u7684\uff0c\u4f46\u5b9e\u9645\u7684\u4e1a\u52a1\u9700\u8981\u53ef\u80fd\u66f4\u590d\u6742\uff0c\u90a3\u4e48\u6211\u4eec\u80fd\u4e0d\u80fd\u8fdb\u4e00\u6b65\u7b80\u5316\u5462\uff1f\u4e07\u80fd\u7684\u795e\u9f99\uff0c\u53d8\u53d8\u53d8~~~TQJobExtData\u767b\u573a\u4e86\uff0cAData \u53c2\u6570\u4f20\u9012\u7684\u662fTQJobExtData\u8fd9\u4e2a\u7c7b\u578b\u7684\u4e00\u4e2a\u5b9e\u4f8b\uff0c\u7136\u540e\u7531\u5b83\u63d0\u4f9b\u4e86\u4e00\u5c42\u5c01\u88c5\u3002\u5f53\u7136\u4e86\uff0c\u56e0\u4e3a TQJobExtData \u662f\u4e00\u4e2a\u7c7b\uff0c\u6240\u4ee5 AFreeType \u5fc5\u9700\u624b\u52a8\u6307\u5b9a\u4e3a jdfFreeAsObject\u3002\u6211\u4eec\u770b\u8fd9\u4e2a\u7c7b\u7684\u58f0\u660e\uff1a<\/p>\n<pre class=\"lang:delphi decode:true \">TQJobExtData = class\r\n  private\r\n    function GetAsBoolean: Boolean;\r\n    function GetAsDouble: Double;\r\n    function GetAsInteger: Integer;\r\n    function GetAsString: QStringW;\r\n    procedure SetAsBoolean(const Value: Boolean);\r\n    procedure SetAsDouble(const Value: Double);\r\n    procedure SetAsInteger(const Value: Integer);\r\n    procedure SetAsString(const Value: QStringW);\r\n    function GetAsDateTime: TDateTime;\r\n    procedure SetAsDateTime(const Value: TDateTime);\r\n    function GetAsInt64: Int64;\r\n    procedure SetAsInt64(const Value: Int64);\r\n  protected\r\n    FOrigin: Pointer;\r\n    FOnFree: TQExtFreeEvent;\r\n{$IFDEF UNICODE}\r\n    FOnFreeA: TQExtFreeEventA;\r\n{$ENDIF}\r\n    procedure DoFreeAsString(AData: Pointer);\r\n    procedure DoSimpleTypeFree(AData: Pointer);\r\n{$IFNDEF NEXTGEN}\r\n    function GetAsAnsiString: AnsiString;\r\n    procedure SetAsAnsiString(const Value: AnsiString);\r\n    procedure DoFreeAsAnsiString(AData: Pointer);\r\n{$ENDIF}\r\n  public\r\n    constructor Create(AData: Pointer; AOnFree: TQExtFreeEvent); overload;\r\n    constructor Create(AOnInit: TQExtInitEvent;\r\n      AOnFree: TQExtFreeEvent); overload;\r\n{$IFDEF UNICODE}\r\n    constructor Create(AData: Pointer; AOnFree: TQExtFreeEventA); overload;\r\n    constructor Create(AOnInit: TQExtInitEventA;\r\n      AOnFree: TQExtFreeEventA); overload;\r\n{$ENDIF}\r\n    constructor Create(const Value: Int64); overload;\r\n    constructor Create(const Value: Integer); overload;\r\n    constructor Create(const Value: Boolean); overload;\r\n    constructor Create(const Value: Double); overload;\r\n    constructor CreateAsDateTime(const Value: TDateTime); overload;\r\n    constructor Create(const S: QStringW); overload;\r\n{$IFNDEF NEXTGEN}\r\n    constructor Create(const S: AnsiString); overload;\r\n{$ENDIF}\r\n    destructor Destroy; override;\r\n    property Origin: Pointer read FOrigin;\r\n    property AsString: QStringW read GetAsString write SetAsString;\r\n{$IFNDEF NEXTGEN}\r\n    property AsAnsiString: AnsiString read GetAsAnsiString\r\n      write SetAsAnsiString;\r\n{$ENDIF}\r\n    property AsInteger: Integer read GetAsInteger write SetAsInteger;\r\n    property AsInt64: Int64 read GetAsInt64 write SetAsInt64;\r\n    property AsFloat: Double read GetAsDouble write SetAsDouble;\r\n    property AsBoolean: Boolean read GetAsBoolean write SetAsBoolean;\r\n    property AsDateTime: TDateTime read GetAsDateTime write SetAsDateTime;\r\n  end;<\/pre>\n<p>\u5b83\u5728\u8fd9\u91cc\u63d0\u4f9b\u4e86\u5e38\u7528\u7684\u7c7b\u578b\u7684\u6784\u9020\u51fd\u6570\u5c01\u88c5\u6765\u7b80\u5316\u64cd\u4f5c\uff0c\u6bd4\u5982\uff0c\u6211\u4eec\u8981\u5728\u4e0a\u4e00\u8282\u7684\u4f8b\u5b50\u4e2d\uff0c\u4f20\u9012\u4e00\u4e2a\u8981\u663e\u793a\u7684\u5b57\u7b26\u4e32\u7ed9 DoHelloworld \u8fd9\u4e2a\u4f5c\u4e1a\u51fd\u6570\uff0c\u6211\u4eec\u5c31\u76f4\u63a5\u7528\u4e0b\u9762\u7684\u4ee3\u7801\u5373\u53ef\uff1a<\/p>\n<p>\u3010Delphi\u3011<\/p>\n<pre class=\"lang:delphi decode:true\">Workers.Post(DoHelloworld,TQJobExtData.Create('\u5b57\u7b26\u4e32\u5185\u5bb9'),True,jdfFreeAsObject);<\/pre>\n<p>\u3010C++ Builder\u3011<\/p>\n<pre class=\"lang:c++ decode:true \">Workers-&gt;Post(DoHelloworld,new TQJobExtData('\u5b57\u7b26\u4e32\u5185\u5bb9'),true,jdfFreeAsObject);<\/pre>\n<p>\u90a3\u4e48\uff0c\u6211\u4eec\u5728\u4f5c\u4e1a\u4e2d\uff0c\u5982\u4f55\u8bbf\u95ee\u53c2\u6570\u7684\u503c\u5462\uff1f\u5927\u5bb6\u53ef\u80fd\u5df2\u7ecf\u6ce8\u610f\u5230\u4e86\u5bf9\u5e94\u7684 AsXXX \u5c5e\u6027\uff0c\u6839\u636e\u5bf9\u5e94\u7684\u7c7b\u578b\uff0c\u4f7f\u7528\u5b83\u5373\u53ef\u76f4\u63a5\u8bbf\u95ee\u4e86\u3002\u5f53\u7136\uff0c\u5982\u679c\u662f\u4f60\u81ea\u5b9a\u4e49\u7684\u7ed3\u6784\u4f53\u6216\u5bf9\u8c61\uff0c\u90a3\u4e48\u53ea\u597d\u8001\u8001\u5b9e\u5b9e\u7684\u8bbf\u95ee Origin \u6307\u9488\u6765\u5f97\u5230\u539f\u59cb\u7684\u5185\u5bb9\u4e86\u3002<\/p>\n<p>\u63a5\u4e0b\u6765\u7684\u95ee\u9898\u662f\uff1a\u5982\u679c\u6211\u4eec\u8981\u4f20\u590d\u6742\u7684\u7ed3\u6784\u4f53\u7ed9\u4f5c\u4e1a\u65f6\u600e\u4e48\u529e\uff1f\u4e00\u4e2a\u7a0b\u5e8f\u7528\u5230\u7684\u7ed3\u6784\u4f53\u53ef\u80fd\u8fdc\u4e0d\u6b626\u79cd\uff0cjdfFreeAsC1~jdfFreeAsC6 \u663e\u7136\u662f\u65e0\u6cd5\u6ee1\u8db3\u9700\u8981\u7684\u3002\u5728\u521a\u624d\u7684 TQJobExtData \u58f0\u660e\u4e2d\uff0c\u5927\u5bb6\u53ef\u4ee5\u770b\u5230\uff0c\u5176\u5305\u542b\u4e86\u4e00\u4e2a\u5e26\u6709\u81ea\u5b9a\u4e49\u91ca\u653e\u51fd\u6570\u7684\u5f62\u5f0f\uff0c\u5b9e\u9645\u4e0a\u53ea\u8981\u4f20\u9012\u91ca\u653e\u5185\u5b58\u7684\u4ee3\u7801\u7ed9\u5b83\u5c31\u641e\u5b9a\u4e86\u3002<\/p>\n<p>\u4e0b\u9762\u662f\u4e00\u4e2a\u7b80\u5355\u7684\u4f8b\u5b50\uff1a<\/p>\n<p>\u3010Delphi\u3011<\/p>\n<pre class=\"lang:delphi decode:true\">type\r\n   TMyComplexRecord=record\r\n     Id:Integer;\r\n     Name:String;\r\n     Actions:array of TAction;\r\n   end;\r\n   PMyComplexRecord=^TMyComplexRecord;\r\n...\r\n\r\nprocedure TForm1.DoJob(AJob:PQJob);\r\nvar\r\n  R:PMyComplexRecord;\r\nbegin\r\nR:=AJob.ExtData.Origin;\r\nOutputDebugString(PChar(R.Name));\r\nend;\r\n\r\nprocedure TForm1.DoFreeMyComplexRecord(AData:Pointer);\r\nbegin\r\nDispose(PMyComplexRecord(AData));\r\nend;\r\n\r\nprocedure TForm1.Button1Click(Sender:TObject);\r\nvar\r\n  AData:PMyComplexRecord;\r\nbegin\r\nNew(AData);\r\nAData.Name:='Hello';\r\nSetLength(AData.Actions,1);\r\nWorkers.Post(DoJob,TQJobExtData.Create(AData,DoFreeMyComplexRecord),false,jdfFreeAsObject);\r\nend;\r\n<\/pre>\n<p>\u3010C++ Builder\u3011<\/p>\n<pre class=\"lang:c++ decode:true\">struct TMyComplexRecord\r\n  {\r\n  int Id;\r\n  String Name;\r\n  TAction Actions[1];\r\n  };\r\ntypedef TMyComplexRecord * PMyComplexRecord;\r\n...\r\nvoid __fastcall TForm1::DoJob(PQJob AJob)\r\n{\r\nOutputDebugString(((PMyComplexRecord)AJob.ExtData.Origin)-&gt;Name.c_str());\r\n}\r\n\r\nvoid __fastcall TForm1::DoFreeMyComplexRecord(void *AData)\r\n{\r\ndelete (PMyComplexRecord)AData;\r\n}\r\n\r\nvoid __fastcall TForm1::Button1Click(System::TObject *Sender)\r\n{\r\nPMyComplexRecord AData=new TMyComplexRecord;\r\nAData-&gt;Name=L\"Hello\";\r\nWorkers-&gt;Post(DoJob,new TQJobExtData(AData,DoFreeMyComplexRecord),false,jdfFreeAsObject);\r\n}<\/pre>\n<p>\u597d\u4e86\uff0c\u4e0a\u9762\u7684\u4e00\u5207\u770b\u8d77\u6765\u6bd4\u8f83\u5b8c\u7f8e\u4e86\u3002\u5728\u7ed3\u675f\u4e4b\u524d\uff0c\u6709\u7684\u670b\u53cb\u53ef\u80fd\u8bf4\uff0c\u4f60\u81ea\u52a8\u7ba1\u7406\u5185\u5bb9\u7684\u91ca\u653e\u867d\u7136\u597d\uff0c\u4f46\u662f\uff0c\u6211\u5982\u679c\u4e00\u4e2a\u53c2\u6570\u8981\u5728\u591a\u4e2a\u4f5c\u4e1a\u95f4\u987a\u5e8f\u4f20\u9012\uff0c\u4f60\u8fd9\u4e2a\u4f5c\u4e1a\u5b8c\u6210\u65f6\u5c31\u7ed9\u91ca\u653e\u4e86\uff0c\u5bb3\u6211\u4e0d\u5f97\u4e0d\u91cd\u5efa\u4e00\u4e2a\u62f7\u8d1d\uff0c\u8fd9\u4e2a\u4e0d\u592a\u597d\u5427\uff1f<\/p>\n<p>\u8fd9\u662f\u4e2a\u95ee\u9898\uff0c\u4e0d\u8fc7\u597d\u5728\u6211\u4eec\u5df2\u7ecf\u63d0\u4f9b\u4e86\u6bd4\u8f83\u5b8c\u7f8e\u7684\u89e3\u51b3\u65b9\u6848\uff0c\u90a3\u5c31\u662f\u4f7f\u7528\u57fa\u4e8e\u63a5\u53e3\u7684\u667a\u80fd\u6307\u9488\u3002\u8fd9\u672c\u6765\u662f\u53e6\u4e00\u7bc7\u6587\u7ae0\u7684\u5185\u5bb9\uff0c\u6211\u7ed9\u5185\u5bb9\u62f7\u8d1d\u8fc7\u6765\uff0c\u6bd4\u5927\u5bb6\u53c2\u8003\uff08<a href=\"https:\/\/blog.qdac.cc\/?p=1809\" target=\"_blank\">\u539f\u6587\u94fe\u63a5\u00a0<\/a>\uff09\uff1a<\/p>\n<blockquote><p>\u7528 QString \u5355\u5143\u4e3a\u60a8\u63d0\u4f9b\u7684 TQPtr \u505a\u667a\u80fd\u6307\u9488\u5c01\u88c5\uff0c\u7136\u540e\u4f5c\u4e1a\u65f6\u4f7f\u7528 jdfFreeAsInterface \u8ba9 QWorker \u91c7\u7528\u63a5\u53e3\u7684\u65b9\u5f0f\u6765\u7ba1\u7406\u9644\u52a0\u7684\u6570\u636e\u3002<\/p>\n<p>\u6211\u4eec\u5148\u770b\u4e00\u4e0b\u58f0\u660e\uff1a<\/p>\n<pre class=\"lang:delphi decode:true\">IQPtr = interface(IInterface)\r\n    function Get: Pointer;\r\n  end;\r\n  TQPtrFreeEvent=procedure (AData:Pointer) of object;\r\n  TQPtrFreeEventG=procedure (AData:Pointer);\r\n  {$IFDEF UNICODE}\r\n  TQPtrFreeEventA=reference to procedure (AData:Pointer);\r\n  {$ENDIF}\r\n  TQPtr = class(TInterfacedObject, IQPtr)\r\n  private\r\n    FObject: Pointer;\r\n    FOnFree:TQPtrFreeEvent;\r\n    {$IFDEF UNICODE}\r\n    FOnFreeA:TQPtrFreeEventA;\r\n    {$ENDIF}\r\n  public\r\n    constructor Create(AObject: Pointer); overload;\r\n    destructor Destroy; override;\r\n    class function Bind(AObject: TObject): IQPtr;overload;\r\n    class function Bind(AData:Pointer;AOnFree:TQPtrFreeEvent):IQPtr;overload;\r\n    class function Bind(AData:Pointer;AOnFree:TQPtrFreeEventG):IQPtr;overload;\r\n    {$IFDEF UNICODE}\r\n    class function Bind(AData:Pointer;AOnFree:TQPtrFreeEventA):IQPtr;overload;\r\n    {$ENDIF}\r\n    function Get: Pointer;\r\n  end;<\/pre>\n<p>\u6211\u4eec\u4f1a\u7528\u5230\u5176\u4e2d\u7684 TQPtr.Bind \u51fd\u6570\u548c IQPtr \u7684 Get \u63a5\u53e3\uff1a<\/p>\n<p>\uff081\uff09Bind \u51fd\u6570\u7528\u4e8e\u5c06\u5bf9\u8c61\u6216\u5176\u5b83\u7c7b\u578b\u7684\u6307\u9488\u901a\u8fc7\u63a5\u53e3\u7684\u65b9\u5f0f\u8fdb\u884c\u7ba1\u7406\uff0c\u5b83\u6709\u56db\u79cd\u91cd\u8f7d\uff0c\u5982\u679c\u662f\u5bf9\u8c61\uff0c\u4e0d\u9700\u8981\u6307\u5b9a\u91ca\u653e\u65b9\u6cd5\uff0c\u5982\u679c\u662f\u5176\u5b83\u7684\u5982\u8bb0\u5f55\u7c7b\u578b\uff0c\u5c31\u9700\u8981\u81ea\u5df1\u6307\u5b9a\u5185\u5b58\u91ca\u653e\u51fd\u6570\uff0c\u540e\u9762\u4e09\u4e2a\u5206\u522b\u5bf9\u5e94\u7c7b\u6210\u5458\u3001\u5168\u5c40\u51fd\u6570\u548c\u533f\u540d\u51fd\u6570\u7248\u672c\uff0c\u4e0d\u8fdb\u884c\u8d58\u8ff0\u3002<\/p>\n<p>\uff082\uff09Get \u51fd\u6570\u7528\u4e8e\u83b7\u53d6\u5230\u54b1\u4eec\u7ba1\u7406\u7684\u539f\u59cb\u7684\u6307\u9488\u3002<\/p>\n<p>\u4e0b\u9762\u6211\u4eec\u63d0\u4f9b\u4e00\u4e2a\u5177\u4f53\u7684\u4f8b\u5b50\u6765\u770b\u4e00\u4e0b\u5b83\u7684\u7528\u6cd5\uff1a<\/p>\n<pre class=\"lang:delphi decode:true \">unit Unit1;\r\n\r\ninterface\r\n\r\nuses\r\n  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,\r\n  Vcl.Controls, Vcl.Forms, Vcl.Dialogs,QString,QWorker, Vcl.StdCtrls;\r\n\r\ntype\r\n  TMyObject=class\r\n  public\r\n    Text:String;\r\n    destructor Destroy;override;\r\n  end;\r\n  TForm1 = class(TForm)\r\n    Button1: TButton;\r\n    procedure Button1Click(Sender: TObject);\r\n  private\r\n    { Private declarations }\r\n    procedure DoStep1(AJob:PQJob);\r\n    procedure DoStep2(AJob:PQJob);\r\n  public\r\n    { Public declarations }\r\n  end;\r\n\r\nvar\r\n  Form1: TForm1;\r\n\r\nimplementation\r\n\r\n{$R *.dfm}\r\n\r\nprocedure TForm1.Button1Click(Sender: TObject);\r\nbegin\r\nWorkers.Post(DoStep1,Pointer(TQPtr.Bind(TMyObject.Create)),False,jdfFreeAsInterface);\r\nend;\r\n\r\nprocedure TForm1.DoStep1(AJob: PQJob);\r\nvar\r\n  AObj:TMyObject;\r\nbegin\r\nAObj:=IQPtr(AJob.Data).Get;\r\nAObj.Text:='Hello,world from DoStep1';\r\nWorkers.Post(DoStep2,AJob.Data,True,jdfFreeAsInterface);\r\nend;\r\n\r\nprocedure TForm1.DoStep2(AJob: PQJob);\r\nvar\r\n  AObj:TMyObject;\r\nbegin\r\nAObj:=IQPtr(AJob.Data).Get;\r\nShowMessage(AObj.Text);\r\nend;\r\n\r\n{ TMyObject }\r\n\r\ndestructor TMyObject.Destroy;\r\nbegin\r\n  OutputDebugString('Object Free');\r\n  inherited;\r\nend;\r\n\r\nend.\r\n<\/pre>\n<p>\u4e0a\u9762\u7684\u8fd9\u6bb5\u4ee3\u7801\u6211\u4eec\u6295\u5bc4\u4e86\u4e00\u4e2a\u4e24\u6b65\u4f5c\u4e1a\uff0c\u7b2c\u4e00\u6b65\u4f5c\u4e1a\u8bbe\u7f6e\u4e86 TMyObject \u7684\u4e00\u4e2a\u5b9e\u4f8b\u7684 Text \u503c\uff0c\u800c\u7b2c\u4e8c\u6b65\u4f5c\u4e1a\u5219\u5c06\u5176\u7528 ShowMessage \u663e\u793a\u51fa\u6765\uff0c\u6211\u4eec\u6ca1\u6709\u81ea\u5df1\u91ca\u653e TMyObject \u5b9e\u4f8b\uff0c\u4f46\u6211\u4eec\u6267\u884c\u4e0a\u9762\u7684\u4ee3\u7801\uff0c\u6211\u4eec\u53ef\u4ee5\u770b\u5230\u7ed3\u679c\uff0c\u622a\u4e2a\u56fe\u770b\u4e0b\uff1a<\/p>\n<p><a href=\"https:\/\/blog.qdac.cc\/wp-content\/uploads\/2015\/01\/InfFree.jpg\"><img loading=\"lazy\" decoding=\"async\" class=\"aligncenter size-full wp-image-1811\" src=\"https:\/\/blog.qdac.cc\/wp-content\/uploads\/2015\/01\/QWorkerL12.jpg\" alt=\"FreeAsInterface\" width=\"463\" height=\"240\" srcset=\"https:\/\/blog.qdac.cc\/wp-content\/uploads\/2015\/01\/QWorkerL12.jpg 463w, https:\/\/blog.qdac.cc\/wp-content\/uploads\/2015\/01\/QWorkerL12-300x156.jpg 300w\" sizes=\"auto, (max-width: 463px) 100vw, 463px\" \/><\/a><\/p>\n<p><a href=\"https:\/\/blog.qdac.cc\/wp-content\/uploads\/2015\/01\/InfFree.jpg\"><img loading=\"lazy\" decoding=\"async\" class=\"aligncenter size-full wp-image-1810\" src=\"https:\/\/blog.qdac.cc\/wp-content\/uploads\/2015\/01\/InfFree.jpg\" alt=\"InfFree\" width=\"533\" height=\"119\" srcset=\"https:\/\/blog.qdac.cc\/wp-content\/uploads\/2015\/01\/InfFree.jpg 533w, https:\/\/blog.qdac.cc\/wp-content\/uploads\/2015\/01\/InfFree-300x67.jpg 300w\" sizes=\"auto, (max-width: 533px) 100vw, 533px\" \/><\/a><\/p>\n<p>\u53ef\u4ee5\u770b\u5230\uff0c\u5728\u540e\u7eed\u6b65\u9aa4\u4e2d\uff0c\u53c2\u6570\u88ab\u5b89\u5168\u7684\u8bbf\u95ee\uff0c\u800cTMyObject\u5bf9\u8c61\u7684\u5b9e\u4f8b\u88ab\u81ea\u52a8\u91ca\u653e\u4e86\u3002<\/p><\/blockquote>\n<p>\u597d\u4e86\uff0c\u770b\u8d77\u6765\u4e00\u5207\u90fd\u5f88\u5b8c\u7f8e\u3002\u4f20\u53c2\u6570\u7684\u95ee\u9898\u89e3\u51b3\u4e86\uff0c\u4e5f\u4e0d\u9700\u8981\u505a\u592a\u591a\u989d\u5916\u7684\u5de5\u4f5c\u3002\u4f46\u6211\u8fd8\u662f\u60f3\u8865\u5145\u4e00\u70b9\u70b9\uff0c\u90a3\u5c31\u662f\u5b9e\u9645\u4e0a\uff0c\u5982\u679c\u9700\u8981\uff0c\u4f60\u53ef\u4ee5\u901a\u8fc7 TQMsgPack \u6216\u8005 TList \u4e00\u7c7b\u7684\u5bf9\u8c61\u6765\u4f20\u9012\u53c2\u6570\uff0c\u53cd\u6b63\u53ea\u8981\u6307\u5b9a\u4e86 jdfFreeAsObject\uff0c\u5728\u4f5c\u4e1a\u751f\u547d\u5468\u671f\u7ed3\u675f\u65f6\uff0cQWorker \u90fd\u4f1a\u5e2e\u4f60\u81ea\u52a8\u91ca\u653e\u5b83\u3002\u6240\u4ee5\uff0c\u672c\u7ae0\u7684\u5185\u5bb9\uff0c\u53ea\u662f\u7ed9\u7684\u53c2\u8003\uff0c\u5e76\u4e0d\u4ee3\u8868\u5fc5\u9700\u8fd9\u4e48\u505a\uff0c\u6761\u6761\u5927\u8def\u901a\u7f57\u9a6c\uff0c\u4f55\u5fc5\u5355\u604b\u4e00\u679d\u82b1~~~\uff0c\u8bcd\u6709\u70b9\u4e32\u4e86:)\uff0c\u672c\u8282\u5185\u5bb9\u7ed3\u675f\u3002<\/p>\n<p>&nbsp;<\/p>\n","protected":false},"excerpt":{"rendered":"<p>\u5728\u4e0a\u4e00\u8282\u4e2d\uff0c\u6211\u4eec\u770b\u5230\u8fd9\u4e2a\u793a\u4f8b\u5b9e\u5728\u662f\u592a\u7b80\u5355 [&hellip;]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"site-sidebar-layout":"default","site-content-layout":"","ast-site-content-layout":"default","site-content-style":"default","site-sidebar-style":"default","ast-global-header-display":"","ast-banner-title-visibility":"","ast-main-header-display":"","ast-hfb-above-header-display":"","ast-hfb-below-header-display":"","ast-hfb-mobile-header-display":"","site-post-title":"","ast-breadcrumbs-content":"","ast-featured-img":"","footer-sml-layout":"","ast-disable-related-posts":"","theme-transparent-header-meta":"","adv-header-id-meta":"","stick-header-meta":"","header-above-stick-meta":"","header-main-stick-meta":"","header-below-stick-meta":"","astra-migrate-meta-layouts":"default","ast-page-background-enabled":"default","ast-page-background-meta":{"desktop":{"background-color":"var(--ast-global-color-4)","background-image":"","background-repeat":"repeat","background-position":"center center","background-size":"auto","background-attachment":"scroll","background-type":"","background-media":"","overlay-type":"","overlay-color":"","overlay-opacity":"","overlay-gradient":""},"tablet":{"background-color":"","background-image":"","background-repeat":"repeat","background-position":"center center","background-size":"auto","background-attachment":"scroll","background-type":"","background-media":"","overlay-type":"","overlay-color":"","overlay-opacity":"","overlay-gradient":""},"mobile":{"background-color":"","background-image":"","background-repeat":"repeat","background-position":"center center","background-size":"auto","background-attachment":"scroll","background-type":"","background-media":"","overlay-type":"","overlay-color":"","overlay-opacity":"","overlay-gradient":""}},"ast-content-background-meta":{"desktop":{"background-color":"var(--ast-global-color-5)","background-image":"","background-repeat":"repeat","background-position":"center center","background-size":"auto","background-attachment":"scroll","background-type":"","background-media":"","overlay-type":"","overlay-color":"","overlay-opacity":"","overlay-gradient":""},"tablet":{"background-color":"var(--ast-global-color-5)","background-image":"","background-repeat":"repeat","background-position":"center center","background-size":"auto","background-attachment":"scroll","background-type":"","background-media":"","overlay-type":"","overlay-color":"","overlay-opacity":"","overlay-gradient":""},"mobile":{"background-color":"var(--ast-global-color-5)","background-image":"","background-repeat":"repeat","background-position":"center center","background-size":"auto","background-attachment":"scroll","background-type":"","background-media":"","overlay-type":"","overlay-color":"","overlay-opacity":"","overlay-gradient":""}},"footnotes":""},"categories":[69,8,9,6],"tags":[57],"class_list":["post-1745","post","type-post","status-publish","format-standard","hentry","category-c-builder","category-delphi","category-qdac","category-qworker","tag-57"],"views":6583,"_links":{"self":[{"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=\/wp\/v2\/posts\/1745","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=1745"}],"version-history":[{"count":5,"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=\/wp\/v2\/posts\/1745\/revisions"}],"predecessor-version":[{"id":1888,"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=\/wp\/v2\/posts\/1745\/revisions\/1888"}],"wp:attachment":[{"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=1745"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=1745"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=1745"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}