Alguien sabe PascalScript de FastReport ?
Publicado: Lun May 18, 2009 4:19 am
Tengo un codigo de PascalScript en un reporte de FastReport, el cual hace
que se muestre una imagen y funciona perfectamente bien.
El punto es que ahora quiero saber si la imagen existe o no.
Como todos sabemos en Xailer seria así:
if file("Mi_archivo.txt")
Msginfo("El archivo no existe")
Endif
Pero en este lenguaje no tengo ni idea de como hacerlo.
Si alguien sabe como hacerlo, se los agradeceria mucho.
Este es el codigo en FastReport.
procedure Picture1OnBeforePrint(Sender: TfrxComponent);
var
pict: TPicture;
begin
pict:= TPicture.Create;
pict.LoadFromFile('C://Windows//foto.bmp');
TfrxPictureView(Sender).Picture:= pict;
pict.Free;
end;
begin
end.
Dios les bendiga.
__________ Information from ESET NOD32 Antivirus, version of virus signature database 4081 (20090517) __________
The message was checked by ESET NOD32 Antivirus.
http://www.eset.com
que se muestre una imagen y funciona perfectamente bien.
El punto es que ahora quiero saber si la imagen existe o no.
Como todos sabemos en Xailer seria así:
if file("Mi_archivo.txt")
Msginfo("El archivo no existe")
Endif
Pero en este lenguaje no tengo ni idea de como hacerlo.
Si alguien sabe como hacerlo, se los agradeceria mucho.
Este es el codigo en FastReport.
procedure Picture1OnBeforePrint(Sender: TfrxComponent);
var
pict: TPicture;
begin
pict:= TPicture.Create;
pict.LoadFromFile('C://Windows//foto.bmp');
TfrxPictureView(Sender).Picture:= pict;
pict.Free;
end;
begin
end.
Dios les bendiga.
__________ Information from ESET NOD32 Antivirus, version of virus signature database 4081 (20090517) __________
The message was checked by ESET NOD32 Antivirus.
http://www.eset.com