AV при вызове TfrxPictureView.LoadFromFile

Комментарии

• Bogdan

  July 2005 отредактировано 07:38

  Происходит так как после LoadFromFile рисунок считается проинициализированным в то же время для рисунков с пустым расширением (в частности пустой строки) зарегистрирован тип TOleGraphic метод LoadFromFile которого содержит код begin // !!! end; не совсем понятно зачем перекрыт TGraphic.LoadFromfile который бы работал но факт в том что при етом создаётся экземпляр TOleGraphic свойство Picture которого равно nil.
  В
  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])
  
  
• Basken

  July 2005 отредактировано 07:38

  Спасибо
• Bogdan

  July 2005 отредактировано 07:38

  Сделал
  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;