z_jingxin(雪狼) 请进来

Question

实现的方法有很多种，给你举个例子吧：
Delphi下有两个控件NMStrm1、NMStrmServ1，可用于流传输，
客户端：
procedure TForm1.Button1Click(Sender: TObject);
var
  FStrm: TFileStream;//定义文件流
begin
    NMStrm1.Host :=‘指定服务器端IP地址’;
    FStrm := TFileStream.Create(指定目录文件存储的路径+文件名, fmOpenRead);
    try
      NMStrm1.PostIt(FStrm);
    finally
      FStrm.Free;
    end;  
end;
在服务器端：
procedure TForm1.NMStrmServ1MSG(Sender: TComponent; const sFrom: String;
  strm: TStream);
var
  FStrm: TFileStream;
begin
  If FileExists('.\自定义流文件名') then DeleteFile('.\自定义流文件名');
  FStrm := TFileStream.Create('.\自定义流文件名', fmCreate);
  try
    FStrm.CopyFrom(strm, strm.size);
  finally
    FStrm.Free;
  end;
end;