edisdk_tlb.pas

East make Tray Icon in delphi

    property Options: Byte read Get_Options write Set_Options;
  end;
{$ENDIF}


procedure Register;

implementation

uses ComObj;

class function CoEDICOMDelimiters.Create: IEDICOMDelimiters;
begin
  Result := CreateComObject(CLASS_EDICOMDelimiters) as IEDICOMDelimiters;
end;

class function CoEDICOMDelimiters.CreateRemote(const MachineName: string): IEDICOMDelimiters;
begin
  Result := CreateRemoteComObject(MachineName, CLASS_EDICOMDelimiters) as IEDICOMDelimiters;
end;

class function CoEDICOMElement.Create: IEDICOMElement;
begin
  Result := CreateComObject(CLASS_EDICOMElement) as IEDICOMElement;
end;

class function CoEDICOMElement.CreateRemote(const MachineName: string): IEDICOMElement;
begin
  Result := CreateRemoteComObject(MachineName, CLASS_EDICOMElement) as IEDICOMElement;
end;

class function CoEDICOMSegment.Create: IEDICOMSegment;
begin
  Result := CreateComObject(CLASS_EDICOMSegment) as IEDICOMSegment;
end;

class function CoEDICOMSegment.CreateRemote(const MachineName: string): IEDICOMSegment;
begin
  Result := CreateRemoteComObject(MachineName, CLASS_EDICOMSegment) as IEDICOMSegment;
end;

class function CoEDICOMTransactionSet.Create: IEDICOMTransactionSet;
begin
  Result := CreateComObject(CLASS_EDICOMTransactionSet) as IEDICOMTransactionSet;
end;

class function CoEDICOMTransactionSet.CreateRemote(const MachineName: string): IEDICOMTransactionSet;
begin
  Result := CreateRemoteComObject(MachineName, CLASS_EDICOMTransactionSet) as IEDICOMTransactionSet;
end;

class function CoEDICOMFunctionalGroup.Create: IEDICOMFunctionalGroup;
begin
  Result := CreateComObject(CLASS_EDICOMFunctionalGroup) as IEDICOMFunctionalGroup;
end;

class function CoEDICOMFunctionalGroup.CreateRemote(const MachineName: string): IEDICOMFunctionalGroup;
begin
  Result := CreateRemoteComObject(MachineName, CLASS_EDICOMFunctionalGroup) as IEDICOMFunctionalGroup;
end;

class function CoEDICOMInterchangeControl.Create: IEDICOMInterchangeControl;
begin
  Result := CreateComObject(CLASS_EDICOMInterchangeControl) as IEDICOMInterchangeControl;
end;

class function CoEDICOMInterchangeControl.CreateRemote(const MachineName: string): IEDICOMInterchangeControl;
begin
  Result := CreateRemoteComObject(MachineName, CLASS_EDICOMInterchangeControl) as IEDICOMInterchangeControl;
end;

class function CoEDICOMFile.Create: IEDICOMFile;
begin
  Result := CreateComObject(CLASS_EDICOMFile) as IEDICOMFile;
end;

class function CoEDICOMFile.CreateRemote(const MachineName: string): IEDICOMFile;
begin
  Result := CreateRemoteComObject(MachineName, CLASS_EDICOMFile) as IEDICOMFile;
end;

procedure TEDICOMFile.InitServerData;
const
  CServerData: TServerData = (
    ClassID:   '{E8400822-5701-4226-8F78-A784B3777CB9}';
    IntfIID:   '{DEA6D2C3-98EE-4276-AA08-0AB4F1AEAC0F}';
    EventIID:  '';
    LicenseKey: nil;
    Version: 500);
begin
  ServerData := @CServerData;
end;

procedure TEDICOMFile.Connect;
var
  punk: IUnknown;
begin
  if FIntf = nil then
  begin
    punk := GetServer;
    Fintf:= punk as IEDICOMFile;
  end;
end;

procedure TEDICOMFile.ConnectTo(svrIntf: IEDICOMFile);
begin
  Disconnect;
  FIntf := svrIntf;
end;

procedure TEDICOMFile.DisConnect;
begin
  if Fintf <> nil then
  begin
    FIntf := nil;
  end;
end;

function TEDICOMFile.GetDefaultInterface: IEDICOMFile;
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 TEDICOMFile.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  FProps := TEDICOMFileProperties.Create(Self);
{$ENDIF}
end;

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

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

function  TEDICOMFile.Get_State: Integer;
begin
  Result := DefaultInterface.Get_State;
end;

function  TEDICOMFile.Get_Data: WideString;
begin
  Result := DefaultInterface.Get_Data;
end;

