自定义博客皮肤VIP专享

*博客头图:

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

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

博客底图:

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

栏目图:

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

主标题颜色:

RGB颜色,例如:#AFAFAF

Hover:

RGB颜色,例如:#AFAFAF

副标题颜色:

RGB颜色,例如:#AFAFAF

自定义博客皮肤

-+

转载 DELPHI支付宝支付代码

  真实业务场景的考虑按照支付宝或者微信支付的开发手册的说法,一个标准的客户端接入支付业务模型应该是这样的,我忽略时序图,只用文字描述:用户登录客户端,选择商品,然后点击客户端支付。客户端收集商品信息,然后调用自己业务平台的预付款接口。业务平台根据客户端提交的商品信息,生成自己的订单号等内容,并按...

2018-02-23 11:05:57

阅读数 792

评论数 0

转载 各种好用的代码生成器(C#)

 1:CodeSmith一款人气很旺国外的基于模板的dotnet代码生成器 官方网站:http://www.codesmithtools.com 官方论坛:http://forum.codesmithtools.com/default.aspx 版权形式:30天试用 开源:否 需要先注册确认后才能...

2018-02-23 08:42:16

阅读数 7394

评论数 2

转载 远程控制代码

procedure TForm1.Button1Click(Sender: TObject); var pwdset:IMsRdpClientAdvancedSettings; begin     Mstsc1.Server:=edtIP.Text;     Mstsc1....

2018-01-29 13:41:48

阅读数 979

评论数 2

转载 查看mysql连接数问题

查看mysql数据库连接数、并发数相关信息  1.mysql> show status like 'Threads%'; +-------------------+-------+ | Variable_name     | Value | ...

2018-01-26 14:43:04

阅读数 144

评论数 0

原创 命令查看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    ...

2018-01-25 14:04:25

阅读数 2389

评论数 0

转载 indy最多连接数

最近一个项目,最开始使用IdTcpServer,在大压力测试的时候,只连接了800个多一点的客户端(每个客户端连接上之后每秒钟发送一个几十字节的报文,服务器应答)。但是持续的时间不会超过10分钟,服务器就会挂掉(经常是服务器突然关闭消失,任何提示都没有)。后来优化了互斥量之后,可以连接到1000多...

2018-01-25 11:26:30

阅读数 120

评论数 0

转载 socket代码

The following Socket errors reported in Trace Log of config screen:   Socket error 10004 - Interrupted function call Socket error 10013 - Permissi...

2018-01-24 08:52:28

阅读数 360

评论数 0

转载 indy 10.5.7的数据发送接收的用法

发送结构体: TMyData = record       id:Integer;       Name:Array[0..20] of Char;       Sex:Array[0..10] of Char;       Age:Byte;       Address:Array[...

2018-01-08 15:21:13

阅读数 938

评论数 0

转载 idtcpserver主动向客户端发送数据demo

var   I: Integer;   ConnContext: TIdContext; begin   with IdTCPServer1.Contexts.LockList do   try     for I := 0 to Count - 1 do be...

2018-01-08 15:14:27

阅读数 1891

评论数 0

转载 解决发送字符时,中文乱码现象

这种问题的本质其实就是字符编码问题,只要统一下客户端和服务器的字符编码就行。 网上的解决办法一种就是用base64编码后发送,然后另一端解码。 另一种就是在readln和writeln时统一编码格式。如这里回答的: [delphi] view plain co...

2018-01-08 15:01:08

阅读数 754

评论数 0

转载 ping通各网站连接

{测试IP地址能否PING通} function ping(url: string): Boolean; var   i: Integer;   rst: Boolean;   err: String;   icmpClient: TIdICMPClient; ...

2018-01-08 14:17:35

阅读数 303

评论数 0

转载 Delphi IdTCPClient 点对点传送文件

客户端向另一个客户端传送文件,不通过服务端中转 那一个很重要的点是,这个客户端也要放一个IdTCPServer,也就是说这个客户端既是客户端,当接收文件的时候也是服务端,必须相应其它客户 端对它的连接,这个时候客户端相当与服务端,好了,明白这个道理就好办了 A客户端(放一...

2018-01-08 14:10:52

阅读数 544

评论数 0

转载 dbgrid设置属性

DBGridEh1.FooterRowCount:=1;         DBGridEh1.SumList.Active:=True;         DBGridEh1.FootColor:=clInfoBk;         DBGridEh1.Columns[0].Footer.Va...

2018-01-03 10:39:25

阅读数 415

评论数 0

转载 dbgrideh属性

可惜做好的表格传不下来,只好粘成纯文本了 属性子选项值 说明 Allowedoperations[alopInsertEh,alopUpdateEh,alopDeleteEh,alopAppendEh]允许操作类型:插入、更新、删除、追加 Allowedselections[gst...

2018-01-03 10:37:53

阅读数 202

评论数 0

转载 自动适应列宽

以下这段过程是本人自制的TSortDBG的自动调整显示宽度的过程,其中self指本TSortDBG. /////////////////////////////////////////////////////////// procedure TSortDBG.AdjustShowColum...

2018-01-03 09:42:13

阅读数 438

评论数 0

转载 mysql中对字符串排序

mysql中对字符串排序,字符串中有数字有汉字,想按数字的大小来进行排序。仅仅用order by排序,效果不是想要的。         sql语句为: [sql] view plain copy select id,dict_name,ty...

2018-01-03 09:35:32

阅读数 7328

评论数 0

转载 mysql字符集修改(全)

一、修改my.ini配置文件(mysql配置文件) character_set_server = utf8 #设置字符集 重启mysql数据库服务 查看当前数据库字符集 show VARIABLES like 'character%'; ...

2017-12-28 13:57:52

阅读数 127

评论数 0

转载 idhttpserver接收数据

idhttpserver的commandget方法是这样写的:      -----------------------------------          if   requestinfo.command   =   post   then                try   ...

2017-12-27 15:39:03

阅读数 1188

评论数 0

转载 mysql修改字符集

用root用户登录MySQL  1>查看当前编码格式  >show variables like 'character%';  +--------------------------+----------------------------+  | ...

2017-12-26 15:35:27

阅读数 57

评论数 0

转载 MySQL5.1字符集设置 (2010-12-31 16:01:49)

转载▼ 标签:  杂谈 分类: Database ------------------------------------------------------------------------------------------...

2017-12-26 11:06:11

阅读数 527

评论数 0

转载 修改mysql字符集。。。

当向 MySQL 数据库插入一条带有中文的数据形如 insert into employee values(null,'张三','female','1995-10-08','2015-11-12','Sale...

2017-12-26 10:53:28

阅读数 6672

评论数 0

转载 mysql

MySQL会出现中文乱码的原因不外乎下列几点:   1.server本身设定问题,例如server字符编码还停留在latin1   2.table的语系设定问题(包含character与collation)   3.客户端程式(例如php)的连线语系设定问题 ...

2017-12-26 10:19:46

阅读数 44

评论数 0

转载 增加根节点

procedure loadUser(Sender: TObject; qry1, qry2: TADOQuery; tree: TspSkinTreeView; var treeNode1, treeNode2, treeNode3: TTreeNode); //tree: TspSkin...

2017-12-22 14:13:03

阅读数 179

评论数 0

转载 Delphi TreeView使用方法

(2012-04-05 21:00:23) 转载▼ 标签:  delphi控件 分类: 计算机 TreeView使用笔记         TreeView由节点构成,建树通过对TreeView.items...

2017-12-22 13:57:30

阅读数 1618

评论数 0

转载 显示jpg

修改TDBImage的源碼. 具體操作如下:  1.找到Delphi6\Source\DBCtrls.pas,將其拷貝至目錄Delphi6\Lib中.  2.打開Delphi6\Lib\DBCtrls.pas,在uses中加入JPEG.  3.修改TDBImage.LoadPicture過程...

2017-12-17 11:58:33

阅读数 59

评论数 0

转载 dbimage中如何装载jpg文件 2015-02-27 20:44:15| 分类: 电脑 |举报|字号 订阅 下载LOFTER我的照片书 | dbimage中如何装载jpg文

dbimage中如何装载jpg文件   2015-02-27 20:44:15|  分类: 电脑|举报|字号 订阅        下载LOFTER我的照片书  | ...

2017-12-17 11:47:30

阅读数 121

评论数 0

转载 Delphi-VclZip用法详解 (2011-09-28 23:59:18)

转载▼ 标签:  分包   目录结构   压缩文件   目标目录   信息保存 分类: 编程语言 VclZip用法详 Vclzip控件主要的类为TVclUnZip 和TVclZip 其中,TVcl...

2017-12-14 18:41:20

阅读数 351

评论数 0

转载 查找存储过程,判断mysql是否存在此列

DROP PROCEDURE IF EXISTS p7;    --防止数据库中有这个存储过程,先删掉      CREATE PROCEDURE p7()   BEGIN          DECLARE nRetRowCount int;          SELECT count(COLUM...

2017-12-07 12:54:46

阅读数 2794

评论数 0

转载 232

判断字段是否存在: 1 DROP PROCEDURE IF EXISTS schema_change; 2 DELIMITER // 3 CREATE PROCEDURE schema_change() BEGIN 4 DECLARE CurrentDatabase VAR...

2017-12-07 11:21:03

阅读数 82

评论数 0

转载 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

阅读数 1081

评论数 0

转载 delphi调用bat文件

cmd:='echo d | Xcopy '+BasePath+' '+TargetPath+' /s/e';     i:=ShellExecute(Handle,nil,'cmd.exe',PChar(�...

2017-12-06 11:20:48

阅读数 413

评论数 0

转载 批处理

方法1  若有SQL脚本a.sql, b.sql, 其目录在f盘根目录下, 则可再写一个SQL脚本c.sql(假设其目录也在f盘根目录下, 也可以在其他路径下)如下:  source f:/a.sql;  source f:/b.sql;  然后执行source f:/c.sql 即可. ...

2017-12-05 17:14:55

阅读数 46

评论数 0

转载 mysql下如何执行sql脚本

mysql下如何执行sql脚本 首要步骤(一般可省略): 开启mysql服务(默认是开机时就自动运行了): 控制面板-->管理工具-->服务,在里面找到名称为mysql的项,双击就可看它的服务状态是启动还是停止,把它设为启动 连接mysql: 在命令行下输入 ...

2017-12-05 08:53:57

阅读数 128

评论数 0

转载 delphi Format格式化函数

Format是一个很常用,却又似乎很烦的方法,本人试图对这个方法的帮助进行一些翻译,让它有一个完整的概貌,以供大家查询之用: 首先看它的声明: function Format(const Format: string; const Args: array of const): string; ...

2017-11-22 14:57:16

阅读数 82

评论数 0

原创 UTF8转中文

//                          //  add by nextop 0707    如果是预约车,则取预约车的ID //                          if dmdataclient.getisnoordercar(license) then // ...

2017-11-14 17:27:28

阅读数 110

评论数 0

转载 mysql跟踪日志

第一步 创建以下两个 日志表 CREATE TABLE `slow_log` ( `start_time` timestamp NOT NULL DEFAULT CURRENT_TIMESTAMP ON UPDATE CUR...

2017-11-13 11:57:39

阅读数 208

评论数 0

转载 热键

我win10系统试的 追答 一、在private下面 procedure HotKeyDown(var Msg: Tmessage); message WM_HOTKEY; //热键声明。 二、var HotKeyId: Integer; //全局变量。 三、...

2017-11-12 20:57:28

阅读数 65

评论数 0

转载 //以下代码在Delphi7 + XP SP3下测试通过 //button1为注册钩子屏蔽,button2为卸载钩子取消屏蔽F1 unit Unit1; interface uses Windo

//以下代码在Delphi7 + XP SP3下测试通过 //button1为注册钩子屏蔽,button2为卸载钩子取消屏蔽F1 unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes...

2017-11-12 20:36:50

阅读数 55

评论数 0

转载 生成随机代码

function RandomStr(majuscule:boolean;lowercase:boolean;number:boolean;digit:integer):string; //大写字母,小写字母,数字,字符串的位数 var  i: Byte;  s: string; beg...

2017-11-12 20:35:16

阅读数 344

评论数 0

转载 indy10获取对方IP及线程

在INDY10的IDTCPSERVER组件的OnExecute事件中,如果要获取对方的IP、端口和本机对应的线程ID,与INDY9 有所不同。本例是利用INDY10组件时,获得上述参数的代码。   uses IdSchedulerOfThread; ..... proced...

2017-11-08 09:26:17

阅读数 451

评论数 0

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