Board index » delphi » how can I use my Activex !
Vahid Gachkaran
Delphi Developer |
how can I use my Activex !2004-06-28 04:07:34 PM delphi135 hi all please help, how can I use this ocx I use this code but is wrong! var a : araz; begin a.port := 2; ...... end; unit Araz_Ocx_TLB; // ************************************************************************ // // WARNING // ------- // The types declared in this file were generated from data read from a // Type Library. If this type library is explicitly or indirectly (via // another type library referring to this type library) re-imported, or the // 'Refresh' command of the Type Library Editor activated while editing the // Type Library, the contents of this file will be regenerated and all // manual modifications will be lost. // ************************************************************************ // // PASTLWTR : $Revision: 1.88.1.0.1.0 $ // File generated on 28/06/2004 11:13:30 ??from Type Library described below. // ************************************************************************ // // Type Lib: E:\ARAZOCX\OCX_COM.OCX (1) // IID\LCID: {4384BFEC-5F4A-11D6-8471-C5CEA9F0CA6E}\0 // Helpfile: // DepndLst: // (1) v2.0 stdole, (C:\WINDOWS\SYSTEM\stdole2.tlb) // (2) v4.0 StdVCL, (C:\WINDOWS\SYSTEM\STDVCL40.DLL) // ************************************************************************ // {$TYPEDADDRESS OFF} // Unit must be compiled without type-checked pointers. interface uses Windows, ActiveX, Classes, Graphics, OleServer, OleCtrls, StdVCL; // *********************************************************************// // GUIDS declared in the TypeLibrary. Following prefixes are used: // Type Libraries : LIBID_xxxx // CoClasses : CLASS_xxxx // DISPInterfaces : DIID_xxxx // Non-DISP interfaces: IID_xxxx // *********************************************************************// const // TypeLibrary Major and minor versions Araz_OcxMajorVersion = 2; Araz_OcxMinorVersion = 0; LIBID_Araz_Ocx: TGUID = '{4384BFEC-5F4A-11D6-8471-C5CEA9F0CA6E}'; IID__Araz: TGUID = '{943D5F5C-87C7-11D6-8472-FF22B56CC547}'; DIID___Araz: TGUID = '{943D5F5D-87C7-11D6-8472-FF22B56CC547}'; CLASS_Araz: TGUID = '{943D5F56-87C7-11D6-8472-FF22B56CC547}'; type // *********************************************************************// // Forward declaration of types defined in TypeLibrary // *********************************************************************// _Araz = interface; _ArazDisp = dispinterface; __Araz = dispinterface; // *********************************************************************// // Declaration of CoClasses defined in Type Library // (NOTE: Here we map each CoClass to its Default Interface) // *********************************************************************// Araz = _Araz; // *********************************************************************// // Interface: _Araz // Flags: (4560) Hidden Dual NonExtensible OleAutomation Dispatchable // GUID: {943D5F5C-87C7-11D6-8472-FF22B56CC547} // *********************************************************************// _Araz = interface(IDispatch) ['{943D5F5C-87C7-11D6-8472-FF22B56CC547}'] function Get_Error: Smallint; safecall; procedure Set_Error(Param1: Smallint); safecall; function Get_Port: Smallint; safecall; procedure Set_Port(Param1: Smallint); safecall; function Get_Num_device: Smallint; safecall; procedure Set_Num_device(Param1: Smallint); safecall; function Get_Setting: OleVariant; safecall; procedure Set_Setting(Param1: OleVariant); safecall; function TestConnect(var Pathfile: WideString): WordBool; safecall; function Insert_0(var Text: WideString; var Lenth: Smallint): WideString; safecall; procedure Show_Msg(var Msg: WideString; var Comman: WideString; var Image: WideString; var Header: WideString); safecall; function SendTime(var Houer1: Smallint; var Minute1: Smallint; var Second1: Smallint; var Year1: Smallint; var Month1: Smallint; var Day1: Smallint): WordBool; safecall; function ReciveData(var Pathfile: WideString; var Del_Value: WordBool): WordBool; safecall; function Delete_Data: WordBool; safecall; function Send_Shabakeh(var Number_Shabakeh: Smallint): WordBool; safecall; function Send_Summer_Winter(var Moon_Summer: Smallint; var Day_Summer: Smallint; var Moon_Winter: Smallint; var Day_Winter: Smallint): WordBool; safecall; function Send_Password(var Len_Password: Smallint; var Password: Integer; var Kind_Password: Smallint): WordBool; safecall; function Send_Alarm(var TL1: WideString; var TL2: WideString; var TL3: WideString; var TL4: WideString; var TL5: WideString; var TL6: WideString; var TL7: WideString; var TL8: WideString; var TL9: WideString; var TL10: WideString; var TL11: WideString; var TL12: WideString; var TL13: WideString; var TL14: WideString; var TL15: WideString; var TL16: WideString; var TL17: WideString; var TL18: WideString; var TL19: WideString; var TL20: WideString; var TL21: WideString; var TL22: WideString; var TL23: WideString; var TL24: WideString; var TL25: WideString; var TL26: WideString; var TL27: WideString; var TL28: WideString; var TL29: WideString; var TL30: WideString; var TL31: WideString; var TL32: WideString; var TL33: WideString; var TL34: WideString; var TL35: WideString): WordBool; safecall; function Delete_Alarm: WordBool; safecall; function Send_Titr_Grop(var Text1: WideString; var Text2: WideString; var Text3: WideString; var Text4: WideString; var Text5: WideString; var Text6: WideString; var Text7: WideString; var Text8: WideString): WordBool; safecall; function Send_Titr_Singl(var Code: Smallint): WordBool; safecall; function Send_Type(var Type0: WideString; var Type1: WideString; var Type2: WideString; var Type3: WideString; var Type4: WideString; var Type5: WideString; var Type6: WideString): WordBool; safecall; function Delete_Types: WordBool; safecall; function Send_Key_T100(var F1: Smallint; var F2: Smallint; var F3: Smallint; var F4F1: Smallint; var F4F2: Smallint; var F4F3: Smallint; var F4F4F1: Smallint): WordBool; safecall; function Send_Key_T2000(var F1: Smallint; var F2: Smallint; var F3: Smallint; var F4: Smallint; var F5: Smallint; var F6: Smallint; var F7: Smallint; var F8: Smallint; var F9: Smallint; var F0: Smallint; var Modem: Smallint; var Ramcard: Smallint; var Report: Smallint; var In_Put: Smallint; var M_Out_Put: Smallint; var Out_Put: Smallint): WordBool; safecall; function Active_Reader(var Active: WordBool): WordBool; safecall; function Send_Msg(var Pathfile: WideString): WordBool; safecall; function Delete_Msg: WordBool; safecall; function Delete_Names: WordBool; safecall; function Send_Names(var Pathfile: WideString): WordBool; safecall; function Restore_Data(var Pathfile: WideString): WordBool; safecall; function Online: WordBool; safecall; function Get_O_Card_No: Integer; safecall; procedure Set_O_Card_No(Param1: Integer); safecall; function Get_O_Time: Smallint; safecall; procedure Set_O_Time(Param1: Smallint); safecall; function Get_O_Type: WideString; safecall; procedure Set_O_Type(const Param1: WideString); safecall; function Get_O_Num_Div: Smallint; safecall; procedure Set_O_Num_Div(Param1: Smallint); safecall; function Online_Off: OleVariant; safecall; function Active_Limted(var Active: WordBool): WordBool; safecall; property Error: Smallint read Get_Error write Set_Error; property Port: Smallint read Get_Port write Set_Port; property Num_device: Smallint read Get_Num_device write Set_Num_device; property Setting: OleVariant read Get_Setting write Set_Setting; property O_Card_No: Integer read Get_O_Card_No write Set_O_Card_No; property O_Time: Smallint read Get_O_Time write Set_O_Time; property O_Type: WideString read Get_O_Type write Set_O_Type; property O_Num_Div: Smallint read Get_O_Num_Div write Set_O_Num_Div; end; // *********************************************************************// // DispIntf: _ArazDisp // Flags: (4560) Hidden Dual NonExtensible OleAutomation Dispatchable // GUID: {943D5F5C-87C7-11D6-8472-FF22B56CC547} // *********************************************************************// _ArazDisp = dispinterface ['{943D5F5C-87C7-11D6-8472-FF22B56CC547}'] property Error: Smallint dispid 1745027079; property Port: Smallint dispid 1745027078; property Num_device: Smallint dispid 1745027077; property Setting: OleVariant dispid 1745027076; function TestConnect(var Pathfile: WideString): WordBool; dispid 1610809362; function Insert_0(var Text: WideString; var Lenth: Smallint): WideString; dispid 1610809363; procedure Show_Msg(var Msg: WideString; var Comman: WideString; var Image: WideString; var Header: WideString); dispid 1610809364; function SendTime(var Houer1: Smallint; var Minute1: Smallint; var Second1: Smallint; var Year1: Smallint; var Month1: Smallint; var Day1: Smallint): WordBool; dispid 1610809365; function ReciveData(var Pathfile: WideString; var Del_Value: WordBool): WordBool; dispid 1610809367; function Delete_Data: WordBool; dispid 1610809369; function Send_Shabakeh(var Number_Shabakeh: Smallint): WordBool; dispid 1610809370; function Send_Summer_Winter(var Moon_Summer: Smallint; var Day_Summer: Smallint; var Moon_Winter: Smallint; var Day_Winter: Smallint): WordBool; dispid 1610809371; function Send_Password(var Len_Password: Smallint; var Password: Integer; var Kind_Password: Smallint): WordBool; dispid 1610809372; function Send_Alarm(var TL1: WideString; var TL2: WideString; var TL3: WideString; var TL4: WideString; var TL5: WideString; var TL6: WideString; var TL7: WideString; var TL8: WideString; var TL9: WideString; var TL10: WideString; var TL11: WideString; var TL12: WideString; var TL13: WideString; var TL14: WideString; var TL15: WideString; var TL16: WideString; var TL17: WideString; var TL18: WideString; var TL19: WideString; var TL20: WideString; var TL21: WideString; var TL22: WideString; var TL23: WideString; var TL24: WideString; var TL25: WideString; var TL26: WideString; var TL27: WideString; var TL28: WideString; var TL29: WideString; var TL30: WideString; var TL31: WideString; var TL32: WideString; var TL33: WideString; var TL34: WideString; var TL35: WideString): WordBool; dispid 1610809373; function Delete_Alarm: WordBool; dispid 1610809374; function Send_Titr_Grop(var Text1: WideString; var Text2: WideString; var Text3: WideString; var Text4: WideString; var Text5: WideString; var Text6: WideString; var Text7: WideString; var Text8: WideString): WordBool; dispid 1610809375; function Send_Titr_Singl(var Code: Smallint): WordBool; dispid 1610809376; function Send_Type(var Type0: WideString; var Type1: WideString; var Type2: WideString; var Type3: WideString; var Type4: WideString; var Type5: WideString; var Type6: WideString): WordBool; dispid 1610809377; function Delete_Types: WordBool; dispid 1610809378; function Send_Key_T100(var F1: Smallint; var F2: Smallint; var F3: Smallint; var F4F1: Smallint; var F4F2: Smallint; var F4F3: Smallint; var F4F4F1: Smallint): WordBool; dispid 1610809379; function Send_Key_T2000(var F1: Smallint; var F2: Smallint; var F3: Smallint; var F4: Smallint; var F5: Smallint; var F6: Smallint; var F7: Smallint; var F8: Smallint; var F9: Smallint; var F0: Smallint; var Modem: Smallint; var Ramcard: Smallint; var Report: Smallint; var In_Put: Smallint; var M_Out_Put: Smallint; var Out_Put: Smallint): WordBool; dispid 1610809380; function Active_Reader(var Active: WordBool): WordBool; dispid 1610809381; function Send_Msg(var Pathfile: WideString): WordBool; dispid 1610809382; function Delete_Msg: WordBool; dispid 1610809383; function Delete_Names: WordBool; dispid 1610809384; function Send_Names(var Pathfile: WideString): WordBool; dispid 1610809385; function Restore_Data(var Pathfile: WideString): WordBool; dispid 1610809386; function Online: WordBool; dispid 1610809389; property O_Card_No: Integer dispid 1745027075; property O_Time: Smallint dispid 1745027074; property O_Type: WideString dispid 1745027073; property O_Num_Div: Smallint dispid 1745027072; function Online_Off: OleVariant; dispid 1610809390; function Active_Limted(var Active: WordBool): WordBool; dispid 1610809391; end; // *********************************************************************// // DispIntf: __Araz // Flags: (4240) Hidden NonExtensible Dispatchable // GUID: {943D5F5D-87C7-11D6-8472-FF22B56CC547} // *********************************************************************// __Araz = dispinterface ['{943D5F5D-87C7-11D6-8472-FF22B56CC547}'] procedure Automatic; dispid 1; end; implementation uses ComObj; end. |