李正己-CSDN博客

原创调用 RasGetEntryProperties 函数出现“检测到一个不正确的结构大小”处理方法

Delphi 中调用拨号的API函数，总是出现错误“检测到一个不正确的结构大小”。下面是函数的声明function RasGetEntryPropertiesW( lpszPhonebook: PChar; lpszEntry: PChar; lpRasEntry:

2016-10-18 11:58:50 1787

原创 Delphi 自带的字符串分割函数split

下面介绍Delphi自带的字符串分割函数，根据你的需要来使用。1、ExtractStringsfunction ExtractStrings(Separators, WhiteSpace: TSysCharSet; Content: PChar; Strings: TStrings): Integer; 第一个参数是分隔符，可以是多个，例如 [';',',',':'] 可以按分

2016-10-10 10:30:20 36537

原创 DBGridEh, DBGrid显示如何按指定合适显示日期时间

显示日期格式有多种，例如：2016-9-30 14:31:202016/09/30 14:31:20想要在Delphi编写出程序DBGridEh DBGrid组件中显示固定格式可以采取下面几种方法。修改计算机的日期、时间默认显示格式，win 7 下的方法：在屏幕右下角显示日期时间的地方点鼠标右键，菜单中选择“调整日期和时间”->更改日期和时间->更改日历设置，打开自定义

2016-09-30 14:42:21 3359

原创 Delphi FireDAC 出现Variable length column[*] overflow. Value length - [80], column maximum length

遇到这个问题很奇怪，FireDAC的 TFDQuery组件访问SQLlite数据库，使用insert into语句插入一条数据长度为80的字符串，但是用 select * from 查询的时候却出现异常：Variable length column[Namee] overflow. Value length - [80], column maximum length - [40].，出现错误的原因

2016-09-29 09:57:14 2370 4

原创使用 FireDAC的 TFDConnection, TFDQuery 最初只能显示50条记录，TDateSet.RecordCount总是获得50的解决方法。

问题1：使用TFDQuery.RecordCount, 或 TDateSet.RecordCount 只能取得50，实际数量是超过50的。解决方法：修改TFDConnection.FetchOptions.RecordCountMode属性为 fmTotal，也就是获得全部数量，默认是cmVisible，也就是已经显示出来的数量问题2：在使用TDBGrid显示数据时，如果数据超过50条

2016-09-28 11:37:29 7595

原创 Access 转 SQLite 注意事项

最近将一个程序从Access修改为SQLite，需要调整的地方整理如下。Access 中可以直接使用数字开头的表名称， SQLite中不可以直接使用，表名要加双引号，例如 select *from "1table" (1table前后要加双引号， Access中不用加双引号)。SQLite中没有 now 函数，要用 datetime() 代替。Access 使用sql语句中使用 in

2016-09-19 16:12:14 3666

原创 Delphi 10.1 调试出现死机的解决方法

现象：Win7 64位，使用Delphi 10.1 Berlin调试的时候，经常出现死机，一天几次，桌面上所有程序都无法正常操作，所有窗口只能最小化、恢复，其他操作都不能操作，关闭也不行，关闭会出现结束任务，但是结束不了。在任务管理器中强制结束Delphi、被调试的程序，都无效，开始菜单中重新启动计算机无效，只能通过关闭电源重新启动（主机上的Reset按键没有接线，防止孩子误按）解决方法：

2016-09-12 09:43:34 3653

原创 Delphi XE5 升级到 XE10.1 图标出现黑框（背景色为黑色）解决方法

现象：从原来的Delphi xe5工程升级到Delphi XE10.1后，程序中的所有图标透明部分都变成了黑色，包括工具栏图标、ListView图标。注：在IDE编辑时图标显示正常，但是运行时透明部分都变成了黑色。解决途径：1、建立一个测试工程，将旧工程中的TImageList拷贝过去，建立新的工具栏，图标能正常显示，排除TImageList问题。2、将旧工程拷贝一份做

2016-09-07 11:34:17 2667

原创 delphi 2010 启动无响应，过一段时间后出现“displayNotification:堆栈溢出”解决方法

现象：启动delphi 2010 后无响应，过很久（几十秒后），出现错误框“displayNotification:堆栈溢出”。解决方法：打开IE，在Internet选项中，删除历史记录。已经两次遇到该问题了，每次都是从网上搜索解决方法，在此记录一下。

2012-08-02 11:31:03 4036 4

原创 delphi 从URL地址中获得文件名

function GetFileNameFromURL(url: string): string;var ts : TStrings;begin //从url取得文件名 ts := TStringList.create; try ts.Delimiter :=/; ts.DelimitedText := url; if ts.Count

2009-06-10 10:38:00 4147 1

原创 delphi 从TWebBrowser WebBrowser得到全部html源码

网上查询出很多方法，归结起来有两种1、使用IPersistStreamInit接口实现，函数名都是function GetHtml(const WebBrowser: TWebBrowser) : string;这个函数确实可以得到全部的html源码，但是里面用到了hHTMLText := GlobalAlloc(GPTR, BufSize); 而没有调用GlobalFree释放hHTMLTe

2009-02-19 22:33:00 4956

原创国外热门图标网站

专门介绍图标软件的网站 www.icon-software.net 专门查找图标的网站，可以输入关键词进行查找 www.iconfinder.net 下面是人气很旺的图标网站www.iconarchive.comwww.iconshock.comwww.icons-land.com

2009-02-05 13:57:00 2242 1

原创取得汉字拼音首字母函数，取得汉字串首字母

1、取得汉字首字母函数，包含大部分常见汉字，如："中" -> "Z"//获取汉字的首字母function getpychar(c : string ) : string;begin if Length(c) 1 then begin result := ; exit; end; if ord(c[1]) 128 then begin result := UpperC

2009-01-13 22:10:00 1025

原创菜单、按钮OnClick鼠标事件关联丢失，TActionList的简单使用

最近发现了一个问题，在用delphi7编译的时候，有时菜单的OnClick关联会丢失，代码还在就是OnClick事件没有关联到代码上，后来发现是使用了TActionList的缘故，因为这个菜单已经关联了一个Action，所以应该在Action的OnExecute中增加执行代码。下面是TActionList简单介绍和用法可以把Action作为一个桥梁，一端链接程序的执行代码，另一端链接程序的界面

2008-12-05 08:48:00 1824

原创 delphi中为动态数组分配空间的问题

在delphi中为动态数组分配空间应该使用SetLength函数，释放空间也使用Setlength，只不过长度应该为0。今天发现一段代码是用GetMem来为动态数组分配空间的，用FreeMem来释放空间，编译的时候没有任何错误，运行也正常，只是在程序退出时会出现内存访问错误，以后使用的时候可要注意喽。

2008-12-02 17:31:00 3038

原创 delphi 动态数组和静态数组首地址的区别

动态数组开始地址和静态数组的开始地址是不同的，注意下面代码中的File.Read函数的第一个参数动态数组使用var Source : array of byte; File : TFileStream;SetLength(Source, 20);File.Read(Source[0], 20); //动态数组的第一个元素为实际数组的开始地址SetLength(Source, 0);静态

2008-10-16 11:01:00 3758 2

原创 delphi 实现拖拽打开文件

步骤如下，delphi 7测试通过1、在uses 中增加 ShellAPI2、增加拖拽的消息处理函数 //声明 protected procedure WMDROPFILES(var Msg : TMessage); message WM_DROPFILES;//实现procedure TForm1.WMDROPFILES(var Msg: TMessage);var a : Integ

2008-09-22 14:49:00 5824 1

原创常用国外源码网站

http://www.codeguru.com/http://www.codeproject.com/http://sourceforge.net/

2008-09-12 16:28:00 11310

原创提高计算机速度-在需要时启动服务

对于开发者来说在平时使用时可能很多服务是用不到的，例如在你使用sql server 2005时，可能不需要my sql。停掉不用的服务可以节省系统的资源，也可以提高系统的启动速度，下面简单的方法告诉你如何停掉这些服务，并在需要时方便启动，下面以my sql为例。1、打开系统的服务（方法自己找吧，如果连这个都找不到，那就用不到我这篇文章了），将my sql服务设置为手动启动。2、在桌面建立名称为"s

2008-09-12 14:25:00 673

原创 php 取得文件名，不包含后缀

前天从网上找了很多取得文件名的方法（只要文件名，不要后缀），主要是截取字符串的方式，如果文件名中包含中文，好要自己写一些函数，保证不出现乱码，截取字符串时还需要计算字符串的长度，因为可能有中文所以要自己写取得字符串长度的函数，很麻烦，今天发现如果字符串中有中文也有英文结果就不对了。突然想起一个非常简单的方法，将文件名中的后缀替换为空不就行了吗，真是太简单了例子：str_replace(.txt

2008-06-06 10:43:00 6520 2

原创对开发者有用的网站，包含开发相关的开源项目

http://deployment.tigris.org/

2008-05-29 10:57:00 618

原创 delphi 剪贴板操作，读取剪贴板内容

//全局变量NextClipHwnd:HWND;//剪贴板观察链中下一个窗口句柄 procedure TForm1.FormShow(Sender: TObject);begin //获得剪贴板观察链中下一个窗口句柄，并将句柄注册到剪贴板观察链中 NextClipHwnd:=SetClipBoardViewer(Handle);end;procedure TForm1.FormClose

2008-05-27 15:48:00 8428

转载博主新软件发布 1and1 Mail 免费邮件群发软件

1+1 Mail 是一款免费邮件群发工具，您可以将客户进行分类，例如：按购买产品、感兴趣的产品、潜在客户、亚洲客户、台湾客户......，然后针对不同的客户群有目的的投递电子邮件。 1+1 Mail 还可以作为EDM软件使用，EDM 是 Electronic Direct Mail 的缩写，即电子直邮。企业可以通过EDM建立同目标顾客的沟通渠道，向其直接传达相关信息，用来促进销售。EDM有

2008-05-24 19:46:00 1925

原创 delphi 中字符串分割函数 ExtractStringsEx，是ExtractStrings函数的扩展

使用ExtractStrings函数发现不能分割出空串，很是郁闷，发现delphi提供ExtractStrings的代码，打开看看修改了一下，实现增加空串的功能，如下Function ExtractStringsEx()function ExtractStringsEx(Separators, WhiteSpace: TSysCharSet; Content: PChar; String

2008-05-22 15:26:00 4051

原创 TThreadList 的用法

初次使用TThreadList时找不到.Count属性，也找不到.Items属性，没有这两个属性就不能访问列表中的内容，这可怎么用呢，后来发现了LockList方法，这个方法返回一个TList，哦，原来是首先通过LockList安全的得到一个TList然后使用TList返回列表中的内同，当然最后不要忘了调用UnLock函数。例子：with MyThreadList.LockList dobegin

2008-05-06 11:05:00 5615 1

原创 access 2007打开mdb文件时需要密码，打开每一个mdb文件都需要，这些文件并没有设置密码

进来出现了一个问题，使用access 2007打开任何一个mdb文件时都需要密码，其实这些文件没有设置密码。问题解决过程：从网上查询资料得知是access的工作组里设置了密码，找了半天没有找的怎么取消工作组的方法，后来又查询到保存在C:/Documents and Settings/用户名/Application Data/Microsoft/Access/System.mdw文件中，可以将他删

2008-04-14 10:50:00 7274 1

原创 delphi 给字加边的又一个算法，有源代码

原理很简单，遍历每个像素，找到字的颜色判断上下左右是否不是字，如果不是则加上边界没啥说的看源码procedure TForm1.Button7Click(Sender: TObject);var tc : TCanvas; i, j : integer; color : TColor; egcolor : TColor;begin tc := Label2.Canvas;

2007-09-06 16:39:00 1995

原创 delphi 实现给字加边界代码

原理很简单，在字的坐上、上、右上、左、右、左下、下、右下分别使用边界颜色写一遍字，即生成背景，然后写最终的字，下面是代码procedure TForm1.Button1Click(Sender: TObject);var tc : TCanvas;begin tc := Label1.Canvas; tc.Font.Color := RGB(0, 255, 0); //背景颜色 tc.T

2007-09-06 16:05:00 2412

原创 Delphi 如何实现窗口透明，但是窗口上的文字不透明

其实很简单，进行下面的属性设置将窗体的TransparentColor属性设置为true窗体TransparentColorValue属性设置为clBlack（黑色）窗体中的Label1的Color（背景色）设置为clBlack（黑色）窗体中的Label1的字体颜色Font.Color设置为clRed（红色，不是黑色就可以）运行程序，将只显示字，而没有窗体，但是还是有窗体的边界，可以将窗体的Bo

2007-09-03 11:38:00 7179 2

原创 osCommerce 需要修改属性的目录

osCommerce网站上传完成后需要修改一些目录的属性才能使用，下面是清单1、/catalog/includes/configure.php 先修改为777，安装完成后修改为 644，存储网站的全局配置包含目录和数据库信息2、/catalog/admin/includes/configure.php 先修改为777，安装完成后修改为 644，存储网站管理功能的全局配置包含目录和数据库信息3、/c

2007-08-17 10:02:00 1208

原创 osCommerce服务器移植

本文描述将osCommerce系统从一个服务器移植到另一个服务器。下面是一个实例，从本机的localhost移植到www.tnstudio.cn服务器上的全过程。1、备份localhost数据库使用phpMyAdmin工具将osCommerce使用的数据库导出为一个.sql文件，备用。2、在www.tnstudio.cn服务器上导入数据库使用服务器提供商提供的mysql管理工具，将上一

2007-07-31 11:03:00 1364 2

原创 osCommerce 第一次使用

版本：2.2rc1(还不知道rc1是什么意思)第一次使用osCommerce，感觉比较简单，在使用之前先从网上看了一些资料，下面是一些有用的资料1、视频教程http://demodemo.com/tutorials_osc.html 虽然是英文的但比较简单，看一遍就会，但是和最新版本的有些出入，感觉最新版本比较好用一些。2、http://www.oscommerce-cn.com/index.p

2007-07-27 16:58:00 1906 3

转载 Mashups：Web 应用程序新成员

转载：http://www.ibm.com/developerworks/cn/xml/x-mashups.htmlDuane Merrill ([email protected]), 自由作家, Freelance 简介一种新型的基于 Web 的数据集成应用程序正在 Internet 上逐渐兴起。通常用术语 mashup 表示，它们的流行萌芽于对交互式用户参与和集成第三方数

2007-07-25 15:18:00 730

原创超级兔子免费了

这两天磁盘空间告急，所有的磁盘剩余空间都不足5%，系统已经用了2年多了，可能是垃圾太多了，想清理一下，想起了超级兔子。超级兔子是一个不做的系统优化工具，以前用过多次，都是共享版，功能有限制。今天从网上搜索了一下，发现超级兔子免费了，不知道什么时候免费的，高兴，为老百姓着想。好了先清理一下磁盘空间再说。

2007-07-25 14:22:00 1191 1

原创解密861到新网代理密码

域名快到期了，原来在39互联（39au.cn）上注册的域名，39互联是861.cn的代理商，861.com是新网的代理商，最终的域名解释是在新网，现在39互联出现了问题，客服好像没有了，快半年了一直联系不上，所以准备换掉，一种方法是将域名转走到其他的域名服务商，一种是换新网的代理商。咨询了一下换域名转走需要原来的代理商出局证明到新网，新网给转移密码，然后到新的服务商进行转入；换代理商只需要知道新网

2007-07-16 18:03:00 1765

原创 Drupal 学习(2) - 使你的站点工作

Drupal安装完成后默认进入的页面是Drupal的一个简单帮助页面，提示你开始建立你的站点的几个步骤，如果让你的站点运行其实不需要这么多步骤，只需要创建一个新文章就可以，但是必须创建一个Story类型的文章，创建完成后再次打开站点时，将在内容的位置显示最新加入的文章内容。如果加入page类型的文章，进入站点后还是显示最开始默认的Drupal提示信息。下面简单介绍以下我对page, story类型

2007-07-05 17:32:00 1080

原创使用indy 9发送邮件支持SSL选项，gmail测试通过

目前好多邮件服务器使用了SSL选项，Gmail, yahoo等，indy 9.0的idsmtp组建不能直接支持SSL发送，从indy的官方网站（http://www.indyproject.org）上查询了资料，需要进行下面的设置1、在delphi 7的工具栏Indy I/O Handlers中选择TIdSSLIOHandlerSocket组件，放在窗体上2、设置idsmtp属性 TIdSMTP.

2007-07-04 17:40:00 8048 2

原创免费邮件排行榜

今日做了关于发送电子邮件的程序，需要找一些邮件服务器测试，从yahoo answer搜索了邮件服务器的排行，仅供大家参考yahoo http://mail.yahoo.com/, smtp:smtp.mail.yahoo.com, pop3:pop.mail.yahoo.com gmail , smtp:, pop3: hotmail, smtp:, pop3: juno msn altavis

2007-07-04 14:43:00 1187

原创金山词霸引起的应用程序错误该内存不能为“written”

好长时间了经常会出现下面的错误，一般在打开一个新的程序时会出现，比如打开记事本、ps, dw等，出现这个错误后，如果选择确定会终止程序，下次打开还会出现，如果将该提示窗口移动到其他位置（要不会挡住你的程序），不去管它，原来的程序还可以正常的运行，但这个错误不是经常出现。 “指令引用的...”内存。该内存不能为“written”今天发现和金山词霸有关系，出现这个窗口后金山词霸窗口就打不开了，也不

2007-07-04 12:03:00 4010 3

原创鼠标右键菜单中丢失了ultraEdit-32打开怎么办？

最近安装了汉化版UltraEdit 13.0，和原来有很大的变化，在文件菜单中没有了比较文件的功能，可能是因为版本的问题，所有又下载一个英文版安装了，结果也没有，无意中发现在工具栏上有一个比较文件的功能，原来是这样，白折腾了，又卸载掉英文版，安装汉化版。汉化版完成后发现在鼠标的邮件菜单中没有了直接使用UltraEdit-32打开的菜单了，从网上搜索了一个方法，是一个注册表文件，编辑了一下，合并到

2007-07-04 09:35:00 4613

indy9 ssl使用的两个动态库 libeay32.dll,ssleay32.dll

空空如也