摘要：
uses AnsiStrings; Function JiaMi(Src:String; Key:String):String; var KeyLen :Integer; KeyPos :Integer; offset :Integer; dest :String; SrcPos :Integer; 阅读全文
摘要：
在Delphi xe中可以直接使用 TIdHashSHA256 来实现SHA256算法，代码如下uses IdHashSHA, IdSSLOpenSSLHeaders; var SHA256 : TIdHashSHA256; SHA256 := TIdHashSHA256.Create; Passw 阅读全文
摘要：
以下程序可直接用，拷贝就可以了，希望可以起到抛砖引玉的作用。function StrDecrypt(s: string; key: word): string;var i:byte;const fc1=2; fc2=3;begin //result[0]:=s[0]; setlength(resul 阅读全文
摘要：
一 前言 对于正则表达式，相信很多人都知道，但是很多人的第一感觉就是难学，因为看第一眼时，觉得完全没有规律可寻，而且全是一堆各种各样的特殊符号，完全不知所云。 其实只是对正则不了解而以，了解了你就会发现，原来就这样啊正则所用的相关字符其实不多，也不难记，更不难懂，唯一难的就是组合起来之后，可读性比较 阅读全文
摘要：
需要引用单元 EncdDecd ，Xe验证通过。 function EncodeFile(const FileName: string): AnsiString; var stream: TMemoryStream; begin stream := TMemoryStream.Create; try 阅读全文
摘要：
最直接的方法当然是把Image的画布以图片的形式输出，这样既不用考虑画布上信息之间的相对位置，操作又简单。不过这样操作有个硬伤：图片失真。因为打印机分辨率的关系，需要在打印时将画布上的信息放大，才能匹配打印机的画布，这样难免会造成文字信息的拉伸变形。而且，使用图片打印的话，需要传输到打印机的数据就会 阅读全文
摘要：
function TfrmLabelPages.PwdImg(img: Timage): string;var I,j,k: Integer; vPoint: TPoint; vLeft: Integer; arrStr:array [1..36]of string ; strResult: str 阅读全文
摘要：
unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls, ExtCtrls;typeTForm1 = class(TForm 阅读全文
摘要：
units1;interfaceuses Windows, Messages, SysUtils, Graphics, Controls, Forms, StdCtrls, Classes;type TForm1 = class(TForm) Button1: TButton; Memo1: TMe 阅读全文
摘要：
function TForm1.DrawPicToStrSave(strFarImg1, strFont1,strSavePath: string): TBitMap;varjp1, jp: TJPEGImage;bmp_t: TBitmap;begintryjp1 := TJPEGImage.Cr 阅读全文
摘要：
以 JPEG 图片为例，以下代码演示了如何将一个 JPEG 图片保存为纯文本形式，并将其以图片形式读回并显示。保存 TXT：function TForm1.JpegToText(AFileName:string; SaveFile: Boolean; TxtFileName: string): st 阅读全文
摘要：
unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls, ExtCtrls;typeTForm1 = class(TForm 阅读全文
摘要：
unit Unit2;interfaceusesClasses,SysUtils,Dialogs,Windows;typeIthreads = class(TThread)private{ Private declarations }awer:integer;protectedprocedure E 阅读全文