2015年7月13日

FireDac 的数据库批量语句提交(高效)

摘要: FD提供了批量执行功能,称为ArrayDML。可以这么做:FDQuery1.SQL.Text := 'insert into MyTab values (:p1,:p2,:p3)';// here FDQuery1.Params collection is filled by 3 parameter... 阅读全文

posted @ 2015-07-13 21:22 震撼起飞 阅读(1899) 评论(0) 推荐(0)

2015年6月23日

Delphi XE的firemonkey获取当前文件所在路径的方法

摘要: DelphiXE的firemonkey获取当前文件所在路径的方法在之前,我们知道有三种方法: ExtractFilePath(ParamStr(0)) ExtractFilePath(Application.ExeName) GetCurrentDir + '\'在firemonkey中,Windo... 阅读全文

posted @ 2015-06-23 16:51 震撼起飞 阅读(643) 评论(0) 推荐(0)

2015年6月18日

启用 TStringGrid 的自画功能,并避免重影

摘要: FMX控件的TStringGrid下,有时为了让不同行或不同Cell的显示颜色、字体等有各种不同的颜色, 必须采用自画,即在其OnDrawColumnCell事件中写自己的控制代码显示。例如: s := sgrdLog.Cells[1,Row]; if s = 'info' then ... 阅读全文

posted @ 2015-06-18 17:34 震撼起飞 阅读(493) 评论(0) 推荐(0)

2015年6月14日

Linux 封闭端口和安全

摘要: 两种方法:1、停掉没用的服务,关闭端口监听2、用iptables封闭端口########################################1、查看端口和占用服务netstat -lpn2、关闭服务,并永久停止service stopchkconfig off 阅读全文

posted @ 2015-06-14 19:10 震撼起飞 阅读(1110) 评论(0) 推荐(0)

Delphi Xe 中如何把日期格式统一处理,玩转 TDatetime

摘要: 日期格式的处理总是会很复杂,因为不同的环境日 期格式也不一样。为了程序统一处理, 最好把格式给统一了:可以在程序的初始化段: FormatSettings.ShortDateFormat := 'dd/mm/yyyy'; FormatSettings.DateSeparator := '/'; ... 阅读全文

posted @ 2015-06-14 11:16 震撼起飞 阅读(4723) 评论(0) 推荐(0)

2015年6月13日

在 mysql 中利用 Duplicate key, 一句话实现存在的更新不存在插入功能

摘要: mysql中可以用一个sql命令实现在插入时,如果发现唯一索引重复的记录则自动改为更新语句,语句如下: INSERT INTO radcheck (username,attribute,op,VALUE) VALUES ('tyson','Cleartext-Password',':=','123'... 阅读全文

posted @ 2015-06-13 10:20 震撼起飞 阅读(200) 评论(0) 推荐(0)

2015年6月12日

使用 TC 对LInux中vpn 上传下载进行限速(转)

摘要: TC 无需安装,Linux 内核自带例:将vpn IP地址段192.168.1.0/24 上传下载限速为 5M将以下内容添加到/etc/ppp/ip-up文件exit 0上面。down=5Mbitupload=5Mbit#down/sbin/tc qdisc add dev $1 root hand... 阅读全文

posted @ 2015-06-12 00:32 震撼起飞 阅读(629) 评论(0) 推荐(0)

2015年5月30日

Linux 的 Crontab 命令运用(转)

摘要: cron来源于希腊单词chronos(意为“时间”),是linux系统下一个自动执行指定任务的程序。例如,你想在每晚睡觉期间创建某些文件或文件夹的备份,就可以用cron来自动执行。 服务的启动和停止 cron服务是linux的内置服务,但它不会开机自动启动。可以用以下命令启动和停止服务: /sbin... 阅读全文

posted @ 2015-05-30 17:15 震撼起飞 阅读(303) 评论(0) 推荐(0)

2015年5月26日

远程桌面之终端服务器超出了最大允许连接数

摘要: 解决办法: 本地电脑,依次: 开始 ==> 运行 ==> 输入:mstsc /adminps:win 8的运行,可以直接按Win+R键调出 阅读全文

posted @ 2015-05-26 16:25 震撼起飞 阅读(178) 评论(0) 推荐(0)

2015年5月22日

Delphi 调用 Rest 服务的一些

摘要: 1、关于数据接收的格式测试发现获取的json源数据中间汉字的地方是乱码,导致引号不配对,引发内存错误。TIdHttp在获取数据之前,要将定义的TStringStream的Encoding设置为UTF8,才可以。var b: TStringStream; //用于接收json数据的流 s1: Str... 阅读全文

posted @ 2015-05-22 23:31 震撼起飞 阅读(1482) 评论(0) 推荐(0)

导航