In the meantime I developed a resize application / module (in Delphi).
It is called in rule2.
Until now it works fine, pictures are resized / scaled from 3 a 4 Mb to 15 a 20 kB.
Rule0
IF FILE_EXISTS ('c:/mytemp/' +PersPeri.ID + '.jpg') = 'Yes' THEN
DELETE FILE 'c:/mytemp/' +PersPeri.ID + '.jpg'
Rule1
IF PersPeri.Foto2 IS DEFINED THEN
EXPORT DOCUMENT PersPeri.Foto2 TO FILE 'c:/mytemp/' +PersPeri.ID + '.jpg'
Rule2
IF FILE_EXISTS ('c:/mytemp/' +PersPeri.ID + '.jpg') = 'Yes' THEN
EXECUTE PROGRAM 'resizephoto.exe c:/mytemp/' +PersPeri.ID + '.jpg'
IMPORT DOCUMENT PersPeri.Foto2 FROM 'c:/mytemp/' +PersPeri.ID + '_scaled.jpg'