Changeset 323 for trunk/Packages
- Timestamp:
- Jun 25, 2024, 1:34:07 AM (6 months ago)
- Location:
- trunk/Packages/CoolStreaming
- Files:
-
- 3 added
- 1 deleted
- 2 edited
- 7 moved
Legend:
- Unmodified
- Added
- Removed
-
trunk/Packages/CoolStreaming/BitStream.pas
r322 r323 1 unit UBitStream;1 unit BitStream; 2 2 3 3 // Date: 2010-08-17 4 5 {$mode delphi}6 4 7 5 interface … … 343 341 destructor TMemoryBitStream.Destroy; 344 342 begin 345 F Memory.Free;346 inherited Destroy;343 FreeAndNil(FMemory); 344 inherited; 347 345 end; 348 346 -
trunk/Packages/CoolStreaming/BufferedFileStream.pas
r322 r323 1 unit UBufferedFileStream;1 unit BufferedFileStream; 2 2 3 3 interface … … 31 31 property BufferUsed: Integer read GetBufferUsed; 32 32 end; 33 33 34 34 35 implementation -
trunk/Packages/CoolStreaming/CoolStreaming.lpk
r308 r323 1 1 <?xml version="1.0" encoding="UTF-8"?> 2 2 <CONFIG> 3 <Package Version=" 4">3 <Package Version="5"> 4 4 <PathDelim Value="\"/> 5 5 <Name Value="CoolStreaming"/> … … 39 39 <Description Value="Contains various streaming classes."/> 40 40 <License Value="GNU/GPL"/> 41 <Version Minor=" 1"/>41 <Version Minor="2"/> 42 42 <Files Count="7"> 43 43 <Item1> 44 <Filename Value=" UStreamHelper.pas"/>45 <UnitName Value=" UStreamHelper"/>44 <Filename Value="StreamHelper.pas"/> 45 <UnitName Value="StreamHelper"/> 46 46 </Item1> 47 47 <Item2> 48 <Filename Value=" USubStream.pas"/>49 <UnitName Value=" USubStream"/>48 <Filename Value="SubStream.pas"/> 49 <UnitName Value="SubStream"/> 50 50 </Item2> 51 51 <Item3> 52 <Filename Value=" UVarBlockSerializer.pas"/>53 <UnitName Value=" UVarBlockSerializer"/>52 <Filename Value="VarBlockSerializer.pas"/> 53 <UnitName Value="VarBlockSerializer"/> 54 54 </Item3> 55 55 <Item4> 56 <Filename Value=" UBufferedFileStream.pas"/>57 <UnitName Value=" UBufferedFileStream"/>56 <Filename Value="BufferedFileStream.pas"/> 57 <UnitName Value="BufferedFileStream"/> 58 58 </Item4> 59 59 <Item5> 60 <Filename Value=" UTextFileStream.pas"/>61 <UnitName Value=" UTextFileStream"/>60 <Filename Value="TextFileStream.pas"/> 61 <UnitName Value="TextFileStream"/> 62 62 </Item5> 63 63 <Item6> 64 <Filename Value=" UBitStream.pas"/>65 <UnitName Value=" UBitStream"/>64 <Filename Value="BitStream.pas"/> 65 <UnitName Value="BitStream"/> 66 66 </Item6> 67 67 <Item7> 68 <Filename Value=" UDynNumber.pas"/>69 <UnitName Value=" UDynNumber"/>68 <Filename Value="DynNumber.pas"/> 69 <UnitName Value="DynNumber"/> 70 70 </Item7> 71 71 </Files> 72 <CompatibilityMode Value="True"/> 73 <i18n> 74 <EnableI18N Value="True"/> 75 <OutDir Value="Languages"/> 76 </i18n> 72 77 <RequiredPkgs Count="3"> 73 78 <Item1> -
trunk/Packages/CoolStreaming/CoolStreaming.pas
r185 r323 3 3 } 4 4 5 unit CoolStreaming; 5 unit CoolStreaming; 6 6 7 7 interface 8 8 9 9 uses 10 UStreamHelper, USubStream, UVarBlockSerializer, UBufferedFileStream,11 UTextFileStream, UBitStream, UDynNumber, LazarusPackageIntf;10 StreamHelper, SubStream, VarBlockSerializer, BufferedFileStream, 11 TextFileStream, BitStream, DynNumber, LazarusPackageIntf; 12 12 13 13 implementation 14 14 15 procedure Register; 15 procedure Register; 16 16 begin 17 end; 17 end; 18 18 19 19 initialization 20 RegisterPackage('CoolStreaming', @Register); 20 RegisterPackage('CoolStreaming', @Register); 21 21 end. -
trunk/Packages/CoolStreaming/DynNumber.pas
r322 r323 1 unit UDynNumber; 2 3 {$mode objfpc}{$H+} 1 unit DynNumber; 4 2 5 3 interface 6 4 7 5 uses 8 Classes, SysUtils, UBitStream, Math;6 Classes, SysUtils, BitStream, Math; 9 7 10 8 type … … 21 19 function ReadNumber2: QWord; 22 20 end; 21 23 22 24 23 implementation … … 74 73 destructor TDynamicNumber.Destroy; 75 74 begin 76 Stream.Free;77 inherited Destroy;75 FreeAndNil(Stream); 76 inherited; 78 77 end; 79 78 -
trunk/Packages/CoolStreaming/StreamHelper.pas
r322 r323 1 unit UStreamHelper; 2 3 {$mode delphi}{$H+} 1 unit StreamHelper; 4 2 5 3 interface … … 68 66 end; 69 67 68 70 69 implementation 71 70 … … 232 231 destructor TStreamHelper.Destroy; 233 232 begin 234 if FOwnStream then F Stream.Free;235 inherited Destroy;233 if FOwnStream then FreeAndNil(FStream); 234 inherited; 236 235 end; 237 236 -
trunk/Packages/CoolStreaming/SubStream.pas
r322 r323 1 unit USubStream; 2 3 {$mode delphi} 1 unit SubStream; 4 2 5 3 interface … … 27 25 property SourcePosition: Int64 read FSourcePosition write FSourcePosition; 28 26 end; 27 29 28 30 29 implementation -
trunk/Packages/CoolStreaming/TextFileStream.pas
r322 r323 1 // TTextFileStream class by Chronos 12.9.2005 2 // Homepage: http://jirihajda.zdechov.net/ 3 4 unit UTextFileStream; 5 6 {$mode Delphi}{$H+} 1 unit TextFileStream; 7 2 8 3 interface 9 4 10 uses Classes, SysUtils; 5 uses 6 Classes, SysUtils; 11 7 12 8 type … … 15 11 private 16 12 FBuffer: string; 17 protected18 19 13 public 20 14 function Eof: Boolean; … … 24 18 function RowsCount: Integer; 25 19 end; 20 26 21 27 22 implementation -
trunk/Packages/CoolStreaming/VarBlockSerializer.pas
r322 r323 1 // 2011-02-22 2 3 unit UVarBlockSerializer; 4 5 {$mode Delphi}{$H+} 1 unit VarBlockSerializer; 6 2 7 3 // One level of recursive VarInt size supported … … 11 7 12 8 uses 13 Classes, DateUtils, UStreamHelper, Math, SysUtils, USubStream, LazUTF8,9 Classes, DateUtils, StreamHelper, Math, SysUtils, SubStream, LazUTF8, 14 10 SpecializedList, LCLProc; 15 11 … … 118 114 destructor Destroy; override; 119 115 end; 116 120 117 121 118 implementation … … 698 695 constructor TVarBlockSerializer.Create; 699 696 begin 700 inherited Create;697 inherited; 701 698 Stream := TStreamHelper.Create; 702 699 OwnsStream := True; … … 707 704 begin 708 705 if OwnsStream then begin 709 Stream.Free;710 end; 711 inherited Destroy;706 FreeAndNil(FStream); 707 end; 708 inherited; 712 709 end; 713 710
Note:
See TracChangeset
for help on using the changeset viewer.