home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 September / Chip_2002-09_cd1.bin / zkuste / delphi / kompon / d123456 / STR_BIT.ZIP / 16 / PRIM / BITBYTE.PAS next >
Pascal/Delphi Source File  |  2000-04-15  |  990b  |  29 lines
  1. program BitBite;
  2. {$F+,R+,X+,B+,V-}
  3.  uses  StrBit16;
  4.  var Msig_is : PBitFile;
  5.      Ftest : file of byte;
  6.      Simv : byte;
  7.      ImIsFile, ImRezFile : string;
  8. begin
  9.  Writeln('Åp«úpἼᠻαÑ«íαẫóá¡¿∩ ñá¡¡δσ ¿º Σ«α¼áΓá ÆÇ ó ß¿¼ó«½∞¡δ⌐ ó¿ñ');
  10.  if ParamCount <> 2 Then Exit;
  11.  ImIsFile := ParamStr(1);   { óº∩Γ∞ ¿¼∩ ¿ßσ«ñ¡«ú« Σá⌐½á ¿º ¬«¼á¡ñ¡«⌐ ßΓ᫬¿ }
  12.  ImRezFile := ParamStr(2);  { óº∩Γ∞ ¿¼∩ Σá⌐½á αѺπ½∞ΓáΓá ¿º ¬«¼á¡ñ¡«⌐ ßΓ᫬¿ }
  13.    { ÄΓ¬αδΓ¿Ñ Σá⌐½«ó ñ½∩ «íαáí«Γ¬¿ }
  14.  Msig_is:= New(PBitFile,Init(1,4096));
  15.  Msig_is^.OpenBitFile(ImIsFile,btOpenRead);
  16.   Assign(Ftest,ImRezFile);
  17.   ReWrite(Ftest);
  18.     { ÅαÑ«íαẫóá¡¿Ñ ñá¡¡δσ ¿º í¿Γ«ó«ú« ó¿ñá ó ß¿¼ó«½∞¡δ⌐ }
  19.   Simv := Msig_is^.ReadBit;
  20.   While Simv < 2 do begin  { Äαúá¡¿ºáµ¿∩ µ¿¬½á τΓÑ¡¿∩ ñá¡¡δσ }
  21.    Simv := Simv+Ord('0');
  22.    Write ( Ftest, Simv );  { éδó«ñ ß¿¼ó«½á ó Σá⌐½ }
  23.    Simv := Msig_is^.ReadBit;
  24.   end;
  25.   { çá¬αδΓ¿Ñ «íαáíáΓδóáѼδσ Σá⌐½«ó }
  26.   Close(Ftest);
  27.  Msig_is^.CloseBitFile;
  28.  Dispose(Msig_is,Done);
  29. end.