晴 晴 Unregistered / Unconfirmed GUEST, unregistred user! 2002-10-29 #1 服务器:定义了以olevarriant变量,传递Tstrings 客户端:获取olevariant的内容。
晴 晴 Unregistered / Unconfirmed GUEST, unregistred user! 2002-10-29 #2 服务器传递tstrings: p1levariant; begin ..... p1:=varArraycreate([0,strs.Count],varolestr); for i:=0 to strs.Count-1do begin p1:=strs.Strings; end; end;
服务器传递tstrings: p1levariant; begin ..... p1:=varArraycreate([0,strs.Count],varolestr); for i:=0 to strs.Count-1do begin p1:=strs.Strings; end; end;
Y yanghai0437 Unregistered / Unconfirmed GUEST, unregistred user! 2002-10-29 #3 p1levariant; begin ..... p1:=varArraycreate([0,strs.Count],varolestr); for i:=0 to strs.Count-1do begin p1:=String(strs.Strings); end; end;
p1levariant; begin ..... p1:=varArraycreate([0,strs.Count],varolestr); for i:=0 to strs.Count-1do begin p1:=String(strs.Strings); end; end;
晴 晴 Unregistered / Unconfirmed GUEST, unregistred user! 2002-10-29 #5 to yanghai0437: 请问客户端怎样取得这些数据呢?
I idon Unregistered / Unconfirmed GUEST, unregistred user! 2002-10-29 #6 定义一个TStringList ; aList : TStringList; aList := TStringList.create; aList.CommaText := varolestr; Ok!
定义一个TStringList ; aList : TStringList; aList := TStringList.create; aList.CommaText := varolestr; Ok!