在客户端如何读取服务器的一个文件？？？？？？？？？？？
1.在客户端如何读取服务器的一个文件？？？？？？？？？？？
2.是否有获取文件数据行数的函数；
3.能不能举个例子？
问题点数：0、回复次数：9Top
1 楼Jason009（我的奋斗目标：农夫 山泉 有点甜）回复于 2004-04-01 13:40:39 得分 0
upTop
2 楼menggirl（我是锄禾,你是当午）回复于 2004-04-01 13:52:28 得分 0
用三层吧
给你一个例子
Server
:unction TTT_S006_TIB.TT_S006004(const Pname: WideString;
InFrames: OleVariant): OleVariant;
var
i,j:Integer;
begin
pro.ProcedureName := pname;
// Pro.Prepared :=true;
pro.Parameters.Refresh;
with pro do
begin
j := Parameters.Count;
for i := 0 to j -2 do
parameters[i+1].value := inFrames[i];
//parameters[j - 3].value := '';
try
ExecProc;
except
end;
// result:=inttostr(j);
//result := dsp.Data;
end;
end;
客户:
procedure TForm1.Button1Click(Sender: TObject);
var
s,ss:string;
svalue: Variant;
begin
svalue := VarArrayCreate([0, 50], varVariant);
svalue[0] := '';
svalue[1] := '200403231000001';
svalue[2] := '';
//svalue[3] := 'sname';
socket.Open;
cds.Close;
ss:=socket.appserver.TT_S006004('test;1',svalue);
cds.open;
showMessage(ss);
socket.close;
end;
Top
3 楼xiaoshi0（Rain）回复于 2004-04-01 13:54:43 得分 0
同意楼上Top
4 楼hudaihong（hudaihong）回复于 2004-04-01 14:50:20 得分 0
？？？？是存储过程！！，和文件有？关系Top
5 楼Jason009（我的奋斗目标：农夫 山泉 有点甜）回复于 2004-04-01 16:08:18 得分 0
还是看不明白，可不可以再说清楚一点，谢谢！Top
6 楼qizhanfeng（glacier）回复于 2004-04-01 17:19:43 得分 0
学习Top
7 楼fokoda（风之力）回复于 2004-04-01 17:28:44 得分 0
可以用ｔDATACLIENTSET从数据库下载数据放到本地文件来读，你可以用流的方式，比如在服务端，把那个文件读入流中，然后发到本地！！Top
8 楼Jason009（我的奋斗目标：农夫 山泉 有点甜）回复于 2004-04-01 19:56:12 得分 0
我没有用过ｔDATACLIENTSET ，是否可以举个例子，有代码更好，谢谢！Top
9 楼Jason009（我的奋斗目标：农夫 山泉 有点甜）回复于 2004-04-01 20:38:38 得分 0
upTop
