云守护的专栏

DateTimeToFileDate                  函数                     将DELPHI的日期格式转换为DOS的日期格式         DateTimeToStr                          函数                     将日期时间格式转换为字符串         DateTimeToString

unit Unit1;interfaceuses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,Soap.EncdDecd,IdHashMessageDigest,IdSSLOpenSSL,IdSSLOpenSSLHeaders, V

unit Unit4;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ShellAPI, ShlObj, uThreadPool;type TForm4 = class(TForm) Button1:

http://www.jrsoftware.orgTb97 最有名的工具条(ToolBar)控件库,仿Office97，如TDoCk97,TToolBar97,TEdit97,TToolWindow97等.http://www.fltvu.com/jiaocheng/chenxu1/delphi/vCl/index.htmhttp://www.delphiarea.com/

1、// 根据字符串，拆分字符串，相当于vb中的split函数function SplitString(const Source, ch: string): TStringList;var temp: String; i: Integer;begin Result := TStringList.Create; // 如果是空自符串则返回空列表 if Source

delphi 2010多线程使用 TRefreshThread = class(TThread) protected procedure Execute; override; public pMainForm:TForm_case_materal_list; end;procedure TRefreshThread.Execute;begin inhe

procedure TForm5.Button4Click(Sender: TObject);var O, item: ISuperObject; Strm: TStringStream; result: string; ctx: TSuperRttiContext; student: TStudent;begin //可以参考superobject 的readme.h

DelphiAducom's SQLite: Open source (NewBSD) Delphi (4..2007) C++ (BCB5, 6, 2007) and 2009/2010 components for SQLite V2.8.x and V3.x.x. (like TASQLiteDB, TASQLiteQuery, TASQLiteTable, TASQLiteUp

unit main;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Menus, ComCtrls, StdCtrls, DB, DISQLite3DataSet, DISQLite3Database, DISQLite3Cache

PHPRPC 是一个轻型的、安全的、跨网际的、跨语言的、跨平台的、跨环境的、跨域的、支持复杂对象传输的、支持引用参数传递的、支持内容输出重定向的、支持分级错误处理的、支持会话的、面向服务的高性能远程过程调用协议。遇到的问题总结：Fatal error: Cannot redeclare gzdecode() in1、重命名compat.php、phprpc_client.php的gzd

unit Unit_main;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, TypInfo;type TForm_main = class(TForm) Button1: TButton;

php server<?php require_once('src/Hprose.php'); function hello($name) { echo "Hello $name!"; return "Hello $name!"; } function e() { throw new Exception("I am

unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, IdContext, IdBaseComponent, IdComponent, IdCustomTCPServer, IdTCPServer

http://blog.sina.com.cn/hblyuhong按往年惯例，今年Delphi的第二个版本XE9应该在9月份发布，如此计算，也就是一个月的时间。经过对XE8 update1的测试，感觉对于跨平台开发来说，已经实用化，对于企业级的应用非常成熟，个人对XE9的新功能真的是没什么期待，最关心的还是对FMX的持续提升与优化以及效率的改进，尤其是对android及ios平台的支持与开

program Project1;uses Windows;{$R *.res}function MakeMeCritical(Yes: Boolean): Boolean;const SE_DEBUG_PRIVILEGE = $14; SE_PROC_INFO = $1D;var Enabled: PBOOL; DllHandle: THandle; Bre

unit uBugReport;interfaceuses Windows, SysUtils, SyncObjs; procedure ReportBug(pszBugStr: PChar); stdcall;implementationvar LogFileLock: TCriticalSection;function GetAppRoot: string;

概述：  ^: 指针  @: 取址  #: 十进制符  $: 十六进制符@:取址运算符;var  int:integer;  p:^integer;begin  new(P);  int:=24;  p:=@int;  dispose(P);end;^:指针的引用解析操作符;var  pint:^integer

procedure TForm_main.Button5Click(Sender: TObject);var myStream:TFileStream; myFileSize:Integer; myTextFile:TextFile; text,data,fileStr:string; fileData:TStringList; memory:TMemoryStream;

在windows系统中，可以通过Regsvr32来实现注册ocx或者dl，编程时，调用Regsvr32来注册，却不能正常执行。尤其是在Win7系统中，需要管理员身份才能运行。使用下面的代码则能正常注册。//注册function RegisterDllServer(FileName: string): boolean;var nDllAddr: integer;

1、delphi.dprprogram Project1;{$APPTYPE CONSOLE}usesSysUtils;beginWriteln('Hello Word!');Readln;end.2、run.bat@echo offfor /f "tokens=4" %%i in ('reg query HKCU/Software/Borland/Delphi/7.0

Delphi中TWebBrowser控件增强版，增加控制浏览器的滚动条，右键菜单，3D边框属性，可以通过设置属性隐藏TWebBrowser的滚动条，右键菜单，3D边框，使之不可见。控件代码如下：unit WebBrowserWithUI;interfaceuses Windows, Messages, SysUtils, Classes, Graphics, Controls

1、查看system32是否存在msinet.ocx否则首先下载http://download.pchome.net/dll/m/down-171382-1.html2、64位系统，放到“C:\Windows\SysWOW64”（不含引号）里面然后运行cmd，输入“regsvr32 c:\windows\syswow64\MSINET.OCX”（不含引号），再按回车键这样应该能注册

unit Unit3;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Comserv, HTTPApp;type TForm3 = class(TForm) Button1: TButton;

unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; Button2: TButton;

WindowDemo.dpr////////////////////////////////////////////////////////////////////////////////////// FileName : WindowDemo.dpr// Creator : Shen Min// Date : 2002-3-2//

VER10  :Turbo Pascal 1VER20  : Turbo Pascal 2VER30  : Turbo Pascal 3VER40  : Turbo Pascal 4VER50  : Turbo Pascal 5VER60  : Turbo Pascal 6VER70  : Turbo Pascal 7VER80  : Delphi 1VER90  

新建一个包工程：unit ActiveButton;interfaceuses Windows,Graphics,Classes,Controls,ExtCtrls,Messages;type TActiveButton = class(TCustomPanel) private FPicOnMouseDown: TPicture; FPicOnMouse

//K8执行DOS并返回结果function RunDosCommand(Command: string): string;var hReadPipe: THandle; hWritePipe: THandle; SI: TStartUpInfo; PI: TProcessInformation; SA: TSecurityAttributes; // SD

经常有朋友提这样的问题，“我原来在delphi5或者delphi6中用的很熟的控件到哪里去了？是不是在delphi7中没有了呢？这是不是意味着我以前写的代码全都不能够移植到delphi7中来了呢？是不是我必须学习适应这些新的控件呢？”现在我就对这一问题进行解释，并对在delphi7中的VCL以及CLX进行一下总结，方便有这方面需求的朋友进行查询其实，我们在原来版本如D5、D6中使用

小知识C++中以&的参数在Delphi必须以const或者var申明，否则会产生错误。WIN32PROJECT1_API void test8(RECT &a) { a.left = 1; a.top = 2; a.right = 3; a.bottom = 4; } 此时参数为 RECT &a，在Delphi中有两种申明方式，各有不同方式一 varprocedur