delphi 一个文件重复生成的小工具[附源码]


本文整理自网络,侵删。

 因为项目的需要,我用Delphi开发了一个小的程序。程序的功能就是选择一个文件,而后可以指定复制多少个相同的文件,用这些复制的文件做并发上传文件用。下面附源码和可执行文件。

 源码如下:



 
unit Unit1;
 
interface
 
uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, SUIButton, Buttons, StdCtrls, ExtCtrls, SUIForm, ComCtrls;
 
type
 TForm1 = class(TForm)
 suiForm1TsuiForm;
 lbl1: TLabel;
 edt1: TEdit;
 btn1: TSpeedButton;
 lbl2: TLabel;
 edt2: TEdit;
 btn2: TsuiButton;
 btn3: TsuiButton;
 dlgOpen1: TOpenDialog;
 pb1: TProgressBar;
 procedure btn2Click(Sender: TObject);
 procedure btn1Click(Sender: TObject);
 procedure btn3Click(Sender: TObject);
 private
 { Private declarations }
 public
 { Public declarations }
 end;
 
var
 Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.btn2Click(Sender: TObject);
 var
 i:integer;
 str:string;
 begin
 
if Trim(edt1.Text)='' then begin
 Application.MessageBox('请选择要复制的源文件!''提示', MB_OK + 
MB_ICONINFORMATION);
 btn1.Click();
 Exit;
 end;
 
try
 if StrToInt(edt2.Text)<=0 then begin
 edt2.Clear;
 edt2.SetFocus;
 Exit;
 end;
 
except
 Application.MessageBox('请输入合法数值!''提示', MB_OK +
 MB_ICONINFORMATION);
 edt2.Clear;
 edt2.SetFocus;
 exit;
 end;
 pb1.Max:=StrToInt(edt2.Text);
 
if not DirectoryExists('c:/测试数据'then
 ForceDirectories('c:/测试数据');
 
for i:=1 to StrToInt(edt2.Text) do
 begin
 try
 str:='c:/测试数据/'+Copy(ExtractFileName(edt1.Text),1,Length(ExtractFileName(edt1.Text))-4)+inttostr(i)+Copy(ExtractFileName(edt1.Text),Length(ExtractFileName(edt1.Text))-4+1,4);
 CopyFile(PChar(edt1.text),PChar(str),False);
 pb1.Position:=i;
 except
 end;
 end;
 Application.MessageBox('文件生成完毕,数据存放于"c:/测试数据"目录!''提示', MB_OK +
 MB_ICONINFORMATION);
 end;
 
procedure TForm1.btn1Click(Sender: TObject);
 begin
 dlgOpen1.Execute;
 edt1.Text:=dlgOpen1.FileName;
 end;
 
procedure TForm1.btn3Click(Sender: TObject);
 begin
 Application.Terminate;
 end;
 
end.

相关阅读 >>

Delphi用idhttp.get访问一个网址返回403错误,但用ie浏览器访问正常

Delphi 监控其它进程

Delphi 验证ip地址

Delphi windows 编程[3] - 学习窗体生成的过程三

Delphi xe取得硬盘序列号代码 复制代码

Delphi webbrowser全选\复制\粘贴

Delphi中基于内容检测图片格式(非扩展名)

Delphi图像处理 -- 图像卷积

Delphi windows 编程[23] - 快捷键资源

Delphi xe6 实现ping的功能

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...

    暂无评论...