delphi7中的TNMstrm控件在bin文件夹的那个?我想装上实现进行文件传输的功能(0分)

  • 主题发起人 主题发起人 chiefwang
  • 开始时间 开始时间
C

chiefwang

Unregistered / Unconfirmed
GUEST, unregistred user!
我想装上实现进行文件传输的功能,请教高手!高分送
 
高手都去那了?
都已经好几天了,怎么就没有一点消息吗?难道真的很难?
 
client:
=========================================================
MyFStream := TFileStream.Create('tempf', fmReadWrite);
try
NMStrm1.PostIt(MyFStream);
finally
MyFStream.Free;
end;
====================================================================
server:
====================================================================
procedure TForm1.NMStrmServ1MSG(Sender: TComponent; const sFrom: String;
strm: TStream);
var
MyFileStream: TFileStream;
begin
try
If FileExists('temps') then DeleteFile('temps');
MyFileStream := TFileStream.Create('temps', fmCreate);
MyFileStream.CopyFrom(strm, strm.size);
finally
MYFileStream.Free;
end;
end;

此外就是对NMStrm的事件的处理
 
谢谢你的代码,可我用的是DELPHI7的,里面没有NMstrm的控件了!好象在安装目录的BIN文件夹里有是吗?不知是那个文件,能不能告诉我啊?谢谢!
 
C:/Program Files/Borland/Delphi6/Lib/NMSTRM.dcu
 
fastnet有for D7的吗??((有的话我也要一份。
 
后退
顶部