08 2023 档案

带密匙的字符串加密解密函数(支持中文)
摘要：uses AnsiStrings; Function JiaMi(Src:String; Key:String):String; var KeyLen :Integer; KeyPos :Integer; offset :Integer; dest :String; SrcPos :Integer; 阅读全文
posted @ 2023-08-16 17:50 lucken 阅读(79) 评论(0) 推荐(0)
SHA256算法
摘要：在Delphi xe中可以直接使用 TIdHashSHA256 来实现SHA256算法，代码如下uses IdHashSHA, IdSSLOpenSSLHeaders; var SHA256 : TIdHashSHA256; SHA256 := TIdHashSHA256.Create; Passw 阅读全文
posted @ 2023-08-16 17:37 lucken 阅读(262) 评论(0) 推荐(1)
经常用到的加解密函数
摘要：以下程序可直接用，拷贝就可以了，希望可以起到抛砖引玉的作用。function StrDecrypt(s: string; key: word): string;var i:byte;const fc1=2; fc2=3;begin //result[0]:=s[0]; setlength(resul 阅读全文
posted @ 2023-08-16 17:36 lucken 阅读(46) 评论(0) 推荐(0)
Delphi正则表达式初学入门
摘要：一 前言 对于正则表达式，相信很多人都知道，但是很多人的第一感觉就是难学，因为看第一眼时，觉得完全没有规律可寻，而且全是一堆各种各样的特殊符号，完全不知所云。 其实只是对正则不了解而以，了解了你就会发现，原来就这样啊正则所用的相关字符其实不多，也不难记，更不难懂，唯一难的就是组合起来之后，可读性比较 阅读全文
posted @ 2023-08-16 17:22 lucken 阅读(270) 评论(0) 推荐(0)
Xe下文件转Base64编码函数
摘要：需要引用单元　EncdDecd ，Xe验证通过。 function EncodeFile(const FileName: string): AnsiString; var stream: TMemoryStream; begin stream := TMemoryStream.Create; try 阅读全文
posted @ 2023-08-16 17:20 lucken 阅读(52) 评论(0) 推荐(0)
精确打印Image画布
摘要：最直接的方法当然是把Image的画布以图片的形式输出，这样既不用考虑画布上信息之间的相对位置，操作又简单。不过这样操作有个硬伤：图片失真。因为打印机分辨率的关系，需要在打印时将画布上的信息放大，才能匹配打印机的画布，这样难免会造成文字信息的拉伸变形。而且，使用图片打印的话，需要传输到打印机的数据就会 阅读全文
posted @ 2023-08-16 17:09 lucken 阅读(91) 评论(0) 推荐(0)
模拟网站验证码
摘要：function TfrmLabelPages.PwdImg(img: Timage): string;var I,j,k: Integer; vPoint: TPoint; vLeft: Integer; arrStr:array [1..36]of string ; strResult: str 阅读全文
posted @ 2023-08-16 17:06 lucken 阅读(47) 评论(0) 推荐(0)
显示 jpg、png、gif 图片及 gif 动画
摘要：unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls, ExtCtrls;typeTForm1 = class(TForm 阅读全文
posted @ 2023-08-16 17:03 lucken 阅读(28) 评论(0) 推荐(0)
将memo转化为JPG输出
摘要：units1;interfaceuses Windows, Messages, SysUtils, Graphics, Controls, Forms, StdCtrls, Classes;type TForm1 = class(TForm) Button1: TButton; Memo1: TMe 阅读全文
posted @ 2023-08-16 17:00 lucken 阅读(33) 评论(0) 推荐(0)
在指定图片上绘制透明文字
摘要：function TForm1.DrawPicToStrSave(strFarImg1, strFont1,strSavePath: string): TBitMap;varjp1, jp: TJPEGImage;bmp_t: TBitmap;begintryjp1 := TJPEGImage.Cr 阅读全文
posted @ 2023-08-16 16:45 lucken 阅读(81) 评论(0) 推荐(0)
将图片转换成文本支持转换回去
摘要：以 JPEG 图片为例，以下代码演示了如何将一个 JPEG 图片保存为纯文本形式，并将其以图片形式读回并显示。保存 TXT：function TForm1.JpegToText(AFileName:string; SaveFile: Boolean; TxtFileName: string): st 阅读全文
posted @ 2023-08-16 16:41 lucken 阅读(47) 评论(0) 推荐(0)
文本转换图片
摘要：unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls, ExtCtrls;typeTForm1 = class(TForm 阅读全文
posted @ 2023-08-16 16:34 lucken 阅读(23) 评论(0) 推荐(0)
线程操作 创建、挂起、激活与终止
摘要：unit Unit2;interfaceusesClasses,SysUtils,Dialogs,Windows;typeIthreads = class(TThread)private{ Private declarations }awer:integer;protectedprocedure E 阅读全文
posted @ 2023-08-16 16:25 lucken 阅读(51) 评论(0) 推荐(0)
内置对象和几种定义类模式
摘要：在JavaScript中，有许多内置对象，例如：Object、Array、String、Number、Boolean、Date、RegExp、Error等。以下是一个简单的JavaScript代码片段，这些内置对象都使用了一次。每行后面都有注释，解释了代码的作用。 // 创建一个空对象var obj 阅读全文
posted @ 2023-08-14 15:22 lucken 阅读(18) 评论(0) 推荐(0)
WriteBuffer ReadBuffer String
摘要：在实际编程中，经常会用到Buffer，当string作为Buffer传值时需要注意的是 1， string的值的起始索引是1，千万记住！ 2， 有时候需要先告诉系统去开辟出内存空间，用SetLength函数。 如下代码，示范了再Move、 WriteBuffer、 ReadBuffer时候的用法： 阅读全文
posted @ 2023-08-12 16:55 lucken 阅读(44) 评论(0) 推荐(0)