Delphi
关注
分享
扫一扫
文章平均质量分 57
EricYeung
这个作者很懒，什么都没留下…
展开
-
Delphi 7 的 quine
{ the actual program should not have line-break }program quine;{$APPTYPE CONSOLE}uses SysUtils;const s = program quine;{$APPTYPE CONSOLE uses SysUtils; const s = %s%s%s; begin WriteLn(Format(s, [#39,原创 2005-12-22 17:06:00 · 1926 阅读 · 1 评论 -
[DataSet Error] Record not found or changed by another user
-- the source of the problem: use the datetime field value to locate the record -- the particular SQL statement generated by delhpi ADOExpress exec sp_executesql Ndelete from test_table where sequ原创 2007-05-16 17:21:00 · 1631 阅读 · 0 评论 -
MSComm Installation
1) download MSCOMM32.OCX and put it into C:/Windows/system2) run: regsvr32 MSCOMM32.OCX3) run: regedit add a key under HKEY_CLASSES_ROOT/Licenses, key name = 4250E830-6AC2-11cf-8ADB-00AA00C00905 defa原创 2007-05-17 14:13:00 · 834 阅读 · 0 评论 -
Delphi MIDAS Architecture
Client Host Application Server DataBase Server=======================================================================原创 2007-05-20 02:10:00 · 785 阅读 · 0 评论 -
Simple DataField Validation & Get Data Info
Simple DataField Validation & Get Data Infoprocedure ValidAndGetInfo(ADataSet: TDataSet; ASQL, AError, AResultSetField: string; RaiseException: Boolean = true);var cds: TClientDataSet; AList: TSt原创 2007-05-23 18:31:00 · 1052 阅读 · 0 评论 -
請教com物件與com+物件定義問題? [ZZ from Delphi KTop]
http://delphi.ktop.com.tw/board.php?cid=30&fid=68&tid=437061 com物件定義?可否同時存在客戶端與應用程式伺服端?2 com+物件定義?3 Tclientdataset與Tdatasetprovider是com物件?4 還有那些物件算com或com+物件?1.COM (Component Object Model)簡單來說只是一转载 2007-05-23 18:47:00 · 1134 阅读 · 0 评论 -
Where Does TDCOMConnection.ServerName List Comes From?
from HK_CLS_ROOT/CLSID/try locate at HK_CLS_ROOT/CLSID and search string原创 2007-05-23 18:39:00 · 1501 阅读 · 0 评论 -
分布式数据库应用开发正解[转载]
分布式数据库应用开发正解 [系列之一]Delphi做为一个快速应用开发工具，深受程序员的喜爱。其强大的组件功能，让程序员能够轻松、高效地完成常见的界面开发、数据库应用等功能。然而，帮助的相对缺乏，使得许多组件的功能并不为人们正确地使用，究其原因，仍然是认识上的问题。对于MIDAS开发中的核心部件，TClientDataSet和TDataSetProvider，由于资料的缺乏，人们在网上大多谈论的转载 2007-05-24 09:33:00 · 1001 阅读 · 0 评论 -
Delphi COM Programming Study Note
in Theory: MyIntf := TMyIntf.create(10); MyIntf.AddRef; MyIntf.DoSth; MyIntf.Release;in delphi: MyIntf := TMyIntf.create(10); MyIntf.DoSth; //do not call MyIntf.Free---------All In-Process COM Ser原创 2007-05-24 11:09:00 · 991 阅读 · 0 评论 -
Show Waiting Status (Without Thread)
{When user click button, a window will showup with a Animate, progressbar, and a updated time label;} unit fMain;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Co原创 2007-05-24 11:36:00 · 1428 阅读 · 0 评论 -
在Delphi7中调试COM+ [ZZ]
在Delphi7中调试COM+ 刘晓明（Cipher）收集整理 开发COM+应用系统最令人头痛的问题便是如何调试 COM+组件了。由于COM+是执行在COM+的执行环境中，因此Delphi 的程序员无法像Delphi的分布式多层转载 2007-05-23 18:53:00 · 1082 阅读 · 0 评论 -
subthread(handling busy operation) notify mainthread to update UI
Call PostMessage inside TMyThread.Execute to tell Main Form to update UIunit MyConsts;interfaceuses Messages;const WM_UPDATE_STATUS = WM_USER + 1;implementationend.//////////////////////原创 2007-05-24 11:18:00 · 1013 阅读 · 0 评论 -
Delphi DataSet Architecture vs ADO.Net [ZZ]
转载 2007-06-16 09:41:00 · 816 阅读 · 0 评论 -
State pattern (Delphi)
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TState = class; TEmptyState = class; TSurplusState = class; TOverdrawSt原创 2008-01-31 10:53:00 · 716 阅读 · 0 评论 -
Decorator pattern (Delphi)
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TDuck = class public procedure Quack; virtual; end; TDuckCanFly = cl原创 2008-01-31 10:42:00 · 633 阅读 · 0 评论 -
Retrieve multi-result set with ADO (Delphi)
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, DB, ADODB, Grids, DBGrids, FMTBcd, DBXpress, DBClient, ComObj;type TForm1 = c原创 2008-01-31 10:56:00 · 560 阅读 · 0 评论 -
Map (Delphi)
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Contnrs, StdCtrls;type TMapEntry = class Key: string; Value: TObject; construct原创 2008-01-31 10:44:00 · 1032 阅读 · 0 评论 -
Save image in SQL Server (delphi)
{if object_id(test, U) is not null drop table testgocreate table test(cid int identity, ctext text, cimage image)insert test(ctext, cimage) select , 0x0}{C:/>textcopy /S. /Usa /P /DMyDB /Ttes原创 2008-01-31 11:01:00 · 948 阅读 · 0 评论 -
[MIDAS basic] BeforeUpdateRecord_SetproviderFlag
procedure TERM.dspTestBeforeUpdateRecord(Sender: TObject; SourceDS: TDataSet; DeltaDS: TCustomClientDataSet; UpdateKind: TUpdateKind; var Applied: Boolean);begin if SourceDS = adsTest then begin原创 2007-05-16 19:40:00 · 850 阅读 · 0 评论 -
ClientDataSet get data through Application Server
function TForm1.SQLGetInfo(SQLText: string): OleVariant;var Conn: TDCOMConnection; CDS: TClientDataSet;begin Conn := TDCOMConnection.Create(Self); CDS := TClientDataSet.Create(Self); try Con原创 2007-05-16 19:36:00 · 924 阅读 · 0 评论 -
Delphi Inline Assembler
program Project1;{$APPTYPE CONSOLE}uses SysUtils;var str: string;{ Result := x + y }function add1(x, y: Integer): Integer;begin asm mov eax, x add eax, y mo原创 2005-12-19 16:49:00 · 2089 阅读 · 0 评论 -
[Code Collection] 枚举LAN中的资源
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls, StdCtrls, ImgList;type TForm1 = class(TForm) TreeView1:原创 2006-02-17 16:15:00 · 957 阅读 · 0 评论 -
[Code Collection] 枚举进程
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, StrUtils, Tlhelp32, Psapi;type TForm1 = class(TForm) Bu原创 2006-02-17 17:13:00 · 1056 阅读 · 0 评论 -
[Code Collection] 显示系统错误信息
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; proced原创 2006-02-17 17:14:00 · 939 阅读 · 0 评论 -
[Code Collection] 枚举DLL的Export Functions
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Memo1: TMemo; OpenDialog原创 2006-02-17 16:19:00 · 1107 阅读 · 0 评论 -
[Code Collection] 模拟点击另一窗口的按钮
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) btnGo: TButton; edtTitle原创 2006-02-17 16:37:00 · 1220 阅读 · 0 评论 -
[Code Collection] 定时启动notepad.exe
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, IdGlobal;type TForm1 = class(TForm) btnStart:原创 2006-02-17 16:23:00 · 1062 阅读 · 0 评论 -
Change version information and icon of console applications
1)Change Version InfoAdd {$ *.RES} by hand to the .dpr and Version info information can then be manipulated2)Change ICONDelphi icon can be easily changed, fool the .DPR parser with "application.原创 2007-06-20 14:22:00 · 906 阅读 · 0 评论 -
MIDAS cdsDetails.EmptyDataSet generate incorrect SQL
cdsHeader (HeaderID = 1)cdsDetails (HeaderID = 1, DetailsID = 1) (HeaderID = 1, DetailsID = 2)------------------while not cdsDetails.IsEmpty then cdsDetails.Delete;cdsHeader.Delete;cdsHeader.Apply原创 2007-07-23 16:38:00 · 828 阅读 · 0 评论 -
Auto Generate Sequence in ClientDataSet
FLastID: Integer; ........procedure TForm1.ClientDataSet1BeforeInsert(DataSet: TDataSet);var b: TBookMark;begin with DataSet do begin DisableControls; b := GetBookmark; try La原创 2007-05-06 09:28:00 · 836 阅读 · 0 评论 -
use VIM to clear TcxButton.Glyph inside delphi form (dfm)
//sample data Properties.Buttons = item Default = True end> Properties.Buttons = item Default = True原创 2007-05-06 12:58:00 · 1075 阅读 · 0 评论 -
Create Access(*.mdb) in OLE
var OLEObj: OleVariant; OLEObj := CreateOleObject(ADOX.Catalog); OLEObj.Create(Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:/new.mdb); OLEObj := NULL;{find ADOX.Catalog library referenc原创 2007-05-06 13:03:00 · 1064 阅读 · 0 评论 -
Paint Gradiently
procedure TForm1.FormPaint(Sender: TObject);var ARow, AHight: Word ;begin AHight := (ClientHeight + 255) div 256; for ARow := 0 to 255 do with Canvas do begin Brush.Color := RGB(255, 255, ARow); Fil原创 2007-05-06 12:30:00 · 896 阅读 · 0 评论 -
Delphi DataSet Error
[design time]ClientDataSet.CreateDataSet error - Invalid Field Type : (solution: restart Delphi)-------------------------------Can not use TDateSet.Locate to locate DateTime Field------------原创 2007-05-09 20:07:00 · 1688 阅读 · 0 评论 -
cxScheduler
==================================================================== Setup Datasource ==================================================================== TcxScheduler -> TcxSchedulerDBStorage -> TDat原创 2007-05-16 17:15:00 · 2716 阅读 · 0 评论 -
[cxGrid] Change Multi-Selected Records
//0.Search Manual: TcxCustomDataController.ForEachRow //1. set properties for multi-selection---------------------------------------------------------- MainGridView.OptionsSelection.MultiSelect := t原创 2007-05-16 17:30:00 · 1702 阅读 · 0 评论 -
[cxGrid] use OnAfterSummary
Problem: InvoiceHeader.Total = sum(InvoiceDetail.ItemTotal)how to write a function to auto sum up ItemTotal//1. add TcxGridDBTableSummaryItemclick cxGrid1DBTableView1.DataController.Summary.FooterSu原创 2007-05-16 19:33:00 · 1372 阅读 · 0 评论 -
Component List (delphi)
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls;type TOperation = procedure (AObj: TObject); TOpFilter = function (A原创 2008-01-31 11:04:00 · 960 阅读 · 0 评论