Skip to content

Commit 34aa1b0

Browse files
r57zoner57zone
committed
SplitterControllers
1 parent 0a5bb08 commit 34aa1b0

9 files changed

Lines changed: 429 additions & 10 deletions

‎Delphi/SplitterControllers/SplitterControllers.cfg‎

Lines changed: 38 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,38 @@
1+
-$A8
2+
-$B-
3+
-$C+
4+
-$D+
5+
-$E-
6+
-$F-
7+
-$G+
8+
-$H+
9+
-$I+
10+
-$J-
11+
-$K-
12+
-$L+
13+
-$M-
14+
-$N+
15+
-$O+
16+
-$P+
17+
-$Q-
18+
-$R-
19+
-$S-
20+
-$T-
21+
-$U-
22+
-$V+
23+
-$W-
24+
-$X+
25+
-$YD
26+
-$Z1
27+
-cg
28+
-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
29+
-H+
30+
-W+
31+
-M
32+
-$M16384,1048576
33+
-K$00400000
34+
-LE"c:\programs\borland\delphi7\Projects\Bpl"
35+
-LN"c:\programs\borland\delphi7\Projects\Bpl"
36+
-w-UNSAFE_TYPE
37+
-w-UNSAFE_CODE
38+
-w-UNSAFE_CAST

‎Delphi/SplitterControllers/SplitterControllers.dof‎

Lines changed: 136 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,136 @@
1+
[FileVersion]
2+
Version=7.0
3+
[Compiler]
4+
A=8
5+
B=0
6+
C=1
7+
D=1
8+
E=0
9+
F=0
10+
G=1
11+
H=1
12+
I=1
13+
J=0
14+
K=0
15+
L=1
16+
M=0
17+
N=1
18+
O=1
19+
P=1
20+
Q=0
21+
R=0
22+
S=0
23+
T=0
24+
U=0
25+
V=1
26+
W=0
27+
X=1
28+
Y=1
29+
Z=1
30+
ShowHints=1
31+
ShowWarnings=1
32+
UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
33+
NamespacePrefix=
34+
SymbolDeprecated=1
35+
SymbolLibrary=1
36+
SymbolPlatform=1
37+
UnitLibrary=1
38+
UnitPlatform=1
39+
UnitDeprecated=1
40+
HResultCompat=1
41+
HidingMember=1
42+
HiddenVirtual=1
43+
Garbage=1
44+
BoundsError=1
45+
ZeroNilCompat=1
46+
StringConstTruncated=1
47+
ForLoopVarVarPar=1
48+
TypedConstVarPar=1
49+
AsgToTypedConst=1
50+
CaseLabelRange=1
51+
ForVariable=1
52+
ConstructingAbstract=1
53+
ComparisonFalse=1
54+
ComparisonTrue=1
55+
ComparingSignedUnsigned=1
56+
CombiningSignedUnsigned=1
57+
UnsupportedConstruct=1
58+
FileOpen=1
59+
FileOpenUnitSrc=1
60+
BadGlobalSymbol=1
61+
DuplicateConstructorDestructor=1
62+
InvalidDirective=1
63+
PackageNoLink=1
64+
PackageThreadVar=1
65+
ImplicitImport=1
66+
HPPEMITIgnored=1
67+
NoRetVal=1
68+
UseBeforeDef=1
69+
ForLoopVarUndef=1
70+
UnitNameMismatch=1
71+
NoCFGFileFound=1
72+
MessageDirective=1
73+
ImplicitVariants=1
74+
UnicodeToLocale=1
75+
LocaleToUnicode=1
76+
ImagebaseMultiple=1
77+
SuspiciousTypecast=1
78+
PrivatePropAccessor=1
79+
UnsafeType=0
80+
UnsafeCode=0
81+
UnsafeCast=0
82+
[Linker]
83+
MapFile=0
84+
OutputObjs=0
85+
ConsoleApp=1
86+
DebugInfo=0
87+
RemoteSymbols=0
88+
MinStackSize=16384
89+
MaxStackSize=1048576
90+
ImageBase=4194304
91+
ExeDescription=
92+
[Directories]
93+
OutputDir=
94+
UnitOutputDir=
95+
PackageDLLOutputDir=
96+
PackageDCPOutputDir=
97+
SearchPath=
98+
Packages=
99+
Conditionals=
100+
DebugSourceDirs=
101+
UsePackages=0
102+
[Parameters]
103+
RunParams=
104+
HostApplication=
105+
Launcher=
106+
UseLauncher=0
107+
DebugCWD=
108+
[Language]
109+
ActiveLang=
110+
ProjectLang=
111+
RootDir=
112+
[Version Info]
113+
IncludeVerInfo=0
114+
AutoIncBuild=0
115+
MajorVer=1
116+
MinorVer=0
117+
Release=0
118+
Build=0
119+
Debug=0
120+
PreRelease=0
121+
Special=0
122+
Private=0
123+
DLL=0
124+
Locale=1049
125+
CodePage=1251
126+
[Version Info Keys]
127+
CompanyName=
128+
FileDescription=
129+
FileVersion=1.0.0.0
130+
InternalName=
131+
LegalCopyright=
132+
LegalTrademarks=
133+
OriginalFilename=
134+
ProductName=
135+
ProductVersion=1.0.0.0
136+
Comments=

