用NMStrm和NMStrmServ发送文件的简单问题

Question

不知道，但你可以在流数据里面补充文件名。
大概是这样子:
var
   myStream:TFileStream;
   filename:String;
begin
   myStream:=TFileStream.create('yourfile');
   filename:='yourfile';
   myStream.Seek(0,soFromEnd);
   myStream.writebuffer(pointer(filename)^,length(filename));
end;   

Answer 1

我用过这控件：
  大致如下：
1.客户端：
var 
  AfileStream:TFileStream;
  FileName:String;
begin
  FileName:='YourFile';
  AfileStream:=TFileStream.Create(FileName,fmOpenRead);
  NMstrm.Host:=Ty;//服务器端机器名；
  Nmstrm.FromName:=ExtractFileName(FileName);//可以再加上其他你要传递的信息！
  Try
    Nmstrm.PostIt(AfileStream);
  Finally
    AfileStream.free;
  end;
end;
2.服务器端：
  在NmstrmServ的接收事件写如下代码：
var AfileStream:TFileStream;
    FileName:String; 
begin
  FileName:=//此处用来接收传递的文件名，这个事件有一个参数，用来接受传递的字符串；
  AfileStream:=TFileStream.Create('c:\'+FileName,fmCreate);
  Try
    AfileStream.Copy(strm,strm.Size)//'strm'也是此事件的一个参数；
  finally
    AfileStream.free;
  end;
end;

Answer 2

如仍有疑问：
E-Mail:[email protected];
Oicq:15957198;
祝：好运！双节愉快！