自定义博客皮肤VIP专享

*博客头图:

格式为PNG、JPG,宽度*高度大于1920*100像素,不超过2MB,主视觉建议放在右侧,请参照线上博客头图

请上传大于1920*100像素的图片!

博客底图:

图片格式为PNG、JPG,不超过1MB,可上下左右平铺至整个背景

栏目图:

图片格式为PNG、JPG,图片宽度*高度为300*38像素,不超过0.5MB

主标题颜色:

RGB颜色,例如:#AFAFAF

Hover:

RGB颜色,例如:#AFAFAF

副标题颜色:

RGB颜色,例如:#AFAFAF

自定义博客皮肤

-+

zisongjia的博客

我的博客,你的世界!

  • 博客(337)
  • 资源 (61)
  • 收藏
  • 关注

原创 Delphi程序里使用临时表执行时是报“对象关闭时,不允许操作”

Delphi程序里使用临时表执行时是报“对象关闭时,不允许操作”

2023-12-28 10:16:02 405

原创 程序中模糊查询access数据库数据问题

程序中模糊查询access数据库数据问题

2023-08-22 11:33:29 468

原创 Delphi读取sqlserver数据库报 SQL Server provider is not registered……错误

Delphi读取sqlserver数据库报 SQL Server provider is not registered……错误

2023-06-08 10:25:07 348

原创 Delphi中URL报505 错误

Delphi中URL报505 错误

2023-06-08 10:19:55 657

原创 Delphi 华氏度和摄氏度转换(亲测可用)

Delphi一个华氏度和摄氏度转换算法,其他语言可参考使用

2022-11-16 09:31:36 204 1

原创 Delphi 的TMemoryStream写入到string类型中(亲测)

Delphi 的TMemoryStream写入到string类型中

2022-08-23 15:09:54 585

原创 TmemoryStream 转换到String亲测有用

TmemoryStream 转换到String ,亲测有用

2022-08-12 16:09:53 500

原创 delphi中的unicode转换

delphi中的unicode转换

2022-07-25 16:57:32 1224

原创 db数据库替换字段值中的空格和回车(亲测有用)

replace(replace(conclusions,char(10),''),' ','')char(10)是替换回车,‘ ’是空格

2022-03-15 16:42:59 1453 1

原创 Delphi实现文件下载UrlDownloadToFile

Uses URLMon, ShellApi;function DownloadFile(SourceFile, DestFile: string): Boolean;begintryResult := UrlDownloadToFile(nil, PChar(SourceFile), PChar(DestFile), 0, nil) = 0;exceptResult := False;end;这个函数如果在缓存目录中有文件的话,就不会从新下载网络上的文件.解决得办法是使用api函数Dele

2021-10-08 13:55:43 1072

原创 Delphi读取access数据库时提示独占问题处理方法

问题:解决:将“连接”页面中的密码清空,然后将密码填写致“所有”页面中的密码位置,如下图所示

2021-09-06 10:36:07 551

原创 Delphi的Format格式化函数详解

vars: string;begin//指令类型 types := Format('最大整数是: %d; 最小整数是: %d',[MaxInt,Low(Integer)]);//返回: 最大整数是: 2147483647; 最小整数是: -2147483648{ 提示: 格式指令必须以 % 开始, 不区分大小写, %d 代表一个整数; 第二个参数是一个 变体数组 }s := Format('最大的无负号整数是: %u',[High(Cardinal)]);//返回: 最大的无负号整数是: 4

2021-06-30 11:55:30 7366

原创 请不要只做一个只会搬砖的猴子

先说个题外话: 这几天宝宝的事成为了各大媒体的头条,中午吃饭的时候也还有旁边的陌生人在谈论。我看过宝宝的电影,说实话演技没得商量,我也看到宝宝的媳妇,哦,不对,是前妻,马荣的美丽。我不想去评论太多,只是我没有对他俩的好坏去妄加定论,因为他们也是人,有他们的生活,真正的内情也许只有他们知道,媒体的不一定的对,他俩微博的炮轰是对是错,也只有他们知道,又何必因为一对夫妻离婚而闹得鸡犬不宁呢,假如天底下真

2021-06-30 11:52:56 109

原创 Oracle 和 sql server 在插入数据时注意的……

