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
tsp遺傳算法源代碼，nit fEA_TSP
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ExtCtrls, StdCtrls, Spin, ComCtrls, uIEA, uITSP, uUtilsEA, uDisplayTSP
type
TFormGA = class(TForm)
PanelFit: TPanel
Panel2: TPanel
Panel3: TPanel
PanelDisp: TPanel
Panel5: TPanel
Panel6: TPanel
Label2: TLabel
EditNoCities: TSpinEdit
EditPopulationSize: TSpinEdit
EditKill: TSpinEdit
EditInversion: TSpinEdit
EditTransposition: TSpinEdit
EditGens: TSpinEdit
ButtonRun: TButton
ButtonStep: TButton
ButtonCreateCities: TButton
ButtonCreatePop: TButton
標簽：
tsp
算法
源代碼
上傳時間：
2015-12-28
上傳用戶：bjgaofei
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
