library PluginTestDome;

{ Remarque importante concernant la gestion de mémoire des DLL : ShareMem doit être
  la première unité de la clause USES de votre bibliothèque ET de votre projet
  (sélectionnez Projet-Voir source) si votre DLL exporte des procédures ou des
  fonctions qui passent des chaînes comme paramètres ou résultats de fonctions.
  Ceci s'applique à toutes les chaînes passées de et vers votre DLL - même celles
  qui sont imbriquées dans des enregistrements et classes. ShareMem est l'unité d'interface pour
  le gestionnaire de mémoire partagée BORLNDMM.DLL, qui doit être déployé avec
  vos DLLs. Pour éviter d'utiliser BORLNDMM.DLL, passez les informations de chaînes
  avec des paramètres PChar ou ShortString.}

uses
  SysUtils,
  Classes;


var
   DomeIsOpen:Boolean; // The state of the dome : True if open / False if closed

{$R *.RES}

function PluginIsConnectedAndOK:Boolean; cdecl;
// This function must test if the dome is connected and working correctly and return
// true is it is the case, false else
// It is called by TeleAuto at every connection of the dome
begin
// Allways true for the virtual dome
Result:=True;
end;

procedure PluginOpenDome; cdecl;
// This function must execute the commands to open the dome
// It is called by TeleAuto when the user clic on the button 'Open' of the dome pad
begin
// Put here the commands to open the dome
DomeIsOpen:=True;
end;

procedure PluginCloseDome; cdecl;
// This function must execute the commands to close the dome
// It is called by TeleAuto when the user clic on the button 'Close' of the dome pad
begin
// Put here the commands to close the dome
DomeIsOpen:=False;
end;

function PluginIsOpen:Boolean; cdecl;
// This function is used to know the state  of the dome
// It must return True if the  dome is open and False if the dome is closed
// It is called once every second by TeleAuto to update the dome state in the dome pad
begin
Result:=DomeIsOpen;
end;

// these three procedures have been added to allow the position of the dome opening
// to be controlled from TeleAuto.

function PluginNeedCoordinates:Boolean; cdecl;
// True if the dome position can be controled
begin
Result:=True;
end;

function PluginSetAzimuth(Azimuth:Double):Boolean; cdecl;
// Sets the azimuth of the dome opening to the value specified in degrees
// It must return True if the dome accepted it
begin
Result:=True;
end;

function PluginSetAltitude(Altitude:Double):Boolean; cdecl;
// Sets the altitude of the dome opening
// It must return True if the dome accepted it
begin
Result:=True;
end;

procedure PluginClose; cdecl;
// This function is called when the user disconnect the dome or quit TeleAuto
// Here you can put code to close the dome and switch it off
begin
end;

exports

PluginIsConnectedAndOK,
PluginOpenDome,
PluginCloseDome,
PluginIsOpen,
PluginNeedCoordinates,
PluginSetAzimuth,
PluginSetAltitude,
PluginClose;

begin
end.