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文件复制函数

Delphi usbkey访问、Delphi、js

Delphi opendialog1 打开多个文件

Delphiwindows 下编译 exe 文件时把一个外部 txt 文件编译到 exe 里面

Delphi 利用hook api函数openprocess与terminateprocess来防止任务管理器结束进程

Delphi xe android/ios 手势介绍

Delphi idhttp登录网站教程代码

Delphi不占cpu的延时函数

Delphi idhttp 实战用法(tidhttpex)

Delphi xe2创建apple ios程序

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

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