谁能给个indy10服务器给客户端传xml文件的例子

Question

如题。

Answer 1

传XML和传其他文件有什么区别吗? 用Indy的FTP

Answer 2

    F := TFileStream.Create(filename,fmCreate);
    try
      AContext.Connection.IOHandler.LargeStream := True;
      AContext.Connection.IOHandler.ReadStream(f,fSize);
      AContext.Connection.IOHandler.LargeStream := false;
      AContext.Connection.IOHandler.WriteLn('RecOk');
    finally
      FreeAndNil(F);
    end;         F := TFileStream.Create(fileName,fmOpenRead);
         client.IOHandler.Writeln(Inttostr(F.Size));
         client.IOHandler.WriteLn(ExtractFileName(fileName),enUTF8);
         client.IOHandler.LargeStream := True;
         client.IOHandler.write(F,f.Size);
         Response := client.IOHandler.readln;
         if lowercase(Response) = 'recok' then
         begin
           client.IOHandler.WriteLn('over');
           client.Disconnect;
         end;
         freeAndNil(F);