Delphi 简单得多线程应用

本文整理自网络，侵删。

 
procedure TForm1.doHash;
var
hash:TwxzHash;
begin
  //hash:=TwxzHash.Create;
  progressbar1.Max:=5;
  progressbar1.Position:=0;
  memo1.Lines.Add('string md5');
  memo1.Lines.Add( hash.GetStringMD5( 'wwwxxxx') );
  ProgressBar1.StepBy(1);
  memo1.Lines.Add('file md5');
  memo1.Lines.Add(hash.GetFileMD5(edit2.Text));
  ProgressBar1.StepBy(1);
  memo1.Lines.Add('file sha1');
  memo1.Lines.Add(hash.GetFileSHA1(edit2.Text));
  ProgressBar1.StepBy(1);
  memo1.Lines.Add('file sha256');
  memo1.Lines.Add(hash.GetFileSHA256(edit2.Text));
  ProgressBar1.StepBy(1);
  memo1.Lines.Add('file sha512');
  memo1.Lines.Add(hash.GetFileSHA512(edit2.Text));
  ProgressBar1.StepBy(1);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
TThread.CreateAnonymousThread(dohash).Start;
end;
来源：https://www.cnblogs.com/sures/p/6044835.html
 

相关阅读 >>

Delphi 读取流 image1 stream 加载到image2 timage 对象

Delphi 获取 设置文件时间

Delphi 获取电脑进程网络连接ip端口

Delphi 根据磁盘盘符获取简单的硬盘编号

Delphi excel操作，写了个adodataset转excel的函数

fastmm5

Delphi 用代码实现为程序创建快捷方式的二种方法

Delphi deletefiles 删除目录下多个文件

用Delphi编写涂鸦桌面的小程序

Delphi分离汉字和英文字母

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

转载请注明出处：木庄网络博客 » Delphi 简单得多线程应用