自定义博客皮肤VIP专享

*博客头图:

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

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

博客底图:

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

栏目图:

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

主标题颜色:

RGB颜色,例如:#AFAFAF

Hover:

RGB颜色,例如:#AFAFAF

副标题颜色:

RGB颜色,例如:#AFAFAF

自定义博客皮肤

-+

  • 博客(43)
  • 收藏
  • 关注

原创 Borland ALM

Borland ALMApplication Lifecycle ManagementFor Java,.Net.& C++定义CaliberRM设计Toghther开发JBuilderC#BuilderC++BuilderDelphiC++BuilderX测试OptimizeitSuiteOptimizeitServerTrace部署Borland Enterprise ServerJaneva

2004-10-15 09:31:00 749

原创 D7 语言手册 见闻

1、一个控制台程序program Greeting;{$APPTYPE CONSOLE}var MyMessage:string;veginMyMessage := Hello World!;Writeln(MyMessage);end.Save to GREETING.PAS or GREETING.DPRwin DCC32 Greetinglinux dcc Greeting2、Unit框

2004-09-29 13:19:00 1115

原创 Delphi 新建项目的缺省设置存储位置

Delphi 新建项目的缺省设置存储位置位于delphiX/bin/defprof.dof中

2004-09-29 11:46:00 804

转载 如何获取最近插入一条数据的自增id

可以用SCOPE_IDENTITY:IDENT_CURRENT 返回为任何会话和任何作用域中的特定表最后生成的标识值。@@IDENTITY 返回为当前会话的所有作用域中的任何表最后生成的标识值。SCOPE_IDENTITY 返回为当前会话和当前作用域中的任何表最后生成的标识值。下面的是sql联机帮助SCOPE_IDENTITY返回插入到同一作用域中的 IDENTITY 列内的最后一个 ID

2004-09-13 15:45:00 1784

原创 PostMessage和SendMessage有什么区别?

在控制别的应用程序的时候,经常需要等待直到某个功能结束,例如:打开一个窗口-->等待直到窗口结束这个时候就可以用到SendMessage如果在打开这个窗口后仍然需要对该窗口的界面进行设置,比如Edit的value等等,比如:打开一个窗口-->控制窗口的control的属性这个时候就需要PostMessage使用一个钩子程序截获消息后,使用SendMessage把消息发送到主处理程序进行处理,但

2004-09-13 15:42:00 4114 2

原创 如何判断一段中文是gb3213还是Big5编码的?

//判断big5实现如下procedure TForm1.Button1Click(Sender: TObject);var i:Integer; str:string;beginstr:=該如何讓他正常怯換到繁體呢;//str:=能支持互转的软件并不多;for i := 1 to length(str) do  if Not odd(i) then    if Byte(str[i]) 

2004-09-13 14:46:00 2382

原创 关于定位文件中的位置,截断文件

procedure Seek(var F; N: Longint);定位Truncate(var F);截断后面的,标志位文件结尾

2004-09-13 14:34:00 810

原创 如何高速操作大量数据

with ADOQ.RecordSet dobegin  MoveFirst;  while not EOF do  begin    FBegDateStrs.Add(Fields[BEG_DATE].Value); //FBegDateStrs is a TStringList    FEndDateStrs.Add(Fields[END_DATE].Value); //FEndDat

2004-09-13 14:12:00 712

原创 如何在ADO中设置记录书签

这个问题问的人也很多var? bk: TBookmark;begin? if adodsVresult.Active and (adodsVresult.RecordCount > 0) then? begin??? bk := adodsVresult.GetBookmark;??? //操作数据库这里???? if adodsVresult.BookmarkValid(bk) then//

2004-09-13 13:56:00 850 1

原创 调用程序,并获得程序结束信息

procedure TForm1.Button3Click(Sender: TObject);var? ExitCode: cardinal;? ExecInfo: TShellExecuteInfo;begin? ZeroMemory(@ExecInfo,SizeOf(ExecInfo));? with ExecInfo do begin??? cbSize := SizeOf(ExecInfo

2004-09-10 17:08:00 671

原创 点中窗体来移动窗体

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;  Shift: TShiftState; X, Y: Integer);begin  ReleaseCapture;//释放原先的  SendMessage(self.Handle, WM_NCLBUTTONDOWN, HTCAPTION, 0);//点中标题

2004-09-10 17:05:00 723

原创 通过发送消息enable、check鼠标指向的控件

针对想点中其它软件中的某个控件的问题var  Pmouse: TPoint;  hClientWindow,hWindow:Thandle;begin  //enable 一个控件  GetCursorPos(pMouse);  hWindow:=WindowFromPoint(pMouse);  Windows.ScreenToClient(hWindow,pMouse);  hClientWi

