HzqGhost's Blog

素材jTessBoxEditor-2.2.0lang.num.exp0.tiftif命名规范：[lang].[fontname].exp[num].tif其中lang为语言名称，fontname为字体名称，num为序号，可以随便定义。生成训练文件.boxtesseract lang.num.exp0.tif lang.num.exp0 -l eng -psm 7 batch....

procedure TForm1.FormCreate(Sender: TObject);//窗体初始化var  iFileHandle: Integer;  FileTime:TDateTime;  Days:Integer;  Hours:Integer;  Minutes:Integer;  Seconds:Integer;begin  DataPath := ExtractFilePa

unit GetCPU;interfaceuses  Windows, SysUtils;  function GetCpuInfo:pchar;implementationfunction GetCpuInfo:pchar;var  R:   array[0..19]   of   Char;  CpuID:   Integer;  CpuPC:  pchar;begin  FillChar

use windowsfunction GetSysDir:String;var p:Pchar;beginGetMem(P,255);GetSystemDirectory(p,254);Result := p;Freemem(p); end; 

unit GetDisk;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls;  function GetIdeSerialNumber: pchar;implementation//获得硬盘序列号function GetIdeS

//不使用bpl 调用窗体with TForm2.Create(Application) dobeginShowModal;Free;End;//==========视图-》工程对象》包工程属性》随运行时间来定

 procedure TForm1.FormCreate(Sender: TObject);begin  with Session1 do  begin    ConfigMode := cmSession;    try    AddStandardAlias(bendix, ExtractFilePath(ParamStr(0))+db, PARADOX);    fi

         文件是同一类型元素的有序集合，是内存与外设间传输数据的渠道。一些外设如显示器、键盘、打印机等都可以看作文件，但最常用的还是磁盘文件，这也是本章我们主要讨论的对象。         Delphi继承了Object Pascal的文件管理功能，并有很大的发展，其中最主要的是提供了用于文件管理的标准控件，同时也提供了更多的文件管理函数。利用Delphi的强大功能，开发一个自己的文件

unit Unit1;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, DB, DBAccess, MyAccess, StdCtrls, ComCtrls, ExtCtrls, MemDS,  MyRec, OBRARCompress, I

unit serverUnit;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls, ExtCtrls, jpeg, IdBaseComponent, IdComponent,  IdTCPServer, ComCtrls, DB

cxGridDBTableView的OnCustomDrawCell事件行:ACanvas.Font.Color:=RGB(255,0,0); 单元格:acanvas.canvas.brush.color   :=   RGB(255,0,0); acanvas.fillrect(aviewinfo.bounds);  

procedure TFormModel.cxGrid1DBTableView1CellClick(  Sender: TcxCustomGridTableView;  ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;  AShift: TShiftState; var AHandled: Boolean);

去掉边框-webkit-tap-highlight-color:rgba(0,0,0,0);-webkit-user-modify:read-write-plaintext-only;outline:0;

：将工程另存为另一个项目，删除原工程项目文件：VIEW-> TYPE LIBRARY 修改相关内容, 两个name 和 GUID：将 XqExcelAddinWeb.ridl 重命名 XqExcelAddinXXX.ridl ，将  XqExcelWeb_TLB.pas 重命名VIEW-> TYPE LIBRARY 的第一个name ：XqExcelXXX_TLB.pas 修改成  u

 CreatThread函数是用于创建一个线程，CreatThread函数原形及参数说明如下： 　　HANDLE CreatThread（ 　　 LPSECURITY_ATTRIBUTES lpThreadAttributes, 　　 DWORD dwStackSize, 　　 LPTHREAD_START_ROUTINE lpStartAddress, 　　 LPVOID lpParameter

uses jpeg,;type  TForm1 = class(TForm)    ...    Image1: TImage;    IdHTTP1: TIdHTTP;    ...end; procedure TForm1.FormCreate(Sender: TObject);var  tmp:string;  IMS:TMemoryStrea

解码标题function TfrmShowMail.DE(str:string):string;var  r : TRegExpr;  tmp:string;begin  r := TRegExpr.Create;  //r.Expression := =/?(.*)/?;  r.Expression := =/?(GBK|GB2312|UTF-8)/?;  r.Exec(UpperC

function unicode2gb(const unicodestr:string):string;var SourceLength:integer;  DoneLength:integer;  AscNo:integer;  Byte1,Byte2,Byte3:integer;  GbStr:string;begin GbStr:=; if Trim(unicodestr)= the

type  TForm2 = class(TForm)  private    { Private declarations }  public    { Public declarations }  protected    procedure CreateParams(var Params: TCreateParams); override;  end;var  Form2: TForm2;i

连接邮件服务器procedure TForm1.Button1Click(Sender: TObject);begin  POP.UserName := username.Text;  POP.Password := password.Text;  POP.Host := host.Text;  POP.Port := StrToInt(port.Text);  if POP.Connec

  正则表达式 1 在一文本中找 hi 可能 history 也会被找出 , 使用 /bhi/b 就能精确查找. 假如要找的是hi后面不远处跟着一个Lucy,如 hi my Lucy，应该用/bhi/b.*/bLucy/b 假如要找包含有 hi 的,如 D

