TIBXLogInserterUnit.pas 1.1 KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455
  1. {
  2. Copyright 2005-2006 Log4Delphi Project
  3. Licensed under the Apache License, Version 2.0 (the "License");
  4. you may not use this file except in compliance with the License.
  5. You may obtain a copy of the License at
  6. http://www.apache.org/licenses/LICENSE-2.0
  7. Unless required by applicable law or agreed to in writing, software
  8. distributed under the License is distributed on an "AS IS" BASIS,
  9. WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
  10. See the License for the specific language governing permissions and
  11. limitations under the License.
  12. }
  13. unit TIBXLogInserterUnit;
  14. interface
  15. uses
  16. TDBLogInserterUnit, TLoggingEventUnit;
  17. type
  18. TIBXLogInserter = class (TDBLogInserter)
  19. protected
  20. public
  21. constructor Create(ASQL : String);
  22. destructor Destroy; Override;
  23. procedure Insert(AEvent : TLoggingEvent); Override;
  24. end;
  25. implementation
  26. uses
  27. SysUtils, TLogLogUnit;
  28. constructor TIBXLogInserter.Create( ASQL : String);
  29. begin
  30. inherited Create;
  31. end;
  32. destructor TIBXLogInserter.Destroy;
  33. begin
  34. end;
  35. procedure TIBXLogInserter.Insert(AEvent : TLoggingEvent);
  36. begin
  37. end;
  38. end.