unit DStBs1Main;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type
  TDlgStBs1Main = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DlgStBs1Main: TDlgStBs1Main;

implementation

uses
  STLabGuardModule;

{$R *.dfm}

procedure TDlgStBs1Main.Button1Click(Sender: TObject);
var
  nResult: Integer;
  sKeyPath,
  sOutPath, sOutData: AnsiString;
begin
  sKeyPath := 'C:\taskToCSG\Tocsg.Module\Snaptag4BS1\OUT_Debug - Win64\poc_labcurity_S.txt';
  sOutPath := 'C:\taskToCSG\Tocsg.Module\Snaptag4BS1\OUT_Debug - Win64\»õ Æú´õ\output.png';

  nResult := labGuardPS(sKeyPath, sOutPath, 2, 3, 97, FormatDateTime('yyyy/mm/dd hh:nn', Now), sOutData);
  if nResult = 0 then
    ShowMessage('¼º°ø : ' + sOutData)
  else
    ShowMessage('½ÇÆÐ : ' + IntToStr(nResult));
end;

end.