好好做一个有节操的码农，比我有能力的人，都还在学习，我没有理由不继续学习.
出售一个自己用python,django写的blog,cms程序, 适合初学者参考, 淘宝链接:django cms应用程序出售

本博客运行在阿里云上, 领取优惠券阿里云优惠券

分类: Delphi预览模式: 普通 | 列表

delphi directui 做界面的一个例子

作者:轻舞肥羊日期:2013-12-30

现在很多CS系统或者软件界面都做的非常好看，比如：QQ皮肤，迅雷下载，360杀毒界面等。这些都是运用的流行的DIRECTUI 技术，基本上有的资料都是基于C++的，很少有同仁将C++下的DIRECT UI 转换到DELPHI, 这真是个悲哀，我最近也想美化一下界面，但厌倦了皮肤控件。在CSDN上搜索到了这个例子，不过需要积分下载，我也分享在这里

Tags: delphi delphi directui directui

分类:Delphi | 固定链接 | 评论: 1 | 引用: 0 | 查看次数: 2295

delphi 神龙卡osd 的一个测试(附源码)

作者:轻舞肥羊日期:2012-10-28

这是以前在做视频点播，卡拉OK 系统的的时候，用来验证神龙卡OSD 的一个DEMO，虽然最终没有采用这个delphi版的神龙卡OSD 组件，但还是有一定参考价值的。最终项目采用了c++ 写的一个神龙卡osd 组件。神龙卡作为视频解压卡，而且是很低端的解压卡，最多也就100多块钱一个，比起海康等视频解压卡来时候，很便宜了。因为卡拉OK系统也只需要如下基本功能
1. 在电视上显示字幕(提示信息，当前播放，下一首歌曲等)
2. 在电视上显示图片(你想显示的图片)
3. 在电视上滚动字幕(广告或其他提示信息)
4. 在电视上实现视频叠加,比如喝彩，倒彩，鼓掌等。

Tags: osd osd 神龙卡神龙卡

分类:Delphi | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 583

delphi 生成网页(html)报表

作者:轻舞肥羊日期:2012-09-25

在整理硬盘的时候，突然发现了这个小东西，回想起来是好多年前给永恩集团 (达芙妮) 做连锁POS系统的时候做的一个用DELPHI 生成HTML报表的测试(我已经5年没用DELPHI 了)。为什么要求这么变态？
我当初给达芙妮用 fastreport 做了一个报表，格式和数据展示完全满足要求，但最终被拒绝了，其原因是，他们原来有一套oracle erp 的打印就是用HTML 网页形式打印的。我很崩溃，我记得oracle 里面的 report builder 也很强的，为什么不用？其实到现在我仍然坚持用fastreport 做是对的，但当时，人家是客户，非得用html 的，你也没办法,人家就喜欢在浏览器里点右键打印，哎，这年头，什么样的需求都有。

当时这个团队没有去坐调研，我只好抽晚上空余时间，看了下资料，解决了这个问题，其实很简单，纯体力活。
delphi 里面有 webbrowser 控件，在这个上面直接输出html 代码就可以了。你可以先用html做好一个模板，然后往里面填写数据即可。

Tags: delphi delphi

分类:Delphi | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 907

delphi 监控 USB 端口(附源码下载)

作者:轻舞肥羊日期:2012-09-15

前段时间，有朋友问我，可以不可以写个程序监控USB端口，效果要求如下：

1. 插入USB 端口的时候，系统将自动打开一个网页，这个网页地址，当然是可以配置在配置文件中的。还可以定义提示消息。

2.当拔出USB的同时，也必须给出提示，或者记录日志，或在数据库中记录。

这应该是个功能很简单，不难的小程序，于是我就答应了他，先做一个简单的POC，验证是否可行。

Tags: delphi delphi usb usb

分类:Delphi | 固定链接 | 评论: 1 | 引用: 0 | 查看次数: 3432

用delphi 7 实现的一个简易 FTP 软件

作者:轻舞肥羊日期:2012-08-24

在做网站的时候，少不了用FTP,我们通常会用 flashxp. FileZilla,cuteftp,8uftp 等等。难道FTP 就仅仅适用于做网站吗？不是的，FTP 是文件传输协议。涉及到文件传输的系统，都可以用FTP来实现，关键是看具体的项目是不是适合用FTP来解决。
像网站这种系统，就适合用FTP，但如果是对系统要求比较高，在传输文件的时候，还要做其它处理等。甚至可能直接用底层的SOCKET用流得方式传文件，更好的自己控制，扩展。当然FTP 也是基于TCP/IP SOCKET 实现的。

