TRichView.com

Code: Select all

exception class    : EAccessViolation
exception message  : Access violation at address 00BEB480 in module 'program1.exe'. Read of address 00000050.

main thread ($28a8):
00beb480 +004 program1.exe RVGrHandler         1119   +0 TRVGraphicHandler.CreateGraphic
00e651a8 +140 program1.exe RVXMLRoutines        791  +25 DoReadImage
00e658fa +012 program1.exe RVXMLRoutines        901   +1 ReadImage
00e6b200 +160 program1.exe RVXMLRoutines       2348  +29 LoadRVDataFromXML
00e7eb85 +431 program1.exe RVXMLRoutines       7386 +104 RVLoadFromXML
00e81f0b +123 program1.exe RichViewXML          677  +43 TRichViewXML.DoLoadFromXML
00e817f9 +085 program1.exe RichViewXML          455  +11 TRichViewXML.DoLoadFromStream
00e8185a +002 program1.exe RichViewXML          463   +0 TRichViewXML.LoadFromStream

Code: Select all

RVGraphicHandler.RegisterPngGraphic(TPngImage);

Code: Select all

function GetLastRegisteredGraphicClassForFileExt(aFileExt: string): TGraphicClass;
var
  GetListProc: TReturnTList;
  L: TList;
  i: Integer;
begin
  if aFileExt[1] = '.' then
    Delete(aFileExt, 1, 1);

  FindGetFileFormatsFunc(GetListProc);
  if not Assigned(GetListProc) then
    Exit(nil);

  L := GetListProc;

  for i:= L.Count - 1 downto 0 do
    if SameText(PFileFormat(L[i])^.Extension, aFileExt) then
      Exit(PFileFormat(L[i])^.GraphicClass);
end;

function EnsureGraphicClassIsUsedFor(aFileExt: string; const aGraphicClass: TGraphicClass; const
    aFileFmtDesc: String): TGraphicClass;
var
  grClass: TGraphicClass;
begin
  if aFileExt[1] = '.' then
    Delete(aFileExt, 1, 1);

  grClass := GetLastRegisteredGraphicClassForFileExt(aFileExt);
  if (grClass = nil) or (grClass <> aGraphicClass) then
    TPicture.RegisterFileFormat(aFileExt, aFileFmtDesc, aGraphicClass);
end;