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
This package consists of the executable (UCW), a default script file, this file, and the library files. It is important that the header files End up in a include subdirectory of the directory where UCW is found. If you unzip this file using its path information ( use folder names ) this will automatically happen. You can optionally specify the UnderC directory with the environment variable UC_HOME note that this points to the directory containing ucw.exe. If you do this, then you can copy the executable anywhere and it will still be able to find the header files.
標簽: file executable the consists
上傳時間: 2013-12-17
上傳用戶:asddsd
Using the UnderC Tokenizer Class It s often necessary to parse complex text files, where standard i/o is too clumsy. C programmers fall back on strtok(), but this can be tricky to use properly. Besides, you are still responsible for keeping strtok() fed with new input, and I don t like the schlepp. Tokenizer is a text-parsing input stream, modelled after the (undocumented) VCL TParser class, and based on the UnderC tokenizing preprocessor front-End.
標簽: Tokenizer necessary standard complex
上傳時間: 2013-12-16
上傳用戶:whenfly
Welcome to UnderC version 1.2.9w This package consists of the executable (UCW), a default script file, this file, and the library files. It is important that the header files End up in a include subdirectory of the directory where UCW is found. If you unzip this file using its path information ( use folder names ) this will automatically happen. You can optionally specify the UnderC directory with the environment variable UC_HOME note that this points to the directory containing ucw.exe. If you do this, then you can copy the executable anywhere and it will still be able to find the header files.
標簽: executable consists Welcome package
上傳時間: 2015-12-18
上傳用戶:baiom
《JavaServer Faces》 In JavaServer Faces, developers learn how to use the new JavaServer Faces framework to build real-world web applications. The book contains everything you ll need: how to construct the HTML on the front End how to create the user interface components that connect the front End to your business objects how to write a back-End that s JSF-friEndly and how to create the deployment descriptors that tie everything together. This book is a complete guide to the crucial new JSF technology.
標簽: JavaServer Faces developers framew
上傳時間: 2016-01-02
上傳用戶:redmoons
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
上傳用戶:努力努力再努力
TRAFFIC LIGHT CONTROLLER using C51 and RTX-51 tiny,This program is a simple Traffic Light Controller. Between start time and End time the system controls a traffic light with pedestrian self-service. Outside of this time range the yellow caution lamp is blinking.
標簽: CONTROLLER TRAFFIC LIGHT using
上傳時間: 2013-12-27
上傳用戶:123456wh
圖形顯示技巧,這是其中一段代碼 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
其中:ClientInfor.inf 文件: 第一行的數據表示: 客戶端游戲版本號 第一行的數據表示: 更新文件存放的網絡路徑 UpdateInfor.inf文件: 第一行的數據表示: 最新游戲版本號 第二行的數據表示: 有多少文件需要更新 后面每行的數據表示: 需要更新的文件的名稱 frmUpdate.frm窗體: 負責下載 modZip.BAS模塊: 只負責用來壓縮文件和解壓縮文件的 其中的 UnZipTo 函數用來解壓縮的 zlib.dll: 為WinZip的dll文件 更新完畢后,ClientInfor.inf文件的第一行的數據會變為最新版本號 frmUpdate.frm窗體代碼如下: Private Sub cmdExit_Click() Unload Me End Sub Private Sub cmdUpdate_Click() Dim strClientInfor() As String Dim strUpdateInfor() As String Dim nNum As Integer 存
標簽: ClientInfor UpdateInfor inf 數據表示
上傳時間: 2013-12-24
上傳用戶:hanli8870
Session 1: common and useful built-in Mathematica functions variable assignment and function definition the Front End and the Kernel Notebooks. Session 2: organisation of data in Mathematica lists and expressions simple programming functions nesting. Session 3: the opportunity to develop your proficiency as a Mathematica user through work on an extEnded problem Case Studies Mathematica resources on the Internet.
標簽: Mathematica assignment and functions
上傳時間: 2013-12-27
上傳用戶:362279997