Changeset 222 for CoolStreaming


Ignore:
Timestamp:
Apr 4, 2011, 12:24:18 PM (14 years ago)
Author:
george
Message:
  • Přidáno: Jednotka UURI pro práci s textovým umístěním souborů a složek.
Location:
CoolStreaming
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • CoolStreaming/Demo/VarBlockSerializer/VarBlockSerializerDemo.lpi

    r174 r222  
    4343      </Item3>
    4444    </RequiredPackages>
    45     <Units Count="8">
     45    <Units Count="15">
    4646      <Unit0>
    4747        <Filename Value="VarBlockSerializerDemo.lpr"/>
    4848        <IsPartOfProject Value="True"/>
    4949        <UnitName Value="VarBlockSerializerDemo"/>
    50         <UsageCount Value="55"/>
     50        <UsageCount Value="57"/>
    5151      </Unit0>
    5252      <Unit1>
    … …  
    5656        <ResourceBaseClass Value="Form"/>
    5757        <UnitName Value="UMainForm"/>
    58         <IsVisibleTab Value="True"/>
    5958        <EditorIndex Value="0"/>
    6059        <WindowIndex Value="0"/>
    61         <TopLine Value="167"/>
    62         <CursorPos X="40" Y="174"/>
    63         <UsageCount Value="55"/>
     60        <TopLine Value="221"/>
     61        <CursorPos X="1" Y="238"/>
     62        <UsageCount Value="57"/>
    6463        <Loaded Value="True"/>
    6564        <LoadedDesigner Value="True"/>
    … …  
    6867        <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\Lazarus\lcl\spin.pp"/>
    6968        <UnitName Value="Spin"/>
    70         <EditorIndex Value="6"/>
     69        <EditorIndex Value="12"/>
    7170        <WindowIndex Value="0"/>
    7271        <TopLine Value="172"/>
    7372        <CursorPos X="17" Y="185"/>
    74         <UsageCount Value="28"/>
     73        <UsageCount Value="29"/>
    7574        <Loaded Value="True"/>
    7675      </Unit2>
    … …  
    7877        <Filename Value="..\..\UVarBlockSerializer.pas"/>
    7978        <UnitName Value="UVarBlockSerializer"/>
    80         <EditorIndex Value="2"/>
    81         <WindowIndex Value="0"/>
    82         <TopLine Value="392"/>
    83         <CursorPos X="74" Y="405"/>
    84         <UsageCount Value="28"/>
     79        <IsVisibleTab Value="True"/>
     80        <EditorIndex Value="8"/>
     81        <WindowIndex Value="0"/>
     82        <TopLine Value="218"/>
     83        <CursorPos X="22" Y="248"/>
     84        <UsageCount Value="29"/>
    8585        <Loaded Value="True"/>
    8686      </Unit3>
    8787      <Unit4>
    8888        <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\FPC\rtl\objpas\classes\classesh.inc"/>
    89         <EditorIndex Value="4"/>
     89        <EditorIndex Value="10"/>
    9090        <WindowIndex Value="0"/>
    9191        <TopLine Value="773"/>
    9292        <CursorPos X="14" Y="786"/>
    93         <UsageCount Value="28"/>
     93        <UsageCount Value="29"/>
    9494        <Loaded Value="True"/>
    9595      </Unit4>
    9696      <Unit5>
    9797        <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\FPC\rtl\objpas\classes\streams.inc"/>
    98         <EditorIndex Value="5"/>
     98        <EditorIndex Value="11"/>
    9999        <WindowIndex Value="0"/>
    100100        <TopLine Value="134"/>
    101101        <CursorPos X="26" Y="144"/>
    102         <UsageCount Value="28"/>
     102        <UsageCount Value="29"/>
    103103        <Loaded Value="True"/>
    104104      </Unit5>
    … …  
    107107        <EditorIndex Value="1"/>
    108108        <WindowIndex Value="0"/>
    109         <TopLine Value="2798"/>
    110         <CursorPos X="1" Y="2808"/>
    111         <UsageCount Value="11"/>
     109        <TopLine Value="1672"/>
     110        <CursorPos X="1" Y="1685"/>
     111        <UsageCount Value="12"/>
    112112        <Loaded Value="True"/>
    113113      </Unit6>
    … …  
    115115        <Filename Value="..\..\UStreamHelper.pas"/>
    116116        <UnitName Value="UStreamHelper"/>
    117         <EditorIndex Value="3"/>
     117        <EditorIndex Value="9"/>
    118118        <WindowIndex Value="0"/>
    119119        <TopLine Value="192"/>
    120120        <CursorPos X="1" Y="205"/>
    121         <UsageCount Value="11"/>
     121        <UsageCount Value="12"/>
    122122        <Loaded Value="True"/>
    123123      </Unit7>
     124      <Unit8>
     125        <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\FPC\rtl\inc\mathh.inc"/>
     126        <WindowIndex Value="0"/>
     127        <TopLine Value="57"/>
     128        <CursorPos X="18" Y="79"/>
     129        <UsageCount Value="10"/>
     130      </Unit8>
     131      <Unit9>
     132        <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\Lazarus\lcl\include\buttoncontrol.inc"/>
     133        <EditorIndex Value="6"/>
     134        <WindowIndex Value="0"/>
     135        <TopLine Value="14"/>
     136        <CursorPos X="1" Y="22"/>
     137        <UsageCount Value="11"/>
     138        <Loaded Value="True"/>
     139      </Unit9>
     140      <Unit10>
     141        <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\Lazarus\lcl\include\buttons.inc"/>
     142        <EditorIndex Value="7"/>
     143        <WindowIndex Value="0"/>
     144        <TopLine Value="320"/>
     145        <CursorPos X="1" Y="342"/>
     146        <UsageCount Value="11"/>
     147        <Loaded Value="True"/>
     148      </Unit10>
     149      <Unit11>
     150        <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\Lazarus\lcl\include\wincontrol.inc"/>
     151        <EditorIndex Value="2"/>
     152        <WindowIndex Value="0"/>
     153        <TopLine Value="5229"/>
     154        <CursorPos X="38" Y="5239"/>
     155        <UsageCount Value="11"/>
     156        <Loaded Value="True"/>
     157      </Unit11>
     158      <Unit12>
     159        <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\Lazarus\lcl\lclmessageglue.pas"/>
     160        <UnitName Value="LCLMessageGlue"/>
     161        <EditorIndex Value="3"/>
     162        <WindowIndex Value="0"/>
     163        <TopLine Value="122"/>
     164        <CursorPos X="1" Y="122"/>
     165        <UsageCount Value="11"/>
     166        <Loaded Value="True"/>
     167      </Unit12>
     168      <Unit13>
     169        <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\Lazarus\lcl\interfaces\win32\win32callback.inc"/>
     170        <EditorIndex Value="4"/>
     171        <WindowIndex Value="0"/>
     172        <TopLine Value="2617"/>
     173        <CursorPos X="1" Y="2617"/>
     174        <UsageCount Value="11"/>
     175        <Loaded Value="True"/>
     176      </Unit13>
     177      <Unit14>
     178        <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\Lazarus\lcl\interfaces\win32\win32wsstdctrls.pp"/>
     179        <UnitName Value="Win32WSStdCtrls"/>
     180        <EditorIndex Value="5"/>
     181        <WindowIndex Value="0"/>
     182        <TopLine Value="407"/>
     183        <CursorPos X="1" Y="407"/>
     184        <UsageCount Value="11"/>
     185        <Loaded Value="True"/>
     186      </Unit14>
    124187    </Units>
    125     <JumpHistory Count="29" HistoryIndex="28">
     188    <JumpHistory Count="30" HistoryIndex="29">
    126189      <Position1>
    127         <Filename Value="UMainForm.pas"/>
    128         <Caret Line="177" Column="1" TopLine="167"/>
     190        <Filename Value="..\..\UVarBlockSerializer.pas"/>
     191        <Caret Line="244" Column="1" TopLine="236"/>
    129192      </Position1>
    130193      <Position2>
    131194        <Filename Value="..\..\UVarBlockSerializer.pas"/>
    132         <Caret Line="302" Column="1" TopLine="289"/>
     195        <Caret Line="243" Column="1" TopLine="236"/>
    133196      </Position2>
    134197      <Position3>
    135198        <Filename Value="..\..\UVarBlockSerializer.pas"/>
    136         <Caret Line="303" Column="1" TopLine="289"/>
     199        <Caret Line="244" Column="1" TopLine="236"/>
    137200      </Position3>
    138201      <Position4>
    139202        <Filename Value="..\..\UVarBlockSerializer.pas"/>
    140         <Caret Line="304" Column="1" TopLine="289"/>
     203        <Caret Line="243" Column="1" TopLine="236"/>
    141204      </Position4>
    142205      <Position5>
    143206        <Filename Value="..\..\UVarBlockSerializer.pas"/>
    144         <Caret Line="305" Column="1" TopLine="289"/>
     207        <Caret Line="244" Column="1" TopLine="236"/>
    145208      </Position5>
    146209      <Position6>
    147210        <Filename Value="..\..\UVarBlockSerializer.pas"/>
    148         <Caret Line="226" Column="1" TopLine="213"/>
     211        <Caret Line="243" Column="1" TopLine="236"/>
    149212      </Position6>
    150213      <Position7>
    151214        <Filename Value="..\..\UVarBlockSerializer.pas"/>
    152         <Caret Line="370" Column="1" TopLine="357"/>
     215        <Caret Line="244" Column="1" TopLine="236"/>
    153216      </Position7>
    154217      <Position8>
    155218        <Filename Value="..\..\UVarBlockSerializer.pas"/>
    156         <Caret Line="371" Column="1" TopLine="357"/>
     219        <Caret Line="243" Column="1" TopLine="236"/>
    157220      </Position8>
    158221      <Position9>
    159222        <Filename Value="..\..\UVarBlockSerializer.pas"/>
    160         <Caret Line="372" Column="1" TopLine="357"/>
     223        <Caret Line="244" Column="1" TopLine="236"/>
    161224      </Position9>
    162225      <Position10>
    163226        <Filename Value="..\..\UVarBlockSerializer.pas"/>
    164         <Caret Line="374" Column="1" TopLine="357"/>
     227        <Caret Line="243" Column="1" TopLine="236"/>
    165228      </Position10>
    166229      <Position11>
    167230        <Filename Value="..\..\UVarBlockSerializer.pas"/>
    168         <Caret Line="375" Column="1" TopLine="357"/>
     231        <Caret Line="244" Column="1" TopLine="236"/>
    169232      </Position11>
    170233      <Position12>
    171234        <Filename Value="..\..\UVarBlockSerializer.pas"/>
    172         <Caret Line="385" Column="1" TopLine="372"/>
     235        <Caret Line="243" Column="1" TopLine="236"/>
    173236      </Position12>
    174237      <Position13>
    175238        <Filename Value="..\..\UVarBlockSerializer.pas"/>
    176         <Caret Line="386" Column="1" TopLine="372"/>
     239        <Caret Line="244" Column="1" TopLine="236"/>
    177240      </Position13>
    178241      <Position14>
    179242        <Filename Value="..\..\UVarBlockSerializer.pas"/>
    180         <Caret Line="387" Column="1" TopLine="372"/>
     243        <Caret Line="243" Column="1" TopLine="236"/>
    181244      </Position14>
    182245      <Position15>
    183246        <Filename Value="..\..\UVarBlockSerializer.pas"/>
    184         <Caret Line="388" Column="1" TopLine="372"/>
     247        <Caret Line="244" Column="1" TopLine="236"/>
    185248      </Position15>
    186249      <Position16>
    187250        <Filename Value="..\..\UVarBlockSerializer.pas"/>
    188         <Caret Line="390" Column="1" TopLine="375"/>
     251        <Caret Line="243" Column="1" TopLine="236"/>
    189252      </Position16>
    190253      <Position17>
    191254        <Filename Value="..\..\UVarBlockSerializer.pas"/>
    192         <Caret Line="392" Column="1" TopLine="375"/>
     255        <Caret Line="244" Column="1" TopLine="236"/>
    193256      </Position17>
    194257      <Position18>
    195258        <Filename Value="..\..\UVarBlockSerializer.pas"/>
    196         <Caret Line="393" Column="1" TopLine="375"/>
     259        <Caret Line="243" Column="1" TopLine="236"/>
    197260      </Position18>
    198261      <Position19>
    199262        <Filename Value="..\..\UVarBlockSerializer.pas"/>
    200         <Caret Line="394" Column="1" TopLine="375"/>
     263        <Caret Line="244" Column="1" TopLine="236"/>
    201264      </Position19>
    202265      <Position20>
    203266        <Filename Value="..\..\UVarBlockSerializer.pas"/>
    204         <Caret Line="395" Column="1" TopLine="375"/>
     267        <Caret Line="243" Column="1" TopLine="236"/>
    205268      </Position20>
    206269      <Position21>
    207270        <Filename Value="..\..\UVarBlockSerializer.pas"/>
    208         <Caret Line="396" Column="1" TopLine="375"/>
     271        <Caret Line="244" Column="1" TopLine="236"/>
    209272      </Position21>
    210273      <Position22>
    211274        <Filename Value="..\..\UVarBlockSerializer.pas"/>
    212         <Caret Line="402" Column="1" TopLine="389"/>
     275        <Caret Line="243" Column="1" TopLine="236"/>
    213276      </Position22>
    214277      <Position23>
    215278        <Filename Value="..\..\UVarBlockSerializer.pas"/>
    216         <Caret Line="403" Column="18" TopLine="389"/>
     279        <Caret Line="244" Column="1" TopLine="236"/>
    217280      </Position23>
    218281      <Position24>
    219282        <Filename Value="..\..\UVarBlockSerializer.pas"/>
    220         <Caret Line="405" Column="22" TopLine="389"/>
     283        <Caret Line="243" Column="1" TopLine="236"/>
    221284      </Position24>
    222285      <Position25>
    223286        <Filename Value="..\..\UVarBlockSerializer.pas"/>
    224         <Caret Line="403" Column="29" TopLine="389"/>
     287        <Caret Line="244" Column="1" TopLine="236"/>
    225288      </Position25>
    226289      <Position26>
    227290        <Filename Value="..\..\UVarBlockSerializer.pas"/>
    228         <Caret Line="108" Column="29" TopLine="97"/>
     291        <Caret Line="243" Column="1" TopLine="236"/>
    229292      </Position26>
    230293      <Position27>
    231294        <Filename Value="..\..\UVarBlockSerializer.pas"/>
    232         <Caret Line="404" Column="17" TopLine="392"/>
     295        <Caret Line="244" Column="1" TopLine="236"/>
    233296      </Position27>
    234297      <Position28>
    235         <Filename Value="UMainForm.pas"/>
    236         <Caret Line="172" Column="1" TopLine="167"/>
     298        <Filename Value="..\..\UVarBlockSerializer.pas"/>
     299        <Caret Line="243" Column="1" TopLine="236"/>
    237300      </Position28>
    238301      <Position29>
    239302        <Filename Value="..\..\UVarBlockSerializer.pas"/>
    240         <Caret Line="405" Column="74" TopLine="392"/>
     303        <Caret Line="244" Column="1" TopLine="236"/>
    241304      </Position29>
     305      <Position30>
     306        <Filename Value="..\..\UVarBlockSerializer.pas"/>
     307        <Caret Line="243" Column="1" TopLine="236"/>
     308      </Position30>
    242309    </JumpHistory>
    243310  </ProjectOptions>
    … …  
    264331  </CompilerOptions>
    265332  <Debugging>
    266     <BreakPoints Count="1">
    267       <Item1>
    268         <Source Value="UMainForm.pas"/>
    269         <Line Value="172"/>
    270       </Item1>
    271     </BreakPoints>
    272333    <Exceptions Count="3">
    273334      <Item1>

  • CoolStreaming/UVarBlockSerializer.pas

    r174 r222  
    8282    procedure WriteVarSInt(Index: Integer; Value: Int64);
    8383    function ReadVarSInt(Index: Integer): Int64;
    84     procedure WriteVarFloat(Index: Integer; Value: Double);
    85     function ReadVarFloat(Index: Integer): Double;
     84    procedure WriteVarFloat(Index: Integer; Value: Double; Base: Integer = 2);
     85    function ReadVarFloat(Index: Integer; Base: Integer = 2): Double;
    8686    procedure WriteVarString(Index: Integer; Value: string);
    8787    function ReadVarString(Index: Integer): string;
    … …  
    657657end;
    658658
    659 procedure TVarBlockIndexed.WriteVarFloat(Index: Integer; Value:Double);
     659procedure TVarBlockIndexed.WriteVarFloat(Index: Integer; Value:Double; Base: Integer = 2);
    660660begin
    661661  CheckItem(Index);
    662   TVarBlockSerializer(Items[Index]).WriteVarFloat(Value);
    663 end;
    664 
    665 function TVarBlockIndexed.ReadVarFloat(Index: Integer):Double;
     662  TVarBlockSerializer(Items[Index]).WriteVarFloat(Value, Base);
     663end;
     664
     665function TVarBlockIndexed.ReadVarFloat(Index: Integer; Base: Integer = 2):Double;
    666666begin
    667667  TVarBlockSerializer(Items[Index]).Stream.Position := 0;
    668   Result := TVarBlockSerializer(Items[Index]).ReadVarFloat;
     668  Result := TVarBlockSerializer(Items[Index]).ReadVarFloat(Base);
    669669end;
    670670
Note: See TracChangeset for help on using the changeset viewer.