Import mit Serverprozeduren (Beispiel)

Home

4D v16

Folgendes Beispiel zeigt, wie sich der Datenimport im Client/Server-Betrieb enorm beschleunigen lässt. Mit der Projektmethode Regulärer Import können Sie testen, wie lange es dauert, mit dem Befehl IMPORT TEXT Datensätze auf der Arbeitsstation zu importieren:

  ` Regulärer Import

 $vhDocRef:=Open document("")

 If(OK=1)

    CLOSE DOCUMENT($vhDocRef)

    INPUT FORM([Table1];"Import")

    $vhStartTime:=Current time

    IMPORT TEXT([Table1];Document)

    $vhEndTime:=Current time

    ALERT("Es dauerte "+String(0+($vhEndTime-$vhStartTime))+" Sekunden.")

 End if

Mit dieser Methode analysiert 4D die Textdatei, erstellt dann für jeden Datensatz einen neuen Datensatz, füllt die Datenfelder mit den importierten Daten und sendet den Datensatz zum Server-Rechner, damit er der Datenbank hinzugefügt wird. Demzufolge laufen viele Anfragen über das Netzwerk. Diese Operation lässt sich mit einer Serverprozedur optimieren, da sie dann lokal auf dem Server-Rechner ausgeführt wird. Der Client-Rechner lädt das Dokument in ein BLOB, startet dann eine Serverprozedur, die das BLOB als Parameter übergibt. Die Serverprozedur speichert das BLOB in einem Dokument auf der Festplatte des Server-Rechners und importiert dann das Dokument lokal. Der Datenimport wird demnach lokal ausgeführt (mit einer Geschwindigkeit, die mit 4D im lokalen Modus vergleichbar ist), da die meisten Anfragen über das Netzwerk eliminiert wurden.

Es folgt die Projektmethode CLIENT IMPORT. Sie wird auf dem Client-Rechner ausgeführt und ruft die Serverprozedur SERVER IMPORT auf:

  ` Projektmethode CLIENT IMPORT

  ` CLIENT IMPORT ( Pointer ; Text)

  ` CLIENT IMPORT ( -> [Table] ; Input form )

 

 C_POINTER($1)

 C_TEXT($2)

 C_TIME($vhDocRef)

 C_BLOB($vxData)

 C_LONGINT(spErrCode)

 

  ` Wähle das zu importierende Dokument

 $vhDocRef:=Open document("")

 If(OK=1)

  ` Wurde ein Dokument ausgewählt, schließe es

    CLOSE DOCUMENT($vhDocRef)

    $vhStartTime:=Current time

  ` Versuche, es in den Speicher zu laden

    DOCUMENT TO BLOB(Document;$vxData)

    If(OK=1)

  ` Konnte das Dokument in das BLOB geladen werden,

  ` Starte die Serverprozedur, die die Daten auf dem Server-Rechner importiert.

       $spProcessID:=Execute on server("SERVER IMPORT";32*1024;

       "Server Import Services";Table($1);$2;$vxData)

  ` Wir benötigen das BLOB nicht länger in diesem Prozess

       CLEAR VARIABLE($vxData)

  ` Warte bis die Operation durch die Serverprozedur vollständig ausgeführt ist

       Repeat

          DELAY PROCESS(Current process;300)

          GET PROCESS VARIABLE($spProcessID;spErrCode;spErrCode)

          If(Undefined(spErrCode))

  ` <strong>Hinweis:</strong> Hat die Serverprozedur nicht ihre eigene Instanz der Variablen spErrCode

  ` initialisiert, wird evtl. eine undefinierte Variable zurückgegeben

             spErrCode:=1

          End if

       Until(spErrCode<=0)

  ` Teile derServerprozedur mit, dass wir bestätigen

       spErrCode:=1

       SET PROCESS VARIABLE($spProcessID;spErrCode;spErrCode)

       $vhEndTime:=Current time

       ALERT("Es dauerte "+String(0+($vhEndTime-$vhStartTime))+" Sekunden.")

    Else

       ALERT("Es gibt nicht genügend Speicher, um das Dokument zu laden.")

    End if

 End if

Es folgt die Projektmethode SERVER IMPORT, ausgeführt als Serverprozedur:

  ` Projektmethode SERVER IMPORT

  ` SERVER IMPORT (Long; Text; BLOB)

  ` SERVER IMPORT (Table Number; Input form; Import Data)

 

 C_LONGINT($1)

 C_TEXT($2)

 C_BLOB($3)

 C_LONGINT(spErrCode)

 

  ` Operation ist noch nicht beendet, setze spErrCode auf 1.

 spErrCode:=1

 $vpTable:=Table($1)

 INPUT FORM($vpTable->;$2)

 $vsDocName:="Import File "+String(1+Random)

 If(On Windows)

    $vsDocName:=$vsDocName+".txt" ` Auf Windows ist die Dateiendung zwingend

 End if

 DELETE DOCUMENT($vsDocName)

 BLOB TO DOCUMENT($vsDocName;$3)

 IMPORT TEXT($vpTable->;$vsDocName)

 DELETE DOCUMENT($vsDocName)

  ` Operation ist beendet, setze spErrCode auf 0.

 spErrCode:=0

  ` Warte, bis der anfragende Client das Ergebnis erhalten hat.

 Repeat

    DELAY PROCESS(Current process;1)

 Until(spErrCode>0)

Hinweis: Die Projektmethode On Windows finden Sie im Handbuch 4D Programmiersprache im Abschnitt Einführung in Systemdokumente.

Sind diese beiden Projektmethoden in einer Datenbank integriert, können Sie den Import über eine Serverprozedur ausführen, wenn Sie beispielsweise schreiben:

CLIENT IMPORT(->[Table1];"Import")

Bei einigen Benchmarks werden Sie feststellen, dass der Import von Datensätzen mit dieser Methode bis zu 60 mal schneller läuft als über den regulären Import.

Siehe auch

Serverprozeduren
Service mit Serverprozeduren (Beispiel)