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 在ie上增添一个按钮

Delphi pc喇叭发声

Delphi 获取中文/数字星期的函数

Delphi word文档内容批量替换

Delphi判断字符串是否是数字、字母、大小写字母

Delphi 两个exe之间共享数据

Delphi 的内存操作函数(6): 跨进程的内存分配

Delphi application.title在win7下失效了？

Delphi 查看所有的串口设备

Delphi 网页数据抓取

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

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