<html><head><meta http-equiv="Content-Type" content="text/html; charset=utf-8"></head><body style="word-wrap: break-word; -webkit-nbsp-mode: space; line-break: after-white-space;" class="">John<div class=""><br class=""></div><div class="">I don’t have the code to hand but I had a similar problem though not on a server, and changing the default block read size to 64k fixed it.</div><div class=""><br class=""></div><div class="">Jay<br class=""><div><br class=""><blockquote type="cite" class=""><div class="">On 18/12/2020, at 10:42 AM, John Bird <<a href="mailto:johnkbird@xtra.co.nz" class="">johnkbird@xtra.co.nz</a>> wrote:</div><br class="Apple-interchange-newline"><div class=""><div dir="ltr" style="caret-color: rgb(0, 0, 0); font-family: Helvetica; font-size: 12px; font-style: normal; font-variant-caps: normal; font-weight: normal; letter-spacing: normal; text-align: start; text-indent: 0px; text-transform: none; white-space: normal; word-spacing: 0px; -webkit-text-stroke-width: 0px; text-decoration: none;" class=""><div style="font-size: 12pt; font-family: Calibri;" class=""><div class=""><div style="font-size: small; text-decoration: none; font-family: Calibri; font-weight: normal; font-style: normal; display: inline;" class="">Anyone had issues with Delphi software on server 2019?</div></div><div class=""><div style="font-size: small; text-decoration: none; font-family: Calibri; font-weight: normal; font-style: normal; display: inline;" class=""> </div></div><div class=""><div style="font-size: small; text-decoration: none; font-family: Calibri; font-weight: normal; font-style: normal; display: inline;" class="">I have some software that is having issues on a server:</div></div><ul style="margin-bottom: 0cm;" class=""><li class=""><div style="font-size: small; text-decoration: none; font-family: Calibri; font-weight: normal; font-style: normal; display: inline;" class="">Delphi 2007 calling win32 standard call CopyFile(Pchar(sourcefile), PChar(Destfilename), False) is failing on some larger files with file not found – it does not copy the file</div></li><li class=""><div style="font-size: small; text-decoration: none; font-family: Calibri; font-weight: normal; font-style: normal; display: inline;" class=""> </div><span class="Apple-converted-space"> </span><div style="font-size: small; text-decoration: none; font-family: Calibri; font-weight: normal; font-style: normal; display: inline;" class="">standard TFilestream code such as below is running extremely slowly</div><ul style="margin-bottom: 0cm;" class=""><li class="">byteoffset := (recnum - 1) * lreclen2;<span class="Apple-converted-space"> </span></li><li class="">fs.seek(byteoffset, soFromBeginning);<span class="Apple-converted-space"> </span></li><li class="">sizeread := fs.read(chbuff, lreclen2);</li></ul></li><li class="">Server is using SMB2 not SMB1 which introduces apparently a whole lot of read-ahead behaviour<span class="Apple-converted-space"> </span></li></ul><div class=""> </div><div class="">Anyone know anything of such issues?</div><div class=""> </div><div class=""> </div><div class=""> </div></div></div><span style="caret-color: rgb(0, 0, 0); font-family: Helvetica; font-size: 12px; font-style: normal; font-variant-caps: normal; font-weight: normal; letter-spacing: normal; text-align: start; text-indent: 0px; text-transform: none; white-space: normal; word-spacing: 0px; -webkit-text-stroke-width: 0px; text-decoration: none; float: none; display: inline !important;" class="">_______________________________________________</span><br style="caret-color: rgb(0, 0, 0); font-family: Helvetica; font-size: 12px; font-style: normal; font-variant-caps: normal; font-weight: normal; letter-spacing: normal; text-align: start; text-indent: 0px; text-transform: none; white-space: normal; word-spacing: 0px; -webkit-text-stroke-width: 0px; text-decoration: none;" class=""><span style="caret-color: rgb(0, 0, 0); font-family: Helvetica; font-size: 12px; font-style: normal; font-variant-caps: normal; font-weight: normal; letter-spacing: normal; text-align: start; text-indent: 0px; text-transform: none; white-space: normal; word-spacing: 0px; -webkit-text-stroke-width: 0px; text-decoration: none; float: none; display: inline !important;" class="">NZ Borland Developers Group - Delphi mailing list</span><br style="caret-color: rgb(0, 0, 0); font-family: Helvetica; font-size: 12px; font-style: normal; font-variant-caps: normal; font-weight: normal; letter-spacing: normal; text-align: start; text-indent: 0px; text-transform: none; white-space: normal; word-spacing: 0px; -webkit-text-stroke-width: 0px; text-decoration: none;" class=""><span style="caret-color: rgb(0, 0, 0); font-family: Helvetica; font-size: 12px; font-style: normal; font-variant-caps: normal; font-weight: normal; letter-spacing: normal; text-align: start; text-indent: 0px; text-transform: none; white-space: normal; word-spacing: 0px; -webkit-text-stroke-width: 0px; text-decoration: none; float: none; display: inline !important;" class="">Post:<span class="Apple-converted-space"> </span></span><a href="mailto:delphi@listserver.123.net.nz" style="font-family: Helvetica; font-size: 12px; font-style: normal; font-variant-caps: normal; font-weight: normal; letter-spacing: normal; orphans: auto; text-align: start; text-indent: 0px; text-transform: none; white-space: normal; widows: auto; word-spacing: 0px; -webkit-text-size-adjust: auto; -webkit-text-stroke-width: 0px;" class="">delphi@listserver.123.net.nz</a><br style="caret-color: rgb(0, 0, 0); font-family: Helvetica; font-size: 12px; font-style: normal; font-variant-caps: normal; font-weight: normal; letter-spacing: normal; text-align: start; text-indent: 0px; text-transform: none; white-space: normal; word-spacing: 0px; -webkit-text-stroke-width: 0px; text-decoration: none;" class=""><span style="caret-color: rgb(0, 0, 0); font-family: Helvetica; font-size: 12px; font-style: normal; font-variant-caps: normal; font-weight: normal; letter-spacing: normal; text-align: start; text-indent: 0px; text-transform: none; white-space: normal; word-spacing: 0px; -webkit-text-stroke-width: 0px; text-decoration: none; float: none; display: inline !important;" class="">Admin:<span class="Apple-converted-space"> </span></span><a href="http://delphi.org.nz/mailman/listinfo/delphi" style="font-family: Helvetica; font-size: 12px; font-style: normal; font-variant-caps: normal; font-weight: normal; letter-spacing: normal; orphans: auto; text-align: start; text-indent: 0px; text-transform: none; white-space: normal; widows: auto; word-spacing: 0px; -webkit-text-size-adjust: auto; -webkit-text-stroke-width: 0px;" class="">http://delphi.org.nz/mailman/listinfo/delphi</a><br style="caret-color: rgb(0, 0, 0); font-family: Helvetica; font-size: 12px; font-style: normal; font-variant-caps: normal; font-weight: normal; letter-spacing: normal; text-align: start; text-indent: 0px; text-transform: none; white-space: normal; word-spacing: 0px; -webkit-text-stroke-width: 0px; text-decoration: none;" class=""><span style="caret-color: rgb(0, 0, 0); font-family: Helvetica; font-size: 12px; font-style: normal; font-variant-caps: normal; font-weight: normal; letter-spacing: normal; text-align: start; text-indent: 0px; text-transform: none; white-space: normal; word-spacing: 0px; -webkit-text-stroke-width: 0px; text-decoration: none; float: none; display: inline !important;" class="">Unsubscribe: send an email to<span class="Apple-converted-space"> </span></span><a href="mailto:delphi-request@listserver.123.net.nz" style="font-family: Helvetica; font-size: 12px; font-style: normal; font-variant-caps: normal; font-weight: normal; letter-spacing: normal; orphans: auto; text-align: start; text-indent: 0px; text-transform: none; white-space: normal; widows: auto; word-spacing: 0px; -webkit-text-size-adjust: auto; -webkit-text-stroke-width: 0px;" class="">delphi-request@listserver.123.net.nz</a><span style="caret-color: rgb(0, 0, 0); font-family: Helvetica; font-size: 12px; font-style: normal; font-variant-caps: normal; font-weight: normal; letter-spacing: normal; text-align: start; text-indent: 0px; text-transform: none; white-space: normal; word-spacing: 0px; -webkit-text-stroke-width: 0px; text-decoration: none; float: none; display: inline !important;" class=""><span class="Apple-converted-space"> </span>with Subject: unsubscribe</span></div></blockquote></div><br class=""></div></body></html>