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 操作webbrowser 元素值

Delphi检测鼠标指针的改变(全局)

Delphi 使用webbrowser控件获取含框架的网页的完整html代码

Delphi 日期相减 比较大小 过期时间函数

Delphi之tclientsocket和tserversocket使用tcp keepalive心跳机制实现“断网”、"断电"检测

Delphi stringgrid 实例2：1、获取 stringgrid 的行数、列数; 2、给单元赋值

Delphi 设置webbrowser 代理服务器 与 useragent

Delphi使用进行post数据时超时设置

Delphi strtodatetime 这个函数在win7下出错

Delphi指针长度

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

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