Board index » delphi » VB(Visual Basic) ActiveX Dll

Vb ActiveX Dll


2003-10-14 08:21:41 PM
delphi50
My co workers use VB(Visual Basic) and I use Delphi 4 and 5. I have a project in 4 that I
can't upgrade to 5 until at least next year. I have a VB(Visual Basic) DLL that imports
into Delphi 5 ok and gives me a T class just fine. However, when I import
it into Delphi 4 it imports but doesn't give me a T class? How can I fix
this?
The methods and properties get called fine. It is the Events that I can't
get to work. Can anyone point me into the right direction?
Is there a way to use a Delphi 5 TLB file in Delphi 4 maybe?
Or is there something that I am missing.
Here is the TLB file that is imported into Delphi4 if this is any help to
you.
unit CCDLL_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.11.1.75 $
// File generated on 10/14/2003 8:08:40 AM from Type Library described
below.
// ************************************************************************
//
// Type Lib: F:\wsys\Comps\d3+\carbiz\credco\CCDLL.dll
// IID\LCID: {61080726-D194-11D7-878B-00107A60F2C0}\0
// Helpfile:
// HelpString:
// Version: 1.0
// ************************************************************************
//
interface
uses Windows, ActiveX, Classes, Graphics, 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
LIBID_CCDLL: TGUID = '{61080726-D194-11D7-878B-00107A60F2C0}';
IID__ClsCredco: TGUID = '{61080727-D194-11D7-878B-00107A60F2C0}';
DIID___ClsCredco: TGUID = '{61080729-D194-11D7-878B-00107A60F2C0}';
CLASS_ClsCredco: TGUID = '{61080728-D194-11D7-878B-00107A60F2C0}';
type
// *********************************************************************//
// Forward declaration of interfaces defined in Type Library //
// *********************************************************************//
_ClsCredco = interface;
_ClsCredcoDisp = dispinterface;
__ClsCredco = dispinterface;
// *********************************************************************//
// Declaration of CoClasses defined in Type Library //
// (NOTE: Here we map each CoClass to its Default Interface) //
// *********************************************************************//
ClsCredco = _ClsCredco;
// *********************************************************************//
// Interface: _ClsCredco
// Flags: (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
// GUID: {61080727-D194-11D7-878B-00107A60F2C0}
// *********************************************************************//
_ClsCredco = interface(IDispatch)
['{61080727-D194-11D7-878B-00107A60F2C0}']
function Get_strStatusMessages: WideString; safecall;
procedure Set_strStatusMessages(const strStatusMessages: WideString);
safecall;
function Get_AURL: WideString; safecall;
procedure Set_AURL(const AURL: WideString); safecall;
function Get_StoredPassword: WideString; safecall;
procedure Set_StoredPassword(const StoredPassword: WideString);
safecall;
procedure Initialize; safecall;
function Get_AddressType: WideString; safecall;
procedure Set_AddressType(const Param1: WideString); safecall;
function Get_ApartmentNumber: WideString; safecall;
procedure Set_ApartmentNumber(const Param1: WideString); safecall;
function Get_BorrowerAge: WideString; safecall;
procedure Set_BorrowerAge(const Param1: WideString); safecall;
function Get_BorrowerFirstName: WideString; safecall;
procedure Set_BorrowerFirstName(const Param1: WideString); safecall;
function Get_BorrowerLastName: WideString; safecall;
procedure Set_BorrowerLastName(const Param1: WideString); safecall;
function Get_BorrowerMiddleName: WideString; safecall;
procedure Set_BorrowerMiddleName(const Param1: WideString); safecall;
function Get_BorrowerNameSuffix: WideString; safecall;
procedure Set_BorrowerNameSuffix(const Param1: WideString); safecall;
function Get_BorrowerSSN: WideString; safecall;
procedure Set_BorrowerSSN(const Param1: WideString); safecall;
function Get_BureauOverides: WideString; safecall;
procedure Set_BureauOverides(const Param1: WideString); safecall;
function Get_CredcoAcctNumber: WideString; safecall;
procedure Set_CredcoAcctNumber(const Param1: WideString); safecall;
function Get_CredcoPassword: WideString; safecall;
procedure Set_CredcoPassword(const Param1: WideString); safecall;
function Get_FormerAddressType: WideString; safecall;
procedure Set_FormerAddressType(const Param1: WideString); safecall;
function Get_FormerApartmentNumber: WideString; safecall;
procedure Set_FormerApartmentNumber(const Param1: WideString); safecall;
function Get_FormerCity: WideString; safecall;
procedure Set_FormerCity(const Param1: WideString); safecall;
function Get_FormerState: WideString; safecall;
procedure Set_FormerState(const Param1: WideString); safecall;
function Get_FormerStreetDirection: WideString; safecall;
procedure Set_FormerStreetDirection(const Param1: WideString); safecall;
function Get_FormerStreetName: WideString; safecall;
procedure Set_FormerStreetName(const Param1: WideString); safecall;
function Get_FormerStreetType: WideString; safecall;
procedure Set_FormerStreetType(const Param1: WideString); safecall;
function Get_FormerZipCode: WideString; safecall;
procedure Set_FormerZipCode(const Param1: WideString); safecall;
function Get_IndividualOrJoint: WideString; safecall;
procedure Set_IndividualOrJoint(const Param1: WideString); safecall;
function Get_Notes: WideString; safecall;
procedure Set_Notes(const Param1: WideString); safecall;
function Get_ReportFormat: WideString; safecall;
procedure Set_ReportFormat(const Param1: WideString); safecall;
function Get_SpouseAge: WideString; safecall;
procedure Set_SpouseAge(const Param1: WideString); safecall;
function Get_SpouseFirstName: WideString; safecall;
procedure Set_SpouseFirstName(const Param1: WideString); safecall;
function Get_SpouseLastName: WideString; safecall;
procedure Set_SpouseLastName(const Param1: WideString); safecall;
function Get_SpouseMiddleName: WideString; safecall;
procedure Set_SpouseMiddleName(const Param1: WideString); safecall;
function Get_SpouseNameSuffix: WideString; safecall;
procedure Set_SpouseNameSuffix(const Param1: WideString); safecall;
function Get_SpouseSSN: WideString; safecall;
procedure Set_SpouseSSN(const Param1: WideString); safecall;
function Get_State: WideString; safecall;
procedure Set_State(const Param1: WideString); safecall;
function Get_StreetName: WideString; safecall;
procedure Set_StreetName(const Param1: WideString); safecall;
function Get_StreetDirection: WideString; safecall;
procedure Set_StreetDirection(const Param1: WideString); safecall;
function Get_StreetNumber: WideString; safecall;
procedure Set_StreetNumber(const Param1: WideString); safecall;
function Get_StreetType: WideString; safecall;
procedure Set_StreetType(const Param1: WideString); safecall;
function Get_ZipCode: WideString; safecall;
procedure Set_ZipCode(const Param1: WideString); safecall;
function Get_AltStreetAddress: WideString; safecall;
procedure Set_AltStreetAddress(const Param1: WideString); safecall;
procedure validateCro; safecall;
function Get_SSLKey: WideString; safecall;
procedure Set_SSLKey(const Param1: WideString); safecall;
function Get_SSLPassword: WideString; safecall;
procedure Set_SSLPassword(const Param1: WideString); safecall;
function Get_AuthURL: WideString; safecall;
procedure Set_AuthURL(const Param1: WideString); safecall;
function Get_ServerIP: WideString; safecall;
procedure Set_ServerIP(const Param1: WideString); safecall;
function Get_ServerPort: WideString; safecall;
procedure Set_ServerPort(const Param1: WideString); safecall;
function Get_CityName: WideString; safecall;
procedure Set_CityName(const Param1: WideString); safecall;
function Get_report: OleVariant; safecall;
procedure Set_report(Param1: OleVariant); safecall;
function AuthKey: WideString; safecall;
function Get_Action: Smallint; safecall;
procedure Set_Action(Param1: Smallint); safecall;
procedure MachineRead(var Strdata: WideString); safecall;
function Get_MRBanner: OleVariant; safecall;
procedure Set_MRBanner(Param1: OleVariant); safecall;
function Get_MRID: OleVariant; safecall;
procedure Set_MRID(Param1: OleVariant); safecall;
function Get_MRAddr: OleVariant; safecall;
procedure Set_MRAddr(Param1: OleVariant); safecall;
function Get_MRAKA: OleVariant; safecall;
procedure Set_MRAKA(Param1: OleVariant); safecall;
function Get_MREmployment: OleVariant; safecall;
procedure Set_MREmployment(Param1: OleVariant); safecall;
function Get_MROtherIncome: OleVariant; safecall;
procedure Set_MROtherIncome(Param1: OleVariant); safecall;
function Get_MRChecking: OleVariant; safecall;
procedure Set_MRChecking(Param1: OleVariant); safecall;
function Get_MRSavings: OleVariant; safecall;
procedure Set_MRSavings(Param1: OleVariant); safecall;
function Get_MRFinance: OleVariant; safecall;
procedure Set_MRFinance(Param1: OleVariant); safecall;
function Get_MRConsumer: OleVariant; safecall;
procedure Set_MRConsumer(Param1: OleVariant); safecall;
function Get_MRPubRecords: OleVariant; safecall;
procedure Set_MRPubRecords(Param1: OleVariant); safecall;
function Get_MRBank: OleVariant; safecall;
procedure Set_MRBank(Param1: OleVariant); safecall;
function Get_MRTaxLein: OleVariant; safecall;
procedure Set_MRTaxLein(Param1: OleVariant); safecall;
function Get_MRMarital: OleVariant; safecall;
procedure Set_MRMarital(Param1: OleVariant); safecall;
function Get_MRCivil: OleVariant; safecall;
procedure Set_MRCivil(Param1: OleVariant); safecall;
function Get_MRRealEstate: OleVariant; safecall;
procedure Set_MRRealEstate(Param1: OleVariant); safecall;
function Get_MRMiscPubRec: OleVariant; safecall;
procedure Set_MRMiscPubRec(Param1: OleVariant); safecall;
function Get_MRDeceased: OleVariant; safecall;
procedure Set_MRDeceased(Param1: OleVariant); safecall;
function Get_MRNotice: OleVariant; safecall;
procedure Set_MRNotice(Param1: OleVariant); safecall;
function Get_MRMiscText: OleVariant; safecall;
procedure Set_MRMiscText(Param1: OleVariant); safecall;
function Get_MRInquiry: OleVariant; safecall;
procedure Set_MRInquiry(Param1: OleVariant); safecall;
function Get_MRTrad760: OleVariant; safecall;
procedure Set_MRTrad760(Param1: OleVariant); safecall;
function Get_MRTrad761: OleVariant; safecall;
procedure Set_MRTrad761(Param1: OleVariant); safecall;
function Get_MRTrad770: OleVariant; safecall;
procedure Set_MRTrad770(Param1: OleVariant); safecall;
function Get_MRError: OleVariant; safecall;
procedure Set_MRError(Param1: OleVariant); safecall;
function Get_MRRepError: OleVariant; safecall;
procedure Set_MRRepError(Param1: OleVariant); safecall;
function Get_MRDirect: OleVariant; safecall;
procedure Set_MRDirect(Param1: OleVariant); safecall;
function Get_MRFraud: OleVariant; safecall;
procedure Set_MRFraud(Param1: OleVariant); safecall;
function Get_MRScores: OleVariant; safecall;
procedure Set_MRScores(Param1: OleVariant); safecall;
function Get_MRReferral: OleVariant; safecall;
procedure Set_MRReferral(Param1: OleVariant); safecall;
function Get_MRSummary902: OleVariant; safecall;
procedure Set_MRSummary902(Param1: OleVariant); safecall;
function Get_MRSummary: OleVariant; safecall;
procedure Set_MRSummary(Param1: OleVariant); safecall;
property strStatusMessages: WideString read Get_strStatusMessages write
Set_strStatusMessages;
property AURL: WideString read Get_AURL write Set_AURL;
property StoredPassword: WideString read Get_StoredPassword write
Set_StoredPassword;
property AddressType: WideString read Get_AddressType write
Set_AddressType;
property ApartmentNumber: WideString read Get_ApartmentNumber write
Set_ApartmentNumber;
property BorrowerAge: WideString read Get_BorrowerAge write
Set_BorrowerAge;
property BorrowerFirstName: WideString read Get_BorrowerFirstName write
Set_BorrowerFirstName;
property BorrowerLastName: WideString read Get_BorrowerLastName write
Set_BorrowerLastName;
property BorrowerMiddleName: WideString read Get_BorrowerMiddleName
write Set_BorrowerMiddleName;
property BorrowerNameSuffix: WideString read Get_BorrowerNameSuffix
write Set_BorrowerNameSuffix;
property BorrowerSSN: WideString read Get_BorrowerSSN write
Set_BorrowerSSN;
property BureauOverides: WideString read Get_BureauOverides write
Set_BureauOverides;
property CredcoAcctNumber: WideString read Get_CredcoAcctNumber write
Set_CredcoAcctNumber;
property CredcoPassword: WideString read Get_CredcoPassword write
Set_CredcoPassword;
property FormerAddressType: WideString read Get_FormerAddressType write
Set_FormerAddressType;
property FormerApartmentNumber: WideString read
Get_FormerApartmentNumber write Set_FormerApartmentNumber;
property FormerCity: WideString read Get_FormerCity write
Set_FormerCity;
property FormerState: WideString read Get_FormerState write
Set_FormerState;
property FormerStreetDirection: WideString read
Get_FormerStreetDirection write Set_FormerStreetDirection;
property FormerStreetName: WideString read Get_FormerStreetName write
Set_FormerStreetName;
property FormerStreetType: WideString read Get_FormerStreetType write
Set_FormerStreetType;
property FormerZipCode: WideString read Get_FormerZipCode write
Set_FormerZipCode;
property IndividualOrJoint: WideString read Get_IndividualOrJoint write
Set_IndividualOrJoint;
property Notes: WideString read Get_Notes write Set_Notes;
property ReportFormat: WideString read Get_ReportFormat write
Set_ReportFormat;
property SpouseAge: WideString read Get_SpouseAge write Set_SpouseAge;
property SpouseFirstName: WideString read Get_SpouseFirstName write
Set_SpouseFirstName;
property SpouseLastName: WideString read Get_SpouseLastName write
Set_SpouseLastName;
property SpouseMiddleName: WideString read Get_SpouseMiddleName write
Set_SpouseMiddleName;
property SpouseNameSuffix: WideString read Get_SpouseNameSuffix write
Set_SpouseNameSuffix;
property SpouseSSN: WideString read Get_SpouseSSN write Set_SpouseSSN;
property State: WideString read Get_State write Set_State;
property StreetName: WideString read Get_StreetName write
Set_StreetName;
property StreetDirection: WideString read Get_StreetDirection write
Set_StreetDirection;
property StreetNumber: WideString read Get_StreetNumber write
Set_StreetNumber;
property StreetType: WideString read Get_StreetType write
Set_StreetType;
property ZipCode: WideString read Get_ZipCode write Set_ZipCode;
property AltStreetAddress: WideString read Get_AltStreetAddress write
Set_AltStreetAddress;
property SSLKey: WideString read Get_SSLKey write Set_SSLKey;
property SSLPassword: WideString read Get_SSLPassword write
Set_SSLPassword;
property AuthURL: WideString read Get_AuthURL write Set_AuthURL;
property ServerIP: WideString read Get_ServerIP write Set_ServerIP;
property ServerPort: WideString read Get_ServerPort write
Set_ServerPort;
property CityName: WideString read Get_CityName write Set_CityName;
property report: OleVariant read Get_report write Set_report;
property Action: Smallint read Get_Action write Set_Action;
property MRBanner: OleVariant read Get_MRBanner write Set_MRBanner;
property MRID: OleVariant read Get_MRID write Set_MRID;
property MRAddr: OleVariant read Get_MRAddr write Set_MRAddr;
property MRAKA: OleVariant read Get_MRAKA write Set_MRAKA;
property MREmployment: OleVariant read Get_MREmployment write
Set_MREmployment;
property MROtherIncome: OleVariant read Get_MROtherIncome write
Set_MROtherIncome;
property MRChecking: OleVariant read Get_MRChecking write
Set_MRChecking;
property MRSavings: OleVariant read Get_MRSavings write Set_MRSavings;
property MRFinance: OleVariant read Get_MRFinance write Set_MRFinance;
property MRConsumer: OleVariant read Get_MRConsumer write
Set_MRConsumer;
property MRPubRecords: OleVariant read Get_MRPubRecords write
Set_MRPubRecords;
property MRBank: OleVariant read Get_MRBank write Set_MRBank;
property MRTaxLein: OleVariant read Get_MRTaxLein write Set_MRTaxLein;
property MRMarital: OleVariant read Get_MRMarital write Set_MRMarital;
property MRCivil: OleVariant read Get_MRCivil write Set_MRCivil;
property MRRealEstate: OleVariant read Get_MRRealEstate write
Set_MRRealEstate;
property MRMiscPubRec: OleVariant read Get_MRMiscPubRec write
Set_MRMiscPubRec;
property MRDeceased: OleVariant read Get_MRDeceased write
Set_MRDeceased;
property MRNotice: OleVariant read Get_MRNotice write Set_MRNotice;
property MRMiscText: OleVariant read Get_MRMiscText write
Set_MRMiscText;
property MRInquiry: OleVariant read Get_MRInquiry write Set_MRInquiry;
property MRTrad760: OleVariant read Get_MRTrad760 write Set_MRTrad760;
property MRTrad761: OleVariant read Get_MRTrad761 write Set_MRTrad761;
property MRTrad770: OleVariant read Get_MRTrad770 write Set_MRTrad770;
property MRError: OleVariant read Get_MRError write Set_MRError;
property MRRepError: OleVariant read Get_MRRepError write
Set_MRRepError;
property MRDirect: OleVariant read Get_MRDirect write Set_MRDirect;
property MRFraud: OleVariant read Get_MRFraud write Set_MRFraud;
property MRScores: OleVariant read Get_MRScores write Set_MRScores;
property MRReferral: OleVariant read Get_MRReferral write
Set_MRReferral;
property MRSummary902: OleVariant read Get_MRSummary902 write
Set_MRSummary902;
property MRSummary: OleVariant read Get_MRSummary write Set_MRSummary;
end;
// *********************************************************************//
// DispIntf: _ClsCredcoDisp
// Flags: (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
// GUID: {61080727-D194-11D7-878B-00107A60F2C0}
// *********************************************************************//
_ClsCredcoDisp = dispinterface
['{61080727-D194-11D7-878B-00107A60F2C0}']
property strStatusMessages: WideString dispid 1073938432;
property AURL: WideString dispid 1073938433;
property StoredPassword: WideString dispid 1073938434;
procedure Initialize; dispid 1610809419;
property AddressType: WideString dispid 1745027146;
property ApartmentNumber: WideString dispid 1745027145;
property BorrowerAge: WideString dispid 1745027144;
property BorrowerFirstName: WideString dispid 1745027143;
property BorrowerLastName: WideString dispid 1745027142;
property BorrowerMiddleName: WideString dispid 1745027141;
property BorrowerNameSuffix: WideString dispid 1745027140;
property BorrowerSSN: WideString dispid 1745027139;
property BureauOverides: WideString dispid 1745027138;
property CredcoAcctNumber: WideString dispid 1745027137;
property CredcoPassword: WideString dispid 1745027136;
property FormerAddressType: WideString dispid 1745027135;
property FormerApartmentNumber: WideString dispid 1745027134;
property FormerCity: WideString dispid 1745027133;
property FormerState: WideString dispid 1745027132;
property FormerStreetDirection: WideString dispid 1745027131;
property FormerStreetName: WideString dispid 1745027130;
property FormerStreetType: WideString dispid 1745027129;
property FormerZipCode: WideString dispid 1745027128;
property IndividualOrJoint: WideString dispid 1745027127;
property Notes: WideString dispid 1745027126;
property ReportFormat: WideString dispid 1745027125;
property SpouseAge: WideString dispid 1745027124;
property SpouseFirstName: WideString dispid 1745027123;
property SpouseLastName: WideString dispid 1745027122;
property SpouseMiddleName: WideString dispid 1745027121;
property SpouseNameSuffix: WideString dispid 1745027120;
property SpouseSSN: WideString dispid 1745027119;
property State: WideString dispid 1745027118;
property StreetName: WideString dispid 1745027117;
property StreetDirection: WideString dispid 1745027116;
property StreetNumber: WideString dispid 1745027115;
property StreetType: WideString dispid 1745027114;
property ZipCode: WideString dispid 1745027113;
property AltStreetAddress: WideString dispid 1745027112;
procedure validateCro; dispid 1610809421;
property SSLKey: WideString dispid 1745027111;
property SSLPassword: WideString dispid 1745027110;
property AuthURL: WideString dispid 1745027109;
property ServerIP: WideString dispid 1745027108;
property ServerPort: WideString dispid 1745027107;
property CityName: WideString dispid 1745027106;
property report: OleVariant dispid 1745027105;
function AuthKey: WideString; dispid 1610809424;
property Action: Smallint dispid 1745027104;
procedure MachineRead(var Strdata: WideString); dispid 1610809425;
property MRBanner: OleVariant dispid 1745027103;
property MRID: OleVariant dispid 1745027102;
property MRAddr: OleVariant dispid 1745027101;
property MRAKA: OleVariant dispid 1745027100;
property MREmployment: OleVariant dispid 1745027099;
property MROtherIncome: OleVariant dispid 1745027098;
property MRChecking: OleVariant dispid 1745027097;
property MRSavings: OleVariant dispid 1745027096;
property MRFinance: OleVariant dispid 1745027095;
property MRConsumer: OleVariant dispid 1745027094;
property MRPubRecords: OleVariant dispid 1745027093;
property MRBank: OleVariant dispid 1745027092;
property MRTaxLein: OleVariant dispid 1745027091;
property MRMarital: OleVariant dispid 1745027090;
property MRCivil: OleVariant dispid 1745027089;
property MRRealEstate: OleVariant dispid 1745027088;
property MRMiscPubRec: OleVariant dispid 1745027087;
property MRDeceased: OleVariant dispid 1745027086;
property MRNotice: OleVariant dispid 1745027085;
property MRMiscText: OleVariant dispid 1745027084;
property MRInquiry: OleVariant dispid 1745027083;
property MRTrad760: OleVariant dispid 1745027082;
property MRTrad761: OleVariant dispid 1745027081;
property MRTrad770: OleVariant dispid 1745027080;
property MRError: OleVariant dispid 1745027079;
property MRRepError: OleVariant dispid 1745027078;
property MRDirect: OleVariant dispid 1745027077;
property MRFraud: OleVariant dispid 1745027076;
property MRScores: OleVariant dispid 1745027075;
property MRReferral: OleVariant dispid 1745027074;
property MRSummary902: OleVariant dispid 1745027073;
property MRSummary: OleVariant dispid 1745027072;
end;
// *********************************************************************//
// DispIntf: __ClsCredco
// Flags: (4240) Hidden NonExtensible Dispatchable
// GUID: {61080729-D194-11D7-878B-00107A60F2C0}
// *********************************************************************//
__ClsCredco = dispinterface
['{61080729-D194-11D7-878B-00107A60F2C0}']
procedure NewSSLPassword(var Password: WideString); dispid 1;
procedure Error(var Description: OleVariant; var Codes: OleVariant; var
Count: OleVariant); dispid 2;
procedure Status(var Code: WideString); dispid 3;
end;
CoClsCredco = class
class function Create: _ClsCredco;
class function CreateRemote(const MachineName: string): _ClsCredco;
end;
implementation
uses ComObj;
class function CoClsCredco.Create: _ClsCredco;
begin
Result := CreateComObject(CLASS_ClsCredco) as _ClsCredco;
end;
class function CoClsCredco.CreateRemote(const MachineName: string):
_ClsCredco;
begin
Result := CreateRemoteComObject(MachineName, CLASS_ClsCredco) as
_ClsCredco;
end;
end.
 
 

