EULANDA® ERP System Head Start thru Technology

MyPicturesDir (Pascal-Script)

Back | Level back

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. Hierzu muss auf dem Arbeitsplatz der Explorer 5.5 installiert sein.

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

©Eulanda Software GmbH Made in Germany, 1989-2010. All rights reserved.