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 dll创建并调用

Delphi 获取计算机从开机开始的已运行时间

Delphi gettickcount获取电脑开机时间

Delphi tms web core 实现下载

Delphi 校验文件大小

Delphi firedac 下的 sqlite [5] - 数据的插入、更新、删除

Delphi 使用泛型的 tarray 为动态数组排序

Delphi now、date、time、currentyear - 当前日期

Delphi memo 字符串换行

Delphi cxdbtreelist：最简单的节点图标添加方法

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

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