API tools faq
paste
Advertisement
Guest User

Untitled

a guest
May 9th, 2017
90
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 49.49 KB | None | 0 0
raw download clone embed print report
  1. unit YACSCOMLib_TLB;
  2.  
  3. // ************************************************************************ //
  4. // WARNING
  5. // -------
  6. // The types declared in this file were generated from data read from a
  7. // Type Library. If this type library is explicitly or indirectly (via
  8. // another type library referring to this type library) re-imported, or the
  9. // 'Refresh' command of the Type Library Editor activated while editing the
  10. // Type Library, the contents of this file will be regenerated and all
  11. // manual modifications will be lost.
  12. // ************************************************************************ //
  13.  
  14. // PASTLWTR : 1.2
  15. // File generated on 10/18/2009 12:09:26 AM from Type Library described below.
  16.  
  17. // ************************************************************************ //
  18. // Type Lib: C:\Program Files\Yahoo!\Messenger\yacscom.dll (1)
  19. // LIBID: {2B323CCC-50E3-11D3-9466-00A0C9700498}
  20. // LCID: 0
  21. // Helpfile:
  22. // HelpString: yacscom 1.0 Type Library
  23. // DepndLst:
  24. // (1) v2.0 stdole, (C:\WINDOWS\system32\stdole2.tlb)
  25. // Errors:
  26. // Error creating palette bitmap of (TYAcs) : Server C:\Program Files\Yahoo!\Messenger\yacscom.dll contains no icons
  27. // ************************************************************************ //
  28. // *************************************************************************//
  29. // NOTE:
  30. // Items guarded by $IFDEF_LIVE_SERVER_AT_DESIGN_TIME are used by properties
  31. // which return objects that may need to be explicitly created via a function
  32. // call prior to any access via the property. These items have been disabled
  33. // in order to prevent accidental use from within the object inspector. You
  34. // may enable them by defining LIVE_SERVER_AT_DESIGN_TIME or by selectively
  35. // removing them from the $IFDEF blocks. However, such items must still be
  36. // programmatically created via a method of the appropriate CoClass before
  37. // they can be used.
  38. {$TYPEDADDRESS OFF} // Unit must be compiled without type-checked pointers.
  39. {$WARN SYMBOL_PLATFORM OFF}
  40. {$WRITEABLECONST ON}
  41. {$VARPROPSETTER ON}
  42. interface
  43.  
  44. uses Windows, ActiveX, Classes, Graphics, OleServer, StdVCL, Variants;
  45.  
  46.  
  47. // *********************************************************************//
  48. // GUIDS declared in the TypeLibrary. Following prefixes are used:
  49. // Type Libraries : LIBID_xxxx
  50. // CoClasses : CLASS_xxxx
  51. // DISPInterfaces : DIID_xxxx
  52. // Non-DISP interfaces: IID_xxxx
  53. // *********************************************************************//
  54. const
  55. // TypeLibrary Major and minor versions
  56. YACSCOMLibMajorVersion = 1;
  57. YACSCOMLibMinorVersion = 0;
  58.  
  59. LIBID_YACSCOMLib: TGUID = '{2B323CCC-50E3-11D3-9466-00A0C9700498}';
  60.  
  61. DIID__IYAcsEvents: TGUID = '{2B323CDA-50E3-11D3-9466-00A0C9700498}';
  62. IID_IYAcs: TGUID = '{2B323CD8-50E3-11D3-9466-00A0C9700498}';
  63. CLASS_YAcs: TGUID = '{2B323CD9-50E3-11D3-9466-00A0C9700498}';
  64. type
  65.  
  66. // *********************************************************************//
  67. // Forward declaration of types defined in TypeLibrary
  68. // *********************************************************************//
  69. _IYAcsEvents = dispinterface;
  70. IYAcs = interface;
  71. IYAcsDisp = dispinterface;
  72.  
  73. // *********************************************************************//
  74. // Declaration of CoClasses defined in Type Library
  75. // (NOTE: Here we map each CoClass to its Default Interface)
  76. // *********************************************************************//
  77. YAcs = IYAcs;
  78.  
  79.  
  80. // *********************************************************************//
  81. // DispIntf: _IYAcsEvents
  82. // Flags: (4096) Dispatchable
  83. // GUID: {2B323CDA-50E3-11D3-9466-00A0C9700498}
  84. // *********************************************************************//
  85. _IYAcsEvents = dispinterface
  86. ['{2B323CDA-50E3-11D3-9466-00A0C9700498}']
  87. procedure onRemoteSourceOnAir(sourceId: Integer; const sourceName: WideString); dispid 1;
  88. procedure onRemoteSourceOffAir(sourceId: Integer; const sourceName: WideString); dispid 2;
  89. procedure onConferenceReady; dispid 3;
  90. procedure onSourceEntry(sourceId: Integer; const sourceName: WideString); dispid 4;
  91. procedure onSourceExit(sourceId: Integer; const sourceName: WideString); dispid 5;
  92. procedure onConferenceNotReady; dispid 6;
  93. procedure onLocalOnAir; dispid 7;
  94. procedure onLocalOffAir; dispid 8;
  95. procedure onInputLevelChange(level: Smallint); dispid 9;
  96. procedure onOutputLevelChange(level: Smallint); dispid 10;
  97. procedure onSystemConnect; dispid 11;
  98. procedure onSystemDisconnect; dispid 12;
  99. procedure onOutputGainChange(gain: Smallint); dispid 13;
  100. procedure onOutputMuteChange(mute: Integer); dispid 14;
  101. procedure onInputGainChange(gain: Smallint); dispid 15;
  102. procedure onInputMuteChange(mute: Integer); dispid 16;
  103. procedure onMonitorGainChange(gain: Smallint); dispid 17;
  104. procedure onInputSourceChange(source: Smallint); dispid 18;
  105. procedure onMonitorMuteChange(mute: Integer); dispid 19;
  106. procedure onSystemConnectFailure(code: Integer; const message: WideString); dispid 20;
  107. procedure onAudioError(code: Integer; const message: WideString); dispid 21;
  108. procedure onSourceMuted(numMuting: Integer; const sourceName: WideString); dispid 22;
  109. procedure onSourceUnmuted(numMuting: Integer; const sourceName: WideString); dispid 23;
  110. procedure onTransmitReport(numReceiving: SYSINT; numTotal: SYSINT); dispid 24;
  111. end;
  112.  
  113. // *********************************************************************//
  114. // Interface: IYAcs
  115. // Flags: (4416) Dual OleAutomation Dispatchable
  116. // GUID: {2B323CD8-50E3-11D3-9466-00A0C9700498}
  117. // *********************************************************************//
  118. IYAcs = interface(IDispatch)
  119. ['{2B323CD8-50E3-11D3-9466-00A0C9700498}']
  120. function Get_hostName: WideString; safecall;
  121. procedure Set_hostName(const pVal: WideString); safecall;
  122. procedure joinConference; safecall;
  123. function Get_userName: WideString; safecall;
  124. procedure Set_userName(const pVal: WideString); safecall;
  125. function Get_confName: WideString; safecall;
  126. procedure Set_confName(const pVal: WideString); safecall;
  127. procedure startTransmit; safecall;
  128. procedure stopTransmit; safecall;
  129. procedure leaveConference; safecall;
  130. function Get_monitorGain: Smallint; safecall;
  131. procedure Set_monitorGain(pVal: Smallint); safecall;
  132. function Get_outputGain: Smallint; safecall;
  133. procedure Set_outputGain(pVal: Smallint); safecall;
  134. function Get_inputGain: Smallint; safecall;
  135. procedure Set_inputGain(pVal: Smallint); safecall;
  136. function Get_inputMute: Integer; safecall;
  137. procedure Set_inputMute(pVal: Integer); safecall;
  138. function Get_outputMute: Integer; safecall;
  139. procedure Set_outputMute(pVal: Integer); safecall;
  140. function Get_inputSource: Smallint; safecall;
  141. procedure Set_inputSource(pVal: Smallint); safecall;
  142. function Get_monitorMute: Integer; safecall;
  143. procedure Set_monitorMute(pVal: Integer); safecall;
  144. function Get_socksVersion: Smallint; safecall;
  145. procedure Set_socksVersion(pVal: Smallint); safecall;
  146. function Get_socksHostname: WideString; safecall;
  147. procedure Set_socksHostname(const pVal: WideString); safecall;
  148. function Get_socksPort: Smallint; safecall;
  149. procedure Set_socksPort(pVal: Smallint); safecall;
  150. function Get_socksUsername: WideString; safecall;
  151. procedure Set_socksUsername(const pVal: WideString); safecall;
  152. function Get_socksPassword: WideString; safecall;
  153. procedure Set_socksPassword(const pVal: WideString); safecall;
  154. function Get_confKey: WideString; safecall;
  155. procedure Set_confKey(const pVal: WideString); safecall;
  156. function Get_inputAGC: Integer; safecall;
  157. procedure Set_inputAGC(pVal: Integer); safecall;
  158. function Get_inputVOX: Integer; safecall;
  159. procedure Set_inputVOX(pVal: Integer); safecall;
  160. procedure createAndJoinConference; safecall;
  161. procedure muteSource(id: Integer; const name: WideString); safecall;
  162. procedure unmuteSource(id: Integer; const name: WideString); safecall;
  163. function Get_inputVOXSensitivity: Smallint; safecall;
  164. procedure Set_inputVOXSensitivity(pVal: Smallint); safecall;
  165. procedure setSourcePriority(id: Integer; const name: WideString; priority: Smallint); safecall;
  166. function Get_appInfo: WideString; safecall;
  167. procedure Set_appInfo(const pVal: WideString); safecall;
  168. function playSound(const name: WideString; level: Double): Integer; safecall;
  169. procedure stopSound(id: Integer); safecall;
  170. procedure loadSound(const name: WideString); safecall;
  171. function Get_soundLocation: WideString; safecall;
  172. procedure Set_soundLocation(const pVal: WideString); safecall;
  173. procedure startTest(id: Smallint); safecall;
  174. procedure stopTest(id: Smallint); safecall;
  175. property hostName: WideString read Get_hostName write Set_hostName;
  176. property userName: WideString read Get_userName write Set_userName;
  177. property confName: WideString read Get_confName write Set_confName;
  178. property monitorGain: Smallint read Get_monitorGain write Set_monitorGain;
  179. property outputGain: Smallint read Get_outputGain write Set_outputGain;
  180. property inputGain: Smallint read Get_inputGain write Set_inputGain;
  181. property inputMute: Integer read Get_inputMute write Set_inputMute;
  182. property outputMute: Integer read Get_outputMute write Set_outputMute;
  183. property inputSource: Smallint read Get_inputSource write Set_inputSource;
  184. property monitorMute: Integer read Get_monitorMute write Set_monitorMute;
  185. property socksVersion: Smallint read Get_socksVersion write Set_socksVersion;
  186. property socksHostname: WideString read Get_socksHostname write Set_socksHostname;
  187. property socksPort: Smallint read Get_socksPort write Set_socksPort;
  188. property socksUsername: WideString read Get_socksUsername write Set_socksUsername;
  189. property socksPassword: WideString read Get_socksPassword write Set_socksPassword;
  190. property confKey: WideString read Get_confKey write Set_confKey;
  191. property inputAGC: Integer read Get_inputAGC write Set_inputAGC;
  192. property inputVOX: Integer read Get_inputVOX write Set_inputVOX;
  193. property inputVOXSensitivity: Smallint read Get_inputVOXSensitivity write Set_inputVOXSensitivity;
  194. property appInfo: WideString read Get_appInfo write Set_appInfo;
  195. property soundLocation: WideString read Get_soundLocation write Set_soundLocation;
  196. end;
  197.  
  198. // *********************************************************************//
  199. // DispIntf: IYAcsDisp
  200. // Flags: (4416) Dual OleAutomation Dispatchable
  201. // GUID: {2B323CD8-50E3-11D3-9466-00A0C9700498}
  202. // *********************************************************************//
  203. IYAcsDisp = dispinterface
  204. ['{2B323CD8-50E3-11D3-9466-00A0C9700498}']
  205. property hostName: WideString dispid 1;
  206. procedure joinConference; dispid 2;
  207. property userName: WideString dispid 3;
  208. property confName: WideString dispid 4;
  209. procedure startTransmit; dispid 5;
  210. procedure stopTransmit; dispid 6;
  211. procedure leaveConference; dispid 7;
  212. property monitorGain: Smallint dispid 8;
  213. property outputGain: Smallint dispid 9;
  214. property inputGain: Smallint dispid 10;
  215. property inputMute: Integer dispid 11;
  216. property outputMute: Integer dispid 12;
  217. property inputSource: Smallint dispid 13;
  218. property monitorMute: Integer dispid 14;
  219. property socksVersion: Smallint dispid 15;
  220. property socksHostname: WideString dispid 16;
  221. property socksPort: Smallint dispid 17;
  222. property socksUsername: WideString dispid 18;
  223. property socksPassword: WideString dispid 19;
  224. property confKey: WideString dispid 20;
  225. property inputAGC: Integer dispid 21;
  226. property inputVOX: Integer dispid 22;
  227. procedure createAndJoinConference; dispid 23;
  228. procedure muteSource(id: Integer; const name: WideString); dispid 24;
  229. procedure unmuteSource(id: Integer; const name: WideString); dispid 25;
  230. property inputVOXSensitivity: Smallint dispid 26;
  231. procedure setSourcePriority(id: Integer; const name: WideString; priority: Smallint); dispid 27;
  232. property appInfo: WideString dispid 28;
  233. function playSound(const name: WideString; level: Double): Integer; dispid 29;
  234. procedure stopSound(id: Integer); dispid 30;
  235. procedure loadSound(const name: WideString); dispid 31;
  236. property soundLocation: WideString dispid 32;
  237. procedure startTest(id: Smallint); dispid 33;
  238. procedure stopTest(id: Smallint); dispid 34;
  239. end;
  240.  
  241. // *********************************************************************//
  242. // The Class CoYAcs provides a Create and CreateRemote method to
  243. // create instances of the default interface IYAcs exposed by
  244. // the CoClass YAcs. The functions are intended to be used by
  245. // clients wishing to automate the CoClass objects exposed by the
  246. // server of this typelibrary.
  247. // *********************************************************************//
  248. CoYAcs = class
  249. class function Create: IYAcs;
  250. class function CreateRemote(const MachineName: string): IYAcs;
  251. end;
  252.  
  253. TYAcsonRemoteSourceOnAir = procedure(ASender: TObject; sourceId: Integer;
  254. const sourceName: WideString) of object;
  255. TYAcsonRemoteSourceOffAir = procedure(ASender: TObject; sourceId: Integer;
  256. const sourceName: WideString) of object;
  257. TYAcsonSourceEntry = procedure(ASender: TObject; sourceId: Integer; const sourceName: WideString) of object;
  258. TYAcsonSourceExit = procedure(ASender: TObject; sourceId: Integer; const sourceName: WideString) of object;
  259. TYAcsonInputLevelChange = procedure(ASender: TObject; level: Smallint) of object;
  260. TYAcsonOutputLevelChange = procedure(ASender: TObject; level: Smallint) of object;
  261. TYAcsonOutputGainChange = procedure(ASender: TObject; gain: Smallint) of object;
  262. TYAcsonOutputMuteChange = procedure(ASender: TObject; mute: Integer) of object;
  263. TYAcsonInputGainChange = procedure(ASender: TObject; gain: Smallint) of object;
  264. TYAcsonInputMuteChange = procedure(ASender: TObject; mute: Integer) of object;
  265. TYAcsonMonitorGainChange = procedure(ASender: TObject; gain: Smallint) of object;
  266. TYAcsonInputSourceChange = procedure(ASender: TObject; source: Smallint) of object;
  267. TYAcsonMonitorMuteChange = procedure(ASender: TObject; mute: Integer) of object;
  268. TYAcsonSystemConnectFailure = procedure(ASender: TObject; code: Integer; const message: WideString) of object;
  269. TYAcsonAudioError = procedure(ASender: TObject; code: Integer; const message: WideString) of object;
  270. TYAcsonSourceMuted = procedure(ASender: TObject; numMuting: Integer; const sourceName: WideString) of object;
  271. TYAcsonSourceUnmuted = procedure(ASender: TObject; numMuting: Integer;
  272. const sourceName: WideString) of object;
  273. TYAcsonTransmitReport = procedure(ASender: TObject; numReceiving: SYSINT; numTotal: SYSINT) of object;
  274.  
  275.  
  276. // *********************************************************************//
  277. // OLE Server Proxy class declaration
  278. // Server Object : TYAcs
  279. // Help String : Yahoo! Audio Conferencing
  280. // Default Interface: IYAcs
  281. // Def. Intf. DISP? : No
  282. // Event Interface: _IYAcsEvents
  283. // TypeFlags : (2) CanCreate
  284. // *********************************************************************//
  285. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  286. TYAcsProperties= class;
  287. {$ENDIF}
  288. TYAcs = class(TOleServer)
  289. private
  290. FOnonRemoteSourceOnAir: TYAcsonRemoteSourceOnAir;
  291. FOnonRemoteSourceOffAir: TYAcsonRemoteSourceOffAir;
  292. FOnonConferenceReady: TNotifyEvent;
  293. FOnonSourceEntry: TYAcsonSourceEntry;
  294. FOnonSourceExit: TYAcsonSourceExit;
  295. FOnonConferenceNotReady: TNotifyEvent;
  296. FOnonLocalOnAir: TNotifyEvent;
  297. FOnonLocalOffAir: TNotifyEvent;
  298. FOnonInputLevelChange: TYAcsonInputLevelChange;
  299. FOnonOutputLevelChange: TYAcsonOutputLevelChange;
  300. FOnonSystemConnect: TNotifyEvent;
  301. FOnonSystemDisconnect: TNotifyEvent;
  302. FOnonOutputGainChange: TYAcsonOutputGainChange;
  303. FOnonOutputMuteChange: TYAcsonOutputMuteChange;
  304. FOnonInputGainChange: TYAcsonInputGainChange;
  305. FOnonInputMuteChange: TYAcsonInputMuteChange;
  306. FOnonMonitorGainChange: TYAcsonMonitorGainChange;
  307. FOnonInputSourceChange: TYAcsonInputSourceChange;
  308. FOnonMonitorMuteChange: TYAcsonMonitorMuteChange;
  309. FOnonSystemConnectFailure: TYAcsonSystemConnectFailure;
  310. FOnonAudioError: TYAcsonAudioError;
  311. FOnonSourceMuted: TYAcsonSourceMuted;
  312. FOnonSourceUnmuted: TYAcsonSourceUnmuted;
  313. FOnonTransmitReport: TYAcsonTransmitReport;
  314. FIntf: IYAcs;
  315. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  316. FProps: TYAcsProperties;
  317. function GetServerProperties: TYAcsProperties;
  318. {$ENDIF}
  319. function GetDefaultInterface: IYAcs;
  320. protected
  321. procedure InitServerData; override;
  322. procedure InvokeEvent(DispID: TDispID; var Params: TVariantArray); override;
  323. function Get_hostName: WideString;
  324. procedure Set_hostName(const pVal: WideString);
  325. function Get_userName: WideString;
  326. procedure Set_userName(const pVal: WideString);
  327. function Get_confName: WideString;
  328. procedure Set_confName(const pVal: WideString);
  329. function Get_monitorGain: Smallint;
  330. procedure Set_monitorGain(pVal: Smallint);
  331. function Get_outputGain: Smallint;
  332. procedure Set_outputGain(pVal: Smallint);
  333. function Get_inputGain: Smallint;
  334. procedure Set_inputGain(pVal: Smallint);
  335. function Get_inputMute: Integer;
  336. procedure Set_inputMute(pVal: Integer);
  337. function Get_outputMute: Integer;
  338. procedure Set_outputMute(pVal: Integer);
  339. function Get_inputSource: Smallint;
  340. procedure Set_inputSource(pVal: Smallint);
  341. function Get_monitorMute: Integer;
  342. procedure Set_monitorMute(pVal: Integer);
  343. function Get_socksVersion: Smallint;
  344. procedure Set_socksVersion(pVal: Smallint);
  345. function Get_socksHostname: WideString;
  346. procedure Set_socksHostname(const pVal: WideString);
  347. function Get_socksPort: Smallint;
  348. procedure Set_socksPort(pVal: Smallint);
  349. function Get_socksUsername: WideString;
  350. procedure Set_socksUsername(const pVal: WideString);
  351. function Get_socksPassword: WideString;
  352. procedure Set_socksPassword(const pVal: WideString);
  353. function Get_confKey: WideString;
  354. procedure Set_confKey(const pVal: WideString);
  355. function Get_inputAGC: Integer;
  356. procedure Set_inputAGC(pVal: Integer);
  357. function Get_inputVOX: Integer;
  358. procedure Set_inputVOX(pVal: Integer);
  359. function Get_inputVOXSensitivity: Smallint;
  360. procedure Set_inputVOXSensitivity(pVal: Smallint);
  361. function Get_appInfo: WideString;
  362. procedure Set_appInfo(const pVal: WideString);
  363. function Get_soundLocation: WideString;
  364. procedure Set_soundLocation(const pVal: WideString);
  365. public
  366. constructor Create(AOwner: TComponent); override;
  367. destructor Destroy; override;
  368. procedure Connect; override;
  369. procedure ConnectTo(svrIntf: IYAcs);
  370. procedure Disconnect; override;
  371. procedure joinConference;
  372. procedure startTransmit;
  373. procedure stopTransmit;
  374. procedure leaveConference;
  375. procedure createAndJoinConference;
  376. procedure muteSource(id: Integer; const name: WideString);
  377. procedure unmuteSource(id: Integer; const name: WideString);
  378. procedure setSourcePriority(id: Integer; const name: WideString; priority: Smallint);
  379. function playSound(const name: WideString; level: Double): Integer;
  380. procedure stopSound(id: Integer);
  381. procedure loadSound(const name: WideString);
  382. procedure startTest(id: Smallint);
  383. procedure stopTest(id: Smallint);
  384. property DefaultInterface: IYAcs read GetDefaultInterface;
  385. property hostName: WideString read Get_hostName write Set_hostName;
  386. property userName: WideString read Get_userName write Set_userName;
  387. property confName: WideString read Get_confName write Set_confName;
  388. property monitorGain: Smallint read Get_monitorGain write Set_monitorGain;
  389. property outputGain: Smallint read Get_outputGain write Set_outputGain;
  390. property inputGain: Smallint read Get_inputGain write Set_inputGain;
  391. property inputMute: Integer read Get_inputMute write Set_inputMute;
  392. property outputMute: Integer read Get_outputMute write Set_outputMute;
  393. property inputSource: Smallint read Get_inputSource write Set_inputSource;
  394. property monitorMute: Integer read Get_monitorMute write Set_monitorMute;
  395. property socksVersion: Smallint read Get_socksVersion write Set_socksVersion;
  396. property socksHostname: WideString read Get_socksHostname write Set_socksHostname;
  397. property socksPort: Smallint read Get_socksPort write Set_socksPort;
  398. property socksUsername: WideString read Get_socksUsername write Set_socksUsername;
  399. property socksPassword: WideString read Get_socksPassword write Set_socksPassword;
  400. property confKey: WideString read Get_confKey write Set_confKey;
  401. property inputAGC: Integer read Get_inputAGC write Set_inputAGC;
  402. property inputVOX: Integer read Get_inputVOX write Set_inputVOX;
  403. property inputVOXSensitivity: Smallint read Get_inputVOXSensitivity write Set_inputVOXSensitivity;
  404. property appInfo: WideString read Get_appInfo write Set_appInfo;
  405. property soundLocation: WideString read Get_soundLocation write Set_soundLocation;
  406. published
  407. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  408. property Server: TYAcsProperties read GetServerProperties;
  409. {$ENDIF}
  410. property OnonRemoteSourceOnAir: TYAcsonRemoteSourceOnAir read FOnonRemoteSourceOnAir write FOnonRemoteSourceOnAir;
  411. property OnonRemoteSourceOffAir: TYAcsonRemoteSourceOffAir read FOnonRemoteSourceOffAir write FOnonRemoteSourceOffAir;
  412. property OnonConferenceReady: TNotifyEvent read FOnonConferenceReady write FOnonConferenceReady;
  413. property OnonSourceEntry: TYAcsonSourceEntry read FOnonSourceEntry write FOnonSourceEntry;
  414. property OnonSourceExit: TYAcsonSourceExit read FOnonSourceExit write FOnonSourceExit;
  415. property OnonConferenceNotReady: TNotifyEvent read FOnonConferenceNotReady write FOnonConferenceNotReady;
  416. property OnonLocalOnAir: TNotifyEvent read FOnonLocalOnAir write FOnonLocalOnAir;
  417. property OnonLocalOffAir: TNotifyEvent read FOnonLocalOffAir write FOnonLocalOffAir;
  418. property OnonInputLevelChange: TYAcsonInputLevelChange read FOnonInputLevelChange write FOnonInputLevelChange;
  419. property OnonOutputLevelChange: TYAcsonOutputLevelChange read FOnonOutputLevelChange write FOnonOutputLevelChange;
  420. property OnonSystemConnect: TNotifyEvent read FOnonSystemConnect write FOnonSystemConnect;
  421. property OnonSystemDisconnect: TNotifyEvent read FOnonSystemDisconnect write FOnonSystemDisconnect;
  422. property OnonOutputGainChange: TYAcsonOutputGainChange read FOnonOutputGainChange write FOnonOutputGainChange;
  423. property OnonOutputMuteChange: TYAcsonOutputMuteChange read FOnonOutputMuteChange write FOnonOutputMuteChange;
  424. property OnonInputGainChange: TYAcsonInputGainChange read FOnonInputGainChange write FOnonInputGainChange;
  425. property OnonInputMuteChange: TYAcsonInputMuteChange read FOnonInputMuteChange write FOnonInputMuteChange;
  426. property OnonMonitorGainChange: TYAcsonMonitorGainChange read FOnonMonitorGainChange write FOnonMonitorGainChange;
  427. property OnonInputSourceChange: TYAcsonInputSourceChange read FOnonInputSourceChange write FOnonInputSourceChange;
  428. property OnonMonitorMuteChange: TYAcsonMonitorMuteChange read FOnonMonitorMuteChange write FOnonMonitorMuteChange;
  429. property OnonSystemConnectFailure: TYAcsonSystemConnectFailure read FOnonSystemConnectFailure write FOnonSystemConnectFailure;
  430. property OnonAudioError: TYAcsonAudioError read FOnonAudioError write FOnonAudioError;
  431. property OnonSourceMuted: TYAcsonSourceMuted read FOnonSourceMuted write FOnonSourceMuted;
  432. property OnonSourceUnmuted: TYAcsonSourceUnmuted read FOnonSourceUnmuted write FOnonSourceUnmuted;
  433. property OnonTransmitReport: TYAcsonTransmitReport read FOnonTransmitReport write FOnonTransmitReport;
  434. end;
  435.  
  436. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  437. // *********************************************************************//
  438. // OLE Server Properties Proxy Class
  439. // Server Object : TYAcs
  440. // (This object is used by the IDE's Property Inspector to allow editing
  441. // of the properties of this server)
  442. // *********************************************************************//
  443. TYAcsProperties = class(TPersistent)
  444. private
  445. FServer: TYAcs;
  446. function GetDefaultInterface: IYAcs;
  447. constructor Create(AServer: TYAcs);
  448. protected
  449. function Get_hostName: WideString;
  450. procedure Set_hostName(const pVal: WideString);
  451. function Get_userName: WideString;
  452. procedure Set_userName(const pVal: WideString);
  453. function Get_confName: WideString;
  454. procedure Set_confName(const pVal: WideString);
  455. function Get_monitorGain: Smallint;
  456. procedure Set_monitorGain(pVal: Smallint);
  457. function Get_outputGain: Smallint;
  458. procedure Set_outputGain(pVal: Smallint);
  459. function Get_inputGain: Smallint;
  460. procedure Set_inputGain(pVal: Smallint);
  461. function Get_inputMute: Integer;
  462. procedure Set_inputMute(pVal: Integer);
  463. function Get_outputMute: Integer;
  464. procedure Set_outputMute(pVal: Integer);
  465. function Get_inputSource: Smallint;
  466. procedure Set_inputSource(pVal: Smallint);
  467. function Get_monitorMute: Integer;
  468. procedure Set_monitorMute(pVal: Integer);
  469. function Get_socksVersion: Smallint;
  470. procedure Set_socksVersion(pVal: Smallint);
  471. function Get_socksHostname: WideString;
  472. procedure Set_socksHostname(const pVal: WideString);
  473. function Get_socksPort: Smallint;
  474. procedure Set_socksPort(pVal: Smallint);
  475. function Get_socksUsername: WideString;
  476. procedure Set_socksUsername(const pVal: WideString);
  477. function Get_socksPassword: WideString;
  478. procedure Set_socksPassword(const pVal: WideString);
  479. function Get_confKey: WideString;
  480. procedure Set_confKey(const pVal: WideString);
  481. function Get_inputAGC: Integer;
  482. procedure Set_inputAGC(pVal: Integer);
  483. function Get_inputVOX: Integer;
  484. procedure Set_inputVOX(pVal: Integer);
  485. function Get_inputVOXSensitivity: Smallint;
  486. procedure Set_inputVOXSensitivity(pVal: Smallint);
  487. function Get_appInfo: WideString;
  488. procedure Set_appInfo(const pVal: WideString);
  489. function Get_soundLocation: WideString;
  490. procedure Set_soundLocation(const pVal: WideString);
  491. public
  492. property DefaultInterface: IYAcs read GetDefaultInterface;
  493. published
  494. property hostName: WideString read Get_hostName write Set_hostName;
  495. property userName: WideString read Get_userName write Set_userName;
  496. property confName: WideString read Get_confName write Set_confName;
  497. property monitorGain: Smallint read Get_monitorGain write Set_monitorGain;
  498. property outputGain: Smallint read Get_outputGain write Set_outputGain;
  499. property inputGain: Smallint read Get_inputGain write Set_inputGain;
  500. property inputMute: Integer read Get_inputMute write Set_inputMute;
  501. property outputMute: Integer read Get_outputMute write Set_outputMute;
  502. property inputSource: Smallint read Get_inputSource write Set_inputSource;
  503. property monitorMute: Integer read Get_monitorMute write Set_monitorMute;
  504. property socksVersion: Smallint read Get_socksVersion write Set_socksVersion;
  505. property socksHostname: WideString read Get_socksHostname write Set_socksHostname;
  506. property socksPort: Smallint read Get_socksPort write Set_socksPort;
  507. property socksUsername: WideString read Get_socksUsername write Set_socksUsername;
  508. property socksPassword: WideString read Get_socksPassword write Set_socksPassword;
  509. property confKey: WideString read Get_confKey write Set_confKey;
  510. property inputAGC: Integer read Get_inputAGC write Set_inputAGC;
  511. property inputVOX: Integer read Get_inputVOX write Set_inputVOX;
  512. property inputVOXSensitivity: Smallint read Get_inputVOXSensitivity write Set_inputVOXSensitivity;
  513. property appInfo: WideString read Get_appInfo write Set_appInfo;
  514. property soundLocation: WideString read Get_soundLocation write Set_soundLocation;
  515. end;
  516. {$ENDIF}
  517.  
  518.  
  519. procedure Register;
  520.  
  521. resourcestring
  522. dtlServerPage = 'ActiveX';
  523.  
  524. dtlOcxPage = 'ActiveX';
  525.  
  526. implementation
  527.  
  528. uses ComObj;
  529.  
  530. class function CoYAcs.Create: IYAcs;
  531. begin
  532. Result := CreateComObject(CLASS_YAcs) as IYAcs;
  533. end;
  534.  
  535. class function CoYAcs.CreateRemote(const MachineName: string): IYAcs;
  536. begin
  537. Result := CreateRemoteComObject(MachineName, CLASS_YAcs) as IYAcs;
  538. end;
  539.  
  540. procedure TYAcs.InitServerData;
  541. const
  542. CServerData: TServerData = (
  543. ClassID: '{2B323CD9-50E3-11D3-9466-00A0C9700498}';
  544. IntfIID: '{2B323CD8-50E3-11D3-9466-00A0C9700498}';
  545. EventIID: '{2B323CDA-50E3-11D3-9466-00A0C9700498}';
  546. LicenseKey: nil;
  547. Version: 500);
  548. begin
  549. ServerData := @CServerData;
  550. end;
  551.  
  552. procedure TYAcs.Connect;
  553. var
  554. punk: IUnknown;
  555. begin
  556. if FIntf = nil then
  557. begin
  558. punk := GetServer;
  559. ConnectEvents(punk);
  560. Fintf:= punk as IYAcs;
  561. end;
  562. end;
  563.  
  564. procedure TYAcs.ConnectTo(svrIntf: IYAcs);
  565. begin
  566. Disconnect;
  567. FIntf := svrIntf;
  568. ConnectEvents(FIntf);
  569. end;
  570.  
  571. procedure TYAcs.DisConnect;
  572. begin
  573. if Fintf <> nil then
  574. begin
  575. DisconnectEvents(FIntf);
  576. FIntf := nil;
  577. end;
  578. end;
  579.  
  580. function TYAcs.GetDefaultInterface: IYAcs;
  581. begin
  582. if FIntf = nil then
  583. Connect;
  584. Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
  585. Result := FIntf;
  586. end;
  587.  
  588. constructor TYAcs.Create(AOwner: TComponent);
  589. begin
  590. inherited Create(AOwner);
  591. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  592. FProps := TYAcsProperties.Create(Self);
  593. {$ENDIF}
  594. end;
  595.  
  596. destructor TYAcs.Destroy;
  597. begin
  598. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  599. FProps.Free;
  600. {$ENDIF}
  601. inherited Destroy;
  602. end;
  603.  
  604. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  605. function TYAcs.GetServerProperties: TYAcsProperties;
  606. begin
  607. Result := FProps;
  608. end;
  609. {$ENDIF}
  610.  
  611. procedure TYAcs.InvokeEvent(DispID: TDispID; var Params: TVariantArray);
  612. begin
  613. case DispID of
  614. -1: Exit; // DISPID_UNKNOWN
  615. 1: if Assigned(FOnonRemoteSourceOnAir) then
  616. FOnonRemoteSourceOnAir(Self,
  617. Params[0] {Integer},
  618. Params[1] {const WideString});
  619. 2: if Assigned(FOnonRemoteSourceOffAir) then
  620. FOnonRemoteSourceOffAir(Self,
  621. Params[0] {Integer},
  622. Params[1] {const WideString});
  623. 3: if Assigned(FOnonConferenceReady) then
  624. FOnonConferenceReady(Self);
  625. 4: if Assigned(FOnonSourceEntry) then
  626. FOnonSourceEntry(Self,
  627. Params[0] {Integer},
  628. Params[1] {const WideString});
  629. 5: if Assigned(FOnonSourceExit) then
  630. FOnonSourceExit(Self,
  631. Params[0] {Integer},
  632. Params[1] {const WideString});
  633. 6: if Assigned(FOnonConferenceNotReady) then
  634. FOnonConferenceNotReady(Self);
  635. 7: if Assigned(FOnonLocalOnAir) then
  636. FOnonLocalOnAir(Self);
  637. 8: if Assigned(FOnonLocalOffAir) then
  638. FOnonLocalOffAir(Self);
  639. 9: if Assigned(FOnonInputLevelChange) then
  640. FOnonInputLevelChange(Self, Params[0] {Smallint});
  641. 10: if Assigned(FOnonOutputLevelChange) then
  642. FOnonOutputLevelChange(Self, Params[0] {Smallint});
  643. 11: if Assigned(FOnonSystemConnect) then
  644. FOnonSystemConnect(Self);
  645. 12: if Assigned(FOnonSystemDisconnect) then
  646. FOnonSystemDisconnect(Self);
  647. 13: if Assigned(FOnonOutputGainChange) then
  648. FOnonOutputGainChange(Self, Params[0] {Smallint});
  649. 14: if Assigned(FOnonOutputMuteChange) then
  650. FOnonOutputMuteChange(Self, Params[0] {Integer});
  651. 15: if Assigned(FOnonInputGainChange) then
  652. FOnonInputGainChange(Self, Params[0] {Smallint});
  653. 16: if Assigned(FOnonInputMuteChange) then
  654. FOnonInputMuteChange(Self, Params[0] {Integer});
  655. 17: if Assigned(FOnonMonitorGainChange) then
  656. FOnonMonitorGainChange(Self, Params[0] {Smallint});
  657. 18: if Assigned(FOnonInputSourceChange) then
  658. FOnonInputSourceChange(Self, Params[0] {Smallint});
  659. 19: if Assigned(FOnonMonitorMuteChange) then
  660. FOnonMonitorMuteChange(Self, Params[0] {Integer});
  661. 20: if Assigned(FOnonSystemConnectFailure) then
  662. FOnonSystemConnectFailure(Self,
  663. Params[0] {Integer},
  664. Params[1] {const WideString});
  665. 21: if Assigned(FOnonAudioError) then
  666. FOnonAudioError(Self,
  667. Params[0] {Integer},
  668. Params[1] {const WideString});
  669. 22: if Assigned(FOnonSourceMuted) then
  670. FOnonSourceMuted(Self,
  671. Params[0] {Integer},
  672. Params[1] {const WideString});
  673. 23: if Assigned(FOnonSourceUnmuted) then
  674. FOnonSourceUnmuted(Self,
  675. Params[0] {Integer},
  676. Params[1] {const WideString});
  677. 24: if Assigned(FOnonTransmitReport) then
  678. FOnonTransmitReport(Self,
  679. Params[0] {SYSINT},
  680. Params[1] {SYSINT});
  681. end; {case DispID}
  682. end;
  683.  
  684. function TYAcs.Get_hostName: WideString;
  685. begin
  686. Result := DefaultInterface.hostName;
  687. end;
  688.  
  689. procedure TYAcs.Set_hostName(const pVal: WideString);
  690. { Warning: The property hostName has a setter and a getter whose
  691. types do not match. Delphi was unable to generate a property of
  692. this sort and so is using a Variant as a passthrough. }
  693. var
  694. InterfaceVariant: OleVariant;
  695. begin
  696. InterfaceVariant := DefaultInterface;
  697. InterfaceVariant.hostName := pVal;
  698. end;
  699.  
  700. function TYAcs.Get_userName: WideString;
  701. begin
  702. Result := DefaultInterface.userName;
  703. end;
  704.  
  705. procedure TYAcs.Set_userName(const pVal: WideString);
  706. { Warning: The property userName has a setter and a getter whose
  707. types do not match. Delphi was unable to generate a property of
  708. this sort and so is using a Variant as a passthrough. }
  709. var
  710. InterfaceVariant: OleVariant;
  711. begin
  712. InterfaceVariant := DefaultInterface;
  713. InterfaceVariant.userName := pVal;
  714. end;
  715.  
  716. function TYAcs.Get_confName: WideString;
  717. begin
  718. Result := DefaultInterface.confName;
  719. end;
  720.  
  721. procedure TYAcs.Set_confName(const pVal: WideString);
  722. { Warning: The property confName has a setter and a getter whose
  723. types do not match. Delphi was unable to generate a property of
  724. this sort and so is using a Variant as a passthrough. }
  725. var
  726. InterfaceVariant: OleVariant;
  727. begin
  728. InterfaceVariant := DefaultInterface;
  729. InterfaceVariant.confName := pVal;
  730. end;
  731.  
  732. function TYAcs.Get_monitorGain: Smallint;
  733. begin
  734. Result := DefaultInterface.monitorGain;
  735. end;
  736.  
  737. procedure TYAcs.Set_monitorGain(pVal: Smallint);
  738. begin
  739. DefaultInterface.Set_monitorGain(pVal);
  740. end;
  741.  
  742. function TYAcs.Get_outputGain: Smallint;
  743. begin
  744. Result := DefaultInterface.outputGain;
  745. end;
  746.  
  747. procedure TYAcs.Set_outputGain(pVal: Smallint);
  748. begin
  749. DefaultInterface.Set_outputGain(pVal);
  750. end;
  751.  
  752. function TYAcs.Get_inputGain: Smallint;
  753. begin
  754. Result := DefaultInterface.inputGain;
  755. end;
  756.  
  757. procedure TYAcs.Set_inputGain(pVal: Smallint);
  758. begin
  759. DefaultInterface.Set_inputGain(pVal);
  760. end;
  761.  
  762. function TYAcs.Get_inputMute: Integer;
  763. begin
  764. Result := DefaultInterface.inputMute;
  765. end;
  766.  
  767. procedure TYAcs.Set_inputMute(pVal: Integer);
  768. begin
  769. DefaultInterface.Set_inputMute(pVal);
  770. end;
  771.  
  772. function TYAcs.Get_outputMute: Integer;
  773. begin
  774. Result := DefaultInterface.outputMute;
  775. end;
  776.  
  777. procedure TYAcs.Set_outputMute(pVal: Integer);
  778. begin
  779. DefaultInterface.Set_outputMute(pVal);
  780. end;
  781.  
  782. function TYAcs.Get_inputSource: Smallint;
  783. begin
  784. Result := DefaultInterface.inputSource;
  785. end;
  786.  
  787. procedure TYAcs.Set_inputSource(pVal: Smallint);
  788. begin
  789. DefaultInterface.Set_inputSource(pVal);
  790. end;
  791.  
  792. function TYAcs.Get_monitorMute: Integer;
  793. begin
  794. Result := DefaultInterface.monitorMute;
  795. end;
  796.  
  797. procedure TYAcs.Set_monitorMute(pVal: Integer);
  798. begin
  799. DefaultInterface.Set_monitorMute(pVal);
  800. end;
  801.  
  802. function TYAcs.Get_socksVersion: Smallint;
  803. begin
  804. Result := DefaultInterface.socksVersion;
  805. end;
  806.  
  807. procedure TYAcs.Set_socksVersion(pVal: Smallint);
  808. begin
  809. DefaultInterface.Set_socksVersion(pVal);
  810. end;
  811.  
  812. function TYAcs.Get_socksHostname: WideString;
  813. begin
  814. Result := DefaultInterface.socksHostname;
  815. end;
  816.  
  817. procedure TYAcs.Set_socksHostname(const pVal: WideString);
  818. { Warning: The property socksHostname has a setter and a getter whose
  819. types do not match. Delphi was unable to generate a property of
  820. this sort and so is using a Variant as a passthrough. }
  821. var
  822. InterfaceVariant: OleVariant;
  823. begin
  824. InterfaceVariant := DefaultInterface;
  825. InterfaceVariant.socksHostname := pVal;
  826. end;
  827.  
  828. function TYAcs.Get_socksPort: Smallint;
  829. begin
  830. Result := DefaultInterface.socksPort;
  831. end;
  832.  
  833. procedure TYAcs.Set_socksPort(pVal: Smallint);
  834. begin
  835. DefaultInterface.Set_socksPort(pVal);
  836. end;
  837.  
  838. function TYAcs.Get_socksUsername: WideString;
  839. begin
  840. Result := DefaultInterface.socksUsername;
  841. end;
  842.  
  843. procedure TYAcs.Set_socksUsername(const pVal: WideString);
  844. { Warning: The property socksUsername has a setter and a getter whose
  845. types do not match. Delphi was unable to generate a property of
  846. this sort and so is using a Variant as a passthrough. }
  847. var
  848. InterfaceVariant: OleVariant;
  849. begin
  850. InterfaceVariant := DefaultInterface;
  851. InterfaceVariant.socksUsername := pVal;
  852. end;
  853.  
  854. function TYAcs.Get_socksPassword: WideString;
  855. begin
  856. Result := DefaultInterface.socksPassword;
  857. end;
  858.  
  859. procedure TYAcs.Set_socksPassword(const pVal: WideString);
  860. { Warning: The property socksPassword has a setter and a getter whose
  861. types do not match. Delphi was unable to generate a property of
  862. this sort and so is using a Variant as a passthrough. }
  863. var
  864. InterfaceVariant: OleVariant;
  865. begin
  866. InterfaceVariant := DefaultInterface;
  867. InterfaceVariant.socksPassword := pVal;
  868. end;
  869.  
  870. function TYAcs.Get_confKey: WideString;
  871. begin
  872. Result := DefaultInterface.confKey;
  873. end;
  874.  
  875. procedure TYAcs.Set_confKey(const pVal: WideString);
  876. { Warning: The property confKey has a setter and a getter whose
  877. types do not match. Delphi was unable to generate a property of
  878. this sort and so is using a Variant as a passthrough. }
  879. var
  880. InterfaceVariant: OleVariant;
  881. begin
  882. InterfaceVariant := DefaultInterface;
  883. InterfaceVariant.confKey := pVal;
  884. end;
  885.  
  886. function TYAcs.Get_inputAGC: Integer;
  887. begin
  888. Result := DefaultInterface.inputAGC;
  889. end;
  890.  
  891. procedure TYAcs.Set_inputAGC(pVal: Integer);
  892. begin
  893. DefaultInterface.Set_inputAGC(pVal);
  894. end;
  895.  
  896. function TYAcs.Get_inputVOX: Integer;
  897. begin
  898. Result := DefaultInterface.inputVOX;
  899. end;
  900.  
  901. procedure TYAcs.Set_inputVOX(pVal: Integer);
  902. begin
  903. DefaultInterface.Set_inputVOX(pVal);
  904. end;
  905.  
  906. function TYAcs.Get_inputVOXSensitivity: Smallint;
  907. begin
  908. Result := DefaultInterface.inputVOXSensitivity;
  909. end;
  910.  
  911. procedure TYAcs.Set_inputVOXSensitivity(pVal: Smallint);
  912. begin
  913. DefaultInterface.Set_inputVOXSensitivity(pVal);
  914. end;
  915.  
  916. function TYAcs.Get_appInfo: WideString;
  917. begin
  918. Result := DefaultInterface.appInfo;
  919. end;
  920.  
  921. procedure TYAcs.Set_appInfo(const pVal: WideString);
  922. { Warning: The property appInfo has a setter and a getter whose
  923. types do not match. Delphi was unable to generate a property of
  924. this sort and so is using a Variant as a passthrough. }
  925. var
  926. InterfaceVariant: OleVariant;
  927. begin
  928. InterfaceVariant := DefaultInterface;
  929. InterfaceVariant.appInfo := pVal;
  930. end;
  931.  
  932. function TYAcs.Get_soundLocation: WideString;
  933. begin
  934. Result := DefaultInterface.soundLocation;
  935. end;
  936.  
  937. procedure TYAcs.Set_soundLocation(const pVal: WideString);
  938. { Warning: The property soundLocation has a setter and a getter whose
  939. types do not match. Delphi was unable to generate a property of
  940. this sort and so is using a Variant as a passthrough. }
  941. var
  942. InterfaceVariant: OleVariant;
  943. begin
  944. InterfaceVariant := DefaultInterface;
  945. InterfaceVariant.soundLocation := pVal;
  946. end;
  947.  
  948. procedure TYAcs.joinConference;
  949. begin
  950. DefaultInterface.joinConference;
  951. end;
  952.  
  953. procedure TYAcs.startTransmit;
  954. begin
  955. DefaultInterface.startTransmit;
  956. end;
  957.  
  958. procedure TYAcs.stopTransmit;
  959. begin
  960. DefaultInterface.stopTransmit;
  961. end;
  962.  
  963. procedure TYAcs.leaveConference;
  964. begin
  965. DefaultInterface.leaveConference;
  966. end;
  967.  
  968. procedure TYAcs.createAndJoinConference;
  969. begin
  970. DefaultInterface.createAndJoinConference;
  971. end;
  972.  
  973. procedure TYAcs.muteSource(id: Integer; const name: WideString);
  974. begin
  975. DefaultInterface.muteSource(id, name);
  976. end;
  977.  
  978. procedure TYAcs.unmuteSource(id: Integer; const name: WideString);
  979. begin
  980. DefaultInterface.unmuteSource(id, name);
  981. end;
  982.  
  983. procedure TYAcs.setSourcePriority(id: Integer; const name: WideString; priority: Smallint);
  984. begin
  985. DefaultInterface.setSourcePriority(id, name, priority);
  986. end;
  987.  
  988. function TYAcs.playSound(const name: WideString; level: Double): Integer;
  989. begin
  990. Result := DefaultInterface.playSound(name, level);
  991. end;
  992.  
  993. procedure TYAcs.stopSound(id: Integer);
  994. begin
  995. DefaultInterface.stopSound(id);
  996. end;
  997.  
  998. procedure TYAcs.loadSound(const name: WideString);
  999. begin
  1000. DefaultInterface.loadSound(name);
  1001. end;
  1002.  
  1003. procedure TYAcs.startTest(id: Smallint);
  1004. begin
  1005. DefaultInterface.startTest(id);
  1006. end;
  1007.  
  1008. procedure TYAcs.stopTest(id: Smallint);
  1009. begin
  1010. DefaultInterface.stopTest(id);
  1011. end;
  1012.  
  1013. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  1014. constructor TYAcsProperties.Create(AServer: TYAcs);
  1015. begin
  1016. inherited Create;
  1017. FServer := AServer;
  1018. end;
  1019.  
  1020. function TYAcsProperties.GetDefaultInterface: IYAcs;
  1021. begin
  1022. Result := FServer.DefaultInterface;
  1023. end;
  1024.  
  1025. function TYAcsProperties.Get_hostName: WideString;
  1026. begin
  1027. Result := DefaultInterface.hostName;
  1028. end;
  1029.  
  1030. procedure TYAcsProperties.Set_hostName(const pVal: WideString);
  1031. { Warning: The property hostName has a setter and a getter whose
  1032. types do not match. Delphi was unable to generate a property of
  1033. this sort and so is using a Variant as a passthrough. }
  1034. var
  1035. InterfaceVariant: OleVariant;
  1036. begin
  1037. InterfaceVariant := DefaultInterface;
  1038. InterfaceVariant.hostName := pVal;
  1039. end;
  1040.  
  1041. function TYAcsProperties.Get_userName: WideString;
  1042. begin
  1043. Result := DefaultInterface.userName;
  1044. end;
  1045.  
  1046. procedure TYAcsProperties.Set_userName(const pVal: WideString);
  1047. { Warning: The property userName has a setter and a getter whose
  1048. types do not match. Delphi was unable to generate a property of
  1049. this sort and so is using a Variant as a passthrough. }
  1050. var
  1051. InterfaceVariant: OleVariant;
  1052. begin
  1053. InterfaceVariant := DefaultInterface;
  1054. InterfaceVariant.userName := pVal;
  1055. end;
  1056.  
  1057. function TYAcsProperties.Get_confName: WideString;
  1058. begin
  1059. Result := DefaultInterface.confName;
  1060. end;
  1061.  
  1062. procedure TYAcsProperties.Set_confName(const pVal: WideString);
  1063. { Warning: The property confName has a setter and a getter whose
  1064. types do not match. Delphi was unable to generate a property of
  1065. this sort and so is using a Variant as a passthrough. }
  1066. var
  1067. InterfaceVariant: OleVariant;
  1068. begin
  1069. InterfaceVariant := DefaultInterface;
  1070. InterfaceVariant.confName := pVal;
  1071. end;
  1072.  
  1073. function TYAcsProperties.Get_monitorGain: Smallint;
  1074. begin
  1075. Result := DefaultInterface.monitorGain;
  1076. end;
  1077.  
  1078. procedure TYAcsProperties.Set_monitorGain(pVal: Smallint);
  1079. begin
  1080. DefaultInterface.Set_monitorGain(pVal);
  1081. end;
  1082.  
  1083. function TYAcsProperties.Get_outputGain: Smallint;
  1084. begin
  1085. Result := DefaultInterface.outputGain;
  1086. end;
  1087.  
  1088. procedure TYAcsProperties.Set_outputGain(pVal: Smallint);
  1089. begin
  1090. DefaultInterface.Set_outputGain(pVal);
  1091. end;
  1092.  
  1093. function TYAcsProperties.Get_inputGain: Smallint;
  1094. begin
  1095. Result := DefaultInterface.inputGain;
  1096. end;
  1097.  
  1098. procedure TYAcsProperties.Set_inputGain(pVal: Smallint);
  1099. begin
  1100. DefaultInterface.Set_inputGain(pVal);
  1101. end;
  1102.  
  1103. function TYAcsProperties.Get_inputMute: Integer;
  1104. begin
  1105. Result := DefaultInterface.inputMute;
  1106. end;
  1107.  
  1108. procedure TYAcsProperties.Set_inputMute(pVal: Integer);
  1109. begin
  1110. DefaultInterface.Set_inputMute(pVal);
  1111. end;
  1112.  
  1113. function TYAcsProperties.Get_outputMute: Integer;
  1114. begin
  1115. Result := DefaultInterface.outputMute;
  1116. end;
  1117.  
  1118. procedure TYAcsProperties.Set_outputMute(pVal: Integer);
  1119. begin
  1120. DefaultInterface.Set_outputMute(pVal);
  1121. end;
  1122.  
  1123. function TYAcsProperties.Get_inputSource: Smallint;
  1124. begin
  1125. Result := DefaultInterface.inputSource;
  1126. end;
  1127.  
  1128. procedure TYAcsProperties.Set_inputSource(pVal: Smallint);
  1129. begin
  1130. DefaultInterface.Set_inputSource(pVal);
  1131. end;
  1132.  
  1133. function TYAcsProperties.Get_monitorMute: Integer;
  1134. begin
  1135. Result := DefaultInterface.monitorMute;
  1136. end;
  1137.  
  1138. procedure TYAcsProperties.Set_monitorMute(pVal: Integer);
  1139. begin
  1140. DefaultInterface.Set_monitorMute(pVal);
  1141. end;
  1142.  
  1143. function TYAcsProperties.Get_socksVersion: Smallint;
  1144. begin
  1145. Result := DefaultInterface.socksVersion;
  1146. end;
  1147.  
  1148. procedure TYAcsProperties.Set_socksVersion(pVal: Smallint);
  1149. begin
  1150. DefaultInterface.Set_socksVersion(pVal);
  1151. end;
  1152.  
  1153. function TYAcsProperties.Get_socksHostname: WideString;
  1154. begin
  1155. Result := DefaultInterface.socksHostname;
  1156. end;
  1157.  
  1158. procedure TYAcsProperties.Set_socksHostname(const pVal: WideString);
  1159. { Warning: The property socksHostname has a setter and a getter whose
  1160. types do not match. Delphi was unable to generate a property of
  1161. this sort and so is using a Variant as a passthrough. }
  1162. var
  1163. InterfaceVariant: OleVariant;
  1164. begin
  1165. InterfaceVariant := DefaultInterface;
  1166. InterfaceVariant.socksHostname := pVal;
  1167. end;
  1168.  
  1169. function TYAcsProperties.Get_socksPort: Smallint;
  1170. begin
  1171. Result := DefaultInterface.socksPort;
  1172. end;
  1173.  
  1174. procedure TYAcsProperties.Set_socksPort(pVal: Smallint);
  1175. begin
  1176. DefaultInterface.Set_socksPort(pVal);
  1177. end;
  1178.  
  1179. function TYAcsProperties.Get_socksUsername: WideString;
  1180. begin
  1181. Result := DefaultInterface.socksUsername;
  1182. end;
  1183.  
  1184. procedure TYAcsProperties.Set_socksUsername(const pVal: WideString);
  1185. { Warning: The property socksUsername has a setter and a getter whose
  1186. types do not match. Delphi was unable to generate a property of
  1187. this sort and so is using a Variant as a passthrough. }
  1188. var
  1189. InterfaceVariant: OleVariant;
  1190. begin
  1191. InterfaceVariant := DefaultInterface;
  1192. InterfaceVariant.socksUsername := pVal;
  1193. end;
  1194.  
  1195. function TYAcsProperties.Get_socksPassword: WideString;
  1196. begin
  1197. Result := DefaultInterface.socksPassword;
  1198. end;
  1199.  
  1200. procedure TYAcsProperties.Set_socksPassword(const pVal: WideString);
  1201. { Warning: The property socksPassword has a setter and a getter whose
  1202. types do not match. Delphi was unable to generate a property of
  1203. this sort and so is using a Variant as a passthrough. }
  1204. var
  1205. InterfaceVariant: OleVariant;
  1206. begin
  1207. InterfaceVariant := DefaultInterface;
  1208. InterfaceVariant.socksPassword := pVal;
  1209. end;
  1210.  
  1211. function TYAcsProperties.Get_confKey: WideString;
  1212. begin
  1213. Result := DefaultInterface.confKey;
  1214. end;
  1215.  
  1216. procedure TYAcsProperties.Set_confKey(const pVal: WideString);
  1217. { Warning: The property confKey has a setter and a getter whose
  1218. types do not match. Delphi was unable to generate a property of
  1219. this sort and so is using a Variant as a passthrough. }
  1220. var
  1221. InterfaceVariant: OleVariant;
  1222. begin
  1223. InterfaceVariant := DefaultInterface;
  1224. InterfaceVariant.confKey := pVal;
  1225. end;
  1226.  
  1227. function TYAcsProperties.Get_inputAGC: Integer;
  1228. begin
  1229. Result := DefaultInterface.inputAGC;
  1230. end;
  1231.  
  1232. procedure TYAcsProperties.Set_inputAGC(pVal: Integer);
  1233. begin
  1234. DefaultInterface.Set_inputAGC(pVal);
  1235. end;
  1236.  
  1237. function TYAcsProperties.Get_inputVOX: Integer;
  1238. begin
  1239. Result := DefaultInterface.inputVOX;
  1240. end;
  1241.  
  1242. procedure TYAcsProperties.Set_inputVOX(pVal: Integer);
  1243. begin
  1244. DefaultInterface.Set_inputVOX(pVal);
  1245. end;
  1246.  
  1247. function TYAcsProperties.Get_inputVOXSensitivity: Smallint;
  1248. begin
  1249. Result := DefaultInterface.inputVOXSensitivity;
  1250. end;
  1251.  
  1252. procedure TYAcsProperties.Set_inputVOXSensitivity(pVal: Smallint);
  1253. begin
  1254. DefaultInterface.Set_inputVOXSensitivity(pVal);
  1255. end;
  1256.  
  1257. function TYAcsProperties.Get_appInfo: WideString;
  1258. begin
  1259. Result := DefaultInterface.appInfo;
  1260. end;
  1261.  
  1262. procedure TYAcsProperties.Set_appInfo(const pVal: WideString);
  1263. { Warning: The property appInfo has a setter and a getter whose
  1264. types do not match. Delphi was unable to generate a property of
  1265. this sort and so is using a Variant as a passthrough. }
  1266. var
  1267. InterfaceVariant: OleVariant;
  1268. begin
  1269. InterfaceVariant := DefaultInterface;
  1270. InterfaceVariant.appInfo := pVal;
  1271. end;
  1272.  
  1273. function TYAcsProperties.Get_soundLocation: WideString;
  1274. begin
  1275. Result := DefaultInterface.soundLocation;
  1276. end;
  1277.  
  1278. procedure TYAcsProperties.Set_soundLocation(const pVal: WideString);
  1279. { Warning: The property soundLocation has a setter and a getter whose
  1280. types do not match. Delphi was unable to generate a property of
  1281. this sort and so is using a Variant as a passthrough. }
  1282. var
  1283. InterfaceVariant: OleVariant;
  1284. begin
  1285. InterfaceVariant := DefaultInterface;
  1286. InterfaceVariant.soundLocation := pVal;
  1287. end;
  1288.  
  1289. {$ENDIF}
  1290.  
  1291. procedure Register;
  1292. begin
  1293. RegisterComponents(dtlServerPage, [TYAcs]);
  1294. end;
  1295.  
  1296. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!