EK 1: myeDB_TLB.Pas

Ek 1: MyeDB_TLB.PAS

unit myeDB_TLB;

// PASTLWTR : 1.2
// File generated on 17.10.2012 15:54:42 from Type Library described below.
// ************************************************************************ //
// Type Lib: C:\v12xx\Final\myeDB.dll (1)
// LIBID: {61131C9A-52C5-4775-99F9-07B29C72DBBF}
// LCID: 0
// Helpfile:
// HelpString: myeDB Library
// DepndLst:
// (1) v2.0 stdole, (C:\WINDOWS\system32\stdole2.tlb)
// Errors:
// Error creating palette bitmap of (TmyeMain) : List index out of bounds (2)
// ************************************************************************ //
// *************************************************************************//
// NOTE:
// Items guarded by $IFDEF_LIVE_SERVER_AT_DESIGN_TIME are used by properties
// which return objects that may need to be explicitly created via a function
// call prior to any access via the property. These items have been disabled
// in order to prevent accidental use from within the object inspector. You
// may enable them by defining LIVE_SERVER_AT_DESIGN_TIME or by selectively
// removing them from the $IFDEF blocks. However, such items must still be
// programmatically created via a method of the appropriate CoClass before
// they can be used.
{$TYPEDADDRESS OFF} // Unit must be compiled without type-checked pointers.
{$WARN SYMBOL_PLATFORM OFF}
{$WRITEABLECONST ON}
{$VARPROPSETTER ON}
interface

uses Windows, ActiveX, Classes, Graphics, OleServer, StdVCL, Variants;
// *********************************************************************//
// 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
myeDBMajorVersion = 1;
myeDBMinorVersion = 0;

LIBID_myeDB: TGUID = '{61131C9A-52C5-4775-99F9-07B29C72DBBF}';

IID_ImyeMain: TGUID = '{E4EC91BB-2D81-49DF-A540-355737FEE726}';
DIID_ImyeMainEvents: TGUID = '{F0D09343-3D68-495A-9C91-E22EE510F8FA}';
CLASS_myeMain: TGUID = '{03156457-CF65-4FFC-A2EF-976EA35036AE}';
type

// *********************************************************************//
// Forward declaration of types defined in TypeLibrary
// *********************************************************************//
ImyeMain = interface;
ImyeMainDisp = dispinterface;
ImyeMainEvents = dispinterface;

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

// *********************************************************************//
// Interface: ImyeMain
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {E4EC91BB-2D81-49DF-A540-355737FEE726}
// *********************************************************************//
ImyeMain = interface(IDispatch)
['{E4EC91BB-2D81-49DF-A540-355737FEE726}']
function ImportASCII(iTableNo: Integer; iParamNo: Integer; const sFileName: WideString): SYSINT; safecall;
function ExportASCII(iTableNo: Integer; iParamNo: Integer; const sFileName: WideString): SYSINT; safecall;
function ImportXML(const sFileName: WideString): SYSINT; safecall;
function ExportXML(iTableNo: Integer; iParamNo: Integer; const sFileName: WideString): SYSINT; safecall;
function LogIn(const sFirmaKodu: WideString; iCalismaYili: Integer; const sKullanici: WideString; const sSifre: WideString): SYSINT; safecall;
function LogOff: SYSINT; safecall;
function Get_Logged: SYSINT; safecall;
function EvrakImportXML(const strXML: WideString; const strXSL: WideString): SYSINT; safecall;
function ImportXML2(const sFileName: WideString; const sLogFileName: WideString): SYSINT; safecall;
function EvrakImportXML2(const strXML: WideString; const strXSL: WideString; const strLog: WideString): SYSINT; safecall;
procedure ValidateUser(const UserCode: WideString; const UserPass: WideString; var Valid_fl: Shortint); safecall;
property Logged: SYSINT read Get_Logged;
end;

// *********************************************************************//
// DispIntf: ImyeMainDisp
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {E4EC91BB-2D81-49DF-A540-355737FEE726}
// *********************************************************************//
ImyeMainDisp = dispinterface
['{E4EC91BB-2D81-49DF-A540-355737FEE726}']
function ImportASCII(iTableNo: Integer; iParamNo: Integer; const sFileName: WideString): SYSINT; dispid 2;
function ExportASCII(iTableNo: Integer; iParamNo: Integer; const sFileName: WideString): SYSINT; dispid 3;
function ImportXML(const sFileName: WideString): SYSINT; dispid 4;
function ExportXML(iTableNo: Integer; iParamNo: Integer; const sFileName: WideString): SYSINT; dispid 5;
function LogIn(const sFirmaKodu: WideString; iCalismaYili: Integer; const sKullanici: WideString; const sSifre: WideString): SYSINT; dispid 6;
function LogOff: SYSINT; dispid 1;
property Logged: SYSINT readonly dispid 7;
function EvrakImportXML(const strXML: WideString; const strXSL: WideString): SYSINT; dispid 8;
function ImportXML2(const sFileName: WideString; const sLogFileName: WideString): SYSINT; dispid 9;
function EvrakImportXML2(const strXML: WideString; const strXSL: WideString; const strLog: WideString): SYSINT; dispid 10;
procedure ValidateUser(const UserCode: WideString; const UserPass: WideString; var Valid_fl: {??Shortint}OleVariant); dispid 201;
end;

