lazarus-ccr/components/flashfiler/sourcelaz/ffclbase.pas

{*********************************************************}
{* FlashFiler: Client base unit                          *}
{*********************************************************}

(* ***** BEGIN LICENSE BLOCK *****
 * Version: MPL 1.1
 *
 * The contents of this file are subject to the Mozilla Public License Version
 * 1.1 (the "License"); you may not use this file except in compliance with
 * the License. You may obtain a copy of the License at
 * http://www.mozilla.org/MPL/
 *
 * Software distributed under the License is distributed on an "AS IS" basis,
 * WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License
 * for the specific language governing rights and limitations under the
 * License.
 *
 * The Original Code is TurboPower FlashFiler
 *
 * The Initial Developer of the Original Code is
 * TurboPower Software
 *
 * Portions created by the Initial Developer are Copyright (C) 1996-2002
 * the Initial Developer. All Rights Reserved.
 *
 * Contributor(s):
 *
 * ***** END LICENSE BLOCK ***** *)


{$I ffdefine.inc}

unit ffclbase;

interface

uses
  ffsrbde,
  ffllexcp,
  ffllbase,
  ffllprot,
  ffsrmgr;

{$R ffclcnst.res}

{$I ffclcfg.inc}

var
  ffStrResClient : TffStringResource;

function GetErrorStringPrim(aResult : TffResult; aStrZ : PChar) : TffResult;

implementation

function GetErrorStringPrim(aResult : TffResult; aStrZ : PChar) : TffResult;
begin
  ffStrResBDE.GetASCIIZ(aResult, aStrZ, sizeof(DBIMSG));
  Result := DBIERR_NONE;
end;

procedure InitializeUnit;
begin
  ffStrResClient := nil;
  ffStrResClient := TffStringResource.Create(hInstance, 'FF_CLIENT_STRINGS');
end;

procedure FinalizeUnit;
begin
  ffStrResClient.Free;
end;

initialization
  InitializeUnit;

finalization
  FinalizeUnit;

end.