摘要：
type TO_MONITOR = class hm: HMONITOR; end;function EnumMonitorsProc(hm: HMONITOR; dc: HDC; r: PRect; Data: Pointer): Boolean; stdcall;var L: TList; M: TO_MONITOR;begin L := TList(Data); M := TO_MONITOR.Create; M.hm:= hm; L.Add(M); Result := True;end;procedure TFormVedio.FormShow(Sender:... 阅读全文
摘要：
IdTcpServeruses IdContext //需要引用属性,方法：IdTCPServer.Active :=True; //开启服务器IdTCPServer1.Bindings.Add.IP := '127.0.0.1';//绑定IPIdTCPServer1.Bindings.Add.Port := 7956;//绑定端口事件:OnConnect : 客户端连接成功触发OnDisConnect : 客户端断开触发OnExeCute : 收到客户端数据触发例子//像所有客户断发送数据varI: Integer;Context: TIdContext;beginwith 阅读全文
摘要：
interfaceuses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Classes, FMX.Forms, FMX.Platform.Win, FMX.Types, FMX.Layouts, FMX.Memo;type TForm1 = class(TForm) Memo1: TMemo; procedure FormCreate(Sender: TObject); procedure FormDestroy(Sender: TObject); private FHwnd: HWND; /... 阅读全文
摘要：
lockbox3 地址： https://svn.code.sf.net/p/tplockbox/code/truncindy10 地址：https://svn.atozed.com:444/svn/Indy10/trunk UID：Indy-Public-RO 阅读全文
摘要：
1公钥加密，私钥解密 OK反过来， 私钥加密，公钥解密 也OK2 使用RSA加密 对称算法的key ,用对称算法加密 消息。伙伴收到消息后，RSA解密出 对称算法的key,再用这个key去解密消息。3 私钥包含私有和公有两部分。因此，我们可以导入私钥，然后选择使用公钥或者私钥进行，加密，解密 操作。4 签名时使用私钥， 签名时可以使用的签名方式。 SHA-1 , MD5, SHA256, SHA512等。 签名值编码方式： base64, hex等 签名内容的字符集：UTF-8 等 较验签名时：需要 内容，签名值，公钥。 阅读全文
摘要：
RSA算法原理（一）如果你问我，哪一种算法最重要？我可能会回答"公钥加密算法"。因为它是计算机通信安全的基石，保证了加密数据不会被破解。你可以想象一下，信用卡交易被破解的后果。进入正题之前，我先简单介绍一下，什么是"公钥加密算法"。一、一点历史1976年以前，所有的加密方法都是同一种模式： （1）甲方选择某一种加密规则，对信息进行加密； （2）乙方使用同一种规则，对信息进行解密。由于加密和解密使用同样规则（简称"密钥"），这被称为"对称加密算法"（Symmetric-key algorithm）。这种加密模式有一个 阅读全文
摘要：
var pc: ^DWORD; c: DWORD; ppc: ^PDWORD;begin c := 7833423; pc := @c; ppc := @pc; ShowMessage( IntToStr(PDWORD(ppc^)^) ); 阅读全文
摘要：
function Post(AURL: string; ASource: TIdStrings): string; overload; function Post(AURL: string; ASource: TStream): string; overload; function Post(AURL: string; ASource: TIdMultiPartFormDataStream): string; overload; procedure Post(AURL: string; ASource: TIdMultiPartFormDataStream; AResponseConte... 阅读全文
摘要：
VclZip用法详 转载Vclzip控件主要的类为TVclUnZip 和TVclZip 其中，TVclZip继承自TVclUnZip。function Zip(ZipMode,PackSize:Integer;ZipFile,UnzipDir:String):Boolean; //压缩或解压缩文件var ziper:TVCLZip;begin//函数用法：Zip(压缩模式，压缩包大小，压缩文件，解压目录)//ZipMode为0：压缩；为1：解压缩 PackSize为0则不分包；否则为分包的大小tryif copy(UnzipDir, length(UnzipDir), 1) = '\& 阅读全文
摘要：
alphal - 内部测试版beta - 外部测试版demo - 演示版Enhance - 增强版或者加强版,属于正式版Free - 自由版Full version - 完全版, - 属于正式版shareware - 共享版Release - 发行版, - 有时间限制Upgrade - 升级版Retail - 零售版Enterprise - 企业版Cardware - 属共享软件的一种，只要给作者回复一封电邮或明信片即可。(有的作者并由此提供注册码等)，目前这种形式已不多见。Plus - 属增强版, - 不过这种大部分是在程序界面及多媒体功能上增强。Preview - 预览版Corporati 阅读全文