// *********************************************************************//
// DispIntf: ImyeMainEvents
// Flags: (4096) Dispatchable
// GUID: {F0D09343-3D68-495A-9C91-E22EE510F8FA}
// *********************************************************************//
ImyeMainEvents = dispinterface
['{F0D09343-3D68-495A-9C91-E22EE510F8FA}']
procedure onError; dispid 1;
end;

// *********************************************************************//
// The Class ComyeMain provides a Create and CreateRemote method to
// create instances of the default interface ImyeMain exposed by
// the CoClass myeMain. The functions are intended to be used by
// clients wishing to automate the CoClass objects exposed by the
// server of this typelibrary.
// *********************************************************************//
ComyeMain = class
class function Create: ImyeMain;
class function CreateRemote(const MachineName: string): ImyeMain;
end;

// *********************************************************************//
// OLE Server Proxy class declaration
// Server Object : TmyeMain
// Help String : myeMain Object
// Default Interface: ImyeMain
// Def. Intf. DISP? : No
// Event Interface: ImyeMainEvents
// TypeFlags : (2) CanCreate
// *********************************************************************//
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
TmyeMainProperties= class;
{$ENDIF}
TmyeMain = class(TOleServer)
private
FOnonError: TNotifyEvent;
FIntf: ImyeMain;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
FProps: TmyeMainProperties;
function GetServerProperties: TmyeMainProperties;
{$ENDIF}
function GetDefaultInterface: ImyeMain;
protected
procedure InitServerData; override;
procedure InvokeEvent(DispID: TDispID; var Params: TVariantArray); override;
function Get_Logged: SYSINT;
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
procedure Connect; override;
procedure ConnectTo(svrIntf: ImyeMain);
procedure Disconnect; override;
function ImportASCII(iTableNo: Integer; iParamNo: Integer; const sFileName: WideString): SYSINT;
function ExportASCII(iTableNo: Integer; iParamNo: Integer; const sFileName: WideString): SYSINT;
function ImportXML(const sFileName: WideString): SYSINT;
function ExportXML(iTableNo: Integer; iParamNo: Integer; const sFileName: WideString): SYSINT;
function LogIn(const sFirmaKodu: WideString; iCalismaYili: Integer; const sKullanici: WideString; const sSifre: WideString): SYSINT;
function LogOff: SYSINT;
function EvrakImportXML(const strXML: WideString; const strXSL: WideString): SYSINT;
function ImportXML2(const sFileName: WideString; const sLogFileName: WideString): SYSINT;
function EvrakImportXML2(const strXML: WideString; const strXSL: WideString; const strLog: WideString): SYSINT;
procedure ValidateUser(const UserCode: WideString; const UserPass: WideString; var Valid_fl: Shortint);
property DefaultInterface: ImyeMain read GetDefaultInterface;
property Logged: SYSINT read Get_Logged;
published
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
property Server: TmyeMainProperties read GetServerProperties;
{$ENDIF}
property OnonError: TNotifyEvent read FOnonError write FOnonError;
end;

