Componentes.Terceros.RemObjects/internal/5.0.29.665/1/Data Abstract for Delphi/Samples/Dynamic SQL/DynSQLServerMain.pas

unit DynSQLServerMain;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, uROClient, uROBINMessage, uROClientIntf, uROServer, uROIndyHTTPServer,
  uROIndyTCPServer, uROPoweredByRemObjectsButton, SyncObjs,
  uDAClasses, uDADriverManager, uDAEngine, uDAADODriver;

type
  TDynSQLServerMainForm = class(TForm)
    ROMessage: TROBINMessage;
    ROServer: TROIndyHTTPServer;
    RoPoweredByRemObjectsButton1: TRoPoweredByRemObjectsButton;
    DADriverManager: TDADriverManager;
    DAConnectionManager: TDAConnectionManager;
    DAADODriver: TDAADODriver;
    Memo: TMemo;
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
    CriticalSection: TCriticalSection;
  public
    { Public declarations }
    procedure LOG(str: string);
  end;

var
  DynSQLServerMainForm: TDynSQLServerMainForm;

implementation

{$R *.dfm}

{ TDynSQLServerMainForm }

procedure TDynSQLServerMainForm.LOG(str: string);
begin
  CriticalSection.Enter;
  try
    Memo.Lines.Add(str);
  finally
    CriticalSection.Leave;
  end;
end;

procedure TDynSQLServerMainForm.FormCreate(Sender: TObject);
begin
  CriticalSection := TCriticalSection.Create;
  Button1Click(Self);
end;

procedure TDynSQLServerMainForm.FormDestroy(Sender: TObject);
begin
  CriticalSection.Free;
end;

procedure TDynSQLServerMainForm.Button1Click(Sender: TObject);
begin
  CriticalSection.Enter;
  try
    Memo.Clear;
  finally
    CriticalSection.Leave;
  end;
end;

end.