procedureTForm1.Button1Click(Sender:TObject) var S:String begin S:=idhttp1.Get(PostURL.text+ ?username= +EdUserName.Text+ &password= +EdPassWord.Text+ &password2= +EdPassWord.Text+ &email= + EdEMail.Text+ &gendernew=1&year=&month=&day=&locationnew =&site=&oicq=&icq=&yahoo=&msn=&bio=&styleidnew =&tppnew=0&pppnew=0&timeformatnew=12&cstatus=&dateformatnew =yyyy-mm-dd&showemail=1&newsletter=1&timeoffsetnew=8&avatar =&sig=®submit=注册 ) //一句代码 ifPos( 非常感谢您的注册 ,s)>1then //判断部分 ShowMessage( 注册成功! ) else ifPos( 已经被注册了 ,S)>1then ShowMessage( 该用户名或E-Mail已被注册! ) else ShowMessage( 已关闭注册,注册失败! ) end
标签： procedureTForm PostURL TObject Button
上传时间： 2014-08-24
上传用户：努力努力再努力
图形显示技巧,这是其中一段代码 procedure TForm1.Button1Click(Sender: TObject) var newbmp:TBitmap i,bmpheight,bmpwidth:integer //推拉 begin newbmp:=TBitmap.Create newbmp.Width:=image1.Width newbmp.Height:=image1.Height bmpheight:=image1.Height bmpwidth:=image1.Width for i:=0 to bmpheight do begin newbmp.Canvas.CopyRect(Rect(0,bmpheight-i,bmpwidth,bmpheight),image1.Canvas,Rect(0,0,bmpwidth,i)) form1.Canvas.Draw(120,100,newbmp) end newbmp.free end
标签： procedure TBitmap TObject Button
上传时间： 2016-01-18
上传用户：comua
人民币大写金额转换程序(修正版v0.0.3) =================================== 1.使用方法: ------------- 将Cash_RMB.dcu放入Delphi安装目录下的Lib中,在uses中加入Cash_RMB, 即可引用CashRMB方法. function CashRMB(CashAmount: Double): String 如: procedure TForm1.Button1Click(Sender: TObject) begin QRLabel1.Caption := CashRMB(Table1.FieldByName( 金额 ).AsFloat) end 结果将传回人民币金额大写字符串. 如果 CashAmount = 0 或数值溢出(超出万亿位),结果返回空串. 2.说明: -------- A.本转换程序最大程度只支持到万亿元(位)的金额数值转换操作.如果你的 转换数值超出此极限,你可以在调用前先行判断数据的合法性,如果没有作预 先判断,转换过程中将引发本单元中自带的错误处理例程. b.该转换结果符合标准金额大写书写格式，零角零分等字样不存在于最终的 转换结果中. c.本转换程序自带数据溢出等数据非法及转换错误等处理例程. d.本程序适用于32位的Delphi版本.
上传时间： 2013-12-31
上传用户：hebmuljb
unit Video interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, stdctrls, ExtCtrls, avicap, mmsystem, dsgnintf // Types for event-procedures type TCapStatusProc = procedure(Sender: TObject) of object TCapStatusCallback = procedure(Sender: TObject nID: integer status: string) of object TVideoStream = procedure(sender: TObject lpVhdr: PVIDEOHDR) of object TAudioStream = procedure(sender: TObject lpWHdr: PWAVEHDR) of object // Property Editor for driver selection type TDrivereditor = class(TPropertyEditor) function GetAttributes: TPropertyAttributes override procedure GetValues(Proc: TGetStrProc) override function GetValue: string override procedure SetValue(const Value: string) override end
标签： interface Messages Graphics Controls
上传时间： 2013-12-21
上传用户：heart520beat
unit comm interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, SPComm, StdCtrls, ExtCtrls type TFcomm = class(TForm) Comm1: TComm GroupBox1: TGroupBox Memo1: TMemo Memo2: TMemo GroupBox2: TGroupBox Button1: TButton Btn_send: TButton Button2: TButton procedure Button1Click(Sender: TObject) procedure Button2Click(Sender: TObject) procedure Btn_sendClick(Sender: TObject) procedure Comm1ReceiveData(Sender: TObject Buffer: Pointer BufferLength: Word) private { Private declarations } public { Public declarations } end
标签： interface Messages Graphics Controls
上传时间： 2016-06-10
上传用户：gxmm
MD5变换动态链接库文件调用：（delphi例子） ========================================================================= function transfer(tran:widestring):widestring stdcall external md5.dll name transfer //edit1为输入字符，edit2为输出md5摘要 procedure TForm1.Button1Click(Sender: TObject) begin edit2.text:=transfer(edit1.Text) end
上传时间： 2016-07-04
上传用户：lijianyu172
先运行力控应用程序（如演示工程——反应釜），实时数据库系统亦随之启动。 然后启动delphi6.0，创建一个新的工程。 在form1窗体中，放置DdeClientConv控件（system标签页），设置ConnectMode属性值为ddeAutomatic、DdeService属性值为db、DdeTopic属性值为db； 接下来放置DdeClientItem控件（system标签页），设置DdeConv为DdeClientConv1，设置DdeItem属性值为所要读取的数据库点参数值如dbmixvol.pv； 放置一个edit控件； 放置一个timer控件，设置interval属性值为100；在ontimer脚本中加入： procedure TForm1.Timer1Timer(Sender: TObject) begin edit1.text:=form1.DdeClientItem1.Text end
上传时间： 2014-01-22
上传用户：lwwhust
procedure senddata var i:integer commflg : Boolean begin commflg:=true for i:=1 to 8 do begin if not fcomm comml writecommdata(sendbutter,i) then begin Commflg=false break end end end (4) 接收数据 在编写基于串口的计算机工业测控时，通常需要由下位机向PC机发送数据以使PC机了解系统的测试数据或下位机的运行状态，并进而控制下位机的行为。利用Spcomm串口控件接收下位机发送的数据信息的示例代码如下： //事件驱动方式接收数据程序 procedure TForm1.CommlReceiveData(Sender:TObject Buffer:Pointer bufferLength:Word) var receivedata:array of byte begin sleep(100) //等待100ms，保证接收到所有数据 move(buffef ,receivedata,bufferlength) //将接收缓存区中的数据转移到数组中 …… end (5) 关闭串口 在系统开发中，应注意在不使用串口时应及时关闭串口，释放系统资源，否则可能会影响系统的其它应用。关闭串口的代码如下： procedure TForm1.FormClose ( Sender TObj ect:var Action:TCIoseAction ) begin comml.StopComm end
标签： commflg procedure senddata integer
上传时间： 2014-01-26
上传用户：懒龙1988
