- 博客(28)
- 收藏
- 关注
RSS订阅原创 适用于简单场景的行转列
DECLARE @ListStr VARCHAR(1000)DECLARE @TB_Fee TABLE (FeeCode VARCHAR(10), Fee NUMERIC(18,2))INSERT INTO @TB_Fee(FeeCode, Fee)SELECT '10', 10UNIONSELECT '11', 11UNIONSELECT '12', 12SET @ListStr = ''SEL...
2018-04-11 10:01:29
571
转载 IIS网站绑定https报错
报的错误信息为:一个指定的登录对话不存在。它可能已经被终止.网上找资料后，说是在导入证书时要勾选允许导出，当时手JIAN,想着不允许导出，就取消了，结果。。。...
2018-02-28 14:36:29
4027
1
转载 音视频引用
音频压缩工具——Speex的使用 http://blog.csdn.net/mao834099514/article/details/53743762https://www.speex.org/downloads/https://git.xiph.org/?p=speex.git;a=summary...
2018-02-09 15:38:35
250
转载 Delphi动态调用ocx
以下代码不记得从哪里复制过来的，里面加了点自己的改动unit EventSink;interfaceuses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ActiveX;type // 在原有参数的基础上,增加了 ConnectDispatch: ID
2018-01-09 17:07:59
2739
原创 微信小程序开发1-开发环境
初次玩微信小程序,第一步就死在了开发环境的布署上，按照说明文档中来的，使用测试DEMO模拟器测试时，总是登录不成功。过了双休再来，再一步步重新来过，突然发现《开发环境 request 域名》是要配置在client/config.js ,修改后，登录成功， 而上周我一直在 server/config.php中去弄的，一直没发现有个 " var host = ",就自己添加了一个，唉，难怪一直登录不上
2017-12-11 10:00:22
475
原创 微信公众号开发1
微信公众号开发自己遇到的一些坑：1. 开发者工具-公众平台测试帐号 1）接口配置信息提示URL不合法,原因，URL后多加了一个空格 2) 接口配置信息填写好URL与token后，总是提示配置失败，写日志看到验签是通过的，也把echostr进行了返回，原因不明，第二天换了一台服务器，同样的程序，又配置成功，抓狂中.
2017-11-29 11:45:34
492
转载 RecordSet.GetRows
GetRows 方法传回一个二维的数组变量，每一行对应Recordset中的一笔记录，且每一列对应到记录中的字段。此方法的语法如下： varArray = rs.GetRows([Rows], [Start], [Fields]) Rows 是要读取记录的数量； 如果想要取得Recordset所有记录，可用-1或省略此参数。Start 是指出第一个被读取记录的书签；也
2017-08-22 16:40:58
2154
转载 依据服务端返回结果界面到计时
初学C#进行ASP.NET开发，一个简单的功能为：点击按钮，锁定按钮不能点击，向数据库产生一条记录，如果产生成功，则此按钮到计时结束后可再次点击按钮，如果不成功，恢复按钮可点击. 以下源码从网站拼凑得来********** .aspx ***************************** EndTimeMsg = 3 var i
2017-07-20 11:57:50
387
原创 程序使用TDiocpTcpClient退出时报错
EXE（带包 vcl;rtl） 调用 DLL(带包vcl;rtl;TestBpl, 其中TestBPL中使用TDiocpTcpClient), EXE不能正常退出的问题，可以通过在EXE动态加载 TestBPL解决原以为是TestBPL有问题， 后面通过 EXE带上 TestBPl编译， 也能正常退出， 如果中间通过调用DLL时再装载BPL， 就会有问题多次调试时，发现单元 diocp_
2017-03-04 16:58:18
336
原创 FDQuery中SQL语句使用别名字段后无法更新到数据库
FDQuery.Close ;FDQuery.Open('SELECT F1 AS Field1 FROM TB1') ;FDQuery.Edit ;FDQuery.FieldByName('Field1').AsString := 'MyTest' ;FDQuery.Post ; // 将更改更新到DB时报错，无此字段: Field1ADOQuery无此问题， 还未找
2017-02-13 08:50:00
2320
2
原创 Win7+XE6编译的程序在Xp上Label显示不出
开发环境: Win7+XE6,画一界面， 先用图片打底， 上放label, 随意对caption设置几个汉字，再放一个rz的btn控件， 设置 HotTrack为True,编译后的程序在Win7, Win10上运行正常，在XP, Win2003上， label上的汉字没显示出来，后还原 HotTrack为False, 显示正常， KAO， 坑爹
2017-02-09 16:53:58
480
原创 TFDCustomMemTable.AppendData
procedure AppendData(const AData: IFDDataSetReference; AHitEOF: Boolean = True);Appends data to this dataset from other datasets. Use the AppendData method to append the rows from one FireDAC da
2017-02-08 09:29:00
979
转载 基本知识-数组
以下内容是从电子书上摘抄出来，方便记忆,在打字时可能会有错误数组 除标准Pascal数组外，Delphi为特殊环境的使用而定义了几种扩展。动态数组(dynamic array)是在运行时可以改变大小的数组。开放数组(open array)是可以与真实参数一样接受任意大小数组的数组参数。个特殊的开放数组让你以参数形式传递一个不同类型的数组给个例程。如同在ISO标准Pascal中发现
2017-01-23 11:50:05
280
原创 使用TFDStoredProc没填入存储过程名的一些坑
今天写个批量上传的，使用TFDStoredProc操作存储过程来处理数据，忘记对StoredProcName给值了，ExecProc时报一个参数不能将 ftinteger 转换成 ftstring, 后隐藏存储过程中的参数， 只保留一个输出型参数 nvarchar, 又报 不能将 ftwidestring 转换成 ftwidestring, 接着隐藏存储过程中所有参数，这些换了另一个错误： cla
2017-01-23 10:54:04
1106
原创 FDConnection取得EXCEL工作表名
procedure GetTableNames(const ACatalogName, ASchemaName, APattern: string; AList: TStrings; AScopes: TFDPhysObjectScopes = [osMy]; AKinds: TFDPhysTableKinds = [tkSynonym, tkTable, tkView
2017-01-20 14:19:22
1185
原创 查看SQL SERVER邮件发送信息
SELECT Sent_Status, * FROM msdb.dbo.sysmail_allitems WHERE send_request_date >= '2015-05-15 15:50'SELECT mailitem_ID, event_type, * FROM msdb.dbo.sysmail_event_logWHERE log_date >= '2015-05-15 1
2017-01-20 11:53:05
1694
转载 相关FirDAC引用网址
delphi 新版内存表 FDMemTable ：= http://www.cnblogs.com/cb168/p/3953841.html官网: http://docwiki.embarcadero.com/Libraries/XE6/en/Main_Page
2017-01-13 15:33:10
348
原创 [FireDAC][Phys][ODBC][Mirosoft][ODBC SQL Server Driver]COUNT 字段不正确或语法错误
使用TFDStoredProc.ExecProc 或者 TFDStoredProc.Open 时， 出现错误: [FireDAC][Phys][ODBC][Mirosoft][ODBC SQL Server Driver]COUNT 字段不正确或语法错误现将原因整理如下(前提都是使用 TFDStoredProc 调用存储过程来执行或者取得数据):1.存储过程中有注释了的执行语句， 如/
2017-01-13 09:35:15
7037
1
原创 单元的条件编译变量DEBUG取消后无效
Delphi XE 以上版本，编译时有了两个选项: Debug, Release在某个单元文件中取消了编译变量 {.IFDEF DEBUG}， 但被DEBUG包含的部分还是被编译了想到单元的条件编译变量DEBUG可能与全局的名称相同，后改掉单元中的DEBUG名为DEBUG_ON，重新编译后正常DEBUG_ON中包含的代码就不会再被编译了
2017-01-11 11:45:09
443
原创 [FireDAC][Phys][ODBC][Microsoft][ODBC SQL Server Driver]违反限制数据类型属性
使用TFDStoredProc通过执行存储过程查询数据时，如果存储过程名不变， 只是改变里面的参数值 ，但传递回的结果集字段不一样的话， 会导致以上错误[FireDAC][Phys][ODBC][Microsoft][ODBC SQL Server Driver]违反限制数据类型属性. FDSP.Close ; FDSP.Params.Clear ; FDSP.Sto
2017-01-04 17:18:23
4867
1
原创 TFDStoredProc创建了参数执行时却报参数不存在
FDSP.Close ; FDSP.Params.Clear ; mParam := FDSP.Params.Add ; with mParam do begin Name := '@T1' ; DataType := ftString ; //FDDataType := dtString ; ParamType := ptInput
2017-01-04 17:06:55
1650
转载 delphi枚举与字符串转换
以下为D自带帮助中的说明，备存怕忘记uses TypInfo ;function GetEnumName(TypeInfo: PTypeInfo; Value: Integer): string;Returns the name of a Delphi enumerated type constant given its value. Use GetEnumName to conv
2016-12-31 10:50:53
2205
原创 SQL Server相关系统信息
1。得到数据库用户自定义表所有字段类型SELECT A.*, T.nameFROM ( SELECT user_type_id FROM sys.columns WHERE object_id IN (SELECT object_id FROM SYs.objects WHERE type = 'U') GROUP BY user_type_id) ALEFT OU
2016-12-31 10:47:54
225
原创 链接服务器 OLE DB 访问接口 "SQLNCLI10" 返回了消息 "该伙伴事务管理器已经禁止了它对远程/网络事务的支持。"
在两个服务器上的SQL Server 2008数据库间处理数据， 使用了链接服务器，使用了存储过程来更新数据，其中使用了事务来同时操作本地DB与链接服务器上的DB， 执行时报以“链接服务器 OLE DB 访问接口 "SQLNCLI10" 返回了消息 "该伙伴事务管理器已经禁止了它对远程/网络事务的支持。"”， 数据不是很重要， 后把操作与链接服务器DB的语句拉到事务外边， 临时解决，如后续数据一致
2016-12-09 09:45:51
22874
原创 判断SQL Server临时表是否存在
IF (SELECT ISNULL(OBJECT_ID('TEMPDB..#A'),0) ) >0 BEGIN DROP TABLE TEMPDB.#A END
2016-12-09 09:40:23
295
转载 常用函数或过程
InterlockedIncrementInterlockedDecrement IncludeTrailingPathDelimiterExcludeTrailingPathDelimiter
2016-12-09 09:39:55
253
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人