ysgs129-CSDN博客

原创设计模式二：工厂模式中的简单工厂模式

#include “stdafx.h”#include #include #include <afx.h>using namespace std;class CommandBase{public:CommandBase(){};virtual ~CommandBase(){};virtual void commandver(){};virtual void com...

2020-05-04 10:17:56 244 1

原创设计模式一：命令模式

#include “stdafx.h”//#include <stdio.h>#include using namespace std;class CommandBase{public://CommandBase(){};//virtual ~CommandBase(){};virtual void commandver(){};virtual void comma...

2020-05-04 10:16:43 189

原创 fcvt位数为转换精度

功能：指定位数为转换精度，其余同ecvt　　用法：char *fcvt(double value, int ndigit, int *decpt, int *sign);　　详细解释：fcvt函数把一个双精度浮点数转换成一个字符串。value参数是要转换的浮点数。参与转换的实际值保留的小数位数由ndigit决定。　　只有数字才存储在该字符串中,小数点位置和value符号在调用之后从dec...

2020-05-04 10:15:46 314

原创 atoi、atol、strtod、strtol、strtoul、gcvt、ecvt、fcvt、sprintf、toascii、tolower类型转换

atof（将字符串转换成浮点型数）相关函数atoi，atol，strtod，strtol，strtoul表头文件#include定义函数double atof(const char nptr);函数说明atof()会扫描参数nptr字符串，跳过前面的空格字符，直到遇上数字或正负符号才开始做转换，而再遇到非数字或字符串结束时(’\0’)才结束转换，并将结果返回。参数nptr字符串可包...

2020-05-04 10:13:49 412

原创 #pragma pack(push,1) (pop)

本文主要包括二个部分，第一部分重点介绍在VC中，怎么样采用sizeof来求结构的大小，以及容易出现的问题，并给出解决问题的方法，第二部分总结出VC中sizeof的主要用法。1、 sizeof应用在结构上的情况请看下面的结构：struct MyStruct{double dda1;char dda;int type};对结构MyStruct采用sizeof会出现什么结果呢？size...

2020-05-04 10:12:51 665

原创 AFX_MANAGE_STATE(AfxGetStaticModuleState())

以前写MFC的DLL的时候，总会在自动生成的代码框架里看到提示，需要在每一个输出的函数开始添加上AFX_MANAGE_STATE (AfxGetStaticModuleState())。一直不明白这样做的含义，也一直没有这样做，而且代码也工作得好好的，所以感觉这好像一句废话。最近的项目中，需要在DLL里使用MFC生成界面，这才发现一旦资源放在不同的动态库里，而且还和多线程搅和在一起的时候，事情就...

2020-05-04 10:12:02 1422

原创 char**的含义

int CompStrLen(const void* a, const void* b){if(strlen((char**)a)==strlen((char**)b))return strcmp((char**)a, (char*)b);return strlen((char**)a) - strlen(*(char**)b);}不明白为什...

2020-05-04 10:11:01 4375

原创禁止程序重復啟動的技巧

Mutex 作为系统核心对象是可以跨进程的(临界区就不行), 我们可以利用互斥对象禁止程序重复启动.工作思路:先用 OpenMutex 尝试打开一个自定义名称的 Mutex 对象, 如果打开失败说明之前没有这个对象存在;如果之前没有这个对象, 马上用 CreateMutex 建立一个, 此时的程序应该是第一次启动;再重复启动时, 那个 OpenMutex 就有结果了, 然后强制退出.最后...

2020-05-02 10:36:13 140

原创 Delphi方法的类型

对象的方法能定义成静态(static)、虚拟(virtual)、动态(dynamic)或消息处理(message)。请看下面的例子： TFoo = class procedure IAmAStatic; procedure IAmAVirtual; virtual; procedure ...

2020-05-02 10:35:15 261

原创 Delphi控件开发浅入深出（八）

Delphi的一大亮点就是它的数据库开发能力。而数据敏感组件则在这中间起着很重要的作用。在Delphi的Data Control页面下的控件都是用于显示和编辑数据库中的数据的。相信大家已经体会到数据敏感控件的好处了。我们这一节就给大家演示一下数据敏感控件的开发方法。需要提醒大家的是，不像其他体系的控件，数据敏感控件并没有一个统一的基类，只要是从TwinControl类或其子类派生就可以，数据敏感...

