4D v14.3

SET PICTURE TO LIBRARY

Home

 
4D v14.3
SET PICTURE TO LIBRARY

SET PICTURE TO LIBRARY 


 

SET PICTURE TO LIBRARY ( Bild ; BildRef ; BildName ) 
Parameter Typ   Beschreibung
Bild  Bild in Neues Bild
BildRef  Lange Ganzzahl in Referenznummer von Bild aus Bilbbibliothek
BildName  String in Neuer Name des Bildes

Der Befehl SET PICTURE TO LIBRARY erstellt ein neues Bild oder ersetzt ein Bild in der Bildbibliothek.

Übergeben Sie vor dem Aufruf:

  • in BildRef die Referenznummer des Bildes (Bereich 1...32767 )
  • In Bild das Bild selbst.
  • In BildName den Namen des Bildes (max. 255 Zeichen lang).

Gibt es in der Bildbibliothek bereits ein Bild mit der gleichen Referenznummer, wird der Bildinhalt ersetzt und das Bild mit den in Bild und BildName übergebenen Werten umbenannt.

Existiert die Referenznummer noch nicht, wird ein neues Bild in der Bildbibliothek hinzugefügt.

4D Server: SET PICTURE TO LIBRARY kann nicht in einer Methode verwendet werden, die auf dem Server ausgeführt wird. (Serverprozedur oder Trigger). Der Befehl hat auf dem Server keine Auswirkung.

Warnung: Designobjekte, wie z.B. Einträge in hierarchischen Listen, Menüeinträge, etc. können sich auf Bilder der Bildbibliothek beziehen. Seien Sie also vorsichtig, wenn Sie Bilder der Bildbibliothek per Programmierung ändern.

Hinweis: Übergeben Sie in Bild ein leeres Bild oder in BildRef einen negativen Wert bzw. die Ziffer Null, hat der Befehl keine Auswirkung.

Folgendes Beispiel sucht - unabhängig vom aktuellen Inhalt der Bildbibliothek - zuerst eine einmalige Referenznummer für ein Bild und fügt dann ein neues Bild in der Bildbibliothek hinzu:

 PICTURE LIBRARY LIST($alPicRef;$asPicNames)
 Repeat
    $vlPicRef:=1+Abs(Random)
 Until(Find in array($alPicRef;$vlPicRef)<0)
 SET PICTURE TO LIBRARY(vgPicture;$vlPicRef;"New Picture")

Folgendes Beispiel importiert Bilder aus einem Dokument auf der Festplatte in die Bildbibliothek, die mit dem dritten Beispiel zum Befehl PICTURE LIBRARY LIST erstellt wurde:

 SET CHANNEL(10;"")
 If(OK=1)
    RECEIVE VARIABLE($vsTag)
    If($vsTag="4DV6PICTURELIBRARYEXPORT")
       RECEIVE VARIABLE($vlNbPictures)
       If($vlNbPictures>0)
          For($vlPicture;1;$vlNbPictures)
             RECEIVE VARIABLE($vlPicRef)
             If(OK=1)
                RECEIVE VARIABLE($vsPicName)
             End if
             If(OK=1)
                RECEIVE VARIABLE($vgPicture)
             End if
             If(OK=1)
                SET PICTURE TO LIBRARY($vgPicture;$vlPicRef;$vsPicName)
             Else
                $vlPicture:=$vlNbPictures+1
                ALERT("Diese Datei ist evtl. beschädigt.")
             End if
          End for
       Else
          ALERT("Diese Datei ist evtl. beschädigt.")
       End if
    Else
       ALERT("Datei “"+Dokument+"” ist keine Bildbibliothek Exportdatei.")
    End if
    SET CHANNEL(11)
    End

Reicht der Speicher nicht aus, um das Bild der Bildbibliothek hinzuzufügen, wird Fehler -108 erzeugt. Es können auch E/A Fehler auftreten, wie z.B. die Strukturdatei ist gesperrt. Sie können diese Fehler mit einer Methode zur Fehlerverwaltung ausfindig machen.

 
EIGENSCHAFTEN 

Produkt: 4D
Thema: Bilder
Nummer: 566

Dieser Befehl ändert die Systemvariable ErrorNicht für Server verwendbar

 
GESCHICHTE 

Erstellt: 4D v6.0.2

 
SIEHE AUCH 

GET PICTURE FROM LIBRARY
PICTURE LIBRARY LIST
REMOVE PICTURE FROM LIBRARY

 
ARTIKELVERWENDUNG

4D Programmiersprache ( 4D v12.4)
4D Programmiersprache ( 4D v11 SQL Release 6)
4D Programmiersprache ( 4D v14 R3)
4D Programmiersprache ( 4D v14 R2)
4D Programmiersprache ( 4D v13.5)
4D Programmiersprache ( 4D v14.3)
4D Programmiersprache ( 4D v14 R4)