Re:Vb ActiveX Dll

its most likely a non supported type that MS starting using at the release or
just after of D4, i do remember something about
non supported types or incorrectly supported.
they have a way of doing things like that, simply aggravate Borland Tool
users. :)
Mike Downey writes:
Quote
My co workers use VB(Visual Basic) and I use Delphi 4 and 5. I have a project in 4 that I
can't upgrade to 5 until at least next year. I have a VB(Visual Basic) DLL that imports
into Delphi 5 ok and gives me a T class just fine. However, when I import
it into Delphi 4 it imports but doesn't give me a T class? How can I fix
this?

The methods and properties get called fine. It is the Events that I can't
get to work. Can anyone point me into the right direction?

Is there a way to use a Delphi 5 TLB file in Delphi 4 maybe?
Or is there something that I am missing.

Here is the TLB file that is imported into Delphi4 if this is any help to
you.

unit CCDLL_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.11.1.75 $
// File generated on 10/14/2003 8:08:40 AM from Type Library described
below.

// ************************************************************************
//
// Type Lib: F:\wsys\Comps\d3+\carbiz\credco\CCDLL.dll
// IID\LCID: {61080726-D194-11D7-878B-00107A60F2C0}\0
// Helpfile:
// HelpString:
// Version: 1.0
// ************************************************************************
//