2020-05-02 10:34:14 154

原创 Delphi控件开发浅入深出（七）

Delphi中有很多对话框组件，例如TopenDialog、TfontDialog等。这些控件的特点就是虽然是不可视控件，但是在运行时都有一个可视化的效果，比如TopenDialog的可视化效果就是一个打开对话框。我们这次将开发一个日期对话框控件，当我们调用控件的Execute方法（不一定非要使用Execute方法，不过大部分对话框控件都是使用这个方法，我们也就按照惯例来了）时，就会弹出一个可以选...

2020-05-02 10:33:03 188

原创 Delphi控件开发浅入深出（六）

控件的关联在Delphi中也是很常见的，我们可以设定一个控件的某个属性指向另一个控件。比如我们在窗体上放上Tedit,TpopupMenu两个控件，然后设定Tedit的PopupMenu属性为TpopupMenu控件，运行后在Tedit点击右键就会弹出刚才设定的那个TpopupMenu菜单，也就是说Tedit,TpopupMenu联手完成了任务。再比如TDBEdit控件的DataSource属性就...

2020-05-02 10:32:01 291

原创 Delphi控件开发浅入深出（五）

复合控件是Delphi控件中非常重要的一种控件，复合控件就是将两个或两个以上的控件重新组合成一个新的控件。例如TspinEdit、TlabeledEdit、TDBNavigator等就是复合控件，TDBNavigator其实就是在一个Panel放上若干个Button而已。制作一个复合控件时，我们一般从TwinControl派生控件。我们这次做的控件是拥有一个Edit编辑框和一个Button按钮的...

2020-05-02 10:30:50 189

原创 Delphi控件开发浅入深出（四）

我们这个控件将演示控件的自定义事件的书写。这个控件有一个类型为string的SensitiveText属性，当用户在输入框中输入的文字为InvalidText时就会触发OnSensitiveText事件。按照惯例，我先把源码展示给大家：unit TextSenseEdit;interfaceusesSysUtils, Classes, Controls, StdCtrls;typeTS...

2020-05-02 10:29:41 190

原创 Delphi控件开发浅入深出（三）

用过Delphi1（好古老的东东呀！）的人相信都记得这个开关控件，不知道当初Borland为什么把这么一个在开发普通应用程序中应用不到的工控控件放到Delphi中，而且在Delphi2及其以后的版本中再也没有见过它的身影。让我们怀着怀旧的心情把这位“开国元老”请出来吧！1、建立位图资源文件：用Image Editor建立一个Res文件，并在文件中分别建立下面两个位图，并分别命名为SWITCH...

2020-05-02 10:28:36 230

原创 Delphi控件开发浅入深出(二)

通过开发上边这个控件，我们已经对Delphi控件开发有了基本的认识。下面我们将系统的讲述一下控件开发的知识。制作控件第一件事就是选择适当的 Delphi对象类型作为父对象，以派生新的对象。子对象可以继承父对象的全部非 private部件，但不能摆脱不需要的部件。因此，所选父对象应尽可能多地包含子对象所需的属性、事件和方法，但不应包含子对象不需要的东西。Delphi必须从Tcomponent或Tc...

2020-05-02 10:27:14 186

原创 Delphi控件开发浅入深出(一)

有人说过“不会开发控件的Delphi程序员不是真正的程序员”。Delphi正是由于高度的可扩展性和大量的第三方控件的支持才能吸引无数程序员挑剔的目光。即使是由于工作需要使用其他开发工具的开发者也常常怀念和Delphi度过的日日夜夜。接触Delphi已经一年多了，从当初对着Delphi组件面板上上百个控件不知所措，到现在已经可以根据需要开发一些有一定难度的控件，其中走过的路是十分艰辛的，所以特此写下...

2020-04-26 14:31:02 351

原创禁止程序重復啟動的技巧

2020-04-26 14:28:54 155

原创 Delphi方法的类型

