AV при вызове TfrxPictureView.LoadFromFile
FR 3.14
Возникает если передаваемый параметр пустой. Добавьте проверку если можно, в этот метод. Спасибо.
З.Ы. Не сильно удобно во всех отчетах писать скрипты для проверки пустое значение поля или нет.
Возникает если передаваемый параметр пустой. Добавьте проверку если можно, в этот метод. Спасибо.
З.Ы. Не сильно удобно во всех отчетах писать скрипты для проверки пустое значение поля или нет.
Комментарии
В
function TfrxPictureView.Diff(AComponent: TfrxComponent): String;
...
THackPersistent(Picture).DefineProperties(wr);
...
TWriter.DefineBinaryProperties
...
TPicture.WriteData
...
TOleGraphic.SaveToStream
- предполагается наличие проинициализированного рисунка способного быть сохраннённым в поток что приводит к AV.
Собираюсь лечить в
function TFunctions.CallMethod(Instance: TObject; ClassType: TClass;
const MethodName: String; var Params: Variant): Variant;
...
if MethodName = 'LOADFROMFILE' and (Params[0] <> '') then
TfrxPictureView(Instance).Picture.LoadFromFile(Params[0])
if (MethodName = 'LOADFROMFILE') and (Trim(VarToStr(Params[0])) <> '') then begin
if ExtractFileExt(VarToStr(Params[0])) = '' then
raise Exception.Create('Error ...')
else
TfrxPictureView(Instance).Picture.LoadFromFile(Params[0])
end;