PostMessage發送後, 接收到的字符串不完整? |
缺席
|
h@visli
資深會員 發表:103 回覆:429 積分:431 註冊:2004-02-13 發送簡訊給我 |
各位好! 我用PostMessage函數發送字符串, 但不能完整接收所發送的內容. 而用SendMessage函數確可以準確接收. 請問這是為什麼呢?
上午貼的代碼太長, 大家可能懶得看, 現在重新貼個短的: <textarea class="delphi" rows="10" cols="60" name="code">unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; const WM_PostMsg = WM_User 300; WM_SendMsg = WM_User 301; type TForm1 = class(TForm) Memo1: TMemo; Button1: TButton; Button2: TButton; Edit1: TEdit; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); private { Private declarations } procedure WMPostMsg(var Msg: TMessage); message WM_PostMsg; procedure WMSendMsg(var Msg: TMessage); message WM_SendMsg; public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var s: string; begin s := Edit1.Text; PostMessage(Form1.Handle, WM_PostMsg, 0, Integer(s)); end; procedure TForm1.Button2Click(Sender: TObject); var s: string; begin s := Edit1.Text; SendMessage(Form1.Handle, WM_PostMsg, 0, Integer(PChar(s))); end; //PostMessage方法發送的不能完整接收? procedure TForm1.WMPostMsg(var Msg: TMessage); var p: PChar; begin p := PChar(Msg.LParam); Memo1.Lines.Add('Post: ' p); end; //SendMessage方法發送的可以正常接收 procedure TForm1.WMSendMsg(var Msg: TMessage); var p: pchar; begin p := PChar(Msg.LParam); Memo1.Lines.Add('Send: ' p); end; end. </textarea>
------
------------------------ 博采眾家之長,奉獻綿薄之力 ------------------------ |
h@visli
資深會員 發表:103 回覆:429 積分:431 註冊:2004-02-13 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |