Hi all,
I have a really strange problem on Windows XP networks,
some customers reported me that my FWH app is very slow working on an
XP network environment.
I made some test about reading and writing from a client to a network
drive using this self-contained routine that create a file and then
read it (first with small data segments and then with big data
segments).
The result is this:
- using a Windows Vista client connected to a Windows Vista server all
is correct (see vista tests)
- using a Windows Vista client connected to a Windows XP server the
reading time is really strange because it is higher then the writing
time (see XP tests)
Note that I used a server the same computer (it has a dual boot XP/
Vista) so there isn't an hardware interference to analize the tests)
Any ideas about this high reading time on XP ?
I optimized the windows registry using the xharbour function
os_netregok()
Thanks
Marco
**** test speed function **
Function TestNet()
cTest:=""
cFile:="Z:\test\testnet.net"
**
cTest:=cTest+"Testing drive "+p05+chr(13)+chr(10)
cTest:=cTest+"-"+chr(13)+chr(10)
cTest:=cTest+"Creating 10M file with 1000KB segments **"+chr(13)+chr
(10)
nStart:=seconds()
handle:=fcreate(cFile)
for i:=1 to 10000
fwrite(handle,space(1000))
next
fclose(handle)
nEnd:=seconds()-nStart
cTest:=cTest+"Done. "+str(nEnd,10,2)+" seconds required"+chr(13)+chr
(10)
cTest:=cTest+"-"+chr(13)+chr(10)
cTest:=cTest+"Reading 10M file with 1000KB segments **"+chr(13)+chr
(10)
nStart:=seconds()
handle:=fopen(cFile)
for i:=1 to 10000
cVar:=freadstr(handle,1000)
next
fclose(handle)
nEnd:=seconds()-nStart
cTest:=cTest+"Done. "+str(nEnd,10,2)+" seconds required"+chr(13)+chr
(10)
cTest:=cTest+"Testing drive "+p05+chr(13)+chr(10)
cTest:=cTest+"-"+chr(13)+chr(10)
cTest:=cTest+"Creating 10M file with 10000KB segments **"+chr(13)+chr
(10)
nStart:=seconds()
handle:=fcreate(cFile)
for i:=1 to 1000
fwrite(handle,space(10000))
next
fclose(handle)
nEnd:=seconds()-nStart
cTest:=cTest+"Done. "+str(nEnd,10,2)+" seconds required"+chr(13)+chr
(10)
cTest:=cTest+"-"+chr(13)+chr(10)
cTest:=cTest+"Reading 10M file with 10000KB segments **"+chr(13)+chr
(10)
nStart:=seconds()
handle:=fopen(cFile)
for i:=1 to 1000
cVar:=freadstr(handle,10000)
next
fclose(handle)
nEnd:=seconds()-nStart
cTest:=cTest+"Done. "+str(nEnd,10,2)+" seconds required"+chr(13)+chr
(10)
msginfo(cTest)
return
** results with a Vista server ***
Testing drive Z
-
Creating 10M file with 1000KB segments **
Done. 5.45 seconds required
-
Reading 10M file with 1000KB segments **
Done. 0.38 seconds required
Testing drive Z
-
Creating 10M file with 10000KB segments **
Done. 0.92 seconds required
-
Reading 10M file with 10000KB segments **
Done. 0.40 seconds required
** results with an XP server ******
Testing drive Z
-
Creating 10M file with 1000KB segments **
Done. 0.37 seconds required
-
Reading 10M file with 1000KB segments **
Done. 3.65 seconds required
Testing drive Z
-
Creating 10M file with 10000KB segments **
Done. 0.22 seconds required
-
Reading 10M file with 10000KB segments **
Done. 0.59 seconds required
Marco Turco
SOFTWARE XP LLP
