在客户端如何读取服务器的一个文件？？？？？？？？？？？

Question

1.在客户端如何读取服务器的一个文件？？？？？？？？？？？
2.是否有获取文件数据行数的函数；
3.能不能举个例子？

Answer 1

用三层吧
给你一个例子
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;

Answer 2

可以用ｔDATACLIENTSET从数据库下载数据放到本地文件来读，你可以用流的方式，比如在服务端，把那个文件读入流中，然后发到本地！！

Answer 3

我没有用过ｔDATACLIENTSET ，是否可以举个例子，有代码更好，谢谢！