- 博客(337)
- 资源 (61)
- 收藏
- 关注
RSS订阅原创 Delphi读取sqlserver数据库报 SQL Server provider is not registered……错误
Delphi读取sqlserver数据库报 SQL Server provider is not registered……错误
2023-06-08 10:25:07
347
原创 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
1071
原创 Delphi读取access数据库时提示独占问题处理方法
问题：解决：将“连接”页面中的密码清空，然后将密码填写致“所有”页面中的密码位置，如下图所示
2021-09-06 10:36:07
550
原创 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
7364
原创 请不要只做一个只会搬砖的猴子
先说个题外话： 这几天宝宝的事成为了各大媒体的头条，中午吃饭的时候也还有旁边的陌生人在谈论。我看过宝宝的电影，说实话演技没得商量，我也看到宝宝的媳妇，哦，不对，是前妻，马荣的美丽。我不想去评论太多，只是我没有对他俩的好坏去妄加定论，因为他们也是人，有他们的生活，真正的内情也许只有他们知道，媒体的不一定的对，他俩微博的炮轰是对是错，也只有他们知道，又何必因为一对夫妻离婚而闹得鸡犬不宁呢，假如天底下真
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
1878
原创 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
864
原创 WIn7用HttpAddRequestHeaders不能传Security参数解决办法
HttpAddRequestHeaders(Data, PChar(HeaderAuth), Length(HeaderAuth), HTTP_ADDREQ_FLAG_ADD);将最后一个参数换成 HTTP_ADDREQ_FLAG_ADD即可
2020-10-14 10:18:00
557
原创 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
3209
原创 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
3394
原创 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
9248
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
1202
原创 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
2338
原创 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
3489
原创 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
19734
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
FInalbuilder使用说明
2017-02-16
Desktop.zip
2019-12-17
一键解决sql server2000评估出错及服务启动不起来问题
2017-11-15
Delphi网络通信协议分析与应用实现
2017-10-19
SQL Prompt
2017-10-11
delphi 的ehlib 4.5
2017-09-02
Delphi的Ehlib3.2第三方控件
2017-09-02
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人