MyPicturesDir (Pascalscript) #

Beschreibung #

Diese Stringfunktion ermittelt den Speicherort des speziellen Ordners “Eigene Bilder”. Dieser ist abhängig vom ausgeführten Betriebssystem und vom angemeldeten Benutzer.

Syntax #

function MyPicturesDir: string;

Argumente #

Der Speicherort wird aus API des Betriebssystems über die ShellFolder-Funktion ermittelt.

Beispiel #

begin
  image1.picture.SaveToFile(MyPicturesDir+'\test.bmp');
  showMessage('Gespeichert unter: '+MyPicturesDir+'\test.bmp');
end;

Regeln zum Nachvollziehen des Scripts finden Sie hier.

In diesem Beispiel wird vorausgesetzt, dass im Entwurf des Berichts ein Element image1, also ein nicht datenbankgebundenes Bild auf einem der Bänder positioniert wurde und dem ein BMP-Bild zugewiesen wurde. Der Inhalt dieses Bild-Elements wird dann als BMP-Datei mit dem Namen TEST.BMP im Spezial-Ordner “Eigene Dateien” des PCs, angelegt. Zusätzlich wird eine entsprechende Bildschirmmeldung ausgegeben.

ShowMessage zeigt: Gespeichert unter: C:\Dokumente und Einstellungen\Klaus\Eigene Dateien\Eigene Bilder\test.bmp