随笔分类 -  Delphi

Idhttp中get与Post的区别
摘要：网上收集的，仅供参考！1. get是从服务器上获取数据，post是向服务器传送数据。 get 和 post只是一种传递数据的方式，get也可以把数据传到服务器，他们的本质都是发送请求和接收结果。只是组织格式和数据量上面有差别，http协议里面有介绍 2. get是把参数数据队列加到提交表单的ACTION属性所指的URL中，值和表单内各个字段一一对应，在URL中可以看到。post是通过HTTP post机制，将表单内各个字段与其内容放置在HTML HEADER内一起传送到ACTION属性所指的URL地址。用户看不到这个过程。 因为get设计成传输小数据，而且最好是不修改服务器的数据，所以浏览器. 阅读全文
posted @ 2013-03-24 16:18 kaka9 阅读(1464) 评论(0) 推荐(0)
delphi气泡提示
摘要：气泡提示比弹出框可能用户体验更好，下面是从网上搜索来的代码unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs,commctrl, StdCtrls, Buttons;type TForm1 = class(TForm) Button1: TButton; ListBox1: TListBox; Edit1: TEdit; cbb1: TComboBox; Label1: TLabel; proc... 阅读全文
posted @ 2012-10-23 15:46 kaka9 阅读(2361) 评论(0) 推荐(0)
FastReport打印表格时自动高度
摘要：Allowslip选True (跨页打印)MasterData1的Stretched设置为True;(设置对象可以拉伸)所有Memo的StretchMode设置为smMaxHeight(自动拉伸到最高高度);WordWrap为True;(自动换行) 阅读全文
posted @ 2012-06-18 22:12 kaka9 阅读(3872) 评论(0) 推荐(0)
FastReport调用Delphi中的人民币大写转换自定义函数
摘要：FastReport调用Delphi中的人民币大写转换自定义函数function TJzpzEdit1.MoneyCn(mmje: Double): string;consts1: string = ‘零壹贰叁肆伍陆柒捌玖’;s2: string = ‘分角元拾佰仟万拾佰仟亿拾佰仟万’;function StrTran(const S, s1, s2: string): string;beginResult := StringReplace(S, s1, s2, [rfReplaceAll]);end;varS, dx: string;i, Len: Integer;beginif mmje 阅读全文
posted @ 2012-06-14 14:58 kaka9 阅读(2408) 评论(0) 推荐(0)
delphi调用webServices在win2003出错误的解决方法
摘要：Hongkong一家客户需要发送业务系统的一些短信，通过专门的短信公司的WebServices接口发送。我在XP系统做好测试没问题后，将程序放在服务器上让它自动跑。每次程序只要调用接口就会自动挂掉。去掉抛错处理，提示错误为Access violation at address OOC897B1. Write of address 00C897B1后来经分析是操作系统是win2003的原因。在网上找了下，解决办法右击“我的电脑”。单击“属性”。在“系统属性”中单击“高级”。在“性能”中单击“设置”。在“性能选项”中单击“数据执行保护”。单击“添加”。选择要运行的程序。 阅读全文
posted @ 2011-05-25 16:25 kaka9 阅读(352) 评论(0) 推荐(0)
delphi写dll文件
摘要：一、开使你的第一个DLL专案 1.File->Close all->File->New﹝DLL﹞代码: //自动产生Code如下 library Project2; //这有段废话 uses SysUtils, Classes; {$R *.RES} begin end. 2.加个Func进来： 代码: library Project2; uses SysUtils, Classes;Function MyMax ( X , Y : integer ) : integer ; stdcall ;beginif X > Y thenResult := XelseResul 阅读全文
posted @ 2011-03-15 10:41 kaka9 阅读(5128) 评论(0) 推荐(1)
Delphi 的运算符列表
摘要：分类运算符操作操作数结果类型范例算术运算符+加整数，实数整数，实数X + Y-减整数，实数整数，实数Result - 1*乘整数，实数整数，实数P * InterestRate/实数除整数，实数实数X / 2div整数除整数整数Total div UnitSizemod取模整数整数Y mod 6+(一元)符号等同整数，实数整数，实数+7-(一元)符号相反整数，实数整数，实数-X布尔运算符not否定布尔型Booleannot (C in MySet)and与布尔型BooleanDone and (Total > 0)or或布尔型BooleanA or Bxor异或布尔型BooleanA x 阅读全文
posted @ 2011-03-11 16:31 kaka9 阅读(235) 评论(0) 推荐(0)
实现软件自动升级
摘要：本文来自CSDN博客，转载请标明出处：http://blog.csdn.net/bdmh/archive/2011/01/06/6120459.aspx原理简单，在FTP上维护一个Update.ini文件，里面记录着要更新文件的版本号，本地也有一个Update.ini文件，每次启动更新程序时，先从FTP上下载Update.ini文件到本地名字为Update_new.ini，然后比较这两个文件，如果新的版本号大于旧的，或者新的文件在就ini中没有，这些就表示要更新的文件，然后逐一下载。 本程序名字为AutoUpdate，你生成这个exe，然后和主程序一起打包，创建桌面快捷方式时，指向AutoUp 阅读全文
posted @ 2011-02-10 16:32 kaka9 阅读(566) 评论(0) 推荐(0)
Delphi中控制Excel插入一行
摘要：V: Variant; //要定义为变体型try V := CreateOLEObject('Excel.Application');//创建OLE对象 V.Visible := false; V.WorkBooks.Open('EXCEL文件.xls'); V.WorkSheets[1].Activate; Except//创建失败，没有安装EXCEL或没有安装好(有些使用绿色版) Exit; ... 阅读全文
posted @ 2010-10-25 18:15 kaka9 阅读(1086) 评论(0) 推荐(0)
Delphi第三方控件安装卸载指南
摘要：由于组件提供的方式不同，所以安装的方法也是不一样的，下面就目前常见的各种形式的组件的安装方法介绍一下。 1 只有一个DCU文件的组件。DCU文件是编译好的单元文件，这样的组件是作者不想把源码公布。一般来说，作者必须说明此组件适合Delphi的哪种版本，如果版本不对，在安装时就会出现错误。也正是因为没有源码，给使用者带来了不便，那就是一旦Delphi版本升级，此组件就不能再使用了，当然有的作者给出了... 阅读全文
posted @ 2010-05-03 15:19 kaka9 阅读(323) 评论(0) 推荐(0)
delphi 日期加减（及日期函数）
摘要：Delphi里有现成的函数可以实现日期加减，是在DateUtils单元里的。function IncYear(const AValue: TDateTime;const ANumberOfYears: Integer = 1): TDateTime;// function IncMonth is in SysUtilsfunction IncWeek(const AValue: TDateTime... 阅读全文
posted @ 2010-04-17 15:01 kaka9 阅读(3583) 评论(0) 推荐(0)
DELPHI 三层显示error loading midas.dll
摘要：如果用的delphi在你的单元里用uses midaslib这个东西就可以把midas静态连接到你的程序楼上的也可以在程序中使用winexec("regsvr32.exe midas.dll",SW_NORMAL);注册midas组件可能是注册表中记录的<path>midas.dll不存在，可以：(1) regsvr32 /u /s midas.dll(2)midas.dll to c... 阅读全文
posted @ 2009-10-19 11:19 kaka9 阅读(1523) 评论(0) 推荐(0)
DBGrideh实现自动排序
摘要：1.在optioneh中设置：AutosortMarking:=True2.设置DbGridEh的属性:(不一定总要设置，与使用的数据连接有关)sortlocal:=True;3.uses 单元Ado------ehlibADoTclientData------ehlibCDSBDE ---------ehlibBDE4.Column属性TitleButton:=True 来自网络转载 阅读全文
posted @ 2009-04-30 19:34 kaka9 阅读(5426) 评论(0) 推荐(0)
清空所有Edit内容
摘要：CodeCode highlighting produced by Actipro CodeHighlighter (freeware)http://www.CodeHighlighter.com/-->//清空当前界面所有文本框过程procedure ClearText(AControl:TWinControl);var I : Integer;begin for I := 0 to ACon... 阅读全文
posted @ 2009-04-29 20:26 kaka9 阅读(1000) 评论(0) 推荐(0)
Delphi中Edit输入控制必需为数字（2位小数）
摘要：procedure TfrmGoods_InfoAdd.edt_PriceKeyPress(Sender: TObject; var Key: Char);var DotPos,Len:integer;begin DotPos:=pos('.',(Sender as TEdit).Text); Len:=length((Sender as TEdit).Text); if ... 阅读全文
posted @ 2009-04-29 20:01 kaka9 阅读(1652) 评论(0) 推荐(0)
打印九九乘法口决表
摘要：procedure TForm3.btn_cfClick(Sender: TObject);var i,j : Integer;begin Form1.Refresh; for i:=1 to 9 do for j:=1 to i do begin Form3.Canvas.TextOut(j*50-40,i*20+40,IntToStr(j)+' * '+IntToSt... 阅读全文
posted @ 2009-04-17 17:32 kaka9 阅读(1676) 评论(0) 推荐(0)
关于if...else
摘要：学delphi一周了，感觉有些别扭，可能是自己一直用微软的开发工具 var I: Integer;begin if I > 0 then {如果I大于0} Dosomething1 {如果这里是2行或以上，要使用begin...end 包起来} else if I < 0 then {如果I小于0，else if 块不是必须的，但是else 的上面一行结尾不要用... 阅读全文
posted @ 2009-04-16 17:41 kaka9 阅读(195) 评论(0) 推荐(0)