2012年09月_缘中人

12月 11月 10月 09月 08月 06月 04月 03月 02月

转载 DBGridEh 隔行变色

DBGridEh1.OddRowColor:=clSkyBlue; //奇数行颜色DBGridEh1.EvenRowColor:=clMoneyGreen; //偶数行颜色DBGridEh1.SumList.Active:=True;DBGridEh1.SumList.VirtualRecords:=True;//显示行号和允许调整列宽DBGridEh1.OptionsEh

2012-09-29 21:18:58 2430

原创 ADOQuery1.Open ExecSQL 内部区别

function TADOQuery.ExecSQL: Integer;begin InitializeMasterFields(Self); Command.Execute(FRowsAffected, EmptyParam); Result := FRowsAffected;end;ADOQuery1.OpenADOQuery1.ExecSQL;d:\pr

2012-09-28 19:55:49 2700

转载进程等待关闭 ShellExecuteEx WaitForSingleObject

void __fastcall TForm1::Button1Click(TObject *Sender){ SHELLEXECUTEINFO sei; ZeroMemory(&sei, sizeof(SHELLEXECUTEINFO)); sei.cbSize = sizeof(SHELLEXECUTEINFO); sei.fMask

2012-09-20 09:46:15 2589

转载忽略异常的方法 Tools”菜单的“Debugger Options”的“Language Exceptions

因为对于从EIdSilentException继承来的服务器，EIdConnClosedGracefully是一个正常的异常。您可以在 “Tools”菜单的“Debugger Options”的“Language Exceptions”选项卡中将EIdSilentException加到忽略的异常的列表中。当加到忽略的异常的列表中后这个异常仍然会在代码中触发并被处理，但是调试器将不会停止程序的运行

2012-09-18 16:25:33 1660

转载 Sql Server 千位分隔符 3位逗号分隔

Sql Server 千位分隔符 select '￥'+convert(varchar(10),cast(123456.34 as money),1) 0（默认值）小数点左侧每三位数字之间不以逗号分隔，小数点右侧取两位数，例如 4235.98。 1 小数点左侧每三位数字之间以逗号分隔，小数点右侧取两位数，例如 3,510

2012-09-13 17:58:10 5319

原创分数分子分母

分子分母 int y; Image1->Canvas->Brush->Color = clYellow; TRect rc; rc.left =0; rc.top = 0; rc.right= Image1->Width; rc.Bottom = Image1->Height; Image1->Canvas->FillRect(rc); I

2012-09-10 22:45:33 1370

原创 sql server 开启锁跟踪

SET XACT_ABORT ON 很重要，在事务中必须为on。Sql的默认为off。开启锁跟踪dbcc traceon (1204, 3605, -1)dbcc tracestatus(-1)DBCC TRACEOFFD:\Program Files\Microsoft SQL Server\MSSQL\LOG

2012-09-10 22:15:53 644

原创 cb建立com最简单例子

1、File/New/Other/Activex/Active Library 2、File/New/Other/Activex/Com Object

2012-09-08 10:22:44 917

原创 Com 关键词解释

STDAPI是什么？extern "c" HRESULT __stdcall STDMETHOD ？ HRESULT __stdcallSTDMETHODIMP？HRESULT STDMETHODCALLTYPE

2012-09-08 10:02:00 804

原创获取控件所在窗体GetParentForm

Caption = GetParentForm(this->Button1)->ClassName();

2012-09-06 17:58:15 3238

原创 Com GUID

com文件如何查看GUID呢方法一、用oleView，找到类，左边选择coclass ...，右边的顶部uuid就是了。或者左边选根部，右侧的下方coclass 上边紧挨的就是uuid了。方法二、 import library。。。选择文件，生成tlb文件，在里边早const GUID CLSID_myclas=这一行就是了const GUID LIB

2012-09-05 14:08:55 1677

原创调用com 方法

方法一（须regsvr32注册）导入类，cb中import active ，选择文件。生成tlib、ocx cpp、h文件，添加到工程，包含头文件。TMyClass *m;m->testfun();delete m;方法二（须regsvr32注册）Variant vappvapp =CreateOleObject("类型字符串");//excel.app myT

2012-09-04 17:06:34 813

转载 COM中的HRESULT, CLISD,ProgID, DLL注册，COM库函数的知识（COM技术内幕笔记之三）

http://www.cnblogs.com/shipfi/archive/2007/02/12/648465.htmlCOM中的HRESULT, CLISD,ProgID, DLL注册，COM库函数的知识（COM技术内幕笔记之三）通过注册表，可以查找progID，也就是createoleObject的类型字符串。1.COM中的HRESULT：COM函数中返回值一般是HRESU

2012-09-04 16:22:41 1646

原创 VarArrayCreate

OleVariant v;v = VarArrayCreate(OPENARRAY(int,(0,vQuestionCount-1)),varOleStr);v.PutElement(str,vqi++);vTmp := Unassigned; //释放 // VarArrayLowBound(const A: Variant; Dim: Integer) Dim需要

2012-09-04 14:00:51 2117

原创 BSTR * 赋值注意

BSTR bs=SysAllocString( L""); SysFreeString(sError); AnsiToOLESTR 可以用 WideString 的 Detach Attach 方法来实现。DLL返回：ws.Detach()就可以了。Detach后，WideString不会释放该字串了，由调用者释放。调用时用：WideString

2012-09-04 12:31:26 2580

转载 Delphi 调用 C# Dll 时一个编译问题 mscorlib_TLB.h Ambiguity between 'String' and 'System::String'

I have written an Assembly that also exposed itself as a COM object usingC#.NET. When I am trying to do "Import Type Library" from Delphi 6 Pro I am receiving these errors when trying to compi

2012-09-03 22:04:17 3058

原创日期格式yyyy-mm-dd ,yyyy/mm/dd 这样就不用在控制面板设置了

日期格式yyyy-mm-dd ,yyyy/mm/dd 这样就不用在控制面板设置了头文件SysUtils.hppDateSeparator = '/'DateSeparator = '-'

2012-09-03 16:05:45 2104

原创默认日期格式不用在控制面板设置了

日期格式yyyy-mm-dd ,yyyy/mm/dd 这样就不用在控制面板设置了头文件SysUtils.hppDateSeparator = '/'DateSeparator = '-'

2012-09-03 16:05:24 827

原创 IdBase64Decoder用法

void __fastcall TForm1::Button1Click(TObject *Sender){this->IdBase64Encoder1->CodeString(Edit1->Text);Edit2->Text = this->IdBase64Encoder1->CompletedInput();Edit2->Text = this->Edit2->Text.Del

2012-09-01 19:25:48 941