2015年04月_singular2611

07月 06月 05月 04月 03月 01月

原创 Delphi2010中采用DataSnap的三层网络架构服务器获取客户端ip,端口信息

需要的控件首先要有 TDSServerModule、 TDSServer、TDSTCPServerTransport; TDSServerClass、TDataModule;实现上述功能主要控件如下图所示包含的单元包括 SysUtils, Classes, DSTCPServerTransport, DSHTTPCommon, DSHTTP, DSServ

2015-04-29 19:08:23 1976

原创 Delphi 实现右下角任务栏功能

实现软件在右下角任务栏很简单，只需要使用TTrayIcon控件，代码只要一句就可以了。指定托盘图标, 有几种用法: 1、设计时选择; 2、把一个 TIcon 对象给它; 3、使用当前程序图标: TrayIcon1.Icon := Application.Icon; 4、TrayIcon1.SetDefaultIcon; 这也是使用当前程序图标. 一般使用这个功能都是像QQ那样，关闭QQ

2015-04-29 18:34:08 2897

原创 Delphi中Undac控件连接MYSQL数据库问题总结

1、数据库挂到cxgrid上，中文显示不正确我调试了好长时间，怀疑是编码问题，mysql的编码方式我都试过了，都不可以。解决问题过程：（1）、在dos系统下进入mysql数据库输入show variables like ‘char%’; 我考虑可能是character_set_connection的编码有问题，于是开始设置它的编码方式，但是，这个编码方式重新启动数据库还是原来的编码方式

2015-04-29 18:22:02 1502

原创简单的把SQLite数据导入Mysql库

最近在做实验室器材管理系统，之前用的是SQLite数据库，因为是网络版的，更换成Mysql数据库，大量的数据手动敲进太慢了，有没有一下导入的方法呢？这里本人没有深挖，只是完成了自己的任务，我首先是把sqlite数据库中的字段在HeidiSQL里面建立好的。网上最常用的两种方式是通过导出sql和导出csv来实现，这里尝试了通过CSV的方法实现数据转移。 SQLite工具我用的SQLiteSt

2015-04-24 16:09:48 3486

原创 Delphi中ListView中实现自定义删除功能的方法

第一种：有时删除文件会出现文件删不掉现象 if lvMain.InnerListView.ItemIndex <> -1 then begin// DoContextMenuVerb(lvMain.SelectedFolder, 'delete');DoContextMenuVerbB(lvMain.Folders[lvMain.InnerListView.ItemIndex], 'd

2015-04-12 21:50:47 1527

原创 delphi 中一种好用的数组定义方法以及函数嵌套的使用源代码

type TArr = array of integer;function abc(a:integer):Tarr; var tempArr:TArr; begin setlength(tempArr,2); tempArr[0] := a; tempArr[1] := a + 10; result:=tempArr;

2015-04-09 09:38:24 1289

转载 Override和Overload 分析

override（重写，覆盖） 1、方法名、参数、返回值相同。 2、子类方法不能缩小父类方法的访问权限。 3、子类方法不能抛出比父类方法更多的异常(但子类方法可以不抛出异常)。 4、存在于父类和子类之间。 5、方法被定义为final不能被重写。 overload（重载，过载） 1、参数类型、个数、顺序至少有一个不相同。 2、不能重载只有返回值不同的方法名。 3、存在于父

2015-04-05 12:06:09 486

原创 delphi的多线程实现和线程与进程的关系说明

做了个多线程的测试Demo unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Unit2;type TForm1 = class(TForm)lbl1: TLabel;btn1: TB

2015-04-05 11:41:30 1542

已经使用CnPack好几年了，这个插件太好了，现在离开它我都不会写代码了，现在将使用心得与大家分享一下：1.代码助手非常好用，只需要输入几个字符后，自动出现提示列表，真是懒人的福音呀。2.代码高亮很方便，【源代码高亮扩展】->【允许光标处匹配当前标示符背景高亮显示】选项（此选项默认不打开）打开后，鼠标在某个标示符点一下后，屏幕内相同的标示符都会自动背景加亮显示，可以一目了然的看到该标示符的引用情况。

2015-04-05 11:02:32 4100

原创 TcxShellListView添加文件

procedure TFormSystemTree.N29Click(Sender: TObject);var tmpStr: string; // 添加文件..begin if OpenDialog1.Execute() then begintmpStr := lvMain.Path + '\' + ExtractFileName(OpenDialog1.filename);

2015-04-02 23:05:04 677

原创 TcxShellListView自定义打开文件夹和文件功能

这是完成自定义打开文件和文件夹功能procedure TFormSystemTree.N24Click(Sender: TObject);var SEI: TShellExecuteInfo;//对文件夹或文件操作参数结构体begin if lvMain.InnerListView.Selected <> nil then beginif lvMain.Folders[lvMain

2015-04-01 23:20:46 1233