eric
/
mysticbbs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Now complains on download if download path doesn't exist.

This commit is contained in:
mysticbbs 2013-05-23 20:44:40 -04:00
parent 41512144be
commit dcc5deb77c
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
mystic/nodespy_term.pas
View File

@ -647,6 +647,12 @@ Var
Image : TConsoleImageRec; Image : TConsoleImageRec;
Queue : TProtocolQueue; Queue : TProtocolQueue;
Begin Begin
If Not DirExists(XferPath) Then Begin
ShowMsgBox (0, 'Download directory does not exist');
Exit;
End;
Queue := TProtocolQueue.Create; Queue := TProtocolQueue.Create;
Zmodem := TProtocolZmodem.Create(Client, Queue); Zmodem := TProtocolZmodem.Create(Client, Queue);