Skip to content

[dccosx64 Error] ImagingIO.pas(76): E2137 Method 'Read' not found in base class #48

@TheOriginalBytePlayer

Description

@TheOriginalBytePlayer

I am trying to build a unit in Delphi 13.1 for MacOSX and am running into this bizarre compilation error for the TImagingIOStream

[dccosx64 Error] ImagingIO.pas(76): E2137 Method 'Read' not found in base class

This just baffles me, even after I both explicitly set the TImagingIOStream to use class(System.Classes.TStream) and NativeInt rather then the wrapper TStream and the wrapper for NativeInt

Anyone have any ideas why?


 TImagingIOStream = class(System.Classes.TStream)
  private
    FIO: TIOFunctions;
    FHandle: TImagingHandle;
    FSize: Int64;
  protected
    function GetSize: Int64; override;
    procedure SetSize(const NewSize: Int64); override;
  public
    { Creates a stream wrapper around existing IO functions and handle.
      The handle must already be opened. The stream does NOT close the handle
      when destroyed. }
    constructor Create(const AIOFunctions: TIOFunctions; AHandle: TImagingHandle);

    function Read(var Buffer; Count: NativeInt): NativeInt; override;
    function Write(const Buffer; Count: NativeInt): NativeInt; override;
    function Seek(const Offset: Int64; Origin: TSeekOrigin): Int64; override;

{$IFNDEF FPC}
    function ReadByte: Byte; {$IFDEF USE_INLINE}inline;{$ENDIF}
    procedure WriteByte(Value: Byte); {$IFDEF USE_INLINE}inline;{$ENDIF}
{$ENDIF}

    property Handle: TImagingHandle read FHandle;
    property IOFunctions: TIOFunctions read FIO;
  end;


Metadata

Metadata

Assignees

No one assigned

    Labels

    No labels
    No labels

    Projects

    No projects

    Milestone

    No milestone

    Relationships

    None yet

    Development

    No branches or pull requests

    Issue actions