2020-04-26 14:27:58 120

原创 QQ农场外挂源代码

//QQ农场外挂源代码unit WebQQFunction;interfaceusesWindows, SysUtils, Classes, StdCtrls, IdBaseComponent, IdComponent, StrUtils, ExtCtrls,IdTCPConnection, IdTCPClient, IdHTTP, jpeg, IdAuthentication, IdH...

2020-04-25 09:50:28 3707 1

原创 delphi中string如何转化为array of char

1：我知道，我对这方面研究很深！标准答案：例子:procedure TForm1.Button1Click(Sender: TObject);varmychar: array of char;mystr: string;beginmystr:=‘this’;setlength(mychar,4); //设置数组长度move(mystr[1],mychar[0],length(my...

2020-04-25 09:47:56 1875

原创两个变量的值交换方法

我分析了一下执行代码中间变量：Temp := Num1;Num1 := Num2;Num2 := Temp;加减：Num1 := Num1 + Num2;Num2 := Num1 - Num2;Num1 := Num1 - Num2;乘除：Num1 := Num1 * Num2;Num2 := Num1 div Num2;Num1 := Num1 div Num2;异或...

2020-04-25 09:46:57 403

原创 Delphi 中String类型原理介绍

Delphi中字符串的操作很简单，但幕后情况却相当复杂。Pascal传统的字符串操作方法与Windows不同，Windows吸取了C语言的字符串操作方法。32位Delphi中增加了长字符串类型，该类型功能强大，是Delphi缺省的字符串类型。字符串类型在Borland公司的TurboPascal和16位Delphi中，传统的字符串类型是一个字符序列，序列的头部是一个长度字节，指示当前字符串的长度...

2020-04-25 09:45:47 749

原创怎么获取本机网卡号

unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls;constMAX_ADAPTER_NAME_LENGTH = 256;MAX_ADAPTER_DESCRIPTION_LENGTH = 12...

2020-04-24 14:40:13 359

原创獲取flash句柄

function EnumerateChildWindows(hWnd: HWND; lParam: LPARAM): BOOL; stdcall;varClassName: Array[0…255] of char; // this holds the class name of our child windowsbeginGetClassName(hWnd,ClassName,25...

2020-04-24 14:38:58 290

原创結構體文件的讀寫(.dat)

讀寫方式一：KChratList := TLRDL2StyleList.Create(‘E:\Voice-king\ADSLRDLC_CE2\090602.dat’);//重點k:=0;for i:= KChratList.Count-1 downTo 0 dobegininc(k);if k >2000 then Break;TheItem := KChratList[i];...

2020-04-24 14:37:54 195

原创勾子用法實例

unit hook11;interfaceusesWindows,SysUtils,Classes,Messages;typePKBDLLHOOKSTRUCT = ^KBDLLHOOKSTRUCT;KBDLLHOOKSTRUCT = recordvkCode: DWORD;ScanCode: DWORD;Flags: DWORD;Time: DWORD;dwExtraI...

2020-04-24 14:36:29 122

原创 Interface 在DELPHI里的用法示例

任务描述：我们有4个类，分别生成4个对象：A、B、C、DA需要调用B的方法，把数据送给B；然后，B调用C的方法，把A送来的数据送给C；然后，C调用D的方法，把B送来的数据送给D；然后，当D使用完这个数据后，D要调用C的方法将处理结果通知C；C再把处理结果通知B；B再把处理结果通知A；要求：写A、B、C、D四个类的时候，要避免对象之间的紧密偶合。按传统做法，大概是让A、B、C、D四...

2020-04-23 19:35:15 536

原创 delphi面向對象的覆蓋和重載代碼例子

unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls;typeTForm1 = class(TForm)Button1: TButton;Button2: TButton;Edit1: TEdit;pr...

2020-04-23 19:33:53 135

原创设计模式的形象比喻

