开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Delphi控件源码 > 查看源码
ucopyfile.pas
资源名称：varian_led_studio_3.34.rar　[点击查看]
上传用户：hbszzs
上传日期：2008-08-20
资源大小：628k
文件大小：3k
源码类别：

Delphi控件源码

开发平台：

Delphi

ucopyfile.pas：源码内容
  1. unit ucopyfile;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   VrControls, ExtCtrls, StdCtrls, VrBorder, VrProgressBar, VrSystem,
  8.   VrButtons;
  10. type
  11.   TForm1 = class(TForm)
  12.     VrCopyFile1: TVrCopyFile;
  13.     Edit1: TEdit;
  14.     Label1: TLabel;
  15.     Edit2: TEdit;
  16.     Label2: TLabel;
  17.     VrProgressBar: TVrProgressBar;
  18.     Label3: TLabel;
  19.     VrDemoButton1: TVrDemoButton;
  20.     VrDemoButton2: TVrDemoButton;
  21.     VrDemoButton3: TVrDemoButton;
  22.     OpenDialog: TOpenDialog;
  23.     VrDemoButton4: TVrDemoButton;
  24.     VrDemoButton5: TVrDemoButton;
  25.     procedure VrDemoButton1Click(Sender: TObject);
  26.     procedure VrDemoButton2Click(Sender: TObject);
  27.     procedure VrDemoButton3Click(Sender: TObject);
  28.     procedure VrDemoButton4Click(Sender: TObject);
  29.     procedure VrDemoButton5Click(Sender: TObject);
  30.     procedure Edit2Change(Sender: TObject);
  31.     procedure VrCopyFile1BeforeOpen(Sender: TObject; Size: Integer; Date,
  32.       Time: TDateTime);
  33.     procedure VrCopyFile1Progress(Sender: TObject; BytesCopied: Integer;
  34.       var Cancel: Boolean);
  35.     procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
  36.     procedure VrCopyFile1BeforeOverwrite(Sender: TObject;
  37.       var Overwrite: Boolean);
  38.     procedure VrCopyFile1AfterCopy(Sender: TObject);
  39.   private
  40.     { Private declarations }
  41.   public
  42.     { Public declarations }
  43.   end;
  45. var
  46.   Form1: TForm1;
  48. implementation
  50. {$R *.DFM}
  52. procedure TForm1.VrDemoButton1Click(Sender: TObject);
  53. begin
  54.   if OpenDialog.Execute then
  55.     Edit1.Text := OpenDialog.FileName;
  56. end;
  58. procedure TForm1.VrDemoButton2Click(Sender: TObject);
  59. begin
  60.   if OpenDialog.Execute then
  61.     Edit2.Text := OpenDialog.FileName;
  62. end;
  64. procedure TForm1.VrDemoButton3Click(Sender: TObject);
  65. begin
  66.   VrCopyFile1.SourceFile := Edit1.Text;
  67.   VrCopyFile1.DestFile := Edit2.Text;
  68.   try
  69.     VrCopyFile1.Execute;
  70.   except
  71.     raise; //use deault exception handling
  72.   end;
  73. end;
  75. procedure TForm1.VrDemoButton4Click(Sender: TObject);
  76. begin
  77.   VrCopyFile1.Terminate;
  78. end;
  80. procedure TForm1.VrDemoButton5Click(Sender: TObject);
  81. begin
  82.   Close;
  83. end;
  85. procedure TForm1.Edit2Change(Sender: TObject);
  86. begin
  87.   VrDemoButton3.Enabled := (Trim(Edit1.Text) <> '') and (Trim(Edit2.Text) <> '')
  88. end;
  90. procedure TForm1.VrCopyFile1BeforeOpen(Sender: TObject; Size: Integer;
  91.   Date, Time: TDateTime);
  92. begin
  93.   VrProgressBar.Position := 0;
  94.   VrProgressBar.Max := Size;
  95.   VrDemoButton3.Enabled := false;
  96.   VrDemoButton4.Enabled := True;
  97. end;
  99. procedure TForm1.VrCopyFile1Progress(Sender: TObject; BytesCopied: Integer;
  100.   var Cancel: Boolean);
  101. begin
  102.   VrProgressBar.Position := BytesCopied;
  103. end;
  105. procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
  106. begin
  107.   VrCopyFile1.Terminate;
  108. end;
  110. procedure TForm1.VrCopyFile1BeforeOverwrite(Sender: TObject;
  111.   var Overwrite: Boolean);
  112. begin
  113.   if MessageDlg(VrCopyFile1.DestFile + ' already exists, overwrite?',
  114.     mtConfirmation, [mbOk, mbCancel], 0) = mrCancel then Overwrite := false;
  115. end;
  117. procedure TForm1.VrCopyFile1AfterCopy(Sender: TObject);
  118. begin
  119.   VrDemoButton3.Enabled := True;
  120.   VrDemoButton4.Enabled := false;
  121.   VrProgressBar.Position := 0;
  122. end;
  125. end.