unit Chilkat.AuthAzureStorage;

{
  Pascal wrapper for Chilkat AuthAzureStorage.
  Auto-generated by PascalWrapperGenerator -- do not edit manually.
}

{$IFDEF FPC}
  {$MODE DELPHI}
{$ENDIF}

interface

uses
  SysUtils,
  Chilkat.Base;

type

  { TAuthAzureStorage wraps CkAuthAzureStorage via the C bridge layer. }
  TAuthAzureStorage = class(TChilkatBase)
  private
    function  GetLastErrorHtml: string;
    function  GetLastErrorText: string;
    function  GetLastErrorXml: string;
    function  GetVersion: string;
    function  GetDebugLogFilePath: string;
    procedure SetDebugLogFilePath(AValue: string);
    function  GetVerboseLogging: Boolean;
    procedure SetVerboseLogging(AValue: Boolean);
    function  GetLastMethodSuccess: Boolean;
    procedure SetLastMethodSuccess(AValue: Boolean);
    function  GetAccessKey: string;
    procedure SetAccessKey(AValue: string);
    function  GetAccount: string;
    procedure SetAccount(AValue: string);
    function  GetScheme: string;
    procedure SetScheme(AValue: string);
    function  GetService: string;
    procedure SetService(AValue: string);
    function  GetXMsVersion: string;
    procedure SetXMsVersion(AValue: string);
  public
    constructor Create;
    destructor  Destroy; override;

    property LastErrorHtml: string read GetLastErrorHtml;
    property LastErrorText: string read GetLastErrorText;
    property LastErrorXml: string read GetLastErrorXml;
    property Version: string read GetVersion;
    property DebugLogFilePath: string read GetDebugLogFilePath write SetDebugLogFilePath;
    property VerboseLogging: Boolean read GetVerboseLogging write SetVerboseLogging;
    property LastMethodSuccess: Boolean read GetLastMethodSuccess write SetLastMethodSuccess;
    property AccessKey: string read GetAccessKey write SetAccessKey;
    property Account: string read GetAccount write SetAccount;
    property Scheme: string read GetScheme write SetScheme;
    property Service: string read GetService write SetService;
    property XMsVersion: string read GetXMsVersion write SetXMsVersion;

    procedure Noop;
  end;

implementation

uses
  CkDllLoader,
  Chilkat.Utils;

{ ---- C bridge function pointer types ---- }
type
  TCkAuthAzureStorage_Create  = function(): Pointer; cdecl;
  TCkAuthAzureStorage_Dispose = procedure(handle: Pointer); cdecl;
  TCkAuthAzureStorage_get_LastErrorHtml = function(handle: Pointer): PAnsiChar; cdecl;
  TCkAuthAzureStorage_get_LastErrorText = function(handle: Pointer): PAnsiChar; cdecl;
  TCkAuthAzureStorage_get_LastErrorXml = function(handle: Pointer): PAnsiChar; cdecl;
  TCkAuthAzureStorage_get_Version = function(handle: Pointer): PAnsiChar; cdecl;
  TCkAuthAzureStorage_get_DebugLogFilePath = function(handle: Pointer): PAnsiChar; cdecl;
  TCkAuthAzureStorage_put_DebugLogFilePath = procedure(handle: Pointer; value: PAnsiChar); cdecl;
  TCkAuthAzureStorage_get_VerboseLogging = function(handle: Pointer): LongBool; cdecl;
  TCkAuthAzureStorage_put_VerboseLogging = procedure(handle: Pointer; value: LongBool); cdecl;
  TCkAuthAzureStorage_get_LastMethodSuccess = function(handle: Pointer): LongBool; cdecl;
  TCkAuthAzureStorage_put_LastMethodSuccess = procedure(handle: Pointer; value: LongBool); cdecl;
  TCkAuthAzureStorage_get_AccessKey = function(handle: Pointer): PAnsiChar; cdecl;
  TCkAuthAzureStorage_put_AccessKey = procedure(handle: Pointer; value: PAnsiChar); cdecl;
  TCkAuthAzureStorage_get_Account = function(handle: Pointer): PAnsiChar; cdecl;
  TCkAuthAzureStorage_put_Account = procedure(handle: Pointer; value: PAnsiChar); cdecl;
  TCkAuthAzureStorage_get_Scheme = function(handle: Pointer): PAnsiChar; cdecl;
  TCkAuthAzureStorage_put_Scheme = procedure(handle: Pointer; value: PAnsiChar); cdecl;
  TCkAuthAzureStorage_get_Service = function(handle: Pointer): PAnsiChar; cdecl;
  TCkAuthAzureStorage_put_Service = procedure(handle: Pointer; value: PAnsiChar); cdecl;
  TCkAuthAzureStorage_get_XMsVersion = function(handle: Pointer): PAnsiChar; cdecl;
  TCkAuthAzureStorage_put_XMsVersion = procedure(handle: Pointer; value: PAnsiChar); cdecl;
  TCkAuthAzureStorage_Noop = procedure(handle: Pointer); cdecl;

