客戶端怎樣傳遞陣列類型的參數到中間層?(没有测试过)

發表人 上一篇主題 主題  (回應篇數:2/閱讀次數:254)下一篇主題  
databeginner
會員

男22
China
5 篇發表文章
0 分答題得分
1 分總積分		 發表於 - 2003/06/16 :  19:25:59  顯示此篇文章發表者的個人資料  寫信給文章發表人  回應此文章並加上原文引言
客戶端:
var at:array of string;
begin
SocketConnection.AppServer.array_test(at);
end;
中間層
取出at的值.

發表人 - Mickey 於 2003/06/17 15:17:27

mustapha.wang
五星級會員


男31
China
332 篇發表文章
73 分答題得分
570.9 分總積分		 發表於 - 2003/06/17 :  17:13:15  顯示此篇文章發表者的個人資料  寫信給文章發表人  參觀 mustapha.wang'的首頁  回應此文章並加上原文引言 

var
  AData:OLEVariant;
begin
  AData:=VarArrayCreate([0,4],varVariant);
  AData[0]:='dgfdrgtf';
  AData[1]:='3535';
....
  SocketConnection.AppServer.array_test(at); 
end;

procedure TTestServer.array_test(AData:OLEVariant);
var
  i:integer;
  AList:TStringList;
begin
  AList:=TStringList.Create;
  for i:=0 to VarArrayHighBound(AData,1) do
    AList.Add(AData[i]);
.....
end;

===============
久病成良医-多试移至頂端

databeginner
會員

男22
China
5 篇發表文章
0 分答題得分
1 分總積分		 發表於 - 2003/06/17 :  17:59:20  顯示此篇文章發表者的個人資料  寫信給文章發表人  回應此文章並加上原文引言
多謝mustapha.wang.


posted @ 2004-08-17 13:48  D10.天地弦  阅读(667)  评论(0)    收藏  举报