(M)eine Seite für 40tude Dialog

  • Schrift vergrößern
  • Standard-Schriftgröße
  • Schriftgröße verkleinern
Home » 40tude Dialog » Script!nfo » Allgemein

Scripte - Einbindung eines INCLUDE-Files

E-Mail Drucken PDF
Beitragsseiten
Scripte
Was sind INCLUDE-Files?
Einbindung eines INCLUDE-Files
INI-Dateien
Autonome Scripte
Versionsnummern

Einbindung eines INCLUDE-Files

Die Einbindung eines INCLUDE-Files in ein (Ereignis-)Script erfolgt eigentlich stets mit den selben 3 Schritten.

  1. Lade dir das ZIP-File mit dem Script herunter und entpacke bei geschlossenem Dialog die darin enthaltende Datei "NameDesIncludeFiles.ds" in das Programmverzeichnis von 40tude Dialog ins Unterverzeichnis Scripts\Custom.
  2. Starte anschließend den Dialog mit der Scriptverwaltung und binde das INCLUDE-File in das entsprechende (Ereignis-)Script ein. Gehe wie folgt dabei vor:
    • Suche im (Ereignis-)Script die Zeile mit dem Code "program xxx;"
      xxx steht dabei für den Namen des jeweiligen (Ereignis-)Scripts, z.B. OnStartup
    • Füge unterhalb dieser Codezeile das INCLUDE-File mit folgender Syntax ein
      {$I NameDesIncludeFiles}
      Program OnBeforeSendingMessage;
      
      {$I NameDesIncludeFiles}
      
  3. Jetzt muß nur noch die Funktion eingebunden werden, damit der Code auch ausgeführt wird. Wie die Funktion heißt und mit welchen Parametern diese eingetragen werden muß, wird bei den Infos zu den jeweiligen INCLUDE-Files stets mit angegeben.
    • Suche die Zeile mit dem Code "End;", den mit dem Strichpunkt/Semikolon am Ende
    • Füge oberhalb dieser Zeile die Funktion ein, die ausgeführt werden soll
      Begin
        //Your code goes here
        //Return false to prevent sending the passed message
        result := true;
        
        FunktionDesIncludeFiles (Message, IsEmail);
      
      End;
      
      Begin
      End.
      

 

Was tun, wenn an den angegeben Positionen schon etwas steht?

In den meisten Fällen findest du an den angegeben Positionen schon ein INCLUDE oder einen Code vor. Füge dann die neuen Codezeilen direkt über oder unter die vorhandenen Zeile(n) ein.

Program OnBeforeSendingMessage;

{$I NameDesIncludeFiles1}
{$I NameDesIncludeFiles2}

Function OnBeforeSendingMessage(
  Var   Message    : TStringlist;
  Const Servername : String;
  Const IsEmail    : Boolean
) : Boolean;

Begin
  //Your code goes here
  //Return false to prevent sending the passed message
  result := true;
  
  FunktionDesIncludeFiles2(Message, IsEmail);
  FunktionDesIncludeFiles1(Message);

End;  // function OnBeforeSendingMessage()

Begin
End.

 


Das wars dann eigentlich auch schon. Jetzt noch das (Ereignis-)Script kompillieren und gegebenenfalls ausführen - fertig.



Zuletzt aktualisiert am Sonntag, den 09. Oktober 2011 um 17:10 Uhr