Menu
▾
▴
[JVCL-Checkins] CVS: dev/JVCL3/examples/JvHIDController/ReadWriteDemo DevReader.dfm,1.1,1.2 DevReader.pas,1.1,1.2 Info.dfm,1.1,1.2 Info.pas,1.1,1.2 SimpleHIDWrite.dof,1.1,1.2 SimpleHIDWrite.dpr,1.1,1.2 SimpleHIDWrite.res,1.1,1.2
Update of /cvsroot/jvcl/dev/JVCL3/examples/JvHIDController/ReadWriteDemo
In directory sc8-pr-cvs1:/tmp/cvs-serv22581/JVCL3/examples/JvHIDController/ReadWriteDemo
Modified Files:
DevReader.dfm DevReader.pas Info.dfm Info.pas
SimpleHIDWrite.dof SimpleHIDWrite.dpr SimpleHIDWrite.res
Log Message:
Index: DevReader.dfm
===================================================================
RCS file: /cvsroot/jvcl/dev/JVCL3/examples/JvHIDController/ReadWriteDemo/DevReader.dfm,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** DevReader.dfm 23 Aug 2003 23:18:26 -0000 1.1
--- DevReader.dfm 9 Nov 2003 17:28:33 -0000 1.2
***************
*** 1,3 ****
! object Form1: TForm1
Left = 192
Top = 116
--- 1,3 ----
! object MainForm: TMainForm
Left = 192
Top = 116
***************
*** 18,24 ****
OnActivate = FormActivate
OnDestroy = DevListBoxClick
PixelsPerInch = 96
TextHeight = 16
! object Read: TSpeedButton
Left = 72
Top = 451
--- 18,27 ----
OnActivate = FormActivate
OnDestroy = DevListBoxClick
+ DesignSize = (
+ 444
+ 484)
PixelsPerInch = 96
TextHeight = 16
! object ReadBtn: TSpeedButton
Left = 72
Top = 451
***************
*** 29,35 ****
GroupIndex = 1
Caption = 'Read'
! OnClick = ReadClick
end
! object Write: TSpeedButton
Left = 160
Top = 451
--- 32,38 ----
GroupIndex = 1
Caption = 'Read'
! OnClick = ReadBtnClick
end
! object WriteBtn: TSpeedButton
Left = 160
Top = 451
***************
*** 39,45 ****
Anchors = [akLeft, akBottom]
Caption = 'Write'
! OnClick = WriteClick
end
! object Save: TSpeedButton
Left = 248
Top = 451
--- 42,48 ----
Anchors = [akLeft, akBottom]
Caption = 'Write'
! OnClick = WriteBtnClick
end
! object SaveBtn: TSpeedButton
Left = 248
Top = 451
***************
*** 49,53 ****
Anchors = [akLeft, akBottom]
Caption = 'Save'
! OnClick = SaveClick
end
object Label1: TLabel
--- 52,56 ----
Anchors = [akLeft, akBottom]
Caption = 'Save'
! OnClick = SaveBtnClick
end
object Label1: TLabel
***************
*** 60,71 ****
Caption = 'ReportID'
end
! object Info: TSpeedButton
Left = 8
Top = 451
! Width = 49
Height = 22
- Anchors = [akLeft, akBottom]
Caption = 'Info'
! OnClick = InfoClick
end
object DevListBox: TListBox
--- 63,73 ----
Caption = 'ReportID'
end
! object InfoBtn: TSpeedButton
Left = 8
Top = 451
! Width = 57
Height = 22
Caption = 'Info'
! OnClick = InfoBtnClick
end
object DevListBox: TListBox
***************
*** 104,108 ****
TabOrder = 3
end
! object SaveDialog1: TSaveDialog
DefaultExt = 'txt'
Filter = 'Text Files *.txt|*.txt|All Files *.*|*.*'
--- 106,110 ----
TabOrder = 3
end
! object SaveDialog: TSaveDialog
DefaultExt = 'txt'
Filter = 'Text Files *.txt|*.txt|All Files *.*|*.*'
***************
*** 114,117 ****
--- 116,121 ----
OnEnumerate = HidCtlEnumerate
OnDeviceChange = HidCtlDeviceChange
+ OnDeviceData = ShowRead
+ OnDeviceDataError = HidCtlDeviceDataError
Left = 368
end
Index: DevReader.pas
===================================================================
RCS file: /cvsroot/jvcl/dev/JVCL3/examples/JvHIDController/ReadWriteDemo/DevReader.pas,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** DevReader.pas 23 Aug 2003 23:18:26 -0000 1.1
--- DevReader.pas 9 Nov 2003 17:28:33 -0000 1.2
***************
*** 5,9 ****
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
! StdCtrls, Buttons, JvHidControllerClass, JvComponent;
type
--- 5,9 ----
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
! StdCtrls, Buttons, JvHidControllerClass;
type
***************
*** 13,56 ****
end;
! TDevThread = class(TThread)
! public
! Dev: TJvHidDevice;
! NumBytesRead: Cardinal;
! Data: TReport;
! procedure Execute; override;
! procedure HandleData;
! end;
!
! TForm1 = class(TForm)
DevListBox: TListBox;
HistoryListBox: TListBox;
! Read: TSpeedButton;
! Write: TSpeedButton;
! Save: TSpeedButton;
! SaveDialog1: TSaveDialog;
ReportID: TEdit;
Edit1: TEdit;
Label1: TLabel;
HidCtl: TJvHidDeviceController;
! Info: TSpeedButton;
procedure HidCtlDeviceChange(Sender: TObject);
! function HidCtlEnumerate(const HidDev: TJvHidDevice;
const Idx: Integer): Boolean;
! procedure ReadClick(Sender: TObject);
procedure DevListBoxClick(Sender: TObject);
! procedure SaveClick(Sender: TObject);
procedure FormActivate(Sender: TObject);
! procedure WriteClick(Sender: TObject);
! procedure InfoClick(Sender: TObject);
public
- DevList: TList;
Edits: array [0..63] of TEdit;
! TheDev: TJvHidDevice;
! DevThread: TDevThread;
! procedure ShowRead;
end;
var
! Form1: TForm1;
implementation
--- 13,49 ----
end;
! TMainForm = class(TForm)
DevListBox: TListBox;
HistoryListBox: TListBox;
! ReadBtn: TSpeedButton;
! WriteBtn: TSpeedButton;
! SaveBtn: TSpeedButton;
! SaveDialog: TSaveDialog;
ReportID: TEdit;
Edit1: TEdit;
Label1: TLabel;
HidCtl: TJvHidDeviceController;
! InfoBtn: TSpeedButton;
procedure HidCtlDeviceChange(Sender: TObject);
! function HidCtlEnumerate(HidDev: TJvHidDevice;
const Idx: Integer): Boolean;
! procedure ReadBtnClick(Sender: TObject);
procedure DevListBoxClick(Sender: TObject);
! procedure SaveBtnClick(Sender: TObject);
procedure FormActivate(Sender: TObject);
! procedure WriteBtnClick(Sender: TObject);
! procedure InfoBtnClick(Sender: TObject);
! procedure HidCtlDeviceDataError(HidDev: TJvHidDevice;
! Error: Cardinal);
public
Edits: array [0..63] of TEdit;
! CurrentDevice: TJvHidDevice;
! published
! procedure ShowRead(HidDev: TJvHidDevice; ReportID: Byte;
! const Data: Pointer; Size: Word);
end;
var
! MainForm: TMainForm;
implementation
***************
*** 61,85 ****
{$R *.DFM}
! procedure TForm1.HidCtlDeviceChange(Sender: TObject);
var
Dev: TJvHidDevice;
I: Integer;
begin
! Read.Down := False;
if Assigned(DevListBox) then
begin
! if DevList <> nil then
begin
! for I := 0 to DevList.Count - 1 do
! begin
! Dev := DevList.Items[I];
! Dev.Free;
! end;
! DevList.Clear;
! end
! else
! DevList := TList.Create;
! HistoryListBox.Clear;
DevListBox.Clear;
HidCtl.Enumerate;
if DevListBox.Items.Count > 0 then
--- 54,73 ----
{$R *.DFM}
! procedure TMainForm.HidCtlDeviceChange(Sender: TObject);
var
Dev: TJvHidDevice;
I: Integer;
begin
! ReadBtn.Down := False;
! ReadBtnClick(Self);
if Assigned(DevListBox) then
begin
! for I := 0 to DevListBox.Count - 1 do
begin
! Dev := TJvHidDevice(DevListBox.Items.Objects[I]);
! Dev.Free;
! end;
DevListBox.Clear;
+ HistoryListBox.Clear;
HidCtl.Enumerate;
if DevListBox.Items.Count > 0 then
***************
*** 91,97 ****
end;
! function TForm1.HidCtlEnumerate(const HidDev: TJvHidDevice;
const Idx: Integer): Boolean;
var
Dev: TJvHidDevice;
begin
--- 79,86 ----
end;
! function TMainForm.HidCtlEnumerate(HidDev: TJvHidDevice;
const Idx: Integer): Boolean;
var
+ N: Integer;
Dev: TJvHidDevice;
begin
***************
*** 99,184 ****
begin
if HidDev.ProductName <> '' then
! DevListBox.Items.Add(HidDev.ProductName)
else
! DevListBox.Items.Add(Format('Device VID=%x PID=%x',
[HidDev.Attributes.VendorID, HidDev.Attributes.ProductID]));
HidCtl.CheckOutByIndex(Dev, Idx);
! DevList.Add(Dev);
end;
Result := True;
end;
! procedure TForm1.DevListBoxClick(Sender: TObject);
var
I: Integer;
begin
! Read.Down := False;
HistoryListBox.Clear;
if Assigned(Edits[0]) and
(DevListBox.Items.Count > 0) and (DevListBox.ItemIndex >= 0) then
begin
! TheDev := DevList[DevListBox.ItemIndex];
! for I := 0 to TheDev.Caps.OutputReportByteLength - 1 do
! Edits[I].Visible := True;
! for I := TheDev.Caps.OutputReportByteLength-1 to 63 do
Edits[I].Visible := False;
! Write.Enabled := TheDev.Caps.OutputReportByteLength <> 0;
end;
end;
! procedure TForm1.ShowRead;
var
I: Integer;
Str: string;
begin
! Str := Format('R %.2x ', [DevThread.Data.ReportID]);
! for I := 0 to DevThread.NumBytesRead - 2 do
! Str := Str + Format('%.2x ', [DevThread.Data.Bytes[I]]);
HistoryListBox.ItemIndex := HistoryListBox.Items.Add(Str);
end;
! procedure TDevThread.HandleData;
! begin
! Synchronize(Form1.ShowRead);
! end;
!
! procedure TDevThread.Execute;
! var
! SleepRet: DWORD;
!
! procedure Dummy(ErrorCode: DWORD; Count: DWORD; Ovl: POverlapped); stdcall;
! begin
! end;
!
begin
! SleepRet := WAIT_IO_COMPLETION;
! while not Terminated do
! begin
! // read data
! SleepRet := WAIT_IO_COMPLETION;
! if not Dev.ReadFileEx(Data, Dev.Caps.InputReportByteLength, @Dummy) then
! Break;
! // wait for read to complete
! repeat
! SleepRet := SleepEx(200, True);
! until Terminated or (SleepRet = WAIT_IO_COMPLETION);
! // show data read
! if not Terminated then
! begin
! NumBytesRead := Dev.HidOverlappedReadResult;
! HandleData;
! end;
! end;
! // cancel ReadFileEx call or the callback will
! // crash your program
! if SleepRet <> WAIT_IO_COMPLETION then
! Dev.CancelIO(omhRead);
end;
! procedure TForm1.InfoClick(Sender: TObject);
begin
if (DevListBox.Items.Count > 0) and (DevListBox.ItemIndex >= 0) then
with TInfoForm.Create(Self) do
begin
ShowModal;
Free;
--- 88,145 ----
begin
if HidDev.ProductName <> '' then
! N := DevListBox.Items.Add(HidDev.ProductName)
else
! N := DevListBox.Items.Add(Format('Device VID=%.4x PID=%.4x',
[HidDev.Attributes.VendorID, HidDev.Attributes.ProductID]));
HidCtl.CheckOutByIndex(Dev, Idx);
! DevListBox.Items.Objects[N] := Dev;
end;
Result := True;
end;
! procedure TMainForm.DevListBoxClick(Sender: TObject);
var
I: Integer;
+ Dev: TJvHidDevice;
begin
! ReadBtn.Down := False;
! ReadBtnClick(Self);
HistoryListBox.Clear;
if Assigned(Edits[0]) and
(DevListBox.Items.Count > 0) and (DevListBox.ItemIndex >= 0) then
begin
! Dev := TJvHidDevice(DevListBox.Items.Objects[DevListBox.ItemIndex]);
! for I := Low(Edits) to High(Edits) do
Edits[I].Visible := False;
! for I := 0 to Dev.Caps.OutputReportByteLength - 2 do
! Edits[I].Visible := True;
! WriteBtn.Enabled := Dev.Caps.OutputReportByteLength <> 0;
end;
end;
! procedure TMainForm.ShowRead(HidDev: TJvHidDevice; ReportID: Byte;
! const Data: Pointer; Size: Word);
var
I: Integer;
Str: string;
begin
! Str := Format('R %.2x ', [ReportID]);
! for I := 0 to Size - 1 do
! Str := Str + Format('%.2x ', [Cardinal(PChar(Data)[I])]);
HistoryListBox.ItemIndex := HistoryListBox.Items.Add(Str);
end;
! procedure TMainForm.HidCtlDeviceDataError(HidDev: TJvHidDevice;
! Error: Cardinal);
begin
! HistoryListBox.ItemIndex := HistoryListBox.Items.Add('READ ERROR: ' + SysErrorMessage(Error));
end;
! procedure TMainForm.InfoBtnClick(Sender: TObject);
begin
if (DevListBox.Items.Count > 0) and (DevListBox.ItemIndex >= 0) then
with TInfoForm.Create(Self) do
begin
+ Dev := TJvHidDevice(DevListBox.Items.Objects[DevListBox.ItemIndex]);
ShowModal;
Free;
***************
*** 186,211 ****
end;
! procedure TForm1.ReadClick(Sender: TObject);
begin
if (DevListBox.Items.Count > 0) and (DevListBox.ItemIndex >= 0) then
begin
! TheDev := DevList[DevListBox.ItemIndex];
! if Read.Down then
! begin
! DevThread := TDevThread.Create(True);
! DevThread.FreeOnTerminate := False;
! DevThread.Dev := TheDev;
! DevThread.Resume;
! end
! else
! begin
! DevThread.Terminate;
! DevThread.WaitFor;
! FreeAndNil(DevThread);
! end;
end;
end;
! procedure TForm1.WriteClick(Sender: TObject);
var
I: Integer;
--- 147,162 ----
end;
! procedure TMainForm.ReadBtnClick(Sender: TObject);
begin
+ CurrentDevice := nil;
if (DevListBox.Items.Count > 0) and (DevListBox.ItemIndex >= 0) then
begin
! CurrentDevice := TJvHidDevice(DevListBox.Items.Objects[DevListBox.ItemIndex]);
! if not CurrentDevice.HasReadWriteAccess then
! ReadBtn.Down := False;
end;
end;
! procedure TMainForm.WriteBtnClick(Sender: TObject);
var
I: Integer;
***************
*** 215,224 ****
Str: string;
begin
! if (DevListBox.Items.Count > 0) and (DevListBox.ItemIndex >= 0) then
begin
- TheDev := DevList[DevListBox.ItemIndex];
Buf[0] := StrToIntDef('$' + ReportID.Text, 0);
ReportID.Text := Format('%.2x', [Buf[0]]);
! ToWrite := TheDev.Caps.OutputReportByteLength;
for I := 1 to ToWrite-1 do
begin
--- 166,174 ----
Str: string;
begin
! if Assigned(CurrentDevice) then
begin
Buf[0] := StrToIntDef('$' + ReportID.Text, 0);
ReportID.Text := Format('%.2x', [Buf[0]]);
! ToWrite := CurrentDevice.Caps.OutputReportByteLength;
for I := 1 to ToWrite-1 do
begin
***************
*** 226,230 ****
Edits[I-1].Text := Format('%.2x', [Buf[I]]);
end;
! TheDev.WriteFile(Buf, ToWrite, Written);
Str := Format('W %.2x ', [Buf[0]]);
for I := 1 to Written-1 do
--- 176,180 ----
Edits[I-1].Text := Format('%.2x', [Buf[I]]);
end;
! CurrentDevice.WriteFile(Buf, ToWrite, Written);
Str := Format('W %.2x ', [Buf[0]]);
for I := 1 to Written-1 do
***************
*** 234,245 ****
end;
! procedure TForm1.SaveClick(Sender: TObject);
begin
ForceCurrentDirectory := True;
! if SaveDialog1.Execute then
! HistoryListBox.Items.SaveToFile(SaveDialog1.FileName);
end;
! procedure TForm1.FormActivate(Sender: TObject);
var
I, J: Integer;
--- 184,195 ----
end;
! procedure TMainForm.SaveBtnClick(Sender: TObject);
begin
ForceCurrentDirectory := True;
! if SaveDialog.Execute then
! HistoryListBox.Items.SaveToFile(SaveDialog.FileName);
end;
! procedure TMainForm.FormActivate(Sender: TObject);
var
I, J: Integer;
***************
*** 248,252 ****
Exit;
Edits[0] := Edit1;
! for I := 1 to 63 do
Edits[I] := TEdit.Create(Self);
for J := 0 to 3 do
--- 198,202 ----
Exit;
Edits[0] := Edit1;
! for I := 1 to High(Edits) do
Edits[I] := TEdit.Create(Self);
for J := 0 to 3 do
***************
*** 259,264 ****
Width := Edit1.Width;
Anchors := Edit1.Anchors;
! Parent := Edit1.Parent;
! TabOrder := 2 + J*16 + I;
end;
DevListBoxClick(Self);
--- 209,215 ----
Width := Edit1.Width;
Anchors := Edit1.Anchors;
! if not Assigned(Parent) then
! Parent := Edit1.Parent;
! TabOrder := Edit1.TabOrder + J*16 + I;
end;
DevListBoxClick(Self);
Index: Info.dfm
===================================================================
RCS file: /cvsroot/jvcl/dev/JVCL3/examples/JvHIDController/ReadWriteDemo/Info.dfm,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** Info.dfm 23 Aug 2003 23:18:26 -0000 1.1
--- Info.dfm 9 Nov 2003 17:28:33 -0000 1.2
***************
*** 14,23 ****
OldCreateOrder = False
Position = poOwnerFormCenter
! OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 16
object Label1: TLabel
Left = 232
! Top = 8
Width = 41
Height = 16
--- 14,26 ----
OldCreateOrder = False
Position = poOwnerFormCenter
! OnShow = FormShow
! DesignSize = (
! 565
! 379)
PixelsPerInch = 96
TextHeight = 16
object Label1: TLabel
Left = 232
! Top = 56
Width = 41
Height = 16
***************
*** 159,163 ****
object Label12: TLabel
Left = 400
! Top = 8
Width = 68
Height = 16
--- 162,166 ----
object Label12: TLabel
Left = 400
! Top = 56
Width = 68
Height = 16
***************
*** 166,172 ****
object DevStrings: TListBox
Left = 232
! Top = 24
Width = 161
! Height = 345
Anchors = [akLeft, akTop, akRight, akBottom]
ItemHeight = 16
--- 169,175 ----
object DevStrings: TListBox
Left = 232
! Top = 72
Width = 161
! Height = 297
Anchors = [akLeft, akTop, akRight, akBottom]
ItemHeight = 16
***************
*** 175,181 ****
object LangStrings: TListBox
Left = 400
! Top = 24
Width = 161
! Height = 345
Anchors = [akTop, akRight, akBottom]
ItemHeight = 16
--- 178,184 ----
object LangStrings: TListBox
Left = 400
! Top = 72
Width = 161
! Height = 297
Anchors = [akTop, akRight, akBottom]
ItemHeight = 16
Index: Info.pas
===================================================================
RCS file: /cvsroot/jvcl/dev/JVCL3/examples/JvHIDController/ReadWriteDemo/Info.pas,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** Info.pas 23 Aug 2003 23:18:26 -0000 1.1
--- Info.pas 9 Nov 2003 17:28:33 -0000 1.2
***************
*** 5,9 ****
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
! StdCtrls;
type
--- 5,9 ----
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
! StdCtrls, JvHidControllerClass;
type
***************
*** 32,40 ****
LangStrings: TListBox;
Label12: TLabel;
! procedure FormCreate(Sender: TObject);
! private
! { Private declarations }
public
! { Public declarations }
end;
--- 32,38 ----
LangStrings: TListBox;
Label12: TLabel;
! procedure FormShow(Sender: TObject);
public
! Dev: TJvHidDevice;
end;
***************
*** 44,76 ****
implementation
- uses
- DevReader;
-
{$R *.DFM}
! procedure TInfoForm.FormCreate(Sender: TObject);
var
I: Integer;
begin
! with Form1 do
! begin
! VendorName.Caption := TheDev.VendorName;
! ProductName.Caption := TheDev.ProductName;
! SerialNo.Caption := TheDev.SerialNumber;
! Vid.Caption := IntToHex(TheDev.Attributes.VendorID, 4);
! Pid.Caption := IntToHex(TheDev.Attributes.ProductID, 4);
! Vers.Caption := IntToHex(TheDev.Attributes.VersionNumber, 4);
! if TheDev.Caps.InputReportByteLength > 0 then
! InputLen.Caption := IntToHex(TheDev.Caps.InputReportByteLength-1, 1);
! if TheDev.Caps.OutputReportByteLength > 0 then
! OutputLen.Caption := IntToHex(TheDev.Caps.OutputReportByteLength-1, 1);
! if TheDev.Caps.FeatureReportByteLength > 0 then
! FeatureLen.Caption := IntToHex(TheDev.Caps.FeatureReportByteLength-1, 1);
! for I := 1 to 255 do
! if TheDev.DeviceStrings[I] <> '' then
! DevStrings.Items.Add(Format('%3d) %s',[I+1,TheDev.DeviceStrings[I]]));
! for I := 0 to TheDev.LanguageStrings.Count - 1 do
! LangStrings.Items.Add(TheDev.LanguageStrings[I]);
! end;
end;
--- 42,68 ----
implementation
{$R *.DFM}
! procedure TInfoForm.FormShow(Sender: TObject);
var
I: Integer;
begin
! VendorName.Caption := Dev.VendorName;
! ProductName.Caption := Dev.ProductName;
! SerialNo.Caption := Dev.SerialNumber;
! Vid.Caption := IntToHex(Dev.Attributes.VendorID, 4);
! Pid.Caption := IntToHex(Dev.Attributes.ProductID, 4);
! Vers.Caption := IntToHex(Dev.Attributes.VersionNumber, 4);
! if Dev.Caps.InputReportByteLength > 0 then
! InputLen.Caption := IntToHex(Dev.Caps.InputReportByteLength-1, 1);
! if Dev.Caps.OutputReportByteLength > 0 then
! OutputLen.Caption := IntToHex(Dev.Caps.OutputReportByteLength-1, 1);
! if Dev.Caps.FeatureReportByteLength > 0 then
! FeatureLen.Caption := IntToHex(Dev.Caps.FeatureReportByteLength-1, 1);
! for I := 1 to 255 do
! if Dev.DeviceStrings[I] <> '' then
! DevStrings.Items.Add(Format('%3d) %s',[I, Dev.DeviceStrings[I]]));
! for I := 0 to Dev.LanguageStrings.Count - 1 do
! LangStrings.Items.Add(Dev.LanguageStrings[I]);
end;
Index: SimpleHIDWrite.dof
===================================================================
RCS file: /cvsroot/jvcl/dev/JVCL3/examples/JvHIDController/ReadWriteDemo/SimpleHIDWrite.dof,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** SimpleHIDWrite.dof 23 Aug 2003 23:18:26 -0000 1.1
--- SimpleHIDWrite.dof 9 Nov 2003 17:28:33 -0000 1.2
***************
*** 1,4 ****
[Directories]
! OutputDir=..\..\..\Bin
! UnitOutputDir=..\..\..\Dcu
! SearchPath=..\..\..\Source;..\..\..\Common
--- 1,93 ----
+ [FileVersion]
+ Version=6.0
+ [Compiler]
+ A=8
+ B=0
+ C=1
+ D=1
+ E=0
+ F=0
+ G=1
+ H=1
+ I=1
+ J=0
+ K=0
+ L=1
+ M=0
+ N=1
+ O=0
+ P=1
+ Q=0
+ R=0
+ S=0
+ T=0
+ U=0
+ V=1
+ W=1
+ X=1
+ Y=1
+ Z=1
+ ShowHints=1
+ ShowWarnings=1
+ UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+ [Linker]
+ MapFile=0
+ OutputObjs=0
+ ConsoleApp=1
+ DebugInfo=0
+ RemoteSymbols=0
+ MinStackSize=16384
+ MaxStackSize=1048576
+ ImageBase=4194304
+ ExeDescription=
[Directories]
! OutputDir=..\..\..\BIN
! UnitOutputDir=..\..\..\DCU
! PackageDLLOutputDir=
! PackageDCPOutputDir=
! SearchPath=..\..\..
! Packages=vcl;rtl;vclx;VclSmp;vclshlctrls;dbrtl;adortl;vcldb;qrpt;bdertl;vcldbx;dsnap;cds;bdecds;teeui;teedb;tee;teeqr;ibxpress;vclie;xmlrtl;inet;inetdbbde;inetdbxpress;inetdb;nmfast;dbexpress;dbxcds;indy;dclOffice2k;Package1;PBFolder;Slider;CoolTray;BetterADO;ClawButtonPkg;ClawLabelPkg;xxgp;DJCL60;CopyData;UsbController;visualclx;jvcljansR6;jvcljansD6;GlobusR6;GlobusD6
! Conditionals=
! DebugSourceDirs=
! UsePackages=0
! [Parameters]
! RunParams=
! HostApplication=
! Launcher=
! UseLauncher=0
! DebugCWD=
! [Language]
! ActiveLang=
! ProjectLang=
! RootDir=
! [Version Info]
! IncludeVerInfo=0
! AutoIncBuild=0
! MajorVer=1
! MinorVer=0
! Release=0
! Build=0
! Debug=0
! PreRelease=0
! Special=0
! Private=0
! DLL=0
! Locale=1031
! CodePage=1252
! [Excluded Packages]
! d:\programme\borland\delphi6\Bin\dclsoap60.bpl=Borland SOAP Components
! [HistoryLists\hlUnitAliases]
! Count=1
! Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
! [HistoryLists\hlSearchPath]
! Count=2
! Item0=..\..\..
! Item1=..\..
! [HistoryLists\hlUnitOutputDirectory]
! Count=2
! Item0=..\..\..\DCU
! Item1=..\..\DCU
! [HistoryLists\hlOutputDirectorry]
! Count=2
! Item0=..\..\..\BIN
! Item1=..\..\BIN
Index: SimpleHIDWrite.dpr
===================================================================
RCS file: /cvsroot/jvcl/dev/JVCL3/examples/JvHIDController/ReadWriteDemo/SimpleHIDWrite.dpr,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** SimpleHIDWrite.dpr 23 Aug 2003 23:18:26 -0000 1.1
--- SimpleHIDWrite.dpr 9 Nov 2003 17:28:33 -0000 1.2
***************
*** 3,7 ****
uses
Forms,
! DevReader in 'DevReader.pas' {Form1},
Info in 'Info.pas' {InfoForm};
--- 3,7 ----
uses
Forms,
! DevReader in 'DevReader.pas' {MainForm},
Info in 'Info.pas' {InfoForm};
***************
*** 10,14 ****
begin
Application.Initialize;
! Application.CreateForm(TForm1, Form1);
Application.Run;
end.
--- 10,14 ----
begin
Application.Initialize;
! Application.CreateForm(TMainForm, MainForm);
Application.Run;
end.
Index: SimpleHIDWrite.res
===================================================================
RCS file: /cvsroot/jvcl/dev/JVCL3/examples/JvHIDController/ReadWriteDemo/SimpleHIDWrite.res,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
Binary files /tmp/cvsd9UmHQ and /tmp/cvsSJpUbx differ
|