2015年4月10日
可逆加密解密单元文件和调用方法
摘要： 1 (**************************************************) 2 (* *) 3 (* Advanced Encryption Standar... 阅读全文
posted @ 2015-04-10 17:03 海蓝7 阅读(783) 评论(0) 推荐(0)
监控中
摘要： 非全屏BorderStyle := bsSizeable; 1 procedure TFrmMain.N2Click(Sender: TObject); 2 begin 3 { Position form } 4 Top := 0 ; 5 Left := 0 ; 6 { ... 阅读全文
posted @ 2015-04-10 16:43 海蓝7 阅读(168) 评论(0) 推荐(0)
5、利用控件TVCLZip和TIdFTP压缩文件并上传到FTP的线程单元pas 改进版
摘要： 用到临界区 保护写日志的函数； 递归函数 删除目录下的所有文件； 循环创建或判断FTP的目录； 可改进的地方：循环压缩深层次目录的所以文件； 实现断点续传，或断点下载； 阅读全文
posted @ 2015-04-10 16:27 海蓝7 阅读(634) 评论(0) 推荐(0)
Delphi7 客户端调用WebService（天气预报）
摘要： 客户程序：第一步：新建一个Application。第二步：File----->New----->Other------>WebServices----->WSDLImporter 然后在LocationofWSDLFileorURL中填入：http://10.22.30.61:36601/Mon... 阅读全文
posted @ 2015-04-10 16:02 海蓝7 阅读(1995) 评论(0) 推荐(0)
indy10的 TIdHTTPServer 和客户端TIdHTTP控件
摘要： //抓取服务器 的TIdHTTPServer初始化和侦听函; //开奖服务器 的TIdHTTPServer初始化和侦听函; //投注接口服务器 程序关闭是要先关闭 dmMain.Main_IdHTTPServer.StopListening; 阅读全文
posted @ 2015-04-10 14:11 海蓝7 阅读(2205) 评论(0) 推荐(0)
操作TAB文件和TStringGrid赋值；
摘要： unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,IniFiles, Grids, ExtCtrls, But... 阅读全文
posted @ 2015-04-10 13:59 海蓝7 阅读(275) 评论(0) 推荐(0)
《用delphi开发共享软件》-桌面提示器-utPublic公共函数
摘要： unit utPublic;(*****公共函数：有关通讯字符串转换，列表操作......****)interfaceuses SysUtils, Windows, Messages, Classes, Controls,Registry, StdCtrls, Grids, ExtCtrls,... 阅读全文
posted @ 2015-04-10 09:58 海蓝7 阅读(321) 评论(0) 推荐(0)