W
W1979
Unregistered / Unconfirmed
GUEST, unregistred user!
这个问题和
http://www.gislab.ecnu.edu.cn/delphibbs/DispQ.asp?LID=223477
是相同的,这样这个问题实际是160分.
这个程序是form2向form1用消息传字符串,奇怪的是只能传4个字符,
请大家邦我看看
form2发送:
var pp
char;
bufferointer;
ss:string;
ii:integer;
begin
ii:=length(form2.edit1.text);
ss:=form2.Edit1.Text;
pp:=pchar(ss);
buffer:=pointer(localalloc(LPTR,sizeof(pp)+1));
move(pp^,buffer^,sizeof(pp));
postmessage(form1.handle,wm_mymsg,wparam(ii),lparam(buffer));
form1接收:
k:=pchar(msg.lparam);
j:=dword(msg.WParam);
form1.Edit1.Text:=inttostr(j);
form1.Edit2.Text:=k;
如果说的不够清楚,请留下地址我把程序发过去
http://www.gislab.ecnu.edu.cn/delphibbs/DispQ.asp?LID=223477
是相同的,这样这个问题实际是160分.
这个程序是form2向form1用消息传字符串,奇怪的是只能传4个字符,
请大家邦我看看
form2发送:
var pp
char;buffer
ointer;ss:string;
ii:integer;
begin
ii:=length(form2.edit1.text);
ss:=form2.Edit1.Text;
pp:=pchar(ss);
buffer:=pointer(localalloc(LPTR,sizeof(pp)+1));
move(pp^,buffer^,sizeof(pp));
postmessage(form1.handle,wm_mymsg,wparam(ii),lparam(buffer));
form1接收:
k:=pchar(msg.lparam);
j:=dword(msg.WParam);
form1.Edit1.Text:=inttostr(j);
form1.Edit2.Text:=k;
如果说的不够清楚,请留下地址我把程序发过去