TMS WEBCOPY v1.6 For D7 With Source

关键字: TMS TWEBCOPY 网络拷贝 FTP HTTP
来 自: 转载
平 台: Win2k/XP/NT,Win2003
编辑器: DELPHI7 发布时间: 2006-10-23
分 类: 互联网控件 下载浏览: 432/1137

一个不错的网络拷贝控件。

TWebCopy uses the Wininet API to load the selected files via http or ftp from Intranet or Internet sites or can copy files by UNC name over the network.
It features a progress / cancel dialog and threaded execution. 
(ASP script available to handle POST based HTTP uploads)

WebCopy can be configured to retrieve automatically only newer files w.r.t. to a configurable date.

Files to copy over the web can be easily set at design time using a Items collection or programmatically : 

HTTP:

with WebCopy.Items.Add do
begin
  URL := 'http://www.tmssoftware.com/webcopy.zip';
  Protocol := wpHTTP;
  FileDate := EncodeDate(2002,3,18);
  CopyNewerOnly := true;
  TargetDir := 'c:\temp';
end;

FTP:

with WebCopy.Items.Add do
begin
  FTPHost := ftp.tmssoftware.com
  FTPUserID := 'myuserid';
  FTPPassword := 'mypassword';
  URL := 'webcopy.zip';
  Protocol := wpFTP;
  FileDate := EncodeDate(2002,3,18);
  CopyNewerOnly := true;
  TargetDir := 'c:\temp';
end;

Network file copy:

with WebCopy.Items.Add do
begin
  URL := '\\machine\dir\webcopy.zip';
  Protocol := wpFile;
  FileDate := EncodeDate(2002,3,18);
  CopyNewerOnly := true;
  TargetDir := 'c:\temp';
end;

Multi file upload via FTP:

WebCopy.Items.Clear;
with WebCopy.Items.Add do
begin
  Protocol := wpMultiFtpUpload;
  URL := 'c:\directory\myfiles\*.txt';
  FTPHost := ftp.myserver.com;
  FTPUserID := myuserid;
  FTPPassword := mypassword;
  TargetDir := ftpserverdir;
end;
WebCopy.Execute;

Multi file download via FTP:

WebCopy.Items.Clear;
with WebCopy.Items.Add do
begin
  Protocol := wpMultiFtp;
  URL := 'ftpdirectory\*.txt';
  FTPHost := ftp.myserver.com;
  FTPUserID := myuserid;
  FTPPassword := mypassword;
  TargetDir := 'c:\localdir\ftpdownload';
end;
WebCopy.Execute;

http://www.tmssoftware.com/

Greetz to DELiGHT (hello my mate at dlt)          
Searchin' +100MBiT +1024GB NON DE/AT/LW AFFiLSiTES & a asc" dude ;)

btw BUY THiS NiCEONE COMPONENT PACK!

下载页面