某些地方竟然还要用到SHA256加密方式, 从网上找了下,自己加工了下就一个pas文件 D2007测试无问题 汉字需转化成UTF8格式, Result:=SHA256String(AnsiToUtf8(mystring));
2024-01-13 15:05:16 9KB SHA256
1
用Delphi+DirectShow实现的视频播放器,可用于游戏片头播放,很好用的。
2023-12-15 13:04:28 5KB 视频播放 delphi 视频解码
1
delphi线程池单元文件uThreadPool.pas,用法如下 type TRecvCommDataWorkItem=class(TWorkItem) public // updatetime,addtime:TDateTime; // orderid,ordertype,urljson,loadcount,savepath:string; url,Filename:string; total,order:Integer; _orderid:string; failedcount:Integer; IFCoverFile:Boolean; // 线程处理请求时触发的事件 procedure DealwithCommRecvData(Sender: TThreadsPool; WorkItem: TWorkItem; aThread: TProcessorThread); // 线程初始化时触发的事件 procedure TProcessorThreadInitializing(Sender: TThreadsPool; aThread:TProcessorThread); // 线程结束时触发的事件 procedure TProcessorThreadFinalizing(Sender: TThreadsPool; aThread:TProcessorThread); //任务队列空时触发的事件 procedure TQueueEmpty(Sender: TThreadsPool; EmptyKind: TEmptyKind); end; 先声明一个类 然后用法 FThreadPool := TThreadsPool.Create(nil); // 创建线程池 FThreadPool.ThreadsMin := 10; // 初始工作线程数 FThreadPool.ThreadsMax := 100; // 最大允许工作线程数 AWorkItem := TRecvCommDataWorkItem.Create; ISAllOverLoad:=False; AWorkItem.url:=urljson; AWorkItem.order:=i; AWorkItem.total:=JA.Count; AWorkItem.Filename:=savefilepath; AWorkItem._orderid:=orderid; AWorkItem.IFCoverFile:=IFCoverFile; FThreadPool.AddRequest(AWorkItem,True); // 向线程池分配一个任务 FThreadPool.OnProcessRequest := AWorkItem.DealwithCommRecvData; FThreadPool.OnThreadInitializing := AWorkItem.TProcessorThreadInitializing; FThreadPool.OnThreadFinalizing := AWorkItem.TProcessorThreadFinalizing; FThreadPool.OnQueueEmpty := AWorkItem.TQueueEmpty; 仔细看下线程池单元的函数说明轻松搞定。 procedure TRecvCommDataWorkItem.TQueueEmpty(Sender: TThreadsPool; EmptyKind: TEmptyKind); begin if EmptyKind=ekProcessingFinished then begin try if Assigned(geturl) then //存在的bug 如果下载文件存在的不行 begin //Sleep(200); //激活线程可能会发生在 休眠之前!! ISAllOverLoad:=True; if geturl.Suspended then //只有线程休眠了 才应该激活线程 否则不应该激活 geturl.Resume; end; finally end; end; end;
2023-04-13 14:54:51 28KB delphi线程池
1
sndKey32.pas 回车键 Delphi中的SendKeys函数 - sndKey32.Pas 下载
2022-12-09 14:55:58 9KB sndKey32.pas
1
不错的反编译工具,把Delphi的dcu文件反编译为PAS文件,对一些不提供源代码的控件能有效的得到PAS文件,仅供参考学习。 用法,勾上"save file to"复选框,填入.pas后缀,在左框中双击要反编译的DCU文件即可!
2022-12-07 13:50:35 403KB DCU PAS 反编译
1
位图数据处理,主要用于位图的找图找色:BitmapData.pas 實現按键精靈的功能:kbKernel.pas
2022-11-22 18:58:11 10KB 找图找色
1
全生命周期LCA评价的碳足迹 PAS2050中文版规范和中文使用指南
2022-09-07 23:31:24 11.96MB 碳足迹 LCA 规范 使用指南
1
ISO PAS 5112-2022
2022-07-19 16:00:07 325KB ISO5112
1
delphi设置屏幕亮度 for windows 封装成独立单元,并有调用注释 直接加入到项目中调用即可
2022-07-16 00:59:38 1KB delphi 屏幕亮度 pas unit
1
人工智人-家居设计-基于SICAM PAS系统的智能变电站研究与设计.pdf
2022-07-14 11:04:40 1.66MB 人工智人-家居