随笔分类 -  delphi技术总结

delphi调用java编写的http接口
摘要：采用delphi7的indy组件提交的数据中包含中文，需要进行URL编码：function UrlEncode(const ASrc: string): string;const UnsafeChars = '*#%+ []'; {do not localize}var i: Integer;beg... 阅读全文
posted @ 2014-12-05 08:56 骑着骆驼逛沙漠 阅读(2096) 评论(0) 推荐(0)
.net调用delphi webservice 不能自动创建服务实例
摘要：dServiceReference.IUpDownFilexxClient=null;xxClient=newdServiceReference.UpDownFileClient(newSystem.ServiceModel.BasicHttpBinding(),newSystem.ServiceM... 阅读全文
posted @ 2013-04-11 10:21 骑着骆驼逛沙漠 阅读(92) 评论(0) 推荐(0)
delphi调用.net webservice需要配置的地方
摘要：在webservice单元的initialization下加： InvRegistry.RegisterInvokeOptions(TypeInfo(IInvokable接口名称), ioDocument);加编码RIO.HTTPWebNode.UseUTF8InHeader := True; 阅读全文
posted @ 2013-04-03 16:31 骑着骆驼逛沙漠 阅读(132) 评论(0) 推荐(0)
PageControl上画图片
摘要：var TmpRect,BackRect:TRect; sWidth,sHeight:integer;begin with pgcMain.Canvas do begin sWidth:=textwidth(pgcMain.Pages[TabIndex].Caption); sHeight:=tex... 阅读全文
posted @ 2013-01-21 22:18 骑着骆驼逛沙漠 阅读(172) 评论(0) 推荐(0)
鸡尾酒排序算法
摘要：也就是定向冒泡排序, 鸡尾酒搅拌排序, 搅拌排序 (也可以视作选择排序的一种变形), 涟漪排序, 来回排序 or 快乐小时排序, 是冒泡排序的一种变形。此演算法与冒泡排序的不同处在于排序时是以双向在序列中进行排序。使用鸡尾酒排序为一列数字进行排序的过程可以通过右图形象的展示出来： 数组中的数字本是无... 阅读全文
posted @ 2013-01-06 15:58 骑着骆驼逛沙漠 阅读(241) 评论(0) 推荐(0)
获取主板序列号
摘要：type TCPUID = array[1..4] of Longint;function GetCPUID : TCPUID; assembler; register;asm PUSH EBX PUSH EDI MOV EDI,EAX MOV EAX,1 DW $A20F STOSD MOV ... 阅读全文
posted @ 2013-01-06 15:57 骑着骆驼逛沙漠 阅读(328) 评论(0) 推荐(0)
DBGrid加鼠标滚轮滚动
摘要：procedure TFormBase.ApplicationEvents1Message(var Msg: tagMSG; var Handled: Boolean);var i: SmallInt;begin if Msg.message = WM_MOUSEWHEEL then begin M... 阅读全文
posted @ 2013-01-06 15:56 骑着骆驼逛沙漠 阅读(132) 评论(0) 推荐(0)
用Delphi制作DLL的方法
摘要：用Delphi制作DLL的方法 一 Dll的制作一般步骤 二 参数传递 三 DLL的初始化和退出清理[如果需要初始化和退出清理] 四 全局变量的使用 五 调用静态载入 六 调用动态载入 七 在DLL建立一个TForM 八 在DLL中建立一个TMDIChildForM 九 示例： 十 Delphi制作... 阅读全文
posted @ 2013-01-06 15:55 骑着骆驼逛沙漠 阅读(208) 评论(0) 推荐(0)
stdcall关键字
摘要：表明是使用标准调用方式： 所有参数用栈传递； 参数按从左到右的顺序压栈； 被调用者负责参数的出栈。 主要用于调用API函数或编写供其它程序调用的函数（有些语言只支持这种调用方式，如VB和标准PASCAL）。 阅读全文
posted @ 2013-01-06 15:54 骑着骆驼逛沙漠 阅读(117) 评论(0) 推荐(0)
自动附加Sqlserver数据库
摘要：procedure TfrmMain.RestoreDataBase;var CmdStr, Paths:String;begin Paths:=Extractfilepath(Application.ExeName); if fileexists(ConCat(Paths,'数据库文件名称')) ... 阅读全文
posted @ 2013-01-06 15:53 骑着骆驼逛沙漠 阅读(172) 评论(0) 推荐(0)
从Webbrowser中获取文本内容
摘要：Memo1.Lines.Add(WebBrowser1.OleObject.Document.getElementByID('aa').innerText); 阅读全文
posted @ 2013-01-06 15:53 骑着骆驼逛沙漠 阅读(438) 评论(0) 推荐(0)
检测光盘是否正确
摘要：procedure TForm1.Button1Click(Sender: TObject);var i,DriveType:Integer; c:String; buf:array[0..MAX_PATH] of char; sno,fileflag,maxl:DWORD; volname,fil... 阅读全文
posted @ 2013-01-06 15:51 骑着骆驼逛沙漠 阅读(109) 评论(0) 推荐(0)
Base24编码以及解码的实现
摘要：unit Base24Unt;{Base24 算法}interfaceuses Windows,Sysutils,Dialogs;const EncodeTable: array[0..23] of Char ='BCDFGHJKMPQRTVWXY2346789' ; DecodeTable: ar... 阅读全文
posted @ 2013-01-06 15:50 骑着骆驼逛沙漠 阅读(1917) 评论(0) 推荐(0)
搜索文件夹的子目录
摘要：procedure FindFile(const filespec: TFileName;extname:String;list:TStringList;sub:boolean); procedure RFindFile(const folder: TFileName;extname:String)... 阅读全文
posted @ 2013-01-06 15:50 骑着骆驼逛沙漠 阅读(132) 评论(0) 推荐(0)
传送文件时循环冗余校验
摘要：unit CRC32;interfaceuses Windows, SysUtils;const //Crc32表 Table:Array[0..255] of DWORD= ( $00000000, $77073096, $EE0E612C, $990951BA, $076DC419, $706A... 阅读全文
posted @ 2013-01-06 15:49 骑着骆驼逛沙漠 阅读(173) 评论(0) 推荐(0)
listview颜色交替显示代码
摘要：procedure TfrmRecordQuery.lvRecordInfoCustomDrawItem( Sender: TCustomListView; Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);var... 阅读全文
posted @ 2013-01-06 15:48 骑着骆驼逛沙漠 阅读(148) 评论(0) 推荐(0)