上面提到的是使用人家的FTP软件。但有的项目需要自己集成FTP客户端来实现文件的上传下载。集成的好处是：
1.有较好的用户体验。用户在一个系统中完成所有的事情，不需要切换。

Tags: delphi delphi ftp ftp

分类:Delphi | 固定链接 | 评论: 32 | 引用: 0 | 查看次数: 3722

一套des3算法包括javascript,php,delphi,版本。

作者:轻舞肥羊日期:2012-03-20

本来是自己做的东西需要加密用的，但后来不合适，因为我用的是python,delphi, 我用这种方式也写了一个python des3 但好像有问题。原因在于 python 位运算不溢出，直接int 变成了long ,就导致结果出问题了，
即使能加密，解密也不准确了。所以暂时放弃。希望那位兄弟能够完善。

程序代码

# -*- coding:gbk -*-

分类:Delphi | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 1452

Delphi中DBGrid 美化

作者:轻舞肥羊日期:2010-04-27

在 Delphi 语言的数据库编程中，DBGrid 是显示数据的主要手段之一。但是 DBGrid 缺省的外观未免显得单调和缺乏创意。其实，我们完全可以在我们的程序中通过编程来达到美化DBGrid 外观的目的。通过编程，我们可以改变 DBGrid 的表头、网格、网格线的前景色和背景色，以及相关的字体的大小和风格。
    以下的示例程序演示了对 DBGrid 各属性的设置，使 Delphi 显示的表格就像网页中的表格一样漂亮美观。
    示例程序的运行：
    在 Form1 上放置 DBGrid1、Query1、DataSource1 三个数据库组件，设置相关的属性，使 DBGrid1 能显示表中的数据。然后，在 DBGrid1 的 onDrawColumnCell 事件中键入以下代码，然后运行程序，就可以看到神奇的结果了。本代码在 Windows98、Delphi5.0 环境下调试通过。
procedure TMainForm.DBGrid1DrawColumnCell(Sender: TObject;

Tags: delphi delphi grid grid

分类:Delphi | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 755

activex和javascript交互(delphi版本)

作者:轻舞肥羊日期:2009-11-22

利用Delphi的ActiveForm，可以很方便地开发出可以嵌入IE的ActiveX组件，无需知道太多幕后的COM知识。如何使得OCX可以很方便地调用Web上的JavaScript函数呢，研究了一个下午，使用ActvieForm的Events接口搞定。说穿了不值钱，只要一句代码就搞定，但是Google半天，琢磨了N久，看来还是基本功不扎实。

首先在ActiveForm的项目中找到ridl文件，打开它，选择ActiveForm的Events接口，点击右键，建立一个新的方法，方法名为我需要调用javascript的函数名。这里我要调用一个JS的上传图片脚本，所以将其命名为“OnUploadPic”。得到这个事件的ID，这里是209

分类:Delphi | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 1696

activex调DLL在网页上调用.

作者:轻舞肥羊日期:2009-11-22

在ACTIVEX中调用DELPHI 写的DLL, 网上有很多说要在DRP文件中第一个必须use shareMem 单元。这样就不会报错，其实不然，在调用时，不会报错，在关闭应用程序时，就报错了，所以没有根本解决问题。

其实是可以不用use shareMem 的，即使有函数返回值，如果返回值是string ,将它改成pchar 吧。这样通用性强很多的。

其实调用早就成功的，很简单的，但我一直忽略了 pchar 这个东西，导致调用到最后出异常，虽然结果是对的，但用户看到就不好了。

Tags: delphi delphi activex activex

分类:Delphi | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 615

DELPHI ftp 断点续传(indy)

作者:admin 日期:2009-02-17

Indy不仅支持下载断点续传，也支持上载断点续传，而且不需要对Indy做出改造。
在Blues的blog，他提到可以“通过IDFTP得到服务端已经上传的部分的SIZE，然后通过文件流在本地建立剩余部分的临时文件，然后以APPEND方式上传，传完后删除临时文件，达到上传断点续传的效果”。原文在此：DELPHI ftp 上传断点续传的实现(http://www.beginlove.net/blog/article.asp?id=172)。
我再仔细看了Indy的源码，发现不需要临时文件。可以对Blues的方法作出重大改进：
Put()方法第一个参数可以是TStream（实际上，如果是文件名的话Indy会建立Stream，然后再调用Stream的Put方法）。而且如果Append设为True的话，Indy不会去动Stream的Position：

Tags: delphi delphi ftp ftp indy indy

分类:Delphi | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 1348