unit MyRec;interface  uses  windows,messages,classes,forms,sysutils;type  TPersonRec=packed record    id:string[11];    path:string[6];    pic:string[35];    tdate:string[10];  end;  TMyrec=class(Tf

constructor Create(const Filename:string;Mode:Word);打开模式：fmCreate :用指定的文件名建立文件，如果文件已经存在则打开它。fmOpenRead :以只读方式打开指定文件fmOpenWrite :以只写方式打开指定文件fmOpenReadWrite:以写写方式打开指定文件共享模式：fmShareCompat :共享模式与FCBs兼容f

 PageControl改变页面:PageControl1.ActivePageIndex := 0

MyQuery不自动保存 将 CahedUpdates 设为 True  用 MyQuery1.ApplyUpdates 来保存 

uses imageenview; procedure Water(src,png:string);var X,Y:Integer; ImageEnView1:TImageEnView; jpgWidth,jpgHeight:Integer; pngWidth,pngHeight:Integer;begin ImageEnView1:=TImageEnVi

 MySQL数据库连接: MySql AccessDevExpress s cxGridImageEn s  ImageEnView

user     Jpeg;var  JPG:TJPEGImage;  MS:TMemoryStream;    if MyQuery1.FieldValues[imgdata]  then    begin    JPG:=TJPEGImage.Create   ;    MS:=TMemoryStream.Create   ;    TBlobField(MyQuery1.Fi

SQL语句Query.SQL.add(select   *,N as Selected from make order by name )进入QUERY字段编辑器将 Selected 的 FieldKind 设置为 fkInternalCalc确保 readonly 为 false给 cxGrid1DBTableView1 新建一列,选择 fielname 设为 Selecte

Imageen方法ImageenView1.Bitmap.Canvas.StretchDraw(Rect(0, 0, 200, 156),ImageenView1.Bitmap);//==========================JPEGprocedure r;varj: TJpegImage;b: TBitmap;begintryj := TJpegImage.create;b

特征综述 About Feature 特点：　 输入/输出：　  提供不同的加载/保存操作　  加载并保存为JPEG(RGB, GrayScale, YCbCr, CMYK, YCbCrK)格式到文件中（with also 1/2, 1/4 and 1/8 subsizes for fast preview）。读出/写入APP0-APP15,COM Jpeg标

///////////// 应用程序当前路径  ///////////// ExtractFilePath(paramstr(0))ExtractFilePath(application.ExeName)///////////// COM中当前路径  ///////////// .... ....   TCustomMG = class(TTypedComObject, ICustomMG)fun

关系数据库都提供大文档的存储和提取。对于视频资料、音频资料、图象资料等大文档，一般需要 另外开辟字段用于存储摘要信息，因此在查询和检索时并不访问大字段，而只是在存储和提取时才操作 大字段。例如，你不能对Oracle中的LONG RAW类型进行LIKE介词的查询，更不能使用等号“ =”查询。 这对于存储大段文本（容量超过2K）同时又需要全文检索是相当不便的。本文将介绍如何利用数据库的 字符串数据类型

1.控件的说明　　使用Indy 9中的TIdFtp控件可以实现通过FTP方式进行文件的上传与下载。　　2.控件的具体使用　　（1）控件属性设置　　默认属性即可，与服务器连接直接相关的属性如主机名与用户等在建立连接时进行设定。需要设定的是RecvBufferSize和SendBufferSize两属性的值。另外需要根据要传输的文件类型指定TransferType属性，而其他属性按默认值设定即可。　　

 procedure TSuppliersListForm.cxGrid1DBTableView1Column1GetDataText(  Sender: TcxCustomGridTableItem; ARecordIndex: Integer;  var AText: String);var  sid:string;begin  if varToStr(Sender.GridView.

idftp.passive := true; //使用被动连接

unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls;typeTForm1 = class(TForm)Button1: TButton;Label1: TLabel;Label2: TLabel;Label3: 

使用TActionList 控件将要控制的控件的ACTION指向ACTIONLIST1设置好每个的TAGModuleData.MyPower为数据模块中的变量procedure TForm1.FormShow(Sender: TObject);var  I:Integer;  Hstr:string;  SStr:string;begin  for I:= 0 to ActionList1

打印预览dxComponentPrinter1Link1.Preview(True); 页眉和页脚 dxComponentPrinter1Link1.PrinterPage.PageHeader.CenterTitle.Add(varToStr(MyQuery3.FieldValues[orderno])) 

 Use ComObj:procedure TorderMore1.BitBtn2Click(Sender: TObject);var  xlsFile:WideString;  var ExcelApp: Variant;begin  SaveDialog1.FileName:= MyQuery3.FieldValues[orderno] + .xls;  if SaveDial