home *** CD-ROM | disk | FTP | other *** search
/ POINT Software Programming / PPROG1.ISO / pascal / swag / mail.swg / 0013_QWK File format.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1993-09-26  |  1.0 KB  |  37 lines
  1. *)
  2. From: KELLY SMALL                  Refer#: NONE
  3. Subj: QWK stuff                      Conf: (1221) F-PASCAL
  4. *)
  5.  
  6. Type Array25 = Array[1..25] of Char;
  7.      HdrRec = Record
  8.        MessageStatus : Char;
  9.        MessageNumber : Array[1..7] of Char;
  10.        MessageDate   : Array[1..8] of Char;
  11.        MessageTime   : Array[1..5] of Char;
  12.        MessageTo     : Array25;
  13.        MessageFrom   : Array25;
  14.        MessageSubject: Array25;
  15.        MessagePS     : Array[1..12] of Char;
  16.        MessageRefer  : Array8;
  17.        TotalBlock    : Array[1..6] of Char;
  18.        MessageKilled : Char;
  19.        Conference    : Integer;
  20.        Dummy         : Array[1..3] of Char;
  21.        End;
  22.  
  23. Var Header : HdrRec;
  24.     F      : File;
  25.  
  26. begin
  27.   assign(f,'message.dat');
  28.   reset(f);
  29.   read(f,header);
  30. end.
  31.  
  32. But this is only the begining, you will need to read in all the
  33. message as 128 byte blocks and convert it for editing.  It's an
  34. array of char, not strings, and it uses #227 for an End of Line,
  35. rather then the conventional carriage return/line feed.
  36.  
  37.