用流拷贝就行了。 S := TFileStream.Create(cbLfile.Text, fmOpenRead ); T := TFileStream.Create('\\'+cbRip.Text+'\'+cbShare.Text,fmOpenWrite or fmCreate ); while s.Position < s.Size do begin len:=S.Read(buf, 100); application.ProcessMessages; T.Write(buf, len); application.ProcessMessages; progressbar1.Position := s.Position*100 div s.Size; end; T.Free; S.Free;
S := TFileStream.Create(cbLfile.Text, fmOpenRead );
T := TFileStream.Create('\\'+cbRip.Text+'\'+cbShare.Text,fmOpenWrite or fmCreate );
while s.Position < s.Size do
begin
len:=S.Read(buf, 100);
application.ProcessMessages;
T.Write(buf, len);
application.ProcessMessages;
progressbar1.Position := s.Position*100 div s.Size;
end;
T.Free;
S.Free;
本群由原来近200人精简到目前几十人的精英,淘汰了若干无助群发展的人
现在需要继续壮大本群,望有意者\高手\专家们加盟
QQ群号:29489381务必注意:加入时请看群公告内容,否则将会取消成员资格
再打命令
copy \\server\share\abcd.exe D:\这样就可以了
然后客户端通过wirteln()传输文件数据。实现局域网的传输
bruuo1.ExecuteProgram('杭州#中国','c:\test.exe','这是个测试程序');
不仅局域网,广域网都可以。
www.quickburro.com