客戶端怎樣傳遞陣列類型的參數到中間層?(没有测试过)
| 發表人 |  主題 (回應篇數: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 
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. | |
