- 博客(254)
- 资源 (9)
- 收藏
- 关注
RSS订阅转载 DELPHI支付宝支付代码
真实业务场景的考虑按照支付宝或者微信支付的开发手册的说法，一个标准的客户端接入支付业务模型应该是这样的，我忽略时序图，只用文字描述：用户登录客户端，选择商品，然后点击客户端支付。客户端收集商品信息，然后调用自己业务平台的预付款接口。业务平台根据客户端提交的商品信息，生成自己的订单号等内容，并按照第三方支付的要求对订单信息进行拼装组合，并编码和签名。业务平台返回签名后的订单信息给客户端。客户端根...
2018-02-23 11:05:57
1582
转载 各种好用的代码生成器(C#)
1:CodeSmith一款人气很旺国外的基于模板的dotnet代码生成器 官方网站:http://www.codesmithtools.com 官方论坛：http://forum.codesmithtools.com/default.aspx 版权形式：30天试用 开源：否 需要先注册确认后才能下载2:MyGeneratorMyGenerator是又一个国外很不错的代码生成工具，有人觉得比Cod...
2018-02-23 08:42:16
11784
2
转载 远程控制代码
procedure TForm1.Button1Click(Sender: TObject);var pwdset:IMsRdpClientAdvancedSettings;begin Mstsc1.Server:=edtIP.Text; Mstsc1.UserName:=edtName.Text; if Mstsc1.A
2018-01-29 13:41:48
3858
3
转载 查看mysql连接数问题
查看mysql数据库连接数、并发数相关信息 1.mysql> show status like 'Threads%';+-------------------+-------+| Variable_name | Value |+-------------------+-------+| Threads_cached | 58 ||
2018-01-26 14:43:04
373
原创 命令查看TIME_WAIT连接数 netstat -ae|grep "TIME_WAIT" |wc -l
命令查看TIME_WAIT连接数netstat -ae|grep "TIME_WAIT" |wc -l早上登陆服务器的时候输入netstat -an|grep mysql发现存在大量TIME_WAIT状态的连接tcp 0 0 127.0.0.1:3306 127.0.0.1:41378 T
2018-01-25 14:04:25
9455
转载 indy最多连接数
最近一个项目，最开始使用IdTcpServer，在大压力测试的时候，只连接了800个多一点的客户端（每个客户端连接上之后每秒钟发送一个几十字节的报文，服务器应答）。但是持续的时间不会超过10分钟，服务器就会挂掉（经常是服务器突然关闭消失，任何提示都没有）。后来优化了互斥量之后，可以连接到1000多个客户端。但是服务器消失的问题依然存在。 今天再一台双CPU，4G内存的服务器上试验了下，居
2018-01-25 11:26:30
414
转载 socket代码
The following Socket errors reported in Trace Log of config screen: Socket error 10004 - Interrupted function callSocket error 10013 - Permission deniedSocket error 10014 - Bad addressSocket
2018-01-24 08:52:28
573
转载 indy 10.5.7的数据发送接收的用法
发送结构体：TMyData = record id:Integer; Name:Array[0..20] of Char; Sex:Array[0..10] of Char; Age:Byte; Address:Array[0..256] of Char; UpdateTime:double; end;
2018-01-08 15:21:13
2152
转载 idtcpserver主动向客户端发送数据demo
var I: Integer; ConnContext: TIdContext;begin with IdTCPServer1.Contexts.LockList do try for I := 0 to Count - 1 do begin ConnContext := TIdContext(Items[I]);
2018-01-08 15:14:27
3208
转载 解决发送字符时，中文乱码现象
这种问题的本质其实就是字符编码问题，只要统一下客户端和服务器的字符编码就行。网上的解决办法一种就是用base64编码后发送，然后另一端解码。另一种就是在readln和writeln时统一编码格式。如这里回答的：[delphi] view plain copy//客户端写,读类似 IdTCPClient1.IOHandle
2018-01-08 15:01:08
2021
转载 ping通各网站连接
{测试IP地址能否PING通}function ping(url: string): Boolean;var i: Integer; rst: Boolean; err: String; icmpClient: TIdICMPClient;begin i:= 0; rst:= False; icmpCli
2018-01-08 14:17:35
553
转载 Delphi IdTCPClient 点对点传送文件
客户端向另一个客户端传送文件，不通过服务端中转那一个很重要的点是，这个客户端也要放一个IdTCPServer，也就是说这个客户端既是客户端，当接收文件的时候也是服务端，必须相应其它客户端对它的连接，这个时候客户端相当与服务端，好了，明白这个道理就好办了A客户端（放一个IdTCPClient控件，发送文件）procedure TFormFileSe
2018-01-08 14:10:52
1557
转载 dbgrid设置属性
DBGridEh1.FooterRowCount:=1; DBGridEh1.SumList.Active:=True; DBGridEh1.FootColor:=clInfoBk; DBGridEh1.Columns[0].Footer.ValueType := fvtStaticText; DBGridEh1.Column
2018-01-03 10:39:25
708
转载 dbgrideh属性
可惜做好的表格传不下来，只好粘成纯文本了属性子选项值说明Allowedoperations[alopInsertEh,alopUpdateEh,alopDeleteEh,alopAppendEh]允许操作类型：插入、更新、删除、追加Allowedselections[gstRecordBookmarks,gstRectangle,gstColumns,gstAll]gstR
2018-01-03 10:37:53
480
转载 自动适应列宽
以下这段过程是本人自制的TSortDBG的自动调整显示宽度的过程，其中self指本TSortDBG.///////////////////////////////////////////////////////////procedure TSortDBG.AdjustShowColumnWidth;var i, iWidth: Integer; aiWidth: arr
2018-01-03 09:42:13
1826
转载 mysql中对字符串排序
mysql中对字符串排序，字符串中有数字有汉字，想按数字的大小来进行排序。仅仅用order by排序，效果不是想要的。 sql语句为：[sql] view plain copyselect id,dict_name,type_code from t_dictionary where type_code='GRADE'
2018-01-03 09:35:32
19609
2
转载 mysql字符集修改（全）
一、修改my.ini配置文件（mysql配置文件）character_set_server = utf8 #设置字符集重启mysql数据库服务查看当前数据库字符集show VARIABLES like 'character%';二、修改数据库字符集alter database 数据库名 character set ut
2017-12-28 13:57:52
293
转载 idhttpserver接收数据
idhttpserver的commandget方法是这样写的： －－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－ if requestinfo.command = post then try coinitialize(nil); post_d
2017-12-27 15:39:03
2107
转载 mysql修改字符集
用root用户登录MySQL 1>查看当前编码格式 >show variables like 'character%'; +--------------------------+----------------------------+ | Variable_name | Value | +--------------------------+-------------
2017-12-26 15:35:27
170
转载 MySQL5.1字符集设置 (2010-12-31 16:01:49)
转载▼标签： 杂谈分类： Database---------------------------------------------------------------------------------------------------------------------------------------------
2017-12-26 11:06:11
692
转载 修改mysql字符集。。。
当向 MySQL 数据库插入一条带有中文的数据形如 insert into employee values(null,'张三','female','1995-10-08','2015-11-12','Sales',2000,'是个好员工！'); 出现乱码时，可以使用语句 show variables like 'character%'; 来查看当前数据库的相关编码集。从上图中可
2017-12-26 10:53:28
7326
转载 mysql
MySQL会出现中文乱码的原因不外乎下列几点： 1.server本身设定问题，例如server字符编码还停留在latin1 2.table的语系设定问题(包含character与collation) 3.客户端程式(例如php)的连线语系设定问题 强烈建议使用utf8!!!! utf8可以兼容世界上所有字符!!!!
2017-12-26 10:19:46
157
转载 增加根节点
procedure loadUser(Sender: TObject; qry1, qry2: TADOQuery; tree: TspSkinTreeView; var treeNode1, treeNode2, treeNode3: TTreeNode);//tree: TspSkinTreeView为皮肤控件类型 procedure TfrmUserMgr.loadUser(
2017-12-22 14:13:03
522
转载 Delphi TreeView使用方法
(2012-04-05 21:00:23)转载▼标签： delphi控件分类： 计算机TreeView使用笔记 TreeView由节点构成，建树通过对TreeView.items属性进行操作。Items是一个TTreeNodes对象，这是一个TTreeNode集。
2017-12-22 13:57:30
5705
转载 显示jpg
修改TDBImage的源碼. 具體操作如下: 1.找到Delphi6\Source\DBCtrls.pas,將其拷貝至目錄Delphi6\Lib中. 2.打開Delphi6\Lib\DBCtrls.pas,在uses中加入JPEG. 3.修改TDBImage.LoadPicture過程.新代碼如下: procedure TDBImage.LoadPicture; var
2017-12-17 11:58:33
186
转载 dbimage中如何装载jpg文件 2015-02-27 20:44:15| 分类： 电脑 |举报|字号 订阅 下载LOFTER我的照片书 | dbimage中如何装载jpg文
dbimage中如何装载jpg文件 2015-02-27 20:44:15| 分类： 电脑|举报|字号 订阅 下载LOFTER我的照片书 |dbimage中如何装载jpg文件 修改TDBImage的源碼. 具體操作如下:1
2017-12-17 11:47:30
373
转载 Delphi-VclZip用法详解 (2011-09-28 23:59:18)
转载▼标签： 分包 目录结构 压缩文件 目标目录 信息保存分类： 编程语言VclZip用法详Vclzip控件主要的类为TVclUnZip 和TVclZip 其中，TVclZip继承自TVclUnZip。网上的转帖用法： function Zip(Zip
2017-12-14 18:41:20
1104
转载 查找存储过程，判断mysql是否存在此列
DROP PROCEDURE IF EXISTS p7; --防止数据库中有这个存储过程，先删掉 CREATE PROCEDURE p7() BEGIN DECLARE nRetRowCount int; SELECT count(COLUMN_NAME) INTO nRetRowCount FROM inform
2017-12-07 12:54:46
4671
转载 232
判断字段是否存在：1 DROP PROCEDURE IF EXISTS schema_change; 2 DELIMITER // 3 CREATE PROCEDURE schema_change() BEGIN 4 DECLARE CurrentDatabase VARCHAR(100); 5 SELECT DATABASE() INTO CurrentDatabas
2017-12-07 11:21:03
238
转载 delphi运行一个bat文件
winexec(pchar('c:/test/test.bat'), SW_SHOW);第一个参数表示DOS命令的全路径，第二个表示运行方式SW_SHOW:显示运行，可以看得见DOS窗口SW_HIDE:隐藏运行，看不见DOS窗口还有SW_MAXIMIZE最小化运行先测试下，等下写完整的代码发上来。。。。。
2017-12-06 13:54:48
2768
转载 delphi调用bat文件
cmd:='echo d | Xcopy '+BasePath+' '+TargetPath+' /s/e'; i:=ShellExecute(Handle,nil,'cmd.exe',PChar('/K '+cmd),nil,SW_HIDE);ShellExecute(Handle,nil, 'cmd.exe',pchar('/C '+GetCurrentDir
2017-12-06 11:20:48
1007
转载 批处理
方法1 若有SQL脚本a.sql, b.sql, 其目录在f盘根目录下, 则可再写一个SQL脚本c.sql(假设其目录也在f盘根目录下, 也可以在其他路径下)如下: source f:/a.sql; source f:/b.sql; 然后执行source f:/c.sql 即可.方法2 方法1的不便之处在于, 要为每个脚本写一句代码, 若有成千上万个, 这样写便不现实.
2017-12-05 17:14:55
181
转载 mysql下如何执行sql脚本
mysql下如何执行sql脚本首要步骤(一般可省略):开启mysql服务(默认是开机时就自动运行了):控制面板-->管理工具-->服务,在里面找到名称为mysql的项,双击就可看它的服务状态是启动还是停止,把它设为启动连接mysql:在命令行下输入 mysql -h localhost -u root -p回车,然后输入密码即可;或直接运行mysql自带的连接工
2017-12-05 08:53:57
849
转载 delphi Format格式化函数
Format是一个很常用，却又似乎很烦的方法，本人试图对这个方法的帮助进行一些翻译，让它有一个完整的概貌，以供大家查询之用：首先看它的声明：function Format(const Format: string; const Args: array of const): string; overload;事实上Format方法有两个种形式，另外一种是三个参数的，主要区别在于它是线程安
2017-11-22 14:57:16
180
原创 ＵＴＦ８转中文
// // add by nextop 0707 如果是预约车，则取预约车的ID// if dmdataclient.getisnoordercar(license) then// begin//
2017-11-14 17:27:28
254
转载 mysql跟踪日志
第一步 创建以下两个 日志表 CREATE TABLE `slow_log` ( `start_time` timestamp NOT NULL DEFAULT CURRENT_TIMESTAMP ON UPDATE CURRENT_TIMESTAMP, `user_host` mediumtext NOT NULL,
2017-11-13 11:57:39
372
转载 热键
我win10系统试的追答一、在private下面 procedure HotKeyDown(var Msg: Tmessage); message WM_HOTKEY; //热键声明。二、var HotKeyId: Integer; //全局变量。三、FormCreate事件里写。1、HotKeyId := GlobalAddAtom('MyHotK
2017-11-12 20:57:28
235
转载 //以下代码在Delphi7 + XP SP3下测试通过 //button1为注册钩子屏蔽,button2为卸载钩子取消屏蔽F1 unit Unit1; interface uses Windo
//以下代码在Delphi7 + XP SP3下测试通过//button1为注册钩子屏蔽,button2为卸载钩子取消屏蔽F1unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;
2017-11-12 20:36:50
135
转载 生成随机代码
function RandomStr(majuscule:boolean;lowercase:boolean;number:boolean;digit:integer):string;//大写字母,小写字母,数字,字符串的位数var i: Byte; s: string;beginif majuscule thens := 'ABCDEFGHIJKLMNOPQRSTUV
2017-11-12 20:35:16
867
转载 indy１０获取对方ＩＰ及线程
在INDY10的IDTCPSERVER组件的OnExecute事件中，如果要获取对方的IP、端口和本机对应的线程ID，与INDY9 有所不同。本例是利用INDY10组件时，获得上述参数的代码。 uses IdSchedulerOfThread;.....procedure TForm1.IdTCPServer1Execute(AContext: TIdContext
2017-11-08 09:26:17
961
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人