{ ---- C bridge function pointer variables ---- }
var
  CkAuthAzureStorage_Create:  TCkAuthAzureStorage_Create  = nil;
  CkAuthAzureStorage_Dispose: TCkAuthAzureStorage_Dispose = nil;
  CkAuthAzureStorage_get_LastErrorHtml: TCkAuthAzureStorage_get_LastErrorHtml = nil;
  CkAuthAzureStorage_get_LastErrorText: TCkAuthAzureStorage_get_LastErrorText = nil;
  CkAuthAzureStorage_get_LastErrorXml: TCkAuthAzureStorage_get_LastErrorXml = nil;
  CkAuthAzureStorage_get_Version: TCkAuthAzureStorage_get_Version = nil;
  CkAuthAzureStorage_get_DebugLogFilePath: TCkAuthAzureStorage_get_DebugLogFilePath = nil;
  CkAuthAzureStorage_put_DebugLogFilePath: TCkAuthAzureStorage_put_DebugLogFilePath = nil;
  CkAuthAzureStorage_get_VerboseLogging: TCkAuthAzureStorage_get_VerboseLogging = nil;
  CkAuthAzureStorage_put_VerboseLogging: TCkAuthAzureStorage_put_VerboseLogging = nil;
  CkAuthAzureStorage_get_LastMethodSuccess: TCkAuthAzureStorage_get_LastMethodSuccess = nil;
  CkAuthAzureStorage_put_LastMethodSuccess: TCkAuthAzureStorage_put_LastMethodSuccess = nil;
  CkAuthAzureStorage_get_AccessKey: TCkAuthAzureStorage_get_AccessKey = nil;
  CkAuthAzureStorage_put_AccessKey: TCkAuthAzureStorage_put_AccessKey = nil;
  CkAuthAzureStorage_get_Account: TCkAuthAzureStorage_get_Account = nil;
  CkAuthAzureStorage_put_Account: TCkAuthAzureStorage_put_Account = nil;
  CkAuthAzureStorage_get_Scheme: TCkAuthAzureStorage_get_Scheme = nil;
  CkAuthAzureStorage_put_Scheme: TCkAuthAzureStorage_put_Scheme = nil;
  CkAuthAzureStorage_get_Service: TCkAuthAzureStorage_get_Service = nil;
  CkAuthAzureStorage_put_Service: TCkAuthAzureStorage_put_Service = nil;
  CkAuthAzureStorage_get_XMsVersion: TCkAuthAzureStorage_get_XMsVersion = nil;
  CkAuthAzureStorage_put_XMsVersion: TCkAuthAzureStorage_put_XMsVersion = nil;
  CkAuthAzureStorage_Noop: TCkAuthAzureStorage_Noop = nil;

constructor TAuthAzureStorage.Create;
begin
  inherited Create;
  FHandle := CkAuthAzureStorage_Create();
end;

destructor TAuthAzureStorage.Destroy;
begin
  if FHandle <> nil then
    CkAuthAzureStorage_Dispose(FHandle);
  FHandle := nil;
  inherited;
end;

function TAuthAzureStorage.GetLastErrorHtml: string;
begin
  Result := CkToStr(CkAuthAzureStorage_get_LastErrorHtml(FHandle));
end;

function TAuthAzureStorage.GetLastErrorText: string;
begin
  Result := CkToStr(CkAuthAzureStorage_get_LastErrorText(FHandle));
end;

function TAuthAzureStorage.GetLastErrorXml: string;
begin
  Result := CkToStr(CkAuthAzureStorage_get_LastErrorXml(FHandle));
end;

function TAuthAzureStorage.GetVersion: string;
begin
  Result := CkToStr(CkAuthAzureStorage_get_Version(FHandle));
end;

function TAuthAzureStorage.GetDebugLogFilePath: string;
begin
  Result := CkToStr(CkAuthAzureStorage_get_DebugLogFilePath(FHandle));
end;

procedure TAuthAzureStorage.SetDebugLogFilePath(AValue: string);
begin
  CkAuthAzureStorage_put_DebugLogFilePath(FHandle, PAnsiChar(StrToCk(AValue)));
end;

function TAuthAzureStorage.GetVerboseLogging: Boolean;
begin
  Result := Boolean(CkAuthAzureStorage_get_VerboseLogging(FHandle));
end;

procedure TAuthAzureStorage.SetVerboseLogging(AValue: Boolean);
begin
  CkAuthAzureStorage_put_VerboseLogging(FHandle, LongBool(AValue));
end;

function TAuthAzureStorage.GetLastMethodSuccess: Boolean;
begin
  Result := Boolean(CkAuthAzureStorage_get_LastMethodSuccess(FHandle));
end;

procedure TAuthAzureStorage.SetLastMethodSuccess(AValue: Boolean);
begin
  CkAuthAzureStorage_put_LastMethodSuccess(FHandle, LongBool(AValue));
end;

function TAuthAzureStorage.GetAccessKey: string;
begin
  Result := CkToStr(CkAuthAzureStorage_get_AccessKey(FHandle));
end;

procedure TAuthAzureStorage.SetAccessKey(AValue: string);
begin
  CkAuthAzureStorage_put_AccessKey(FHandle, PAnsiChar(StrToCk(AValue)));
