asta问题(50分)

AstaClientCodedParamList(Sender: TObject;<br>&nbsp; MsgID: Integer; Params: TAstaParamList);<br>&nbsp; case MsgId of<br>&nbsp; &nbsp; 300: begin<br>&nbsp; &nbsp; &nbsp; &nbsp;end;<br>&nbsp; &nbsp; 200: begin<br>&nbsp; &nbsp; &nbsp; end;<br>这里的MsId,300，是怎么传过来的，请细说明

才50分啊。太小气了。 <br><br>var<br>&nbsp; pin, pOut: TAstaParamList;<br>&nbsp; fmStr: string;<br>begin<br>&nbsp; FormatClientSocket(ParaStr);<br>&nbsp; fmStr := ParaFromStr('DTFormat', ParaStr);<br>&nbsp; if fmStr = '' then<br>&nbsp; &nbsp; fmStr := 'yyyy-mm-dd hh:mm:ss.zzz';<br>&nbsp; PIn := TAstaParamList.Create;<br>&nbsp; Pout := TAstaParamList.Create;<br>&nbsp; try<br>&nbsp; &nbsp; pout.FastAdd('FormatStr');<br>&nbsp; &nbsp; pout[0].Value := fmStr;<br>&nbsp; &nbsp; pin := f_dm.CS.SendGetCodedParamList(3001, Pout);<br>&nbsp; &nbsp; Result := PChar(Pin[0].AsString);<br>&nbsp; finally<br>&nbsp; &nbsp; pOut.Free;<br>&nbsp; &nbsp; pin.Free;<br>&nbsp; end;

to :aerobull有QQ号码

多人接受答案了。