Скачать TPFZM v1.0 - ZMODEM File Transfer Unit for TP5.5

Скачать файл (22,09 Кб)

This unit is a translation of some Zmodem code I ran across.
It was made for use with a multitude of units including it's own
serial port driver routines.  Conversion to the use of the FOSSIL
driver included some hand written assembly FOSSIL interface routines
while trying to read the German than the documentation was in.  In
addition to the assembly, I removed it's need for multiple support
units so that you only need the FZM.TPU file to get it working.
This unit has NOT been tested very extensively and any bug reports,
bricks, donations or fan mail can be sent to me in the following

     David Rye                     Signal-7
     201 Brantley Rd.         OR   (904) 659-2337   3/12/2400 Baud
     Grandin, FL 32138             10:00 P.M.  - 5:00 A.M.  EST ONLY!

     In addition, netmail to me at either 1:18/41 or 1:208/2 will
find it's way to me.

     Special thanks to Gary Lagier for his help with all the Turbo
Pascal stuff.  He's made life a lot easier for many TP programmers.

     Also, special thanks to John Traphofner, my Alpha Guinnea Pig.
It takes guts to run a strange man's code on your system.

     The use of the unit is easy.  It has two procedures, they follow.

     To receive a file or file with Zmodem call this procedure.
PROCEDURE ZR (path : STRING;             { Path for the file(s) }
              baudrate : LONGINT;        { Baudrate to receive at }
              port  : WORD;              { Port to receive from }
              VAR failedflag : BOOLEAN); { TRUE if no errors }

     To send a file with Zmodem call this procedure.
PROCEDURE ZS (filename : STRING;     { Path and filename }
              baudrate : LONGINT;    { Baudrate to send at }
              port  : WORD;          { Port to send from }
              lastfile : BOOLEAN;    { TRUE if only sending 1 file }
              VAR fehler : WORD);    { Failed if <> 0 }

     You must call these procedures with the FOSSIL driver for the
specified port already 'hot', in other words, the port must be open