end;

function TAuthAzureStorage.GetAccount: string;
begin
  Result := CkToStr(CkAuthAzureStorage_get_Account(FHandle));
end;

procedure TAuthAzureStorage.SetAccount(AValue: string);
begin
  CkAuthAzureStorage_put_Account(FHandle, PAnsiChar(StrToCk(AValue)));
end;

function TAuthAzureStorage.GetScheme: string;
begin
  Result := CkToStr(CkAuthAzureStorage_get_Scheme(FHandle));
end;

procedure TAuthAzureStorage.SetScheme(AValue: string);
begin
  CkAuthAzureStorage_put_Scheme(FHandle, PAnsiChar(StrToCk(AValue)));
end;

function TAuthAzureStorage.GetService: string;
begin
  Result := CkToStr(CkAuthAzureStorage_get_Service(FHandle));
end;

procedure TAuthAzureStorage.SetService(AValue: string);
begin
  CkAuthAzureStorage_put_Service(FHandle, PAnsiChar(StrToCk(AValue)));
end;

function TAuthAzureStorage.GetXMsVersion: string;
begin
  Result := CkToStr(CkAuthAzureStorage_get_XMsVersion(FHandle));
end;

procedure TAuthAzureStorage.SetXMsVersion(AValue: string);
begin
  CkAuthAzureStorage_put_XMsVersion(FHandle, PAnsiChar(StrToCk(AValue)));
end;

procedure TAuthAzureStorage.Noop;
begin
  CkAuthAzureStorage_Noop(FHandle);
end;

initialization
  Chilkat_GetProcedureAddress(CkAuthAzureStorage_Create,  'CkAuthAzureStorage_Create');
  Chilkat_GetProcedureAddress(CkAuthAzureStorage_Dispose, 'CkAuthAzureStorage_Dispose');
  Chilkat_GetProcedureAddress(CkAuthAzureStorage_get_LastErrorHtml, 'CkAuthAzureStorage_get_LastErrorHtml');
  Chilkat_GetProcedureAddress(CkAuthAzureStorage_get_LastErrorText, 'CkAuthAzureStorage_get_LastErrorText');
  Chilkat_GetProcedureAddress(CkAuthAzureStorage_get_LastErrorXml, 'CkAuthAzureStorage_get_LastErrorXml');
  Chilkat_GetProcedureAddress(CkAuthAzureStorage_get_Version, 'CkAuthAzureStorage_get_Version');
  Chilkat_GetProcedureAddress(CkAuthAzureStorage_get_DebugLogFilePath, 'CkAuthAzureStorage_get_DebugLogFilePath');
  Chilkat_GetProcedureAddress(CkAuthAzureStorage_put_DebugLogFilePath, 'CkAuthAzureStorage_put_DebugLogFilePath');
  Chilkat_GetProcedureAddress(CkAuthAzureStorage_get_VerboseLogging, 'CkAuthAzureStorage_get_VerboseLogging');
  Chilkat_GetProcedureAddress(CkAuthAzureStorage_put_VerboseLogging, 'CkAuthAzureStorage_put_VerboseLogging');
  Chilkat_GetProcedureAddress(CkAuthAzureStorage_get_LastMethodSuccess, 'CkAuthAzureStorage_get_LastMethodSuccess');
  Chilkat_GetProcedureAddress(CkAuthAzureStorage_put_LastMethodSuccess, 'CkAuthAzureStorage_put_LastMethodSuccess');
  Chilkat_GetProcedureAddress(CkAuthAzureStorage_get_AccessKey, 'CkAuthAzureStorage_get_AccessKey');
  Chilkat_GetProcedureAddress(CkAuthAzureStorage_put_AccessKey, 'CkAuthAzureStorage_put_AccessKey');
  Chilkat_GetProcedureAddress(CkAuthAzureStorage_get_Account, 'CkAuthAzureStorage_get_Account');
  Chilkat_GetProcedureAddress(CkAuthAzureStorage_put_Account, 'CkAuthAzureStorage_put_Account');
  Chilkat_GetProcedureAddress(CkAuthAzureStorage_get_Scheme, 'CkAuthAzureStorage_get_Scheme');
  Chilkat_GetProcedureAddress(CkAuthAzureStorage_put_Scheme, 'CkAuthAzureStorage_put_Scheme');
  Chilkat_GetProcedureAddress(CkAuthAzureStorage_get_Service, 'CkAuthAzureStorage_get_Service');
  Chilkat_GetProcedureAddress(CkAuthAzureStorage_put_Service, 'CkAuthAzureStorage_put_Service');
  Chilkat_GetProcedureAddress(CkAuthAzureStorage_get_XMsVersion, 'CkAuthAzureStorage_get_XMsVersion');
  Chilkat_GetProcedureAddress(CkAuthAzureStorage_put_XMsVersion, 'CkAuthAzureStorage_put_XMsVersion');
  Chilkat_GetProcedureAddress(CkAuthAzureStorage_Noop, 'CkAuthAzureStorage_Noop');

end.
