05 2009 档案

delphi代码块: PadL和PadR
摘要：发布自己常用的代码块, 同样哈, 只适合新手. 估计老手手里已经有一大堆了. 在做应用的时候,我们经常需要在一个字串前面或是后面补空格或0, 就是类似Oralce中PadL和PadR的功能, 比如取到的月份补2位,取到的单号补11位(前补0)等. 于是自己实现了这两个小函数. // copyright(c) hydonlee, 转载请注明原址//向左边补全, EX: PadL('123', 5,... 阅读全文
posted @ 2009-05-25 18:07 东子1573 阅读(1123) 评论(0) 推荐(0)
[另类应用]让SQL Profiler拦不到你的SQL
摘要：在开发基于MSSQL的数据库应用时, SQL Profiler帮了我的大忙. 查看作业的拼出来的SQL是否正常,查看作业的执行顺序,效率的优化等等...也同样使得所有的语句在Profiler下无所遁形. 今天突然执行了一个语句, 正好我的Profiler开着...结果发现, profiler把信息给屏蔽了!屏蔽内容如下: 原来如此!只要在执行的SQL语句中有敏感的文本(如本案中的password)... 阅读全文
posted @ 2009-05-25 17:12 东子1573 阅读(376) 评论(1) 推荐(0)
Delphi用户登录窗口框架
摘要：经常看到一些新手在CSDN上问登录窗口如何写，也看到N多人form1.show/form1.create/…中做form2.show之类。实在看不下去了。这种写法实在不是很好，于是还是把自己理解的登录框架来写写吧。希望能给新人一些引导（可不要误导了呀！） 1.登录窗口在什么地方调用？ 我说：最好在项目文件中，splash窗口显示过，一些需要加载的资源、窗口加载过后，Application.Run之... 阅读全文
posted @ 2009-05-22 11:44 东子1573 阅读(3023) 评论(4) 推荐(0)
我的博客园CSS：处理代码块
摘要：我是一个懒人，懒人就是不喜欢搞太复杂的东西。我希望我的博客比较简单，一是可以方便撰写，二是能够使页面尽量的小。 所以，在贴代码的时候，我只希望能与正文区分出来，代码比较多时，能限制大小，并按代码常用的字体来显示。其它的功能如语法高亮和代码折叠就不需要了。 先看看我设置的CSS：.code{ border: 1px solid #ccc; padding: 5px; background: #eee... 阅读全文
posted @ 2009-05-22 09:42 东子1573 阅读(628) 评论(0) 推荐(2)
也谈单点登录之WEB START(网页内启动）
摘要：说到单点登录，往往是和Portal（门户）是离不开的。通常企业中会有许多应用，WEB的或CS的。而做Portal的时候往往是做成WEB的。这时候，用户登录Portal后，如何从Portal启动本地的CS程序，就成为需要解决的问题。 不知道大家是如何解决的，我的做法是，自己实现一个协议（就象迅雷/电驴/网络蚂蚁那样），在Portal上实现一个形如协议名称://应用名称/作业?action=动作&am... 阅读全文
posted @ 2009-05-21 17:50 东子1573 阅读(951) 评论(5) 推荐(0)
实用的小对象类,提供与TStringList搭配
摘要：不知道是Borland为了偷懒还是为了效率高,很多VCL直接使用TStringList作为成员来管理数据(如:TListBox/TStringGrid), 而不是使用专门的Item类型(如:ListView就有ListViewItem类型), 这样就使得我们想扩展的时候(比如, 在一个ListBox中显示名称,并要记录ID, 而这个ID又不能显示出来), 遇到一些麻烦. 其实, StringLi... 阅读全文
posted @ 2009-05-21 15:11 东子1573 阅读(596) 评论(5) 推荐(0)
Host Python In your Application with IronPython2.0.1 (一): 创建交互环境
摘要：上一次用了以前下载的IronPython 2.0 A1版, 今天下载了正式版2.0.1,发现变化不小啊...我过时了. 原有的代码已经不能正常运行, 于是在2.0.1正式版上再调整了一下. using System;using System.Collections.Generic;using System.Text;using IronPython.Hosting;using IronPytho... 阅读全文
posted @ 2009-05-20 12:47 东子1573 阅读(497) 评论(0) 推荐(0)
Delphi启动程序的一般步骤
摘要：用Delphi开发数据库应用，一般会涉及到闪屏（Splash/封面/Logo）、登录窗口、主数据模块（或主数据库连接）以及主窗口。 看到过不小新手在写的时候，所有form和DataModule全部自动生成，主窗口为第一窗口，在主窗口的OnCreate/OnShow/OnActive/中显示Splash/显示登录窗口等… 这明显是不明智的。由于创建先后的关系，谢谢经常会出现AV错误。 说说以上几个窗... 阅读全文
posted @ 2009-05-18 15:25 东子1573 阅读(1027) 评论(5) 推荐(1)
Python处女贴：下载字体
摘要：刚刚开始学习python，在这个时代，让脚本代替人去做些事情还是很值得的。 下载吧，帮我去把某个网站上所有的字体下载下来…import urllibfrom sgmllib import SGMLParserclass URLLister(SGMLParser): def reset(self): SGMLParser.reset(self) self.urls = [] def start_a(... 阅读全文
posted @ 2009-05-12 16:42 东子1573 阅读(387) 评论(0) 推荐(0)
增强Delphi程序安全性的几个想法,提高反破解能力
摘要：“破解”在今天已经大行其道，作为开发者用得较多的Delphi，由于有其实现的特殊性，破解方式与MFC大不相同,但是在DEDE出现以后,Delphi程序的破解就变得容易起来. 结合本人在开发与破解中的经验, 将几个提高反破解能力的想法提供出来,请大家指正. 1.不要使用明码比较. 如果在程序中使用类似如下代码: if edt_SerialNo.Text = '1234567' then ...els... 阅读全文
posted @ 2009-05-12 16:35 东子1573 阅读(402) 评论(0) 推荐(0)
Delphi程序返回值
摘要：有位网友提出这样的问题：怎么给Delphi应用程序一个返回码，类似C的exit(-1)经过尝试，得到结果：Delphi的处理方式与C/C++有些不同，Delphi中对针对main或是WinMain函数的参数以及返回值的处理是通过system.pas中一些相应的变量及函数实现的。其中程序的返回值定义在System.pas中的ExitCode.所以，要想让程序返回值为1，则只需在程序中设置ExitCo... 阅读全文
posted @ 2009-05-12 16:08 东子1573 阅读(1030) 评论(0) 推荐(0)
Delphi调用BarTender7.75打印条码标签简明开发教程
摘要：摘要:本文就简单使用Delphi调用BarTender7.75之ActiveX组件打印条码的开发过程做介绍. 1. 前言 最近一个项目需要在扫描条码后按固定的格式打印。条码打印软件客户习惯使用的是BarTender，为了保持客户的习惯以及降低开发风险，决定使用Delphi调用BarTender来完成打印条码标签功能。 此功能的重点在于： a) 使用BarTender格式打印 b) 格式中... 阅读全文
posted @ 2009-05-12 16:03 东子1573 阅读(1995) 评论(2) 推荐(0)
Delphi内存出错的讨论:
摘要："Access violation at address 地址 in Module '你的应用'. 这种在Delphi的开发中普遍存在. 这种内存访问错误,往往是访问了已经Free掉的对象,或是访问还没有生成的对象. 如果这个地址为 0000000, 则一般为访问还没有创建的对象. 如果这个地址不为0 ,而是一个地址, 那可能是要访问的对象已经Free掉. 或是要访问的对象是局部变量, 但还没有创... 阅读全文
posted @ 2009-05-12 16:00 东子1573 阅读(477) 评论(0) 推荐(0)
PostgreSQL 递归实例
摘要：在QQ群里看到有人问到，pgSQL是否支持递归，于是顺手写了一个来测试，果然是支持的。CREATE OR REPLACE FUNCTION fact(n int4) RETURNS int4 AS$BODY$BEGIN IF n > 1 THEN RETURN n * fact(n-1); ELSE RETURN 1; END IF;END$BODY$ LANGUAGE 'plpg... 阅读全文
posted @ 2009-05-12 15:18 东子1573 阅读(375) 评论(0) 推荐(0)
blog搬家了
摘要：实在不能忍受CSDN的博客，决定安家博客园。 正好能够支持live writer. 以后方便了 阅读全文
posted @ 2009-05-12 15:11 东子1573 阅读(111) 评论(0) 推荐(0)