interface

uses Windows, ActiveX, Classes, Graphics, 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
LIBID_CCDLL: TGUID = '{61080726-D194-11D7-878B-00107A60F2C0}';
IID__ClsCredco: TGUID = '{61080727-D194-11D7-878B-00107A60F2C0}';
DIID___ClsCredco: TGUID = '{61080729-D194-11D7-878B-00107A60F2C0}';
CLASS_ClsCredco: TGUID = '{61080728-D194-11D7-878B-00107A60F2C0}';
type

// *********************************************************************//
// Forward declaration of interfaces defined in Type Library //
// *********************************************************************//
_ClsCredco = interface;
_ClsCredcoDisp = dispinterface;
__ClsCredco = dispinterface;

// *********************************************************************//
// Declaration of CoClasses defined in Type Library //
// (NOTE: Here we map each CoClass to its Default Interface) //
// *********************************************************************//
ClsCredco = _ClsCredco;

// *********************************************************************//
// Interface: _ClsCredco
// Flags: (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
// GUID: {61080727-D194-11D7-878B-00107A60F2C0}
// *********************************************************************//
_ClsCredco = interface(IDispatch)
['{61080727-D194-11D7-878B-00107A60F2C0}']
function Get_strStatusMessages: WideString; safecall;
procedure Set_strStatusMessages(const strStatusMessages: WideString);
safecall;
function Get_AURL: WideString; safecall;
procedure Set_AURL(const AURL: WideString); safecall;
function Get_StoredPassword: WideString; safecall;
procedure Set_StoredPassword(const StoredPassword: WideString);
safecall;
procedure Initialize; safecall;
function Get_AddressType: WideString; safecall;
procedure Set_AddressType(const Param1: WideString); safecall;
function Get_ApartmentNumber: WideString; safecall;
procedure Set_ApartmentNumber(const Param1: WideString); safecall;
function Get_BorrowerAge: WideString; safecall;
procedure Set_BorrowerAge(const Param1: WideString); safecall;
function Get_BorrowerFirstName: WideString; safecall;
procedure Set_BorrowerFirstName(const Param1: WideString); safecall;
function Get_BorrowerLastName: WideString; safecall;
procedure Set_BorrowerLastName(const Param1: WideString); safecall;
function Get_BorrowerMiddleName: WideString; safecall;
procedure Set_BorrowerMiddleName(const Param1: WideString); safecall;
function Get_BorrowerNameSuffix: WideString; safecall;
procedure Set_BorrowerNameSuffix(const Param1: WideString); safecall;
function Get_BorrowerSSN: WideString; safecall;
procedure Set_BorrowerSSN(const Param1: WideString); safecall;
function Get_BureauOverides: WideString; safecall;
procedure Set_BureauOverides(const Param1: WideString); safecall;
function Get_CredcoAcctNumber: WideString; safecall;
procedure Set_CredcoAcctNumber(const Param1: WideString); safecall;
function Get_CredcoPassword: WideString; safecall;
procedure Set_CredcoPassword(const Param1: WideString); safecall;
function Get_FormerAddressType: WideString; safecall;
procedure Set_FormerAddressType(const Param1: WideString); safecall;
function Get_FormerApartmentNumber: WideString; safecall;
procedure Set_FormerApartmentNumber(const Param1: WideString); safecall;
function Get_FormerCity: WideString; safecall;
procedure Set_FormerCity(const Param1: WideString); safecall;
function Get_FormerState: WideString; safecall;
procedure Set_FormerState(const Param1: WideString); safecall;
function Get_FormerStreetDirection: WideString; safecall;
procedure Set_FormerStreetDirection(const Param1: WideString); safecall;
function Get_FormerStreetName: WideString; safecall;
procedure Set_FormerStreetName(const Param1: WideString); safecall;
function Get_FormerStreetType: WideString; safecall;
procedure Set_FormerStreetType(const Param1: WideString); safecall;
function Get_FormerZipCode: WideString; safecall;
procedure Set_FormerZipCode(const Param1: WideString); safecall;
function Get_IndividualOrJoint: WideString; safecall;
procedure Set_IndividualOrJoint(const Param1: WideString); safecall;
function Get_Notes: WideString; safecall;
procedure Set_Notes(const Param1: WideString); safecall;
function Get_ReportFormat: WideString; safecall;
procedure Set_ReportFormat(const Param1: WideString); safecall;
function Get_SpouseAge: WideString; safecall;
procedure Set_SpouseAge(const Param1: WideString); safecall;
function Get_SpouseFirstName: WideString; safecall;
procedure Set_SpouseFirstName(const Param1: WideString); safecall;
function Get_SpouseLastName: WideString; safecall;
procedure Set_SpouseLastName(const Param1: WideString); safecall;
function Get_SpouseMiddleName: WideString; safecall;
procedure Set_SpouseMiddleName(const Param1: WideString); safecall;
function Get_SpouseNameSuffix: WideString; safecall;
procedure Set_SpouseNameSuffix(const Param1: WideString); safecall;
function Get_SpouseSSN: WideString; safecall;
procedure Set_SpouseSSN(const Param1: WideString); safecall;
function Get_State: WideString; safecall;
procedure Set_State(const Param1: WideString); safecall;
function Get_StreetName: WideString; safecall;
procedure Set_StreetName(const Param1: WideString); safecall;
function Get_StreetDirection: WideString; safecall;
procedure Set_StreetDirection(const Param1: WideString); safecall;
function Get_StreetNumber: WideString; safecall;
procedure Set_StreetNumber(const Param1: WideString); safecall;
function Get_StreetType: WideString; safecall;
procedure Set_StreetType(const Param1: WideString); safecall;
function Get_ZipCode: WideString; safecall;
procedure Set_ZipCode(const Param1: WideString); safecall;
function Get_AltStreetAddress: WideString; safecall;
procedure Set_AltStreetAddress(const Param1: WideString); safecall;
procedure validateCro; safecall;
function Get_SSLKey: WideString; safecall;
procedure Set_SSLKey(const Param1: WideString); safecall;
function Get_SSLPassword: WideString; safecall;
procedure Set_SSLPassword(const Param1: WideString); safecall;
function Get_AuthURL: WideString; safecall;
procedure Set_AuthURL(const Param1: WideString); safecall;
function Get_ServerIP: WideString; safecall;
procedure Set_ServerIP(const Param1: WideString); safecall;
function Get_ServerPort: WideString; safecall;
procedure Set_ServerPort(const Param1: WideString); safecall;
function Get_CityName: WideString; safecall;
procedure Set_CityName(const Param1: WideString); safecall;
function Get_report: OleVariant; safecall;
procedure Set_report(Param1: OleVariant); safecall;
function AuthKey: WideString; safecall;
function Get_Action: Smallint; safecall;
procedure Set_Action(Param1: Smallint); safecall;
procedure MachineRead(var Strdata: WideString); safecall;
function Get_MRBanner: OleVariant; safecall;
procedure Set_MRBanner(Param1: OleVariant); safecall;
function Get_MRID: OleVariant; safecall;
procedure Set_MRID(Param1: OleVariant); safecall;
function Get_MRAddr: OleVariant; safecall;
procedure Set_MRAddr(Param1: OleVariant); safecall;
function Get_MRAKA: OleVariant; safecall;
procedure Set_MRAKA(Param1: OleVariant); safecall;
function Get_MREmployment: OleVariant; safecall;
procedure Set_MREmployment(Param1: OleVariant); safecall;
function Get_MROtherIncome: OleVariant; safecall;
procedure Set_MROtherIncome(Param1: OleVariant); safecall;
function Get_MRChecking: OleVariant; safecall;
procedure Set_MRChecking(Param1: OleVariant); safecall;
function Get_MRSavings: OleVariant; safecall;
procedure Set_MRSavings(Param1: OleVariant); safecall;
function Get_MRFinance: OleVariant; safecall;
procedure Set_MRFinance(Param1: OleVariant); safecall;
function Get_MRConsumer: OleVariant; safecall;
procedure Set_MRConsumer(Param1: OleVariant); safecall;
function Get_MRPubRecords: OleVariant; safecall;
procedure Set_MRPubRecords(Param1: OleVariant); safecall;
function Get_MRBank: OleVariant; safecall;
procedure Set_MRBank(Param1: OleVariant); safecall;
function Get_MRTaxLein: OleVariant; safecall;
procedure Set_MRTaxLein(Param1: OleVariant); safecall;
function Get_MRMarital: OleVariant; safecall;
procedure Set_MRMarital(Param1: OleVariant); safecall;
function Get_MRCivil: OleVariant; safecall;
procedure Set_MRCivil(Param1: OleVariant); safecall;
function Get_MRRealEstate: OleVariant; safecall;
procedure Set_MRRealEstate(Param1: OleVariant); safecall;
function Get_MRMiscPubRec: OleVariant; safecall;
procedure Set_MRMiscPubRec(Param1: OleVariant); safecall;
function Get_MRDeceased: OleVariant; safecall;
procedure Set_MRDeceased(Param1: OleVariant); safecall;
function Get_MRNotice: OleVariant; safecall;
procedure Set_MRNotice(Param1: OleVariant); safecall;
function Get_MRMiscText: OleVariant; safecall;
procedure Set_MRMiscText(Param1: OleVariant); safecall;
function Get_MRInquiry: OleVariant; safecall;
procedure Set_MRInquiry(Param1: OleVariant); safecall;
function Get_MRTrad760: OleVariant; safecall;
procedure Set_MRTrad760(Param1: OleVariant); safecall;
function Get_MRTrad761: OleVariant; safecall;
procedure Set_MRTrad761(Param1: OleVariant); safecall;
function Get_MRTrad770: OleVariant; safecall;
procedure Set_MRTrad770(Param1: OleVariant); safecall;
function Get_MRError: OleVariant; safecall;
procedure Set_MRError(Param1: OleVariant); safecall;
function Get_MRRepError: OleVariant; safecall;
procedure Set_MRRepError(Param1: OleVariant); safecall;
function Get_MRDirect: OleVariant; safecall;
procedure Set_MRDirect(Param1: OleVariant); safecall;
function Get_MRFraud: OleVariant; safecall;
procedure Set_MRFraud(Param1: OleVariant); safecall;
function Get_MRScores: OleVariant; safecall;
procedure Set_MRScores(Param1: OleVariant); safecall;
function Get_MRReferral: OleVariant; safecall;
procedure Set_MRReferral(Param1: OleVariant); safecall;
function Get_MRSummary902: OleVariant; safecall;
procedure Set_MRSummary902(Param1: OleVariant); safecall;
function Get_MRSummary: OleVariant; safecall;
procedure Set_MRSummary(Param1: OleVariant); safecall;
property strStatusMessages: WideString read Get_strStatusMessages write
Set_strStatusMessages;
property AURL: WideString read Get_AURL write Set_AURL;
property StoredPassword: WideString read Get_StoredPassword write
Set_StoredPassword;
property AddressType: WideString read Get_AddressType write
Set_AddressType;
property ApartmentNumber: WideString read Get_ApartmentNumber write
Set_ApartmentNumber;
property BorrowerAge: WideString read Get_BorrowerAge write
Set_BorrowerAge;
property BorrowerFirstName: WideString read Get_BorrowerFirstName write
Set_BorrowerFirstName;
property BorrowerLastName: WideString read Get_BorrowerLastName write
Set_BorrowerLastName;
property BorrowerMiddleName: WideString read Get_BorrowerMiddleName
write Set_BorrowerMiddleName;
property BorrowerNameSuffix: WideString read Get_BorrowerNameSuffix
write Set_BorrowerNameSuffix;
property BorrowerSSN: WideString read Get_BorrowerSSN write
Set_BorrowerSSN;
property BureauOverides: WideString read Get_BureauOverides write
Set_BureauOverides;
property CredcoAcctNumber: WideString read Get_CredcoAcctNumber write
Set_CredcoAcctNumber;
property CredcoPassword: WideString read Get_CredcoPassword write
Set_CredcoPassword;
property FormerAddressType: WideString read Get_FormerAddressType write
Set_FormerAddressType;
property FormerApartmentNumber: WideString read
Get_FormerApartmentNumber write Set_FormerApartmentNumber;
property FormerCity: WideString read Get_FormerCity write
Set_FormerCity;
property FormerState: WideString read Get_FormerState write
Set_FormerState;
property FormerStreetDirection: WideString read
Get_FormerStreetDirection write Set_FormerStreetDirection;
property FormerStreetName: WideString read Get_FormerStreetName write
Set_FormerStreetName;
property FormerStreetType: WideString read Get_FormerStreetType write
Set_FormerStreetType;
property FormerZipCode: WideString read Get_FormerZipCode write
Set_FormerZipCode;
property IndividualOrJoint: WideString read Get_IndividualOrJoint write
Set_IndividualOrJoint;
property Notes: WideString read Get_Notes write Set_Notes;
property ReportFormat: WideString read Get_ReportFormat write
Set_ReportFormat;
property SpouseAge: WideString read Get_SpouseAge write Set_SpouseAge;
property SpouseFirstName: WideString read Get_SpouseFirstName write
Set_SpouseFirstName;
property SpouseLastName: WideString read Get_SpouseLastName write
Set_SpouseLastName;
property SpouseMiddleName: WideString read Get_SpouseMiddleName write
Set_SpouseMiddleName;
property SpouseNameSuffix: WideString read Get_SpouseNameSuffix write
Set_SpouseNameSuffix;
property SpouseSSN: WideString read Get_SpouseSSN write Set_SpouseSSN;
property State: WideString read Get_State write Set_State;
property StreetName: WideString read Get_StreetName write
Set_StreetName;
property StreetDirection: WideString read Get_StreetDirection write
Set_StreetDirection;
property StreetNumber: WideString read Get_StreetNumber write
Set_StreetNumber;
property StreetType: WideString read Get_StreetType write
Set_StreetType;
property ZipCode: WideString read Get_ZipCode write Set_ZipCode;
property AltStreetAddress: WideString read Get_AltStreetAddress write
Set_AltStreetAddress;
property SSLKey: WideString read Get_SSLKey write Set_SSLKey;
property SSLPassword: WideString read Get_SSLPassword write
Set_SSLPassword;
property AuthURL: WideString read Get_AuthURL write Set_AuthURL;
property ServerIP: WideString read Get_ServerIP write Set_ServerIP;
property ServerPort: WideString read Get_ServerPort write
Set_ServerPort;
property CityName: WideString read Get_CityName write Set_CityName;
property report: OleVariant read Get_report write Set_report;
property Action: Smallint read Get_Action write Set_Action;
property MRBanner: OleVariant read Get_MRBanner write Set_MRBanner;
property MRID: OleVariant read Get_MRID write Set_MRID;
property MRAddr: OleVariant read Get_MRAddr write Set_MRAddr;
property MRAKA: OleVariant read Get_MRAKA write Set_MRAKA;
property MREmployment: OleVariant read Get_MREmployment write
Set_MREmployment;
property MROtherIncome: OleVariant read Get_MROtherIncome write
Set_MROtherIncome;
property MRChecking: OleVariant read Get_MRChecking write
Set_MRChecking;
property MRSavings: OleVariant read Get_MRSavings write Set_MRSavings;
property MRFinance: OleVariant read Get_MRFinance write Set_MRFinance;
property MRConsumer: OleVariant read Get_MRConsumer write
Set_MRConsumer;
property MRPubRecords: OleVariant read Get_MRPubRecords write
Set_MRPubRecords;
property MRBank: OleVariant read Get_MRBank write Set_MRBank;
property MRTaxLein: OleVariant read Get_MRTaxLein write Set_MRTaxLein;
property MRMarital: OleVariant read Get_MRMarital write Set_MRMarital;
property MRCivil: OleVariant read Get_MRCivil write Set_MRCivil;
property MRRealEstate: OleVariant read Get_MRRealEstate write
Set_MRRealEstate;
property MRMiscPubRec: OleVariant read Get_MRMiscPubRec write
Set_MRMiscPubRec;
property MRDeceased: OleVariant read Get_MRDeceased write
Set_MRDeceased;
property MRNotice: OleVariant read Get_MRNotice write Set_MRNotice;
property MRMiscText: OleVariant read Get_MRMiscText write
Set_MRMiscText;
property MRInquiry: OleVariant read Get_MRInquiry write Set_MRInquiry;
property MRTrad760: OleVariant read Get_MRTrad760 write Set_MRTrad760;
property MRTrad761: OleVariant read Get_MRTrad761 write Set_MRTrad761;
property MRTrad770: OleVariant read Get_MRTrad770 write Set_MRTrad770;
property MRError: OleVariant read Get_MRError write Set_MRError;
property MRRepError: OleVariant read Get_MRRepError write
Set_MRRepError;
property MRDirect: OleVariant read Get_MRDirect write Set_MRDirect;
property MRFraud: OleVariant read Get_MRFraud write Set_MRFraud;
property MRScores: OleVariant read Get_MRScores write Set_MRScores;
property MRReferral: OleVariant read Get_MRReferral write
Set_MRReferral;
property MRSummary902: OleVariant read Get_MRSummary902 write
Set_MRSummary902;
property MRSummary: OleVariant read Get_MRSummary write Set_MRSummary;
end;

