ReceiveQueue needed to set filesize on ZFILE
This commit is contained in:
parent
9dffd23044
commit
6c3f5d8d37
|
@ -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);
|
||||||
|
|
Loading…
Reference in New Issue