Board index » delphi » how can I use my Activex !

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.
 
 

Re:how can I use my Activex !

On Mon, 28 Jun 2004 12:37:34 +0430, Vahid Gachkaran writes:
Quote
how can I use this ocx
I use this code but is wrong!
What goes wrong with the code?
--
Marc Rohloff [TeamB]
marc rohloff at myrealbox dot com
 

Re:how can I use my Activex !

var a : araz;
begin
a.port := 2;
......
You have to "create" your object before you can use it.
begin
a := CreateOleObject('xxxxxxxxxxxxx');
a.port := 2;
.....
Dennis Passmore
Ultimate Software, Inc.