2004-09-10 17:03:00 826

原创 TdxTreeList怎样在程序中实现自动列宽

其实是自己判断了列宽自己调整的没有直接属性procedure TForm1.dxTreeList1CustomDrawCell(Sender: TObject;  ACanvas: TCanvas; ARect: TRect; ANode: TdxTreeListNode;  AColumn: TdxTreeListColumn; ASelected, AFocused, ANewItemRow:

2004-09-10 16:54:00 1041

原创 可设置进度颜色的ProgressBar控件(colorProgressBar)

unit colorProgressBar;interfaceuses  Classes, ComCtrls, Graphics,  Controls, Windows;type  TcolorProgressBar = class(TprogressBar)  private    { Private declarations }    Fcolor:Tcolor;    proce

2004-09-10 15:13:00 891

原创 一些文件操作函数

FileAge                     函数         返回文件已存在的时间 FileClose                   命令         关闭指定的文件 FileCreate                  命令         用指定的文件名建立新文件 FileDateToDateTime          函数         将DOS的日期格式转换为

2004-09-10 14:40:00 682

原创 网络蚂蚁"和"FlashGet"的悬浮窗

最近有网友问道如何用 Delphi 实现"网络蚂蚁"和"FlashGet"的悬浮窗口相关技巧做了整理如下:http://dev.csdn.net/develop/article/13/13175.shtm (oopsware原作)

2004-09-10 14:09:00 944

原创 ExtractShortPathName 返回一空的问题

ExtractShortPathName 是在当前驱动器上面实际情况,对于不同的机器就有可能出现不同的shortName所以文件必须存在才行

2004-09-10 13:55:00 598

原创 获取驱动器的类型

function Get_DiskSerialNo(DriveID : char) : string;var  VolumeSerialNumber : DWORD;  MaximumComponentLength : DWORD;  FileSystemFlags : DWORD;  ps:PChar;  st:String;  dt:DWORD;begin  ps:=PChar(DriveID

2004-09-10 13:50:00 475

原创 无需Dll实现的全程鼠标Hook

该方法能够监控到form 外面的鼠标移动情况,无需Dll实现unit Unit1;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls;type  TForm1 = class(TForm)    Button1: TBut

2004-09-10 13:38:00 602

原创 FastReport 分页

用一个叫LINER#的变量可以分页,看看REPORT的示例中有或者解释脚本使用FreeSpace函数确定在当前页中有多少空白区域。如果不够,调用NewPage过程插入“手工分页符”并开始新一页。if FreeSpace * 5/18 < 30 then NewPage

2004-09-09 17:57:00 1880 1

原创 移动鼠标到控件 MapWindowPoints

// 移动鼠标到控件procedure MoveMouseIntoControl(AWinControl: TControl);var  rtControl: TRect;begin  rtControl := AWinControl.BoundsRect;  MapWindowPoints(AWinControl.Parent.Handle, 0, rtControl, 2);  SetCu

2004-09-09 17:47:00 1041

原创 动态调整显示器分辨率

Delphi提供了可以动态改变屏幕分辨率的函数,分别是EnumDisplaySettings()和ChangeDisplaySettings()。有了它们,编程时可以随时改变分辨率以适应要求。下面的CRTReset函数能方便实现这一功能:  implementation  function CRTReset(X, Y: Word): Boolean;  var   lpDevMode: TDe

2004-09-09 17:46:00 731

原创 截取图像一部分 TRect

procedure TForm1.Button3Click(Sender: TObject);var  Bitmap: TBitmap;  MyRect, MyOther: TRect;begin  MyRect := Rect(0,0,100,100);  MyOther := Rect(0,101,100, 200);  Bitmap := TBitmap.Create;  Bitmap.

2004-09-09 17:42:00 664

原创 透明的控件Groupbox,RadioGroup

interfaceuses Windows, Messages, Controls, Classes, StdCtrls, ExtCtrls;type  TTransGroupBox = class(TGroupBox)  private  protected    procedure WMEraseBkGnd(Var msg: TWMEraseBkGnd); message WM_ERA

2004-09-09 17:17:00 1752

原创 delphi 相关网站

http://www.jazarsoft.com/codebook/index.php一些delphi code的列表

2004-09-09 17:14:00 448

原创 解决MDI相同的窗口被重复打开

Dll声明唯一的frmChild:TfrmChild;调用的时候子窗体的调用函数if Not assigned(frmChild) then  frmChild:=TfrmChild.create(Self);try  frmChild.Show;finally  frmChild.free;  frmChild:=Nil;end;已经创建的就不会再创建,只能Show出来

2004-09-09 16:34:00 502

原创 OleVariant类型 转化到流,用于文件的存储、读取

用流savetofile给出VariantToStream和StreamToVariantprocedure VariantToStream (const V: OLEVariant; Stream : TStream);var  P : Pointer;begin  Stream.Position := 0;  Stream.Size := VarArrayHighBound (V, 1) -

2004-09-09 16:23:00 860

转载 简单获取sql执行时间

declare  @begindate datetimeselect @begindate=getdate()select 执行时间=datediff(mm,@begindate,getdate())

2004-09-09 16:21:00 1017

原创 目录操作 直接选择目录的两种形式、强制建立多级目录

直接选择目录的两种形式(SelectDirectory)突然注意到该选择有两种样式这是由于调用的方式不同,该方法有重载var dir:string;begin  Dir := C:/;  SelectDirectory(FileCtrl,c:/,Dir);//1  SelectDirectory(Dir, [sdAllowCreate, sdPerformCreate, s

2004-09-07 11:41:00 607

原创 C#:方法的默认参数 (Justin Shen)

大家都知道在C++中,我们可以为方法的参数指定一个默认值,像这样:void foo(int i = 100);当我们以这种形式调用方法的时候: foo(); 实际上参数i被赋于了默认值,所以相当于调用了foo(100);然而在C#中是不支持参数的默认值的,那么如果我们要用到类似的功能应该怎么实现呢?考虑下面这个例子:class Buffer{      public Buffer(int buff

2004-09-02 11:13:00 882

原创 .NET中清空浏览器客户端的缓存

/// /// 清空浏览器客户端的缓存/// public static void ClearClientPageCache(){HttpContext.Current.Response.Buffer=true;HttpContext.Current.Response.Expires = 0;HttpContext.Current.Response.ExpiresAbsolute=DateTime

2004-09-02 11:12:00 974

原创 ASP.NET直接下载一个文件,而不是在IE中打开它

有的时候我们不想让用户直接在IE中打开已知类型的文件,比如Word,而希望能直接下载,这时候可用下面代码来替换Response.RedirectResponse.ContentType = "application/octet-stream";Response.AddHeader("Content-Disposition", "attachment;FileName="+YourFileNam

2004-09-02 11:11:00 598

原创 Delphi 控制鼠标到控件区

procedure MoveMouseIntoControl(AWinControl: TControl);var  rtControl: TRect;begin  rtControl := AWinControl.BoundsRect;  MapWindowPoints(AWinControl.Parent.Handle, 0, rtControl, 2);  SetCursorPos(rtCo

2004-09-02 11:03:00 608

原创 打印怪异纸张问题 有时候会设置无效

用的是15×11的纸张。在delphi中自定义设置381×279.4,可打印的时候只显示左边部分。得先用Custom Size 设置一次,设为381*279.4, Apply,再换成 Default Size 设置一次,再Apply,Ok还有打印机要设为纵向打印(默认打印机)

2004-09-02 11:01:00 650

原创 怎样用openDialog选取目录

可以用 selectDirectory (須uses FileCtrl)var dir:string;begin  Dir := C:/;  if SelectDirectory(Dir, [sdAllowCreate, sdPerformCreate, sdPrompt],0) then    showmessage(dir);

2004-09-01 21:51:00 779

转载 直接在sql语句中查询其他数据库,ODBC从其他类型库中导入数据

select * from openrowset(MSDASQL,Driver=Microsoft Visual FoxPro Driver;SourceType=DBF;SourceDB=c:/,select * from [aa.DBF])

2004-09-01 21:38:00 688

转载 sql 语句操作数据库结构

一个常见的问题哦向表中增加一个 VARCHAR 列: ALTER TABLE distributors ADD COLUMN address VARCHAR(30);对现存列改名: ALTER TABLE distributors RENAME COLUMN address TO city;对现存表改名: ALTER TABLE distributors RENAME TO suppliers

2004-09-01 21:31:00 822

转载 About DateTime

如何得出某一周別的起始日期和結束日期周一StartOfAWeek(2004,28)周日StartOfAWeek(2004,28,7)

2004-09-01 21:22:00 532

转载 About string

替换函数ansiReplaceStr()stringreplace(memo1.seltext,chr(13)char(10),chr(0),[rfReplaceAll])一个拆分字符串的简单办法procedure TForm1.Button1Click(Sender: TObject);var st:string;beginst:=jj53*xxddx*dccd*rr3*...;st:=

2004-09-01 21:21:00 646

原创 free 多个同类控件的循环错误

循环出现的计数错误是因为free的过程改变了ComponentCount,所以只能反向freefor i := Form1.ComponentCount-1 downto 0  do    begin      if Form1.Components[i] is Tedit then         Form1.Components[i].Free;        end;

2004-09-01 21:14:00 423

空空如也

空空如也

TA创建的收藏夹 TA关注的收藏夹

TA关注的人

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