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

File buffer changes

This commit is contained in:
mysticbbs 2012-04-02 04:04:24 -04:00
parent 04a9106717
commit eb8cd5aace
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
mystic/mis_client_ftp.pas
View File

@ -76,7 +76,8 @@ Type
Implementation Implementation
Const Const
FileBufSize = 8 * 1024; FileBufSize = 4 * 1024;
FileXferSize = 32 * 1024;
re_DataOpen = '125 Data connection already open'; re_DataOpen = '125 Data connection already open';
re_DataOpening = '150 File status okay; about to open data connection.'; re_DataOpening = '150 File status okay; about to open data connection.';
@ -590,7 +591,7 @@ Var
Dir : RecFileList; Dir : RecFileList;
Found : LongInt; Found : LongInt;
F : File; F : File;
Buf : Array[1..4096] of Byte; Buf : Array[1..FileXferSize] of Byte;
Tmp : LongInt; Tmp : LongInt;
Res : LongInt; Res : LongInt;
Begin Begin