{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
// *********************************************************************//
// OLE Server Properties Proxy Class
// Server Object : TmyeMain
// (This object is used by the IDE's Property Inspector to allow editing
// of the properties of this server)
// *********************************************************************//
TmyeMainProperties = class(TPersistent)
private
FServer: TmyeMain;
function GetDefaultInterface: ImyeMain;
constructor Create(AServer: TmyeMain);
protected
function Get_Logged: SYSINT;
public
property DefaultInterface: ImyeMain read GetDefaultInterface;
published
end;
{$ENDIF}

procedure Register;

resourcestring dtlServerPage = '(none)';

dtlOcxPage = '(none)';

implementation

uses ComObj;

class function ComyeMain.Create: ImyeMain;
begin
Result := CreateComObject(CLASS_myeMain) as ImyeMain;
end;

class function ComyeMain.CreateRemote(const MachineName: string): ImyeMain;
begin
Result := CreateRemoteComObject(MachineName, CLASS_myeMain) as ImyeMain;
end;

procedure TmyeMain.InitServerData;
const
CServerData: TServerData = (
ClassID: '{03156457-CF65-4FFC-A2EF-976EA35036AE}';
IntfIID: '{E4EC91BB-2D81-49DF-A540-355737FEE726}';
EventIID: '{F0D09343-3D68-495A-9C91-E22EE510F8FA}';
LicenseKey: nil;
Version: 500);
begin
ServerData := @CServerData;
end;

procedure TmyeMain.Connect;
var
punk: IUnknown;
begin
if FIntf = nil then
begin
punk := GetServer;
ConnectEvents(punk);
Fintf:= punk as ImyeMain;
end;
end;

procedure TmyeMain.ConnectTo(svrIntf: ImyeMain);
begin
Disconnect;
FIntf := svrIntf;
ConnectEvents(FIntf);
end;

procedure TmyeMain.DisConnect;
begin
if Fintf <> nil then
begin
DisconnectEvents(FIntf);
FIntf := nil;
end;
end;

function TmyeMain.GetDefaultInterface: ImyeMain;
begin
if FIntf = nil then
Connect;
Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
Result := FIntf;
end;

constructor TmyeMain.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
FProps := TmyeMainProperties.Create(Self);
{$ENDIF}
end;

destructor TmyeMain.Destroy;
begin
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
FProps.Free;
{$ENDIF}
inherited Destroy;
end;

{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
function TmyeMain.GetServerProperties: TmyeMainProperties;
begin
Result := FProps;
end;
{$ENDIF}

procedure TmyeMain.InvokeEvent(DispID: TDispID; var Params: TVariantArray);
begin
case DispID of
-1: Exit; // DISPID_UNKNOWN
1: if Assigned(FOnonError) then
FOnonError(Self);
end; {case DispID}
end;

function TmyeMain.Get_Logged: SYSINT;
begin
Result := DefaultInterface.Logged;
end;
function TmyeMain.ImportASCII(iTableNo: Integer; iParamNo: Integer; const sFileName: WideString): SYSINT;
begin
Result := DefaultInterface.ImportASCII(iTableNo, iParamNo, sFileName);
end;

function TmyeMain.ExportASCII(iTableNo: Integer; iParamNo: Integer; const sFileName: WideString): SYSINT;
begin
Result := DefaultInterface.ExportASCII(iTableNo, iParamNo, sFileName);
end;

function TmyeMain.ImportXML(const sFileName: WideString): SYSINT;
begin
Result := DefaultInterface.ImportXML(sFileName);
end;

function TmyeMain.ExportXML(iTableNo: Integer; iParamNo: Integer; const sFileName: WideString): SYSINT;
begin
Result := DefaultInterface.ExportXML(iTableNo, iParamNo, sFileName);
end;

function TmyeMain.LogIn(const sFirmaKodu: WideString; iCalismaYili: Integer; const sKullanici: WideString; const sSifre: WideString): SYSINT;
begin
Result := DefaultInterface.LogIn(sFirmaKodu, iCalismaYili, sKullanici, sSifre);
end;

function TmyeMain.LogOff: SYSINT;
begin
Result := DefaultInterface.LogOff;
end;

function TmyeMain.EvrakImportXML(const strXML: WideString; const strXSL: WideString): SYSINT;
begin
Result := DefaultInterface.EvrakImportXML(strXML, strXSL);
end;

function TmyeMain.ImportXML2(const sFileName: WideString; const sLogFileName: WideString): SYSINT;
begin
Result := DefaultInterface.ImportXML2(sFileName, sLogFileName);
end;

function TmyeMain.EvrakImportXML2(const strXML: WideString; const strXSL: WideString; const strLog: WideString): SYSINT;
begin
Result := DefaultInterface.EvrakImportXML2(strXML, strXSL, strLog);
end;

procedure TmyeMain.ValidateUser(const UserCode: WideString; const UserPass: WideString; var Valid_fl: Shortint);
begin
DefaultInterface.ValidateUser(UserCode, UserPass, Valid_fl);
end;

{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
constructor TmyeMainProperties.Create(AServer: TmyeMain);
begin
inherited Create;
FServer := AServer;
end;

function TmyeMainProperties.GetDefaultInterface: ImyeMain;
begin
Result := FServer.DefaultInterface;
end;

function TmyeMainProperties.Get_Logged: SYSINT;
begin
Result := DefaultInterface.Logged;
end;

{$ENDIF}
procedure Register;
begin
RegisterComponents(dtlServerPage, [TmyeMain]);
end;

end.