{ $DEFINE COMPILE_DEBUG} {$IFDEF COMPILE_DEBUG} {$A8,B-,C+,D+,E-,F-,G+,H+,I+,J+,K-,L+,M-,N+,O-,P+,Q+,R+,S-,T-,U-,V+,W-,X+,Y+,Z1} {DEBUG} {$ELSE} {$A8,B-,C-,D-,E-,F-,G+,H+,I-,J+,K-,L-,M-,N-,O+,P+,Q-,R-,S-,T-,U-,V+,W-,X+,Y-,Z1} {RUN} {$ENDIF} unit PLSERVERLib_TLB; {$TYPEDADDRESS OFF} // Unit muß ohne Typüberprüfung für Zeiger compiliert werden. {$WRITEABLECONST ON} {$VARPROPSETTER ON} {$WARN SYMBOL_PLATFORM OFF} // ************************************************************************ // // WARNUNG // ------- // Die in dieser Datei deklarierten Typen wurden aus Daten einer Typbibliothek // generiert. Wenn diese Typbibliothek explizit oder indirekt (über eine // andere Typbibliothek) reimportiert wird oder wenn die Anweisung // 'Aktualisieren' im Typbibliotheks-Editor während des Bearbeitens der // Typbibliothek aktiviert ist, wird der Inhalt dieser Datei neu generiert und // alle manuell vorgenommenen Änderungen gehen verloren. // ************************************************************************ // // PASTLWTR : 1.2 // Datei generiert am 17.05.2010 17:03:34 aus der unten beschriebenen Typbibliothek. // ************************************************************************ // // Typbib: C:\WINDOWS\system32\PLServer.5.6.0.ocx (1) // LIBID: {785739C2-A288-11D2-B82B-8D8A650ADC32} // LCID: 0 // Hilfedatei: C:\WINDOWS\system32\PLServer.hlp // Hilfe-String: PLServer ActiveX Control module // DepndLst: // (1) v2.0 stdole, (C:\WINDOWS\system32\stdole2.tlb) // Fehler // Hinweis: Parameter 'type' im _DPLServer.GetSpecialData geändert zu 'type_' // Hinweis: Parameter 'type' im _DPLServer.SpecialCmd geändert zu 'type_' // ************************************************************************ // interface uses Windows, Classes, OleCtrls; // *********************************************************************// // In dieser Typbibliothek deklarierte GUIDS . Es werden folgende // Präfixe verwendet: // Typbibliotheken : LIBID_xxxx // CoClasses : CLASS_xxxx // DISPInterfaces : DIID_xxxx // Nicht-DISP-Schnittstellen: IID_xxxx // *********************************************************************// const // Haupt- und Nebenversionen der Typbibliothek PLSERVERLibMajorVersion = 1; PLSERVERLibMinorVersion = 0; LIBID_PLSERVERLib: TGUID = '{785739C2-A288-11D2-B82B-8D8A650ADC32}'; DIID__DPLServer: TGUID = '{785739C3-A288-11D2-B82B-8D8A650ADC32}'; DIID__DPLServerEvents: TGUID = '{785739C4-A288-11D2-B82B-8D8A650ADC32}'; CLASS_PLServer: TGUID = '{244758C6-A002-11D2-B82B-938DAECFCE37}'; type // *********************************************************************// // Forward-Deklaration von in der Typbibliothek definierten Typen // *********************************************************************// _DPLServer = dispinterface; _DPLServerEvents = dispinterface; // *********************************************************************// // Deklaration von in der Typbibliothek definierten CoClasses // (HINWEIS: Hier wird jede CoClass zu ihrer Standardschnittstelle // zugewiesen) // *********************************************************************// PLServer = _DPLServer; // *********************************************************************// // Deklaration von Strukturen, Unions und Aliasen. // *********************************************************************// PSmallint1 = ^Smallint; {*} PInteger1 = ^Integer; {*} // *********************************************************************// // DispIntf: _DPLServer // Flags: (4112) Hidden Dispatchable // GUID: {785739C3-A288-11D2-B82B-8D8A650ADC32} // *********************************************************************// _DPLServer = dispinterface ['{785739C3-A288-11D2-B82B-8D8A650ADC32}'] function Button(id: Integer; pos: Smallint; const txt: WideString): WordBool; dispid 5; function Ack(id: Integer): WordBool; dispid 3; procedure ClearSendBuffer(id: Integer); dispid 7; function GetExtraID(id: Integer): Smallint; dispid 13; function ClearCmd(id: Integer; cmd: Smallint; start: Smallint; stop: Smallint): WordBool; dispid 6; function FieldCmd(id: Integer; pos: Smallint; fcmd: Smallint): WordBool; dispid 10; function CmdSet(id: Integer; var commands: Smallint; length: Smallint): WordBool; dispid 8; function GetData(id: Integer; pos: Smallint): WideString; dispid 12; function Bell(id: Integer): WordBool; dispid 4; function FldTxt(id: Integer; pos: Smallint; const txt: WideString): WordBool; dispid 11; function SetView(id: Integer; row: Smallint): WordBool; dispid 20; function IsData(id: Integer; pos: Smallint): WordBool; dispid 16; function GetLastFrameID(id: Integer): Smallint; dispid 14; function PopMessage(id: Integer; pos: Smallint; const txt: WideString): WordBool; dispid 18; function SendSSMData(ssmID: Integer; msgNum: Smallint; var data: Smallint; length: Smallint; retries: Smallint): WordBool; dispid 45; function NewField(id: Integer; pos: Smallint; length: Smallint; style: Smallint): WordBool; dispid 17; function Text(id: Integer; pos: Smallint; const txt: WideString): WordBool; dispid 21; function Send(id: Integer; frameid: Smallint): WordBool; dispid 19; procedure DataIn(var data: Smallint; data_len: Smallint; source_addr: Smallint); dispid 23; function GetRSSI(id: Integer): Smallint; dispid 15; function What(id: Integer; delay: Smallint): WordBool; dispid 22; function Connect(com_port: Smallint): WordBool; dispid 9; function ClearForm(id: Integer): WordBool; dispid 24; function StartServer(port: Smallint): WordBool; dispid 25; procedure StopServer; dispid 26; function DataToSerial(id: Integer; const txt: WideString): WordBool; dispid 27; function WaitSerial(id: Integer; delay: Smallint): WordBool; dispid 28; procedure DisconnectSerialServer(ssID: Smallint); dispid 29; function ConnectToSerialServer(const addr: WideString; port: Smallint): Smallint; dispid 30; function NewFieldEx(id: Integer; pos: Smallint; length: Smallint; style: Smallint): WordBool; dispid 31; function Receiver(id: Integer; mode: Smallint): WordBool; dispid 32; function IsReceiver(id: Integer): WordBool; dispid 33; function SendMsg(receiverID: Integer; senderID: Integer; frameid: Smallint; resendTimes: Smallint): WordBool; dispid 34; function GetFormID(id: Integer): Smallint; dispid 35; function SetFormID(id: Integer; formID: Smallint): WordBool; dispid 36; function IsLastAnswerToHsOk(id: Integer): WordBool; dispid 37; function GetMessageNumber(id: Integer): Smallint; dispid 38; function GetHsIdString(id: Integer): WideString; dispid 39; function GetSerialData(id: Integer; var serdata: Smallint): Smallint; dispid 40; function GetReceiveBuffer(id: Integer; var data: Smallint): Smallint; dispid 41; procedure SetBSCollectDelay(msDelay: Smallint); dispid 42; function Beep(id: Integer; length: Smallint; delay: Smallint): WordBool; dispid 43; procedure SendSSMAck(ssmID: Smallint); dispid 44; function SendRawData(connID: Smallint; var data: Smallint; length: Smallint): Smallint; dispid 75; function WaitSSMData(ssmID: Smallint; var ssmData: Smallint; ms_waitTime: Smallint): Smallint; dispid 46; function GetBatteryLevel(id: Integer): Smallint; dispid 47; function RFIDField(id: Integer; pos: Smallint; length: Smallint; style: Smallint; first_page: Smallint; last_page: Smallint): WordBool; dispid 48; function RFIDReadPages(id: Integer; firstPage: Smallint; lastPage: Smallint; var dataBuffer: Smallint; msWait: Smallint): Smallint; dispid 49; function SendWaitRFIDEngineData(id: Integer; len: Smallint; var dataBuffer: Smallint; msWait: Smallint): Smallint; dispid 50; function GetStatus(id: Integer): Smallint; dispid 54; function GetSpecialData(id: Integer; type_: Smallint): Smallint; dispid 52; function GetLogItemCount: Smallint; dispid 56; function SpecialCmd(id: Integer; type_: Smallint; data: Integer): WordBool; dispid 51; function WaitReceiverAck(id: Integer): WordBool; dispid 55; function SetText(id: Integer; pos: Smallint; const txt: WideString): WordBool; dispid 64; function GetLogItem(ind: Smallint; var logStruct: Integer): WordBool; dispid 57; procedure SetLog(mode: Smallint; eventBetweenXitems: Smallint); dispid 58; function StartDataInLog(const logFile: WideString): WordBool; dispid 59; procedure StopDataInLog; dispid 60; function StartMsgLog(const msgLogFile: WideString): WordBool; dispid 61; function GetSerialSvrStatus(connID: Smallint): Smallint; dispid 65; function SendWaitRFIDEngineDataEx(id: Integer; len: Smallint; var dataBuffer: Integer; msWait: Smallint): Smallint; dispid 63; function TextEx(id: Integer; pos: Smallint; const txt: WideString): WordBool; dispid 67; procedure StopMsgLog; dispid 62; function GetCRCValue(id: Integer): Integer; dispid 66; function RedirSSMtoNetworkAdapter(ssmID: Integer; sessionID: Smallint): WordBool; dispid 53; function GetSourceIPAddr(id: Integer): WideString; dispid 68; function BinaryToSerial(id: Integer; var buffer: Smallint; length: Smallint): WordBool; dispid 69; function RouteDataToHost(id: Integer; const name: WideString): WordBool; dispid 70; function ConnectToHostServer(const addr: WideString; port: Smallint; const friendlyName: WideString): Smallint; dispid 71; function RunConnectionFile(const path: WideString): Smallint; dispid 72; function SendCmdToServer(connID: Smallint; const cmdText: WideString): Smallint; dispid 76; function SendRawDataToBTDevice(const btAddr: WideString; var data: Smallint; length: Smallint): Smallint; dispid 74; procedure AboutBox; dispid -552; function CallBTDevice(serverID: Smallint; const btAddr: WideString; dataType: Smallint): Smallint; dispid 73; function SendSSMASCIIData(ssmID: Integer; msgNum: Smallint; const dataString: WideString; retries: Smallint): WordBool; dispid 77; procedure OpenBSConnections; dispid 85; function SetRFIDEngineByte(id: Integer; index: Smallint; dataByte: Byte): Smallint; dispid 78; function GetRFIDEngineByte(id: Integer; index: Smallint): Byte; dispid 79; function IsBTDeviceConnected(const btAddr: WideString): Smallint; dispid 80; function GetBTAddress(connID: Smallint): WideString; dispid 81; function SendASCIIDataToBTDevice(const btAddr: WideString; const asciiData: WideString): Smallint; dispid 82; function ConnectToBS(com_port: Smallint): Smallint; dispid 86; function SetParameter(id: Integer; const pwd: WideString; const addr: WideString; const data: WideString): Smallint; dispid 84; function SetBSChannel(ssID: Smallint; channel: Smallint): Smallint; dispid 88; function SendFileToBTDevice(const btAddr: WideString; const fileName: WideString): Smallint; dispid 83; function CloseBTDevice(const btAddr: WideString): Smallint; dispid 87; property Notify: WordBool dispid 2; property BoxPerRow: Smallint dispid 1; end; // *********************************************************************// // DispIntf: _DPLServerEvents // Flags: (4096) Dispatchable // GUID: {785739C4-A288-11D2-B82B-8D8A650ADC32} // *********************************************************************// _DPLServerEvents = dispinterface ['{785739C4-A288-11D2-B82B-8D8A650ADC32}'] procedure DataArrived(id: Integer; frameid: Smallint); dispid 1; procedure DataFromHsField(id: Integer; frameid: Smallint; pos: Smallint; const data: WideString; data_len: Smallint); dispid 2; procedure DataOut(var data: Smallint; data_len: Smallint; dest_addr: Smallint); dispid 3; procedure What(id: Integer); dispid 4; procedure SerialServerMessage(ssID: Smallint; const msg: WideString); dispid 5; procedure MessageReceiverNotFound(receiverID: Integer; senderID: Integer); dispid 6; procedure DataFromSSM(ssmID: Integer; var data: Smallint; length: Smallint); dispid 7; procedure SSMDataReceiverNotFound(ssmID: Integer); dispid 8; procedure NewHsControl(id: Integer; extData: Smallint); dispid 9; procedure LogEvent(logItems: Smallint); dispid 10; procedure ReplyFromServer(connID: Smallint; const replyText: WideString); dispid 11; procedure RawDataFromBTDevice(const btAddr: WideString; var data: Smallint; length: Smallint); dispid 12; procedure RawDataArrived(connID: Smallint; var data: Smallint; length: Smallint); dispid 13; procedure DataFromSSMASCII(id: Integer; const dataString: WideString; length: Smallint); dispid 14; procedure RFIDEngineDataArrived(id: Integer; length: Smallint); dispid 15; end; // *********************************************************************// // Klassendeklaration von OLE-Control-Proxy // Elementname : TPLServer // Hilfe-String : PLServer Control // Standardschnittstelle: _DPLServer // Def. Intf. DISP? : Yes // Ereignisschnittstelle: _DPLServerEvents // TypeFlags : (34) CanCreate Control // *********************************************************************// TPLServerDataArrived = procedure(ASender: TObject; id: Integer; frameid: Smallint) of object; TPLServerDataFromHsField = procedure(ASender: TObject; id: Integer; frameid: Smallint; pos: Smallint; const data: WideString; data_len: Smallint) of object; TPLServerDataOut = procedure(ASender: TObject; var data: Smallint; data_len: Smallint; dest_addr: Smallint) of object; TPLServerWhat = procedure(ASender: TObject; id: Integer) of object; TPLServerSerialServerMessage = procedure(ASender: TObject; ssID: Smallint; const msg: WideString) of object; TPLServerMessageReceiverNotFound = procedure(ASender: TObject; receiverID: Integer; senderID: Integer) of object; TPLServerDataFromSSM = procedure(ASender: TObject; ssmID: Integer; var data: Smallint; length: Smallint) of object; TPLServerSSMDataReceiverNotFound = procedure(ASender: TObject; ssmID: Integer) of object; TPLServerNewHsControl = procedure(ASender: TObject; id: Integer; extData: Smallint) of object; TPLServerLogEvent = procedure(ASender: TObject; logItems: Smallint) of object; TPLServerReplyFromServer = procedure(ASender: TObject; connID: Smallint; const replyText: WideString) of object; TPLServerRawDataFromBTDevice = procedure(ASender: TObject; const btAddr: WideString; var data: Smallint; length: Smallint) of object; TPLServerRawDataArrived = procedure(ASender: TObject; connID: Smallint; var data: Smallint; length: Smallint) of object; TPLServerDataFromSSMASCII = procedure(ASender: TObject; id: Integer; const dataString: WideString; length: Smallint) of object; TPLServerRFIDEngineDataArrived = procedure(ASender: TObject; id: Integer; length: Smallint) of object; TPLServer = class(TOleControl) private FOnDataArrived: TPLServerDataArrived; FOnDataFromHsField: TPLServerDataFromHsField; FOnDataOut: TPLServerDataOut; FOnWhat: TPLServerWhat; FOnSerialServerMessage: TPLServerSerialServerMessage; FOnMessageReceiverNotFound: TPLServerMessageReceiverNotFound; FOnDataFromSSM: TPLServerDataFromSSM; FOnSSMDataReceiverNotFound: TPLServerSSMDataReceiverNotFound; FOnNewHsControl: TPLServerNewHsControl; FOnLogEvent: TPLServerLogEvent; FOnReplyFromServer: TPLServerReplyFromServer; FOnRawDataFromBTDevice: TPLServerRawDataFromBTDevice; FOnRawDataArrived: TPLServerRawDataArrived; FOnDataFromSSMASCII: TPLServerDataFromSSMASCII; FOnRFIDEngineDataArrived: TPLServerRFIDEngineDataArrived; FIntf: _DPLServer; function GetControlInterface: _DPLServer; protected procedure CreateControl; procedure InitControlData; override; public function Button(id: Integer; pos: Smallint; const txt: WideString): WordBool; function Ack(id: Integer): WordBool; procedure ClearSendBuffer(id: Integer); function GetExtraID(id: Integer): Smallint; function ClearCmd(id: Integer; cmd: Smallint; start: Smallint; stop: Smallint): WordBool; function FieldCmd(id: Integer; pos: Smallint; fcmd: Smallint): WordBool; function CmdSet(id: Integer; var commands: Smallint; length: Smallint): WordBool; function GetData(id: Integer; pos: Smallint): WideString; function Bell(id: Integer): WordBool; function FldTxt(id: Integer; pos: Smallint; const txt: WideString): WordBool; function SetView(id: Integer; row: Smallint): WordBool; function IsData(id: Integer; pos: Smallint): WordBool; function GetLastFrameID(id: Integer): Smallint; function PopMessage(id: Integer; pos: Smallint; const txt: WideString): WordBool; function SendSSMData(ssmID: Integer; msgNum: Smallint; var data: Smallint; length: Smallint; retries: Smallint): WordBool; function NewField(id: Integer; pos: Smallint; length: Smallint; style: Smallint): WordBool; function Text(id: Integer; pos: Smallint; const txt: WideString): WordBool; function Send(id: Integer; frameid: Smallint): WordBool; procedure DataIn(var data: Smallint; data_len: Smallint; source_addr: Smallint); function GetRSSI(id: Integer): Smallint; function What(id: Integer; delay: Smallint): WordBool; function Connect(com_port: Smallint): WordBool; function ClearForm(id: Integer): WordBool; function StartServer(port: Smallint): WordBool; procedure StopServer; function DataToSerial(id: Integer; const txt: WideString): WordBool; function WaitSerial(id: Integer; delay: Smallint): WordBool; procedure DisconnectSerialServer(ssID: Smallint); function ConnectToSerialServer(const addr: WideString; port: Smallint): Smallint; function NewFieldEx(id: Integer; pos: Smallint; length: Smallint; style: Smallint): WordBool; function Receiver(id: Integer; mode: Smallint): WordBool; function IsReceiver(id: Integer): WordBool; function SendMsg(receiverID: Integer; senderID: Integer; frameid: Smallint; resendTimes: Smallint): WordBool; function GetFormID(id: Integer): Smallint; function SetFormID(id: Integer; formID: Smallint): WordBool; function IsLastAnswerToHsOk(id: Integer): WordBool; function GetMessageNumber(id: Integer): Smallint; function GetHsIdString(id: Integer): WideString; function GetSerialData(id: Integer; var serdata: Smallint): Smallint; function GetReceiveBuffer(id: Integer; var data: Smallint): Smallint; procedure SetBSCollectDelay(msDelay: Smallint); function Beep(id: Integer; length: Smallint; delay: Smallint): WordBool; procedure SendSSMAck(ssmID: Smallint); function SendRawData(connID: Smallint; var data: Smallint; length: Smallint): Smallint; function WaitSSMData(ssmID: Smallint; var ssmData: Smallint; ms_waitTime: Smallint): Smallint; function GetBatteryLevel(id: Integer): Smallint; function RFIDField(id: Integer; pos: Smallint; length: Smallint; style: Smallint; first_page: Smallint; last_page: Smallint): WordBool; function RFIDReadPages(id: Integer; firstPage: Smallint; lastPage: Smallint; var dataBuffer: Smallint; msWait: Smallint): Smallint; function SendWaitRFIDEngineData(id: Integer; len: Smallint; var dataBuffer: Smallint; msWait: Smallint): Smallint; function GetStatus(id: Integer): Smallint; function GetSpecialData(id: Integer; type_: Smallint): Smallint; function GetLogItemCount: Smallint; function SpecialCmd(id: Integer; type_: Smallint; data: Integer): WordBool; function WaitReceiverAck(id: Integer): WordBool; function SetText(id: Integer; pos: Smallint; const txt: WideString): WordBool; function GetLogItem(ind: Smallint; var logStruct: Integer): WordBool; procedure SetLog(mode: Smallint; eventBetweenXitems: Smallint); function StartDataInLog(const logFile: WideString): WordBool; procedure StopDataInLog; function StartMsgLog(const msgLogFile: WideString): WordBool; function GetSerialSvrStatus(connID: Smallint): Smallint; function SendWaitRFIDEngineDataEx(id: Integer; len: Smallint; var dataBuffer: Integer; msWait: Smallint): Smallint; function TextEx(id: Integer; pos: Smallint; const txt: WideString): WordBool; procedure StopMsgLog; function GetCRCValue(id: Integer): Integer; function RedirSSMtoNetworkAdapter(ssmID: Integer; sessionID: Smallint): WordBool; function GetSourceIPAddr(id: Integer): WideString; function BinaryToSerial(id: Integer; var buffer: Smallint; length: Smallint): WordBool; function RouteDataToHost(id: Integer; const name: WideString): WordBool; function ConnectToHostServer(const addr: WideString; port: Smallint; const friendlyName: WideString): Smallint; function RunConnectionFile(const path: WideString): Smallint; function SendCmdToServer(connID: Smallint; const cmdText: WideString): Smallint; function SendRawDataToBTDevice(const btAddr: WideString; var data: Smallint; length: Smallint): Smallint; procedure AboutBox; function CallBTDevice(serverID: Smallint; const btAddr: WideString; dataType: Smallint): Smallint; function SendSSMASCIIData(ssmID: Integer; msgNum: Smallint; const dataString: WideString; retries: Smallint): WordBool; procedure OpenBSConnections; function SetRFIDEngineByte(id: Integer; index: Smallint; dataByte: Byte): Smallint; function GetRFIDEngineByte(id: Integer; index: Smallint): Byte; function IsBTDeviceConnected(const btAddr: WideString): Smallint; function GetBTAddress(connID: Smallint): WideString; function SendASCIIDataToBTDevice(const btAddr: WideString; const asciiData: WideString): Smallint; function ConnectToBS(com_port: Smallint): Smallint; function SetParameter(id: Integer; const pwd: WideString; const addr: WideString; const data: WideString): Smallint; function SetBSChannel(ssID: Smallint; channel: Smallint): Smallint; function SendFileToBTDevice(const btAddr: WideString; const fileName: WideString): Smallint; function CloseBTDevice(const btAddr: WideString): Smallint; property ControlInterface: _DPLServer read GetControlInterface; property DefaultInterface: _DPLServer read GetControlInterface; published property Anchors; property TabStop; property Align; property DragCursor; property DragMode; property ParentShowHint; property PopupMenu; property ShowHint; property TabOrder; property Visible; property OnDragDrop; property OnDragOver; property OnEndDrag; property OnEnter; property OnExit; property OnStartDrag; property Notify: WordBool index 2 read GetWordBoolProp write SetWordBoolProp stored False; property BoxPerRow: Smallint index 1 read GetSmallintProp write SetSmallintProp stored False; property OnDataArrived: TPLServerDataArrived read FOnDataArrived write FOnDataArrived; property OnDataFromHsField: TPLServerDataFromHsField read FOnDataFromHsField write FOnDataFromHsField; property OnDataOut: TPLServerDataOut read FOnDataOut write FOnDataOut; property OnWhat: TPLServerWhat read FOnWhat write FOnWhat; property OnSerialServerMessage: TPLServerSerialServerMessage read FOnSerialServerMessage write FOnSerialServerMessage; property OnMessageReceiverNotFound: TPLServerMessageReceiverNotFound read FOnMessageReceiverNotFound write FOnMessageReceiverNotFound; property OnDataFromSSM: TPLServerDataFromSSM read FOnDataFromSSM write FOnDataFromSSM; property OnSSMDataReceiverNotFound: TPLServerSSMDataReceiverNotFound read FOnSSMDataReceiverNotFound write FOnSSMDataReceiverNotFound; property OnNewHsControl: TPLServerNewHsControl read FOnNewHsControl write FOnNewHsControl; property OnLogEvent: TPLServerLogEvent read FOnLogEvent write FOnLogEvent; property OnReplyFromServer: TPLServerReplyFromServer read FOnReplyFromServer write FOnReplyFromServer; property OnRawDataFromBTDevice: TPLServerRawDataFromBTDevice read FOnRawDataFromBTDevice write FOnRawDataFromBTDevice; property OnRawDataArrived: TPLServerRawDataArrived read FOnRawDataArrived write FOnRawDataArrived; property OnDataFromSSMASCII: TPLServerDataFromSSMASCII read FOnDataFromSSMASCII write FOnDataFromSSMASCII; property OnRFIDEngineDataArrived: TPLServerRFIDEngineDataArrived read FOnRFIDEngineDataArrived write FOnRFIDEngineDataArrived; end; procedure Register; resourcestring dtlServerPage = 'ActiveX'; dtlOcxPage = 'ActiveX'; implementation procedure TPLServer.InitControlData; const CEventDispIDs: array [0..14] of DWORD = ( $00000001, $00000002, $00000003, $00000004, $00000005, $00000006, $00000007, $00000008, $00000009, $0000000A, $0000000B, $0000000C, $0000000D, $0000000E, $0000000F); CControlData: TControlData2 = ( ClassID: '{244758C6-A002-11D2-B82B-938DAECFCE37}'; EventIID: '{785739C4-A288-11D2-B82B-8D8A650ADC32}'; EventCount: 15; EventDispIDs: @CEventDispIDs; LicenseKey: nil (*HR:$80004005*); Flags: $00000000; Version: 401); begin ControlData := @CControlData; TControlData2(CControlData).FirstEventOfs := Cardinal(@@FOnDataArrived) - Cardinal(Self); end; procedure TPLServer.CreateControl; procedure DoCreate; begin FIntf := IUnknown(OleObject) as _DPLServer; end; begin if FIntf = nil then DoCreate; end; function TPLServer.GetControlInterface: _DPLServer; begin CreateControl; Result := FIntf; end; function TPLServer.Button(id: Integer; pos: Smallint; const txt: WideString): WordBool; begin Result := DefaultInterface.Button(id, pos, txt); end; function TPLServer.Ack(id: Integer): WordBool; begin Result := DefaultInterface.Ack(id); end; procedure TPLServer.ClearSendBuffer(id: Integer); begin DefaultInterface.ClearSendBuffer(id); end; function TPLServer.GetExtraID(id: Integer): Smallint; begin Result := DefaultInterface.GetExtraID(id); end; function TPLServer.ClearCmd(id: Integer; cmd: Smallint; start: Smallint; stop: Smallint): WordBool; begin Result := DefaultInterface.ClearCmd(id, cmd, start, stop); end; function TPLServer.FieldCmd(id: Integer; pos: Smallint; fcmd: Smallint): WordBool; begin Result := DefaultInterface.FieldCmd(id, pos, fcmd); end; function TPLServer.CmdSet(id: Integer; var commands: Smallint; length: Smallint): WordBool; begin Result := DefaultInterface.CmdSet(id, commands, length); end; function TPLServer.GetData(id: Integer; pos: Smallint): WideString; begin Result := DefaultInterface.GetData(id, pos); end; function TPLServer.Bell(id: Integer): WordBool; begin Result := DefaultInterface.Bell(id); end; function TPLServer.FldTxt(id: Integer; pos: Smallint; const txt: WideString): WordBool; begin Result := DefaultInterface.FldTxt(id, pos, txt); end; function TPLServer.SetView(id: Integer; row: Smallint): WordBool; begin Result := DefaultInterface.SetView(id, row); end; function TPLServer.IsData(id: Integer; pos: Smallint): WordBool; begin Result := DefaultInterface.IsData(id, pos); end; function TPLServer.GetLastFrameID(id: Integer): Smallint; begin Result := DefaultInterface.GetLastFrameID(id); end; function TPLServer.PopMessage(id: Integer; pos: Smallint; const txt: WideString): WordBool; begin Result := DefaultInterface.PopMessage(id, pos, txt); end; function TPLServer.SendSSMData(ssmID: Integer; msgNum: Smallint; var data: Smallint; length: Smallint; retries: Smallint): WordBool; begin Result := DefaultInterface.SendSSMData(ssmID, msgNum, data, length, retries); end; function TPLServer.NewField(id: Integer; pos: Smallint; length: Smallint; style: Smallint): WordBool; begin Result := DefaultInterface.NewField(id, pos, length, style); end; function TPLServer.Text(id: Integer; pos: Smallint; const txt: WideString): WordBool; begin Result := DefaultInterface.Text(id, pos, txt); end; function TPLServer.Send(id: Integer; frameid: Smallint): WordBool; begin Result := DefaultInterface.Send(id, frameid); end; procedure TPLServer.DataIn(var data: Smallint; data_len: Smallint; source_addr: Smallint); begin DefaultInterface.DataIn(data, data_len, source_addr); end; function TPLServer.GetRSSI(id: Integer): Smallint; begin Result := DefaultInterface.GetRSSI(id); end; function TPLServer.What(id: Integer; delay: Smallint): WordBool; begin Result := DefaultInterface.What(id, delay); end; function TPLServer.Connect(com_port: Smallint): WordBool; begin Result := DefaultInterface.Connect(com_port); end; function TPLServer.ClearForm(id: Integer): WordBool; begin Result := DefaultInterface.ClearForm(id); end; function TPLServer.StartServer(port: Smallint): WordBool; begin Result := DefaultInterface.StartServer(port); end; procedure TPLServer.StopServer; begin DefaultInterface.StopServer; end; function TPLServer.DataToSerial(id: Integer; const txt: WideString): WordBool; begin Result := DefaultInterface.DataToSerial(id, txt); end; function TPLServer.WaitSerial(id: Integer; delay: Smallint): WordBool; begin Result := DefaultInterface.WaitSerial(id, delay); end; procedure TPLServer.DisconnectSerialServer(ssID: Smallint); begin DefaultInterface.DisconnectSerialServer(ssID); end; function TPLServer.ConnectToSerialServer(const addr: WideString; port: Smallint): Smallint; begin Result := DefaultInterface.ConnectToSerialServer(addr, port); end; function TPLServer.NewFieldEx(id: Integer; pos: Smallint; length: Smallint; style: Smallint): WordBool; begin Result := DefaultInterface.NewFieldEx(id, pos, length, style); end; function TPLServer.Receiver(id: Integer; mode: Smallint): WordBool; begin Result := DefaultInterface.Receiver(id, mode); end; function TPLServer.IsReceiver(id: Integer): WordBool; begin Result := DefaultInterface.IsReceiver(id); end; function TPLServer.SendMsg(receiverID: Integer; senderID: Integer; frameid: Smallint; resendTimes: Smallint): WordBool; begin Result := DefaultInterface.SendMsg(receiverID, senderID, frameid, resendTimes); end; function TPLServer.GetFormID(id: Integer): Smallint; begin Result := DefaultInterface.GetFormID(id); end; function TPLServer.SetFormID(id: Integer; formID: Smallint): WordBool; begin Result := DefaultInterface.SetFormID(id, formID); end; function TPLServer.IsLastAnswerToHsOk(id: Integer): WordBool; begin Result := DefaultInterface.IsLastAnswerToHsOk(id); end; function TPLServer.GetMessageNumber(id: Integer): Smallint; begin Result := DefaultInterface.GetMessageNumber(id); end; function TPLServer.GetHsIdString(id: Integer): WideString; begin Result := DefaultInterface.GetHsIdString(id); end; function TPLServer.GetSerialData(id: Integer; var serdata: Smallint): Smallint; begin Result := DefaultInterface.GetSerialData(id, serdata); end; function TPLServer.GetReceiveBuffer(id: Integer; var data: Smallint): Smallint; begin Result := DefaultInterface.GetReceiveBuffer(id, data); end; procedure TPLServer.SetBSCollectDelay(msDelay: Smallint); begin DefaultInterface.SetBSCollectDelay(msDelay); end; function TPLServer.Beep(id: Integer; length: Smallint; delay: Smallint): WordBool; begin Result := DefaultInterface.Beep(id, length, delay); end; procedure TPLServer.SendSSMAck(ssmID: Smallint); begin DefaultInterface.SendSSMAck(ssmID); end; function TPLServer.SendRawData(connID: Smallint; var data: Smallint; length: Smallint): Smallint; begin Result := DefaultInterface.SendRawData(connID, data, length); end; function TPLServer.WaitSSMData(ssmID: Smallint; var ssmData: Smallint; ms_waitTime: Smallint): Smallint; begin Result := DefaultInterface.WaitSSMData(ssmID, ssmData, ms_waitTime); end; function TPLServer.GetBatteryLevel(id: Integer): Smallint; begin Result := DefaultInterface.GetBatteryLevel(id); end; function TPLServer.RFIDField(id: Integer; pos: Smallint; length: Smallint; style: Smallint; first_page: Smallint; last_page: Smallint): WordBool; begin Result := DefaultInterface.RFIDField(id, pos, length, style, first_page, last_page); end; function TPLServer.RFIDReadPages(id: Integer; firstPage: Smallint; lastPage: Smallint; var dataBuffer: Smallint; msWait: Smallint): Smallint; begin Result := DefaultInterface.RFIDReadPages(id, firstPage, lastPage, dataBuffer, msWait); end; function TPLServer.SendWaitRFIDEngineData(id: Integer; len: Smallint; var dataBuffer: Smallint; msWait: Smallint): Smallint; begin Result := DefaultInterface.SendWaitRFIDEngineData(id, len, dataBuffer, msWait); end; function TPLServer.GetStatus(id: Integer): Smallint; begin Result := DefaultInterface.GetStatus(id); end; function TPLServer.GetSpecialData(id: Integer; type_: Smallint): Smallint; begin Result := DefaultInterface.GetSpecialData(id, type_); end; function TPLServer.GetLogItemCount: Smallint; begin Result := DefaultInterface.GetLogItemCount; end; function TPLServer.SpecialCmd(id: Integer; type_: Smallint; data: Integer): WordBool; begin Result := DefaultInterface.SpecialCmd(id, type_, data); end; function TPLServer.WaitReceiverAck(id: Integer): WordBool; begin Result := DefaultInterface.WaitReceiverAck(id); end; function TPLServer.SetText(id: Integer; pos: Smallint; const txt: WideString): WordBool; begin Result := DefaultInterface.SetText(id, pos, txt); end; function TPLServer.GetLogItem(ind: Smallint; var logStruct: Integer): WordBool; begin Result := DefaultInterface.GetLogItem(ind, logStruct); end; procedure TPLServer.SetLog(mode: Smallint; eventBetweenXitems: Smallint); begin DefaultInterface.SetLog(mode, eventBetweenXitems); end; function TPLServer.StartDataInLog(const logFile: WideString): WordBool; begin Result := DefaultInterface.StartDataInLog(logFile); end; procedure TPLServer.StopDataInLog; begin DefaultInterface.StopDataInLog; end; function TPLServer.StartMsgLog(const msgLogFile: WideString): WordBool; begin Result := DefaultInterface.StartMsgLog(msgLogFile); end; function TPLServer.GetSerialSvrStatus(connID: Smallint): Smallint; begin Result := DefaultInterface.GetSerialSvrStatus(connID); end; function TPLServer.SendWaitRFIDEngineDataEx(id: Integer; len: Smallint; var dataBuffer: Integer; msWait: Smallint): Smallint; begin Result := DefaultInterface.SendWaitRFIDEngineDataEx(id, len, dataBuffer, msWait); end; function TPLServer.TextEx(id: Integer; pos: Smallint; const txt: WideString): WordBool; begin Result := DefaultInterface.TextEx(id, pos, txt); end; procedure TPLServer.StopMsgLog; begin DefaultInterface.StopMsgLog; end; function TPLServer.GetCRCValue(id: Integer): Integer; begin Result := DefaultInterface.GetCRCValue(id); end; function TPLServer.RedirSSMtoNetworkAdapter(ssmID: Integer; sessionID: Smallint): WordBool; begin Result := DefaultInterface.RedirSSMtoNetworkAdapter(ssmID, sessionID); end; function TPLServer.GetSourceIPAddr(id: Integer): WideString; begin Result := DefaultInterface.GetSourceIPAddr(id); end; function TPLServer.BinaryToSerial(id: Integer; var buffer: Smallint; length: Smallint): WordBool; begin Result := DefaultInterface.BinaryToSerial(id, buffer, length); end; function TPLServer.RouteDataToHost(id: Integer; const name: WideString): WordBool; begin Result := DefaultInterface.RouteDataToHost(id, name); end; function TPLServer.ConnectToHostServer(const addr: WideString; port: Smallint; const friendlyName: WideString): Smallint; begin Result := DefaultInterface.ConnectToHostServer(addr, port, friendlyName); end; function TPLServer.RunConnectionFile(const path: WideString): Smallint; begin Result := DefaultInterface.RunConnectionFile(path); end; function TPLServer.SendCmdToServer(connID: Smallint; const cmdText: WideString): Smallint; begin Result := DefaultInterface.SendCmdToServer(connID, cmdText); end; function TPLServer.SendRawDataToBTDevice(const btAddr: WideString; var data: Smallint; length: Smallint): Smallint; begin Result := DefaultInterface.SendRawDataToBTDevice(btAddr, data, length); end; procedure TPLServer.AboutBox; begin DefaultInterface.AboutBox; end; function TPLServer.CallBTDevice(serverID: Smallint; const btAddr: WideString; dataType: Smallint): Smallint; begin Result := DefaultInterface.CallBTDevice(serverID, btAddr, dataType); end; function TPLServer.SendSSMASCIIData(ssmID: Integer; msgNum: Smallint; const dataString: WideString; retries: Smallint): WordBool; begin Result := DefaultInterface.SendSSMASCIIData(ssmID, msgNum, dataString, retries); end; procedure TPLServer.OpenBSConnections; begin DefaultInterface.OpenBSConnections; end; function TPLServer.SetRFIDEngineByte(id: Integer; index: Smallint; dataByte: Byte): Smallint; begin Result := DefaultInterface.SetRFIDEngineByte(id, index, dataByte); end; function TPLServer.GetRFIDEngineByte(id: Integer; index: Smallint): Byte; begin Result := DefaultInterface.GetRFIDEngineByte(id, index); end; function TPLServer.IsBTDeviceConnected(const btAddr: WideString): Smallint; begin Result := DefaultInterface.IsBTDeviceConnected(btAddr); end; function TPLServer.GetBTAddress(connID: Smallint): WideString; begin Result := DefaultInterface.GetBTAddress(connID); end; function TPLServer.SendASCIIDataToBTDevice(const btAddr: WideString; const asciiData: WideString): Smallint; begin Result := DefaultInterface.SendASCIIDataToBTDevice(btAddr, asciiData); end; function TPLServer.ConnectToBS(com_port: Smallint): Smallint; begin Result := DefaultInterface.ConnectToBS(com_port); end; function TPLServer.SetParameter(id: Integer; const pwd: WideString; const addr: WideString; const data: WideString): Smallint; begin Result := DefaultInterface.SetParameter(id, pwd, addr, data); end; function TPLServer.SetBSChannel(ssID: Smallint; channel: Smallint): Smallint; begin Result := DefaultInterface.SetBSChannel(ssID, channel); end; function TPLServer.SendFileToBTDevice(const btAddr: WideString; const fileName: WideString): Smallint; begin Result := DefaultInterface.SendFileToBTDevice(btAddr, fileName); end; function TPLServer.CloseBTDevice(const btAddr: WideString): Smallint; begin Result := DefaultInterface.CloseBTDevice(btAddr); end; procedure Register; begin RegisterComponents(dtlOcxPage, [TPLServer]); end; initialization //MessageBox(0,'initialization of PLSERVERLib_TLB','Init',0); end.