当你建的表是主键自增长时请注意:Oracle: Insert into 表名 (Fid,其他字段)values(1,其他字段值);SQLServer : Insert into 表名 (其他字段)values(其他字段值);(因为sqlser会自动增长而Oracle不会)若都不是自增长,那就是一样的写法: Insert into 表名 (Fid,其他字段

2021-06-30 11:52:30 154

原创 delphi资源文件制作及使用详解

一、引子:现在的Windows应用程序几乎都使用图标、图片、光标、声音等,我们称它们为资源(Resource)。最简单的使用资源的办法是把这些资源的源文件打入软件包,以方便程序需要的时候调用。资源是程序的一部分,程序要正常运行就离不了资源文件。但是它是不可执行代码。为了更好地管理资源,Delphi中提供了一种.RES类型的资源文件。它可以把我们程序中所需要的资源整合到一个资源文件(.RES

2021-06-30 11:52:11 1881

原创 Delphi 7皮肤控件VCLSkin 5.60的使用

VCLSkin是一个能够用于创建Delphi/C++ Builder应用程序美化界面的皮肤组件。它允许允许软件开发人员不用修改程序代码便把软件界面变得非常漂亮。它的美化支持窗体和控件和菜单。VCLSkin同时也提供了大量高质量的skin(皮肤)让你应用于你的程序。官方网站:http://www.link-rank.com/CSDN下载地址:其中一个皮肤的效果载图:

2021-06-30 11:51:40 763

原创 Delphi宽字符批量去除#0方法

function DelCRLF(src: String): String; var n,M: Integer; begin SetLength(Result, Length(src)); n := 0; for m := 1 to Length(src) do if (src[M]= #0) then continue else begin Inc(n); Result[n] := src[M]; end...

2021-05-13 13:52:27 585

原创 delphi中的unicode转换

花47星币买的,没有用上,分享到这里,供大家参考!delphi7调用delphi2009生成的dll文件会出现乱码问题。是unicode的原因终于找到了转换函数function AnsiToUnicode(s:string):WideString;varlpWideChar:PWideChar;len:Integer;beginlen := ( Length(s) + 1 ) * 2;GetMem(lpWideChar, len);ZeroMemory(lpWideChar, len

2021-05-13 11:46:19 922

原创 delphi 实现科学计数法

uses SysUtils; function StrToExp(s: string): string;var f: Extended;begin f := StrToFloat(s); Result := FloatToStrF(f, ffExponent, 7, 2);end; 然后这么用:ShowMessage(StrToExp('2'));

2021-05-07 11:24:45 865

原创 WIn7用HttpAddRequestHeaders不能传Security参数解决办法

HttpAddRequestHeaders(Data, PChar(HeaderAuth), Length(HeaderAuth), HTTP_ADDREQ_FLAG_ADD);将最后一个参数换成 HTTP_ADDREQ_FLAG_ADD即可

2020-10-14 10:18:00 558

原创 TmemoryStream ,bety[], TByteDynArray文件转化函数小结

Delphi 支持三种文件类型: 文本文件、记录文件、无类型文件。文本文件是以行为单位进行读、写的。由于每一行的长度不一定相同,不能计算出给定行在文件中的确切位置,因而只能顺序地读写。文本文件只能单独为读或写而打开,在一个打开的文本文件上同时进行读、写操作是不允许的。文本文件的打开需要两个步骤:1.文件变量与文件名关联;2.初始化读写。1.文件变量与文件名关联:AssignFile(VarTxt, FileName); --以可写方式打开文件。如果文件不存在,将会自动创建。使用该函数,将会覆盖文.

2020-09-08 19:22:45 628

原创 sql SERVER 死锁的查询及处理语句

--查询死锁select request_session_id spid,OBJECT_NAME(resource_associated_entity_id) tableNamefrom sys.dm_tran_locks where resource_type='OBJECT'--处理死锁declare @spid intSet @spid = 116declare @sql varchar(1000)set @sql='kill '+cast(@spid as varchar)exec

2020-08-26 17:30:59 3210

原创 Delphi 数学函数:常用的几个数学函数(Power、Abs、Int、Trunc、Round、Frac、sqr、sqrt)

Delphi 常用的几个数学函数1Power函数,求次方定义:functionPower(X,Y): (Same type as parameter);说明:X可以是整型,也可以是实型;返回值实型例子:var i:integer;begin i := Power(2,3); { 8 } // 2的3次方end.2Abs(x) 函数 ,求绝对值。定义:function Abs(X): (Same type as parameter);说明:X可以是整型,也可以.

2020-08-13 15:05:11 3395

原创 Delphi中对Gzip解压代码

使用函数前请安装第三方控件ZlibEX控件,本人博客内 有下载资源procedure DecompressGZip(AInStream, AOutStream: TStream);var pb1, pb2: Byte;begin AInStream.Seek(1, 0); AInStream.Read(pb1, 1); AInStream.Seek(2, 0); AInStream.Read(pb2, 1); AInStream.Position := 0; AOutSt...

2020-08-11 14:27:04 896 1

原创 SQL server 自定义类型字段

select *,cast('自定义的值' as 自定义的字段类型) as '列名' from 表名--简写select *, '自定义的值' as '列名' from 表名

2020-08-05 09:01:48 1592

原创 SQLServer SubString函数提示[传递给 LEFT 或 SUBSTRING 函数的长度参数无效]错误的解决方法

看错误的字面意思就清楚,一般是substring的length长度有错误。例如:select top 10 SUBSTRING (c_dept , 1 ,CHARINDEX (',' , c_dept)-1) from ##dd_daily要截取c_dept字段中第一个逗号前面的字符串,如果字段里面没有逗号,substring就会出错。可以加入case判断就不会出错。select SUBSTRING (c_dept , 1 , casewhen CHARINDEX (',' , c_d..

2020-07-15 16:00:43 9249 2

原创 SQL格式化datetime数据类型

SELECTCONVERT(varchar(100),GETDATE(),0):0516200610:57AMSELECTCONVERT(varchar(100),GETDATE(),1):05/16/06SELECTCONVERT(varchar(100),GETDATE(),2):06.05.16SELECTCONVERT(varchar(100),GETDAT...

2020-04-26 18:29:35 577

原创 sql server 中syscolumns表内的xtype的数字与数据类型对应表

查了一下,这些东西都是存于每一个数据库的syscolumns表里面得,name就是列名,xtype就是数据类型,但是这个xtype是数字的,下面是数字和数据类型对应的关系;xtype=34 'image'xtype= 35 'text'xtype=36 'uniqueidentifier'xtype=48 'tinyint'xtype=52 'smallint'xtype=...

2020-04-09 13:35:45 1203

原创 Delphi用IE浏览器打开网址链接的三种

简单点可以用默认浏览器打开,方法如下:uses shellapiprocedure TForm1.Button2Click(Sender: TObject);beginShellExecut(Application.Handle, nil,'http://iisnine.lofter.com', nil, nil, SW_SHOWNORMAL);end;IE打开网址链接的...

2020-04-01 18:21:54 784

原创 delphi中Ms Sql数据库异常捕获问题

My Sql数据库 ,在存储过程中使用 RAISERROR() 主动触发异常, 在delphi中用TADOQuery调用执行。 如果在执行 RAISERROR()前对数据库物理表有写操作, 则在Delphi中捕捉不到此异常,但在查询分析器中调用发现异常确实已触发。  解决方法:在存储过程中加上 set nocount on  另外:根据MSDN中描述    “如果存储过程中包含的一些语...

2020-04-01 18:06:49 551

原创 Delphi中的fieldbyname和fieldvalues

FieldValues接收和返回的都是variant类型字段,可以自己处理转换字段类型.比如:Customers.FieldValues['CustNo'] := Edit1.Text;上面的CustNo是个数字类型,但你可以把字符串赋给它. fieldbyname 接收和返回的都是TField类型,需要转换下,比如:Customers.fieldbyname['CustNo'].a...

2020-04-01 14:20:37 1211

原创 字符串类型数字前面去0

functiontrim0(s:string):string;beginwhilecopy(s,1,1)='0'dos:=copy(s,2,length(s)-1);trim0:=s;end;

2020-03-12 09:17:01 543

原创 Delphi 读取PNG base64编码文件生成图片

uses NetEncoding,PNGImage;procedure TForm1.FormCreate(Sender: TObject);var LInputStream: TFileStream; LOutputStream: TMemoryStream; Png: TPNGImage;begin LInputStream := TFileSt...

2019-12-06 15:22:51 2339

原创 access替换SQL语句

select Replace(PickData, '/', '-') from result注释: 将表result的字段PickData中值得‘/’替换为‘-’

2019-11-25 10:52:59 1198

原创 ACCESS年月日时分秒格式化语句

select 字段 from 表名 Where format$(CREATETIME,"General Date") = '2019-10-30 14:50:09'或select 字段 from 表名 Where format$(CREATETIME,"YYYY-MM-DD HH:MM:SS") = '2019-10-30 14:50:09'注意:一定是双引号引用注意:在...

2019-10-31 11:18:53 3490

原创 ASCII码详解

ASCII简介ASCII 码使用指定的 7 位或 8 位二进制数组合来表示 128 或 256 种可能的字符。标准 ASCII 码也叫基础ASCII码,使用 7 位二进制数来表示所有的大写和小写字母,数字 0 到 9、标点符号, 以及在美式英语中使用的特殊控制字符。其中:  0~31及127(共33个)是控制字符或通信专用字符(其余为可显示字符),如控制符:LF(换行)、CR(回车)、FF...

2019-10-09 16:58:50 19758 1

原创 DELPHI中的完整快捷方式一览

1.SHIFT+鼠标左键 先选中任一控件,按键后可选中窗体(选中控件后按Esc效果一样)2.Shift+F8 调试时弹出CPU窗口。3.Shift+F10 等于鼠标右键(Windows快捷键)。4.**f+箭头 选择5.shift +F12 快速查找窗体并打开6.F7 (步进式调试同时追踪进入...

2019-09-25 15:59:16 452

原创 Delphi中使用@取函数地址的问题

例如以下代码:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs;type TForm1 = class(TForm) procedure one(); function two(x,y:integer):...

2019-09-20 09:49:26 529

原创 delphi的exports语句

delphi中的exports是个关键字,用于dll项目,指出dll的输出函数,只有在exports中声明的函数才能在dll的外部进行调用。下面是个简单的dll项目:library dllTest;uses SysUtils,Classes;function Test1(a,b:integer):integer;beginResult:=a+b;end;exportsTest1 ...

2019-09-19 10:01:46 1223

原创 Orcale执行update时忘了加条件的数据回退操作

今天写update的SQL忘了加where条件,全更新,真是悲催,还好找到一个好的方法,回退回来;在次记录下来;  1.查询最近更新数据之前的数据(以便确定是不是Commit之前的数据)select * from 表名 as of timestamp to_timestamp('2018-10-22 08:00:00', 'yyyy-mm-dd hh24:mi:ss');'2018...

2019-08-05 09:24:44 628 1

Delphi的GZIP解压示例源代码(亲测可用)

一个Delphi的Gzip解压示例,内附完整源代码,在解压路上不迷路,本人已亲测可用,欢迎下载使用,有疑问请联系本人

2020-08-11

Delphi的ZLibEX控件(亲测可用)

一款好用的Delphi的Gzip解压代码,用ZlibEX轻松搞定,本人有例子代码资源,具体使用方法请翻看本人博客,博客有详细说明

2020-08-11

gds自带数据库

gds自带数据库dll文件

2017-06-20

vin32多线程程序设计(C++篇)

一本好的书籍能够让你的技术突飞猛进,这一本专门介绍线程的书籍,能够让你在线程编码中游刃有余!

2017-06-05

MD5加密技术

完美的MD5加密技术源码,让你的数据更加安全!

2017-06-03

indy in depth(高清中文版)

高清中文版Delphi讲解,让你更清楚什么是indy

2017-05-27

Delphi连接access数据库步骤

图文讲述Delphi如何连接access数据库,简单易懂!

2017-05-23

支付宝支付接口组件(Delphi版)

详细的注释,简练的代码,帮你实现轻松地支付!

2017-05-19

Delphi源码加密插件

这是一款Delphi源码加密工具,使自己的代码在其他人的电脑上只有输入密码才可代开源码!

2017-05-18

delphi谷歌地图

Delphi开发的多功能谷歌地图,附带源码!

2017-05-18

Delphi7实现FTP

代码原型让你分分钟搞定FTP文件传输,为工作和学习节省大量时间……

2017-05-17

(delphi)鼠标点击项目进行删除

点击树形节点就删除当前节点

2017-03-13

游标的使用

简单明了的用实际语句介绍什么是游标及游标的操作

2017-03-08

FInalbuilder使用说明

2017-02-16

TlistBox选中全部

TlistBox选中全部

2017-02-06

Navicat Premium

oracle、SqlServer、MySQL等通用的数据库操作工具

2017-01-18

tails2.7.1

tails2.7.1

2016-12-07

磁盘加密软件

互联网时代,你的电脑上一定有宝贵的资源,所以用这个软件来保护它吧!

2016-12-05

prey(远程监控)

仅限Windows用户,为你的电脑加上防护盾,百毒不侵!

2016-12-05

delphi对话跨程序及源代码

不断学习,不断进步!

2016-12-02

FastReport 2D Codebar.zip

一个好的控件可以使工作事半功倍,支持中文方法

2021-06-22

Desktop.zip

一个好的第三方控件,可以使你的工作量倍上加倍,cxgrid相比大家都不陌生,在现在的Delphi中有举足轻重的地位,能更好的使用他,加快产品的产出,占据有利时间先机

2019-12-17

editPlus5.733带注册码

自测editPlus5.733正常使用中,并自带汉化包和注册名注册码,自留使用!

2018-11-29

sql server数据库置疑修复方法

详细的数据库修复方法和步骤,除了SQL server 2000以外,还有SQL server 2005的修复方法,本人亲测有效!

2018-08-31

只能还原ms sql 数据库

用Delphi7编写的数据库还原工具,且附带源码,可以轻松高效不应打开数据库应用程序即可还原数据库的一款工具及代码

2018-06-28

GIF动画生成器

一个简单的小工具,在给对方演示上增色不少,可以大大减少工作量!

2018-03-20

sqlserver2008R2应用添加实例步骤

一片好的操作步骤文档,能够解决你再数据库中添加实例是遇到的问题,让工作更加顺畅!

2017-11-30

一键解决sql server2000评估出错及服务启动不起来问题

SQL server 2000使用120天后再次启动MSSQLSERVER‘本地计算机 上的 MSSQLSERVER 服务启动后停止。某些服务在未由其他服务或程序使用时将自动停止。’这是因为你的SQL server 2000试用版到期了,如何解决呢?下载此文件放置到开始——》所有程序——》启动这个文件夹下,如果有安全软件的话请添加信任,接下来重启电脑就可以了!只使用中如果出现以上的问题,双击此文件就可以了!

2017-11-15

sql数据库还原和备份工具

该工具用Delphi程序进行编写,快捷方便的进行数据库的还原和备份,里面附有完整源码

2017-10-27

Delphi网络通信协议分析与应用实现

本书介绍如何利用Delphi开发网络与通信应用程序,本书主要针对目前流行的FTP、HTTP、E-mail、Telnet、网络监控、Modem串口通信编程、拨号网络编程、传真编程等Internet协议与网络通信高级编程开发进行详细的讲解,并结合大量的实例使读者能够深入的了解各种网络应用程序的开发技巧。本书适合中高级Delphi程序员阅读、参考。

2017-10-19

SQL Prompt

SQL脚本越写越多,总是觉得编写效率太过于低下,这和打字速度无关。在我个人编写SQL脚本时,至少会把SQL的格式排列成易于阅读的,因为其他人会阅读到你的SQL,无论是在程序中或是脚本文件中,良好的排版不仅让人看起来赏心悦目,在和他人之间做交流时也省时省力,不会因为揉成一团的sql去询问Team Member:您能帮我解释一下这么一大段sql是做什么的吗? 虽然微软至SQL 2008以上的版本提供 了SQL智能提示,但是它的反应实在是过于迟钝,等提示出来我们早就可以敲出一行语句了。而且它没有提供sql代码格式化的功能,咱们只能自己做手动格式化,手动格式化sql总是需要花费不少时间的。 它也是一款拥有智能提示的sql编程工具,而且小巧灵活。 总而言之,它也是一款能够提高sql编程效率的工具。 注释:内附破解教程doc。和keygen,欢迎免费下载

2017-10-11

delphi 的ehlib 4.5

想要快速出产品,没有好的工具是不行的,虽然版本不算最新但知道用起来还是很顺后,想要快速出产品,没有好的工具是不行的,虽然版本不算最新但知道用起来还是很顺后!

2017-09-02

Delphi的Ehlib3.2第三方控件

想要快速出产品,没有好的工具是不行的,虽然版本不算最新但知道用起来还是很顺后,想要快速出产品,没有好的工具是不行的,虽然版本不算最新但知道用起来还是很顺后!

2017-09-02

Delphi指针大全

一本专门对指针讲解的书,对于还在指针边缘迷惑的Delphi程序员,有极大的帮助!

2017-08-09

Delphi值传递和引用传递实例

一个实例让你明白什么是值传递和引用传递的!

2017-07-27

Delphi获取邮件内容源码

有Delphi编写的获取邮件代码,不用打开浏览器直接阅读邮件

2017-07-07

资源文件练习程序

用真实的例子来阐释什么是资源文件

2017-06-26

Delphi7应用教程

高清pdf格式,详细的讲述,以及代码实例供参考

2017-06-22

delphi实现存储图片到SQL数据库

本文章讲述了两种存储图片的方法,并附有源码供参考!

2017-06-22

frame练习程序

亲自编写练习代码,在Delphi7上成功实现

2017-06-20

空空如也

TA创建的收藏夹 TA关注的收藏夹

TA关注的人

提示
确定要删除当前文章?
取消 删除