SMS=^SM_PARAM;
SM_PARAM=record
TP_PID:char;
TP_DCS:char;
end;function ReceiveMessage(sm:SMS;index:Integer):Integer ;stdcall;external 'sms.dll'name 'RMessage';//////////////////////////////
procedure TForm1.Button3Click(Sender: TObject);
var sms1:SMS;
i:integer;
begin
i:=ReceiveMessage(@sms1,5);
Memo1.Lines.Add(IntToStr(i));
//程序走到此处报错。
Memo1.Lines.Add(PChar(sms1.TP_PID));
Memo1.Lines.Add(PChar(sms1^.TP_DCS));
//急的很,请各位帮忙。
end;
SM_PARAM=record
TP_PID:char;
TP_DCS:char;
end;function ReceiveMessage(sm:SMS;index:Integer):Integer ;stdcall;external 'sms.dll'name 'RMessage';//////////////////////////////
procedure TForm1.Button3Click(Sender: TObject);
var sms1:SMS;
i:integer;
begin
i:=ReceiveMessage(@sms1,5);
Memo1.Lines.Add(IntToStr(i));
//程序走到此处报错。
Memo1.Lines.Add(PChar(sms1.TP_PID));
Memo1.Lines.Add(PChar(sms1^.TP_DCS));
//急的很,请各位帮忙。
end;
Memo1.Lines.Add(IntToStr(i));
//程序走到此处报错。 是上面还是下面????
Memo1.Lines.Add(PChar(sms1.TP_PID));
……
Memo1.Lines.Add(PChar(sms1.TP_PID));处出错。
new(sms1);
i:=ReceiveMessage(@sms1,5);
...
dispose(sms1);
end;
不知道此处该怎么用。请赐教!多谢。
我马上试试。