Информационный сервер для программистов: Исходники со всего света. Паскальные исходники со всего света
  Powered by Поисковый сервер Яndex: Найдется ВСЁ!
На Главную Исходники Форум Информер Страны мира
   Коммуникация    >>    tpfzm100
   
 
 TPFZM v1.0 - ZMODEM File Transfer Unit for TP5.5   David Rye 11.04.1991

Модуль, реализующий протокол передачи файлов ZModem с поддержкой Fossil драйвера. Приведен только TPU5 модуль, исходника нет.
ZMODEM Unit with Fossill Support. TPU5.5 only :(



21k 
 

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 ways. 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 already.