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,6 +1363,7 @@ Begin
Queue.Add(ReceivePath, FName); Queue.Add(ReceivePath, FName);
Queue.QData[Queue.QSize]^.FileSize := FSize;
Queue.QData[Queue.QSize]^.Status := QueueIntransit; Queue.QData[Queue.QSize]^.Status := QueueIntransit;
Assign (WrkFile, ReceivePath + FName); Assign (WrkFile, ReceivePath + FName);