ReceiveQueue needed to set filesize on ZFILE

This commit is contained in:
mysticbbs 2012-08-09 00:39:56 -04:00
parent 9dffd23044
commit 6c3f5d8d37
1 changed files with 2 additions and 1 deletions

View File

@ -1363,7 +1363,8 @@ Begin
Queue.Add(ReceivePath, FName);
Queue.QData[Queue.QSize]^.Status := QueueIntransit;
Queue.QData[Queue.QSize]^.FileSize := FSize;
Queue.QData[Queue.QSize]^.Status := QueueIntransit;
Assign (WrkFile, ReceivePath + FName);