2013年04月_shandiantianying

12月 11月 10月 09月 08月 07月 06月 05月 04月

转载 Cxgrid获取选中行列，排序规则，当前正在编辑的单元格内的值

Cxgrid获取选中行列，排序规则，当前正在编辑的单元格内的值Cxgrid获取选中行列，排序规则，当前正在编辑的单元格内的值 2011-03-22 14:44cxGrid1DBTableView1.Controller.FocusedRowIndex 当前行号cxGrid1DBTableView1.Controller.FocusedRow 当前行cxGrid1DBTableVie

2013-04-29 23:13:25 967

转载 TStringList 常用方法与属性:

//TStringList 常用方法与属性:varList: TStringList;i: Integer;beginList := TStringList.Create;List.Add('Strings1'); {添加}List.Add('Strings2');List.Exchange(0,1); {置换}List.Insert(0,'Strings3')

2013-04-29 22:58:03 555

转载文本文件读写

文本文件读写前言:Delphi 支持三种文件类型: 文本文件、记录文件、无类型文件。文本文件是以行为单位进行读、写的。由于每一行的长度不一定相同，不能计算出给定行在文件中的确切位置，因而只能顺序地读写。文本文件只能单独为读或写而打开，在一个打开的文本文件上同时进行读、写操作是不允许的。文本文件的打开需要两个步骤：1.文件变量与文件名关联；2.初始化读写。

2013-04-29 22:50:56 430

原创外部网页调用delphi函数

第一步：要创建Type library--IWebLogin添加登录接口第二步：创建Package添加Type Library单元,编辑webloginform.bp。第三步：程序中添加TypeLibrary单元，新建TypeLibrary_Impl单元实现 TWebLogInExternal= class(TAutoIntfObject, IWebLogin, IDispatch)

2013-04-29 01:16:52 830

原创 idhttp代理访问

idhttp1.ProxyParams.ProxyServer := FProxyHost; idhttp1.ProxyParams.ProxyPort := StrToInt(FProxyPort); idhttp1.ProxyParams.BasicAuthentication := true; idhttp1.ProxyParams.ProxyUsername

2013-04-28 23:46:09 844

原创 CodeSite使用

procedure TForm1.btn1Click(Sender: TObject);begin CodeSite.Send('第一条信息'); CodeSite.Send('form',Form1);end;procedure TForm1.FormCreate(Sender: TObject);var Dest: TCodeSiteDestin

2013-04-28 17:43:12 795

转载 DELPHI bpl使用

了解BPL和DLL的关系将有助于我们更好地理解DELPHI在构件制作、运用和动态、静态编译的工作方式。对初学DELPHI但仍对DELPHI开发不甚清晰的朋友有一定帮助。BPL vs. DLL(原文http://www.delphi3000.com/ 翻译：房客)第一部分：有关包的介绍一般我们编写编译一个DELPHI应用程序时，会产生一个EXE文件，也就是一个独立的WIND

2013-04-28 15:57:16 732

原创 Delphi下POS打印机,控制开钱箱,客显,顾客显示屏,小票打印机

1、控制POS机的客户显示屏procedure TFrmMain.ShowMoney(Money_Port: String;Money_String:String);//Moneey_Port 顾显接口Com1 or Com2 Money_String 顾显显示的内容var PrnFileName:TextFile;begin

2013-04-28 14:27:21 1993

原创 delphi中pos处理中文字问题

delphi漏洞 pos()函数的奇怪现象edit1.Text := intToStr(pos('市',资中市'));结果=5,正确.edit1.Text := intToStr(pos('市','资兴市'));结果=2 . -_-?edit1.Text := intToStr(pos('市','湖南省郴州市资兴市'));结果=11,正确.edit1.T

2013-04-28 00:43:08 3011

转载 Delphi开发技巧

Delphi开发技巧 ◇[DELPHI]网络邻居复制文件　　uses shellapi;　　copyfile(pchar('newfile.txt'),pchar('//computername/direction/targer.txt'),false);　　◇[DELPHI]产生鼠标拖动效果　　通过MouseMove事件、DragOver事件、EndDrag

2013-04-26 17:34:13 900

转载 Delphi建议使用语句

No.1 判断逻辑类型 }var B: Boolean;begin B := Boolean(2); //这样只是为了调试//B := True; if B = True then ShowMessage(‘B = True‘); //不建议//不安全 /////// if B then ShowMessage(‘B‘); //建议//简短

2013-04-26 14:37:40 500

原创车牌号识别

var row,lie:integer;beginform1.Repaint;for row:=Trackbar1.Position to trackbar2.Position do begin for lie:=1 to 400 do begin t:=Image1.canvas.pixels[row,lie]; p[row

2013-04-26 11:10:17 743

原创 CxGrid.Properties.ImageCombobox设置

cxgrid中添加字段，给字段images对应image,设置properties设置imageComboBox--Items设置对应image,string value添加数据行时指定对应的Value，可显示对应的image图标设置ShowDescriptions=False行图标可居中显示。

2013-04-22 11:28:01 1787

原创 idhttp自动登录网站

uses winlnet;var PostList: TStrings; i: Integer; CookieS: string;begin PostList := TStringList.Create;try PostList.Add('action=checkOnline'); PostList.Add('loginName=' + edtuse

2013-04-19 10:50:08 1269

转载 DSPack视频调节

procedure TfrmVideo.GetValue;var pAvp: IAMVideoProcAmp; flag: TVideoProcAmpFlags; value: Integer;begin with (fg1 as ICaptureGraphBuilder2) do begin if Succeed

2013-04-17 23:41:01 1448