1、FACTORY—追MM少不了请吃饭了，麦当劳的鸡翅和肯德基的鸡翅都是MM爱吃的东西，虽然口味有所不同，但不管你带MM去麦当劳或肯德基，只管向服务员说“来四个鸡翅”就行了。麦当劳和肯德基就是生产鸡翅的Factory　　工厂模式：客户类和工厂类分开。消费者任何时候需要某种产品，只需向工厂请求即可。消费者无须修改就可以接纳新产品。缺点是当产品修改时，工厂类也要做相应的修改。如：如何创建及如何向客户...

2020-04-23 19:32:44 107

原创 delphi读写txt文件

memo控件读取txtmemo1.Lines.LoadFromFile(‘E:**.txt’);Procedure NewTxt(FileName:String);VarF : Textfile;Beginif fileExists(FileName) then DeleteFile(FileName); {看文件是否存在,在就刪除}AssignFile(F, FileNa...

2020-04-23 19:30:56 792

原创团队管理的秘籍

团队管理的秘籍真正的管理者懂得用价值观选择人才，用情感维系团队的凝聚力，用数据明确指导的方向，用业绩标杆刺激团队的积极性，用“我做你看，我说你听；你做我看，你说我听”的16字法则进行过程的管控，用培训提高程序员的能力不守规则的或者没有能力的需要淘汰管理是盯出来的，技能是练出来的，办法是想出来的，潜力是逼出来的...

2020-04-21 12:51:22 199

原创桌面无图标注册表配置项

桌面无图标注册表配置项： [HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer] NoDesktop=dword:00000001 NoNetHood=dword:00000001 NoInternetIcon=dword:00000001 ...

2020-04-21 12:45:19 297

原创银联返回码表

网关类型银联返回码后台返回码后台返回码对应信息 ATMP网关 0 BDP0472 没有未登折 ATMP网关 0 SUCCESS 成功 ATMP网关 6 BTM0015 会计核算记帐失败 ATMP网关 13 BMB0047 交易金额必须大于零 ATMP网关 25 BMB0080 没有该...

2020-04-21 12:43:25 2860

原创测试FTP可以通过FTP的Dos命令

测试FTP可以通过FTP的Dos命令，如在运行框里输入FTP后进入DOS窗口后输入连接open,然后输入用户名和密码，进入根目录后，再输入dir显示目录下的文件夹，cd命令可进入显示的文件夹里，如果进不去，可能是权限不够所导致的 FTP的Dos常用命令： 1. open：与ftp服务器相连接；如：open 192.168.1.1 ...

2020-04-21 12:38:23 894

原创 C#的webbrowser控件默认的ie版本是IE7也可以设置程序的使用的其他IE版本

C#的webbrowser控件默认的ie版本是IE7,但可以设置程序的使用的IE版本，如以下代码所示： string productName = AppDomain.CurrentDomain.SetupInformation.ApplicationName;//获取程序名称 object version = 0x2EDF; ...

2020-04-20 12:04:21 638

原创 WPF页面checkbox,comobox的事件的捕捉的方法

WPF页面checkbox,comobox的事件的捕捉的方法 protected override emBusiCallbackResult_t InnerOnUIEvtHandle(IUIService iUI, UIEventArg argUIEvent) { string keyName = argUIEvent....

2020-04-20 11:58:33 860

原创 iTextSharp里的PdfWriter定位添加图片的方法

iTextSharp里的PdfWriter定位添加图片的方法 Document document = new Document(iTextSharp.text.PageSize.A4, 5, 5, 5, 5); string pdfFile = string.Format("{0}.pdf", Guid.NewGuid().ToString()); ...

2020-04-20 11:52:25 1734

原创 html批量转换为pdf方法

html批量转换为pdf方法 public const string s_wkHtmlToPDF = “wkhtmltopdf.exe”; /// /// 生成PDF /// /// /// /// public...

2020-04-20 11:50:27 1240

原创 html的页面转换为图片使用webBrowser组件后webBrowser_DocumentCompleted的事件不能响应的问题的解放方案

html的页面转换为图片使用webBrowser组件后webBrowser_DocumentCompleted的事件不能响应的问题的解放方案html的页面转换为图片，使用webBrowser组件，但webBrowser_DocumentCompleted的事件不能响应可通过以下方法实现： while (webBrowser.ReadyState != WebBrow...

2020-04-20 11:47:21 188