imp_classes.pas

Delphi脚本控件

       @TStream.FixupResourceHeader);
  RegisterMethod(TStream,
       'procedure ReadResHeader;',
       @TStream.ReadResHeader);
  RegisterMethod(TStream,
       'function TStream_GetPosition:Longint;',
       @TStream_GetPosition, Fake);
  RegisterMethod(TStream,
       'procedure TStream_PutPosition(const Value: Longint);',
       @TStream_PutPosition, Fake);
  RegisterProperty(TStream,
       'property Position:Longint read TStream_GetPosition write TStream_PutPosition;');
  RegisterMethod(TStream,
       'function TStream_GetSize:Longint;',
       @TStream_GetSize, Fake);
  RegisterMethod(TStream,
       'procedure TStream_PutSize(const Value: Longint);',
       @TStream_PutSize, Fake);
  RegisterProperty(TStream,
       'property Size:Longint read TStream_GetSize write TStream_PutSize;');
  RegisterMethod(TStream,
       'constructor Create;',
       @TStream.Create);
  // End of class TStream
  // Begin of class THandleStream
  RegisterClassType(THandleStream, H);
  RegisterMethod(THandleStream,
       'constructor Create(AHandle: Integer);',
       @THandleStream.Create);
  RegisterMethod(THandleStream,
       'function Read(var Buffer; Count: Longint): Longint; override;',
       @THandleStream.Read);
  RegisterMethod(THandleStream,
       'function Write(const Buffer; Count: Longint): Longint; override;',
       @THandleStream.Write);
  RegisterMethod(THandleStream,
       'function Seek(Offset: Longint; Origin: Word): Longint; override;',
       @THandleStream.Seek);
  RegisterMethod(THandleStream,
       'function THandleStream_GetHandle:Integer;',
       @THandleStream_GetHandle, Fake);
  RegisterProperty(THandleStream,
       'property Handle:Integer read THandleStream_GetHandle;');
  // End of class THandleStream
  // Begin of class TFileStream
  RegisterClassType(TFileStream, H);
  RegisterMethod(TFileStream,
       'constructor Create(const FileName: string; Mode: Word);',
       @TFileStream.Create);
  RegisterMethod(TFileStream,
       'destructor Destroy; override;',
       @TFileStream.Destroy);
  // End of class TFileStream
  // Begin of class TCustomMemoryStream
  RegisterClassType(TCustomMemoryStream, H);
  RegisterMethod(TCustomMemoryStream,
       'function Read(var Buffer; Count: Longint): Longint; override;',
       @TCustomMemoryStream.Read);
  RegisterMethod(TCustomMemoryStream,
       'function Seek(Offset: Longint; Origin: Word): Longint; override;',
       @TCustomMemoryStream.Seek);
  RegisterMethod(TCustomMemoryStream,
       'procedure SaveToStream(Stream: TStream);',
       @TCustomMemoryStream.SaveToStream);
  RegisterMethod(TCustomMemoryStream,
       'procedure SaveToFile(const FileName: string);',
       @TCustomMemoryStream.SaveToFile);
  RegisterMethod(TCustomMemoryStream,
       'function TCustomMemoryStream_GetMemory:Pointer;',
       @TCustomMemoryStream_GetMemory, Fake);
  RegisterProperty(TCustomMemoryStream,
       'property Memory:Pointer read TCustomMemoryStream_GetMemory;');
  RegisterMethod(TCustomMemoryStream,
       'constructor Create;',
       @TCustomMemoryStream.Create);
  // End of class TCustomMemoryStream
  // Begin of class TMemoryStream
  RegisterClassType(TMemoryStream, H);
  RegisterMethod(TMemoryStream,
       'destructor Destroy; override;',
       @TMemoryStream.Destroy);
  RegisterMethod(TMemoryStream,
       'procedure Clear;',
       @TMemoryStream.Clear);
  RegisterMethod(TMemoryStream,
       'procedure LoadFromStream(Stream: TStream);',
       @TMemoryStream.LoadFromStream);
  RegisterMethod(TMemoryStream,
       'procedure LoadFromFile(const FileName: string);',
       @TMemoryStream.LoadFromFile);
  RegisterMethod(TMemoryStream,
       'procedure SetSize(NewSize: Longint); override;',
       @TMemoryStream.SetSize);
  RegisterMethod(TMemoryStream,
       'function Write(const Buffer; Count: Longint): Longint; override;',
       @TMemoryStream.Write);
  RegisterMethod(TMemoryStream,
       'constructor Create;',
       @TMemoryStream.Create);
  // End of class TMemoryStream
  // Begin of class TStringStream
  RegisterClassType(TStringStream, H);
  RegisterMethod(TStringStream,
       'constructor Create(const AString: string);',
       @TStringStream.Create);
  RegisterMethod(TStringStream,
       'function Read(var Buffer; Count: Longint): Longint; override;',
       @TStringStream.Read);
  RegisterMethod(TStringStream,
       'function ReadString(Count: Longint): string;',
       @TStringStream.ReadString);
  RegisterMethod(TStringStream,
       'function Seek(Offset: Longint; Origin: Word): Longint; override;',
       @TStringStream.Seek);
  RegisterMethod(TStringStream,
       'function Write(const Buffer; Count: Longint): Longint; override;',
       @TStringStream.Write);
  RegisterMethod(TStringStream,
       'procedure WriteString(const AString: string);',
       @TStringStream.WriteString);
  RegisterMethod(TStringStream,
       'function TStringStream_GetDataString:String;',
       @TStringStream_GetDataString, Fake);
  RegisterProperty(TStringStream,
       'property DataString:String read TStringStream_GetDataString;');
  // End of class TStringStream
  // Begin of class TResourceStream
  RegisterClassType(TResourceStream, H);
  RegisterMethod(TResourceStream,
       'constructor Create(Instance: THandle; const ResName: string; ResType: PChar);',
       @TResourceStream.Create);
  RegisterMethod(TResourceStream,
       'constructor CreateFromID(Instance: THandle; ResID: Integer; ResType: PChar);',
       @TResourceStream.CreateFromID);
  RegisterMethod(TResourceStream,
       'destructor Destroy; override;',
       @TResourceStream.Destroy);
  RegisterMethod(TResourceStream,
       'function Write(const Buffer; Count: Longint): Longint; override;',
       @TResourceStream.Write);
  // End of class TResourceStream
  RegisterRTTIType(TypeInfo(TStreamOwnership));
  // Begin of class TStreamAdapter
  RegisterClassType(TStreamAdapter, H);
  RegisterMethod(TStreamAdapter,
       'destructor Destroy; override;',
       @TStreamAdapter.Destroy);
  RegisterMethod(TStreamAdapter,
       'function Read(pv: Pointer; cb: Longint;      pcbRead: PLongint): HResult; virtual; stdcall;',
       @TStreamAdapter.Read);
  RegisterMethod(TStreamAdapter,
       'function Write(pv: Pointer; cb: Longint;      pcbWritten: PLongint): HResult; virtual; stdcall;',
       @TStreamAdapter.Write);
  RegisterMethod(TStreamAdapter,
       'function Seek(dlibMove: Largeint; dwOrigin: Longint;      out libNewPosition: Largeint): HResult; virtual; stdcall;',
       @TStreamAdapter.Seek);
  RegisterMethod(TStreamAdapter,
       'function SetSize(libNewSize: Largeint): HResult; virtual; stdcall;',
       @TStreamAdapter.SetSize);
  RegisterMethod(TStreamAdapter,
       'function CopyTo(stm: IStream; cb: Largeint; out cbRead: Largeint;      out cbWritten: Largeint): HResult; virtual; stdcall;',
       @TStreamAdapter.CopyTo);
  RegisterMethod(TStreamAdapter,
       'function Commit(grfCommitFlags: Longint): HResult; virtual; stdcall;',
       @TStreamAdapter.Commit);
  RegisterMethod(TStreamAdapter,
       'function Revert: HResult; virtual; stdcall;',
       @TStreamAdapter.Revert);
  RegisterMethod(TStreamAdapter,
       'function LockRegion(libOffset: Largeint; cb: Largeint;      dwLockType: Longint): HResult; virtual; stdcall;',
       @TStreamAdapter.LockRegion);
  RegisterMethod(TStreamAdapter,
       'function UnlockRegion(libOffset: Largeint; cb: Largeint;      dwLockType: Longint): HResult; virtual; stdcall;',
       @TStreamAdapter.UnlockRegion);
  RegisterMethod(TStreamAdapter,
       'function Stat(out statstg: TStatStg;      grfStatFlag: Longint): HResult; virtual; stdcall;',
       @TStreamAdapter.Stat);
  RegisterMethod(TStreamAdapter,
       'function Clone(out stm: IStream): HResult; virtual; stdcall;',
       @TStreamAdapter.Clone);
  RegisterMethod(TStreamAdapter,
       'function TStreamAdapter_GetStream:TStream;',
       @TStreamAdapter_GetStream, Fake);
  RegisterProperty(TStreamAdapter,
       'property Stream:TStream read TStreamAdapter_GetStream;');
  RegisterMethod(TStreamAdapter,
       'function TStreamAdapter_GetStreamOwnership:TStreamOwnership;',
       @TStreamAdapter_GetStreamOwnership, Fake);
  RegisterMethod(TStreamAdapter,
       'procedure TStreamAdapter_PutStreamOwnership(const Value: TStreamOwnership);',
       @TStreamAdapter_PutStreamOwnership, Fake);
  RegisterProperty(TStreamAdapter,
       'property StreamOwnership:TStreamOwnership read TStreamAdapter_GetStreamOwnership write TStreamAdapter_PutStreamOwnership;');
  // CONSTRUCTOR IS NOT FOUND!!!
  // End of class TStreamAdapter
  RegisterRTTIType(TypeInfo(TValueType));
  RegisterRTTIType(TypeInfo(TFilerFlag));
  // Begin of class TFiler
  RegisterClassType(TFiler, H);
  RegisterMethod(TFiler,
       'constructor Create(Stream: TStream; BufSize: Integer);',
       @TFiler.Create);
  RegisterMethod(TFiler,
       'destructor Destroy; override;',
       @TFiler.Destroy);
  RegisterMethod(TFiler,
       'function TFiler_GetRoot:TComponent;',
       @TFiler_GetRoot, Fake);
  RegisterMethod(TFiler,
       'procedure TFiler_PutRoot(const Value: TComponent);',
       @TFiler_PutRoot, Fake);
  RegisterProperty(TFiler,
       'property Root:TComponent read TFiler_GetRoot write TFiler_PutRoot;');
  RegisterMethod(TFiler,
       'function TFiler_GetLookupRoot:TComponent;',
       @TFiler_GetLookupRoot, Fake);
  RegisterProperty(TFiler,
       'property LookupRoot:TComponent read TFiler_GetLookupRoot;');
  RegisterMethod(TFiler,
       'function TFiler_GetAncestor:TPersistent;',
       @TFiler_GetAncestor, Fake);
  RegisterMethod(TFiler,
       'procedure TFiler_PutAncestor(const Value: TPersistent);',
       @TFiler_PutAncestor, Fake);
  RegisterProperty(TFiler,
       'property Ancestor:TPersistent read TFiler_GetAncestor write TFiler_PutAncestor;');
  RegisterMethod(TFiler,
       'function TFiler_GetIgnoreChildren:Boolean;',
       @TFiler_GetIgnoreChildren, Fake);
  RegisterMethod(TFiler,
       'procedure TFiler_PutIgnoreChildren(const Value: Boolean);',
       @TFiler_PutIgnoreChildren, Fake);
  RegisterProperty(TFiler,
       'property IgnoreChildren:Boolean read TFiler_GetIgnoreChildren write TFiler_PutIgnoreChildren;');
  // End of class TFiler
  // Begin of class TReader
  RegisterClassType(TReader, H);
  RegisterMethod(TReader,
       'destructor Destroy; override;',
       @TReader.Destroy);
  RegisterMethod(TReader,
       'procedure BeginReferences;',
       @TReader.BeginReferences);
  RegisterMethod(TReader,
       'procedure CheckValue(Value: TValueType);',
       @TReader.CheckValue);
  RegisterMethod(TReader,
       'procedure DefineProperty(const Name: string;      ReadData: TReaderProc; WriteData: TWriterProc;      HasData: Boolean); override;',
       @TReader.DefineProperty);
  RegisterMethod(TReader,
       'procedure DefineBinaryProperty(const Name: string;      ReadData, WriteData: TStreamProc;      HasData: Boolean); override;',
       @TReader.DefineBinaryProperty);
  RegisterMethod(TReader,
       'function EndOfList: Boolean;',
       @TReader.EndOfList);
  RegisterMethod(TReader,
       'procedure EndReferences;',
       @TReader.EndReferences);
  RegisterMethod(TReader,
       'procedure FixupReferences;',
       @TReader.FixupReferences);
  RegisterMethod(TReader,
       'procedure FlushBuffer; override;',
       @TReader.FlushBuffer);
  RegisterMethod(TReader,
       'function NextValue: TValueType;',
       @TReader.NextValue);
  RegisterMethod(TReader,
       'procedure Read(var Buf; Count: Longint);',
       @TReader.Read);
  RegisterMethod(TReader,
       'function ReadBoolean: Boolean;',
       @TReader.ReadBoolean);
  RegisterMethod(TReader,
       'function ReadChar: Char;',
       @TReader.ReadChar);
  RegisterMethod(TReader,
       'procedure ReadCollection(Collection: TCollection);',
       @TReader.ReadCollection);
  RegisterMethod(TReader,
       'function ReadComponent(Component: TComponent): TComponent;',
       @TReader.ReadComponent);
  RegisterMethod(TReader,
       'procedure ReadComponents(AOwner, AParent: TComponent;      Proc: TReadComponentsProc);',
       @TReader.ReadComponents);
  RegisterMethod(TReader,
       'function ReadFloat: Extended;',
       @TReader.ReadFloat);
  RegisterMethod(TReader,
       'function ReadSingle: Single;',
       @TReader.ReadSingle);
  RegisterMethod(TReader,
       'function ReadCurrency: Currency;',
       @TReader.ReadCurrency);
  RegisterMethod(TReader,
       'function ReadDate: TDateTime;',
       @TReader.ReadDate);
  RegisterMethod(TReader,
       'function ReadIdent: string;',
       @TReader.ReadIdent);
  RegisterMethod(TReader,
       'function ReadInteger: Longint;',
       @TReader.ReadInteger);
  RegisterMethod(TReader,
       'function ReadInt64: Int64;',
       @TReader.ReadInt64);
  RegisterMethod(TReader,
       'procedure ReadListBegin;',
       @TReader.ReadListBegin);
  RegisterMethod(TReader,
       'procedure ReadListEnd;',
       @TReader.ReadListEnd);
  RegisterMethod(TReader,
       'procedure ReadPrefix(var Flags: TFilerFlags; var AChildPos: Integer); virtual;',
       @TReader.ReadPrefix);
  RegisterMethod(TReader,
       'function ReadRootComponent(Root: TComponent): TComponent;',
       @TReader.ReadRootComponent);
  RegisterMethod(TReader,
       'procedure ReadSignature;',
       @TReader.ReadSignature);
  RegisterMethod(TReader,
       'function ReadStr: string;',
       @TReader.ReadStr);
  RegisterMethod(TReader,
       'function ReadString: string;',
       @TReader.ReadString);
  RegisterMethod(TReader,
       'function ReadWideString: WideString;',
       @TReader.ReadWideString);
  RegisterMethod(TReader,
       'function ReadValue: TValueType;',
       @TReader.ReadValue);
  RegisterMethod(TReader,
       'procedure CopyValue(Writer: TWriter);',
       @TReader.CopyValue);
  RegisterMethod(TReader,
       'function TReader_GetOwner:TComponent;',
       @TReader_GetOwner, Fake);
  RegisterMethod(TReader,
       'procedure TReader_PutOwner(const Value: TComponent);',
       @TReader_PutOwner, Fake);
  RegisterProperty(TReader,
       'property Owner:TComponent read TReader_GetOwner write TReader_PutOwner;');
  RegisterMethod(TReader,
       'function TReader_GetParent:TComponent;',
       @TReader_GetParent, Fake);
  RegisterMethod(TReader,
       'procedure TReader_PutParent(const Value: TComponent);',
       @TReader_PutParent, Fake);