Forum: Bilder aus Pixeln

Hallo,

Ich versuche ein Photopaint X3 Skript zu schreiben:

WITHOBJECT "CorelPHOTOPAINT.Automation.13"
.SetDoentInfo 4464, 6878
.EditClear 8, 1, 0, 0, 0
.MaskRemove
name$=.GetDoentName()
.FileSave name$,772,6
.FileClose()

Bekomme aber immer Fehlermeldung, dass die FEstplatte voll ist oder dass die Anwendung instabil ist.

Habe auch schon folgendes versucht:

GLOBAL Path$
Path$="R:\grafik corel etc\corel scripts\"
Dim FilePath As String
WITHOBJECT "CorelPHOTOPAINT.Automation.16"
.SetDoentInfo 4464, 6878
.EditClear 8, 1, 0, 0, 0
.MaskRemove
'get: X:\Folder\FileName.Ext
FilePath= .GetDoentName()
.FileSave FilePath, 1792, 0
.FileClose
END WITHOBJECT

Ebenso Fehlermeldung und ABsturz.

Ich möchte, die geöffnete Datei überschreiben, also unter dem selben Namen im selben Pfad abspeichern und dann schließen.

Danke schon mal im voraus.

Grüße
berthold

Ich kann gerade nicht die Scripts testen, nur zwei Tipps:
1. Entferne immer die SetDoentInfo-Zeile, damit das Script für alle Bildgrößen funktioniert.
2. CorelPHOTOPAINT.Automation.16, nicht 13?

danke. ah doch, corelphotopaint.automation.13.
habe mich da verschrieben.

eigenartig finde ich, ich habe im script "setdoentinfo" stehen und nicht "setdoentinfo".

werde deinen rat mit der "setdoentinfo" in zukunft hoffentlich befolgen.

danke im wieder im voraus

Hi, schon zeit zum testen gehabt? :-)

Habe zwar zufällig Zeit für diese kurze Antwort, aber zu testen auch in den nächsten Tagen absolut keine Zeit.
Sorry.
Uli

schade :-(

also beim Befehl .FileClose habe ich herausgefunden, dass er funktioniert, wenn das Script in Einzelschritten ausgeführt wird.