procedure TEDICOMFile.Set_Data(const Value: WideString);
begin
  DefaultInterface.Set_Data(Value);
end;

function  TEDICOMFile.Get_DataLength: Integer;
begin
  Result := DefaultInterface.Get_DataLength;
end;

function  TEDICOMFile.Get_Delimiters: IEDICOMDelimiters;
begin
  Result := DefaultInterface.Get_Delimiters;
end;

function  TEDICOMFile.Get_FileName: WideString;
begin
  Result := DefaultInterface.Get_FileName;
end;

procedure TEDICOMFile.Set_FileName(const Value: WideString);
begin
  DefaultInterface.Set_FileName(Value);
end;

function  TEDICOMFile.Get_Interchange(Index: Integer): IEDICOMInterchangeControl;
begin
  Result := DefaultInterface.Get_Interchange(Index);
end;

function  TEDICOMFile.Get_Options: Byte;
begin
  Result := DefaultInterface.Get_Options;
end;

procedure TEDICOMFile.Set_Options(Value: Byte);
begin
  DefaultInterface.Set_Options(Value);
end;

function  TEDICOMFile.Get_InterchangeCount: Integer;
begin
  Result := DefaultInterface.Get_InterchangeCount;
end;

function  TEDICOMFile.Assemble: WideString;
begin
  Result := DefaultInterface.Assemble;
end;

procedure TEDICOMFile.Disassemble;
begin
  DefaultInterface.Disassemble;
end;

procedure TEDICOMFile.LoadFromFile(const FileName: WideString);
begin
  DefaultInterface.LoadFromFile(FileName);
end;

procedure TEDICOMFile.ReLoadFromFile;
begin
  DefaultInterface.ReLoadFromFile;
end;

procedure TEDICOMFile.SaveToFile;
begin
  DefaultInterface.SaveToFile;
end;

procedure TEDICOMFile.SaveAsToFile(const FileName: WideString);
begin
  DefaultInterface.SaveAsToFile(FileName);
end;

function  TEDICOMFile.AddInterchange: Integer;
begin
  Result := DefaultInterface.AddInterchange;
end;

function  TEDICOMFile.InsertInterchange(InsertIndex: Integer): Integer;
begin
  Result := DefaultInterface.InsertInterchange(InsertIndex);
end;

procedure TEDICOMFile.DeleteInterchange(Index: Integer);
begin
  DefaultInterface.DeleteInterchange(Index);
end;

function  TEDICOMFile.AddInterchanges(Count: Integer): Integer;
begin
  Result := DefaultInterface.AddInterchanges(Count);
end;

function  TEDICOMFile.InsertInterchanges(InsertIndex: Integer; Count: Integer): Integer;
begin
  Result := DefaultInterface.InsertInterchanges(InsertIndex, Count);
end;

procedure TEDICOMFile.DeleteInterchanges;
begin
  DefaultInterface.DeleteInterchanges;
end;

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

function TEDICOMFileProperties.GetDefaultInterface: IEDICOMFile;
begin
  Result := FServer.DefaultInterface;
end;

function  TEDICOMFileProperties.Get_State: Integer;
begin
  Result := DefaultInterface.Get_State;
end;

function  TEDICOMFileProperties.Get_Data: WideString;
begin
  Result := DefaultInterface.Get_Data;
end;

procedure TEDICOMFileProperties.Set_Data(const Value: WideString);
begin
  DefaultInterface.Set_Data(Value);
end;

function  TEDICOMFileProperties.Get_DataLength: Integer;
begin
  Result := DefaultInterface.Get_DataLength;
end;

function  TEDICOMFileProperties.Get_Delimiters: IEDICOMDelimiters;
begin
  Result := DefaultInterface.Get_Delimiters;
end;

function  TEDICOMFileProperties.Get_FileName: WideString;
begin
  Result := DefaultInterface.Get_FileName;
end;

procedure TEDICOMFileProperties.Set_FileName(const Value: WideString);
begin
  DefaultInterface.Set_FileName(Value);
end;

function  TEDICOMFileProperties.Get_Interchange(Index: Integer): IEDICOMInterchangeControl;
begin
  Result := DefaultInterface.Get_Interchange(Index);
end;

function  TEDICOMFileProperties.Get_Options: Byte;
begin
  Result := DefaultInterface.Get_Options;
end;

procedure TEDICOMFileProperties.Set_Options(Value: Byte);
begin
  DefaultInterface.Set_Options(Value);
end;

function  TEDICOMFileProperties.Get_InterchangeCount: Integer;
begin
  Result := DefaultInterface.Get_InterchangeCount;
end;

{$ENDIF}

procedure Register;
begin
  RegisterComponents('ActiveX',[TEDICOMFile]);
end;

end.