C chinazyk Unregistered / Unconfirmed GUEST, unregistred user! 2001-09-16 #2 在传输之前先发送标志位+文件名,接收方因标志位知道将接收文件 delete(filename,1,1)获得文件名;很容易啊!
W wql Unregistered / Unconfirmed GUEST, unregistred user! 2003-03-25 #3 是啊!吧文件名称加在信息头中即可! _HD=Record _FileS:String[81]; _SizeWord; End; Var _H:_HD; begin _H._FileS:='Command.com'; _H._Size:=93872;{假设用其他方法得到文件长度} strm1.sendbuffer(_H,sizeof(_HD));//发送信息头 strm1.sendbuffer(DataP,length);//发送数据 end;
是啊!吧文件名称加在信息头中即可! _HD=Record _FileS:String[81]; _SizeWord; End; Var _H:_HD; begin _H._FileS:='Command.com'; _H._Size:=93872;{假设用其他方法得到文件长度} strm1.sendbuffer(_H,sizeof(_HD));//发送信息头 strm1.sendbuffer(DataP,length);//发送数据 end;