unit Replication;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, ComCtrls, StdCtrls, DB,
  edbcomps;

type
  TReplicationForm = class(TForm)
    LoadUpdatesSP: TEDBStoredProc;
    SendUpdatesSP: TEDBStoredProc;
    ServerSession: TEDBSession;
    Server_ExportFilesSP: TEDBStoredProc;
    Server_ImportFilesSP: TEDBStoredProc;
    ClientSession: TEDBSession;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure SendUpdatesSPStatusMessage(Sender: TObject; const StatusMessage: AnsiString);
    procedure ServerSessionBeforeConnect(Sender: TObject);

  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
    procedure SendUpdates;
    procedure LoadUpdates;
  end;

var
  ReplicationForm: TReplicationForm;

implementation

{$R *.dfm}

procedure TReplicationForm.LoadUpdates;
begin
  Screen.Cursor := crHourglass;
  try
    try
      Server_ImportFilesSP.ExecProc;
      Server_ExportFilesSP.ExecProc;
      LoadUpdatesSP.ExecProc;
    except
      Application.MessageBox('Der Server ist nicht erreichbar. Die Daten sind möglicherweise nicht aktuell.', 'Replication', 64);
    end;
  finally
    Screen.Cursor := crDefault;
  end;
end;

procedure TReplicationForm.SendUpdates;
begin
  Screen.Cursor := crHourglass;
  try
    try
      SendUpdatesSP.ExecProc;
    except
      Application.MessageBox('Der Server ist nicht erreichbar. Derzeit kein Upload von Änderungen möglich.', 'Replication', 64);
    end;
  finally
    Screen.Cursor := crDefault;
  end;
end;

procedure TReplicationForm.SendUpdatesSPStatusMessage(Sender: TObject; const StatusMessage: AnsiString);
begin
  //MemoLog.Lines.add(StatusMessage);
end;

procedure TReplicationForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action := caFree;
end;

procedure TReplicationForm.ServerSessionBeforeConnect(Sender: TObject);
begin
  ServerSession.RemoteAddress := 'xxx.xxx.xxx.xxx';
end;

end.