// *********************************************************************//
// DispIntf: _ClsCredcoDisp
// Flags: (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
// GUID: {61080727-D194-11D7-878B-00107A60F2C0}
// *********************************************************************//
_ClsCredcoDisp = dispinterface
['{61080727-D194-11D7-878B-00107A60F2C0}']
property strStatusMessages: WideString dispid 1073938432;
property AURL: WideString dispid 1073938433;
property StoredPassword: WideString dispid 1073938434;
procedure Initialize; dispid 1610809419;
property AddressType: WideString dispid 1745027146;
property ApartmentNumber: WideString dispid 1745027145;
property BorrowerAge: WideString dispid 1745027144;
property BorrowerFirstName: WideString dispid 1745027143;
property BorrowerLastName: WideString dispid 1745027142;
property BorrowerMiddleName: WideString dispid 1745027141;
property BorrowerNameSuffix: WideString dispid 1745027140;
property BorrowerSSN: WideString dispid 1745027139;
property BureauOverides: WideString dispid 1745027138;
property CredcoAcctNumber: WideString dispid 1745027137;
property CredcoPassword: WideString dispid 1745027136;
property FormerAddressType: WideString dispid 1745027135;
property FormerApartmentNumber: WideString dispid 1745027134;
property FormerCity: WideString dispid 1745027133;
property FormerState: WideString dispid 1745027132;
property FormerStreetDirection: WideString dispid 1745027131;
property FormerStreetName: WideString dispid 1745027130;
property FormerStreetType: WideString dispid 1745027129;
property FormerZipCode: WideString dispid 1745027128;
property IndividualOrJoint: WideString dispid 1745027127;
property Notes: WideString dispid 1745027126;
property ReportFormat: WideString dispid 1745027125;
property SpouseAge: WideString dispid 1745027124;
property SpouseFirstName: WideString dispid 1745027123;
property SpouseLastName: WideString dispid 1745027122;
property SpouseMiddleName: WideString dispid 1745027121;
property SpouseNameSuffix: WideString dispid 1745027120;
property SpouseSSN: WideString dispid 1745027119;
property State: WideString dispid 1745027118;
property StreetName: WideString dispid 1745027117;
property StreetDirection: WideString dispid 1745027116;
property StreetNumber: WideString dispid 1745027115;
property StreetType: WideString dispid 1745027114;
property ZipCode: WideString dispid 1745027113;
property AltStreetAddress: WideString dispid 1745027112;
procedure validateCro; dispid 1610809421;
property SSLKey: WideString dispid 1745027111;
property SSLPassword: WideString dispid 1745027110;
property AuthURL: WideString dispid 1745027109;
property ServerIP: WideString dispid 1745027108;
property ServerPort: WideString dispid 1745027107;
property CityName: WideString dispid 1745027106;
property report: OleVariant dispid 1745027105;
function AuthKey: WideString; dispid 1610809424;
property Action: Smallint dispid 1745027104;
procedure MachineRead(var Strdata: WideString); dispid 1610809425;
property MRBanner: OleVariant dispid 1745027103;
property MRID: OleVariant dispid 1745027102;
property MRAddr: OleVariant dispid 1745027101;
property MRAKA: OleVariant dispid 1745027100;
property MREmployment: OleVariant dispid 1745027099;
property MROtherIncome: OleVariant dispid 1745027098;
property MRChecking: OleVariant dispid 1745027097;
property MRSavings: OleVariant dispid 1745027096;
property MRFinance: OleVariant dispid 1745027095;
property MRConsumer: OleVariant dispid 1745027094;
property MRPubRecords: OleVariant dispid 1745027093;
property MRBank: OleVariant dispid 1745027092;
property MRTaxLein: OleVariant dispid 1745027091;
property MRMarital: OleVariant dispid 1745027090;
property MRCivil: OleVariant dispid 1745027089;
property MRRealEstate: OleVariant dispid 1745027088;
property MRMiscPubRec: OleVariant dispid 1745027087;
property MRDeceased: OleVariant dispid 1745027086;
property MRNotice: OleVariant dispid 1745027085;
property MRMiscText: OleVariant dispid 1745027084;
property MRInquiry: OleVariant dispid 1745027083;
property MRTrad760: OleVariant dispid 1745027082;
property MRTrad761: OleVariant dispid 1745027081;
property MRTrad770: OleVariant dispid 1745027080;
property MRError: OleVariant dispid 1745027079;
property MRRepError: OleVariant dispid 1745027078;
property MRDirect: OleVariant dispid 1745027077;
property MRFraud: OleVariant dispid 1745027076;
property MRScores: OleVariant dispid 1745027075;
property MRReferral: OleVariant dispid 1745027074;
property MRSummary902: OleVariant dispid 1745027073;
property MRSummary: OleVariant dispid 1745027072;
end;

// *********************************************************************//
// DispIntf: __ClsCredco
// Flags: (4240) Hidden NonExtensible Dispatchable
// GUID: {61080729-D194-11D7-878B-00107A60F2C0}
// *********************************************************************//
__ClsCredco = dispinterface
['{61080729-D194-11D7-878B-00107A60F2C0}']
procedure NewSSLPassword(var Password: WideString); dispid 1;
procedure Error(var Description: OleVariant; var Codes: OleVariant; var
Count: OleVariant); dispid 2;
procedure Status(var Code: WideString); dispid 3;
end;

CoClsCredco = class
class function Create: _ClsCredco;
class function CreateRemote(const MachineName: string): _ClsCredco;
end;

implementation

uses ComObj;

class function CoClsCredco.Create: _ClsCredco;
begin
Result := CreateComObject(CLASS_ClsCredco) as _ClsCredco;
end;

class function CoClsCredco.CreateRemote(const MachineName: string):
_ClsCredco;
begin
Result := CreateRemoteComObject(MachineName, CLASS_ClsCredco) as
_ClsCredco;
end;

end.