‎Delphi/SplitterControllers/SplitterControllers.dpr‎

Lines changed: 215 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,215 @@
1+
library SplitterControllers;
2+
3+
uses
4+
SysUtils,
5+
Classes,
6+
Windows,
7+
IniFiles,
8+
Registry;
9+
10+
type
11+
//HMD
12+
PHMD = ^THMD;
13+
_HMDData = record
14+
X: double;
15+
Y: double;
16+
Z: double;
17+
Yaw: double;
18+
Pitch: double;
19+
Roll: double;
20+
end;
21+
HMD = _HMDData;
22+
THMD = HMD;
23+
24+
//Controllers
25+
PController = ^TController;
26+
_Controller = record
27+
X: double;
28+
Y: double;
29+
Z: double;
30+
Yaw: double;
31+
Pitch: double;
32+
Roll: double;
33+
Buttons: word;
34+
Trigger: byte;
35+
ThumbX: smallint;
36+
ThumbY: smallint;
37+
end;
38+
Controller = _Controller;
39+
TController = Controller;
40+
41+
type TOffsetPos = record
42+
X: double;
43+
Y: double;
44+
Z: double;
45+
end;
46+
47+
var
48+
Ctrl1Dll, Ctrl2Dll: HMODULE;
49+
Error: boolean;
50+
51+
DriverGetController1: function(out myController, myController2: TController): DWORD; stdcall;
52+
DriverGetController2: function(out myController, myController2: TController): DWORD; stdcall;
53+
DriverSetController1Data: function (dwIndex: integer; MotorSpeed: word): DWORD; stdcall;
54+
DriverSetController2Data: function (dwIndex: integer; MotorSpeed: word): DWORD; stdcall;
55+
DriverSetCenteringCtrl1: function (dwIndex: integer): DWORD; stdcall;
56+
DriverSetCenteringCtrl2: function (dwIndex: integer): DWORD; stdcall;
57+
58+
Ctrl1Index, Ctrl2Index: byte;
59+
UseScndDrv: boolean;
60+
61+
{$R *.res}
62+
63+
function GetHMDData(out myHMD: THMD): DWORD; stdcall;
64+
begin
65+
myHMD.X:=0;
66+
myHMD.Y:=0;
67+
myHMD.Z:=0;
68+
myHMD.Yaw:=0;
69+
myHMD.Pitch:=0;
70+
myHMD.Roll:=0;
71+
72+
Result:=0;
73+
end;
74+
75+
function GetControllersData(out myController, myController2: TController): DWORD; stdcall;
76+
var
77+
Ctrl1, Ctrl2: TController;
78+
MyStat, StatCount: DWORD;
79+
begin
80+
if Error = false then begin
81+
82+
MyStat:=0;
83+
StatCount:=0;
84+
85+
//Controller 1
86+
MyStat:=MyStat + DriverGetController1(Ctrl1, Ctrl2);
87+
StatCount:=StatCount + 1;
88+
89+
if Ctrl1Index = 1 then begin
90+
myController:=Ctrl1;
91+
myController2:=Ctrl2; //if not use second driver
92+
end else begin
93+
myController2:=Ctrl1;
94+
myController:=Ctrl2;
95+
end;
96+
97+
//Controller 2
98+
if (UseScndDrv) then begin
99+
MyStat:=MyStat + DriverGetController2(Ctrl1, Ctrl2);
100+
StatCount:=StatCount + 1;
101+
102+
if Ctrl2Index = 1 then
103+
myController2:=Ctrl1
104+
else
105+
myController2:=Ctrl2;
106+
end;
107+
108+
if MyStat = StatCount then
109+
Result:=1
110+
else
111+
Result:=0;
112+
113+
end else
114+
Result:=0;
115+
end;
116+
117+
function SetControllerData(dwIndex: integer; MotorSpeed: word): DWORD; stdcall;
118+
var
119+
MyStat, StatCount: DWORD;
120+
begin
121+
case dwIndex of
122+
1: Result:=DriverSetController1Data(Ctrl1Index, MotorSpeed);
123+
2: if UseScndDrv then Result:=DriverSetController2Data(Ctrl2Index, MotorSpeed) else Result:=DriverSetController1Data(Ctrl2Index, MotorSpeed);
124+
else
125+
Result:=0;
126+
end;
127+
end;
128+
129+
function SetCentering(dwIndex: integer): DWORD; stdcall;
130+
begin
131+
case dwIndex of
132+
0: Result:=0;
133+
1: Result:=DriverSetCenteringCtrl1(Ctrl1Index);
134+
2: if UseScndDrv then Result:=DriverSetCenteringCtrl2(Ctrl2Index) else Result:=DriverSetCenteringCtrl1(Ctrl2Index);
135+
else
136+
Result:=0;
137+
end;
138+
end;
139+
140+
procedure DllMain(Reason: integer);
141+
var
142+
Ini: TIniFile; Reg: TRegistry; Ctrl1DrvPath, Ctrl2DrvPath: string;
143+
begin
144+
case Reason of
145+
DLL_PROCESS_ATTACH:
146+
begin
147+
Error:=false;
148+
Reg:=TRegistry.Create;
149+
Reg.RootKey:=HKEY_CURRENT_USER;
150+
if Reg.OpenKey('\Software\TrueOpenVR', false) = false then Error:=true;
151+
if DirectoryExists(Reg.ReadString('Drivers')) = false then Error:=true;
152+
153+
if FileExists(Reg.ReadString('Drivers') + 'SplitterControllers.ini') = false then Error:=true;
154+
155+
if Error = false then begin
156+
Ini:=TIniFile.Create(Reg.ReadString('Drivers') + 'SplitterControllers.ini');
157+
158+
UseScndDrv:=false;
159+
160+
Ctrl1Index:=Ini.ReadInteger('Controller1', 'Index', 1);
161+
Ctrl2Index:=Ini.ReadInteger('Controller2', 'Index', 2);
162+
163+
Ctrl1DrvPath:=Reg.ReadString('Drivers') + Ini.ReadString('Controller1', 'Driver', '');
164+
Ctrl2DrvPath:=Reg.ReadString('Drivers') + Ini.ReadString('Controller2', 'Driver', '');
165+
166+
//Don't load the library more than once if the same
167+
if (Ctrl1DrvPath <> Ctrl2DrvPath) then UseScndDrv:=true;
168+
169+
Ini.Free;
170+
171+
if (FileExists(Ctrl1DrvPath) = false) or
172+
(FileExists(Ctrl2DrvPath) = false) then Error:=true;
173+
174+
Reg.CloseKey;
175+
end;
176+
177+
if Error = false then begin
178+
179+
//Controller1
180+
Ctrl1Dll:=LoadLibrary(PChar(Ctrl1DrvPath));
181+
@DriverGetController1:=GetProcAddress(Ctrl1Dll, 'GetControllersData');
182+
@DriverSetController1Data:=GetProcAddress(Ctrl1Dll, 'SetControllerData');
183+
@DriverSetCenteringCtrl1:=GetProcAddress(Ctrl1Dll, 'SetCentering');
184+
185+
//Controller2
186+
if UseScndDrv then begin
187+
Ctrl2Dll:=LoadLibrary(PChar(Ctrl2DrvPath));
188+
@DriverGetController2:=GetProcAddress(Ctrl2Dll, 'GetControllersData');
189+
@DriverSetController2Data:=GetProcAddress(Ctrl2Dll, 'SetControllerData');
190+
@DriverSetCenteringCtrl2:=GetProcAddress(Ctrl2Dll, 'SetCentering');
191+
end;
192+
193+
end;
194+
Reg.Free;
195+
end;
196+
197+
DLL_PROCESS_DETACH:
198+
if Error = false then begin
199+
200+
FreeLibrary(Ctrl1Dll);
201+
202+
if UseScndDrv then
203+
FreeLibrary(Ctrl2Dll);
204+
end;
205+
end;
206+
end;
207+
208+
exports
209+
GetHMDData index 1, GetControllersData index 2, SetControllerData index 3, SetCentering index 4;
210+
211+
begin
212+
DllProc:=@DllMain;
213+
DllProc(DLL_PROCESS_ATTACH);
214+
end.
215+

0 commit comments

Comments
 (0)