Antonio,
Only today I saw your requirement. Here with Windows 7 Professional 64 bits, all files are running ok
Best regards,
FWH / xHb / xDevStudio / SQLLIB
Antonio,
Only today I saw your requirement. Here with Windows 7 Professional 64 bits, all files are running ok
Best regards,
Otto, Kleyber,
Thanks! ![]()
Windows 7 Ultimate := .T.
Windows Vista Ultimate := .T.
=====>
Bayron Landaverry
xBasePHP.com
(215)2226600 Philadelphia,PA, USA
MayaBuilders@gMail.com
Guatemala
FWH25.06--Harbour 3.0.0--BCC7.7--UEstudio 10.10
Windows 10
FiveWin, One line of code and it's done...
Bayron, thanks! ![]()
Everything is working fine with Windows 7 Enterprise x64
Antonio,
I have my windows 7 professional up and ready to go however I am having a problem
with my compiling and the c:\vc64 folder. Where should I get this folder from?
Thanks
I was able to get my program to start to compile by copying the
C:\Program Files (x86)\Microsoft Visual Studio 10.0\VC folder over
c:\vc64, when I go to compile I get the error mspdb100.dll, it says
it cannot find the program, try and reinstall it. Any ideas on what I need to do?
Thanks
Antonio,
Works great, thanks a lot.
I can't wait till we get some of our applications ported to the 64bit version!
We have one application that we are very interested in seeing how the
64bit version will do, and we have a lot of people that will want to test it.
http://groups.google.com/group/x12-parser
Thanks
Antonio,
When I compile the odbc sample programs I am getting a lot of unresolved link errors.
Thanks
Antonio Linares wrote:We have built a new FWH 64 bits version, besides Harbour 64 bits from the most recent Harbour SVN files.
Actually we don't have a Windows 7 64 bits at hand so we appreciate if someone would like to test it, thanks
Antonio,
We have started to implement the fwh64 into our production environment.
I have modified my build64.bat file to run on our network drive and it is doing a good job
on simple programs. I have added a lot of dummy functions into our production program
to take care of our odbc and turl functions.
I do have two remaining error issues that I am not quite sure what to do about.
The loadlibrary and the freelibrary, I can do a search of our libraries and see if we have
those functions defined somewhere unexpected. The last error is one that I am
not sure what to do about.
hbwin.lib(legacycd.obj) : warning LNK4006: HB_FUN_LOADLIBRARY already defined in FiveHC64.lib(DLL.obj); second definition ignored
hbwin.lib(legacycd.obj) : warning LNK4006: HB_FUN_FREELIBRARY already defined in FiveHC64.lib(DLL.obj); second definition ignored
FiveHC64.lib(ACTX.obj) : error LNK2019: unresolved external symbol "long __cdecl hb_oleVariantToItem(struct _HB_ITEM ,struct tagVARIANT )" (?hb_oleVariantToItem@@YAJPEAU_HB_ITEM@@PEAUtagVARIANT@@@Z) referenced in function InvokeEvent
Thanks
#include "FiveWin.ch"
//----------------------------------------------------------------------------//
function Main()
local oDlg, lExit := .f., oBtn
DEFINE DIALOG oDlg FROM 5, 5 TO 15, 40 TITLE "Benchmark Tests"
@ 1, 4 BUTTON "Test 1" OF oDlg SIZE 40, 12;
ACTION ( c1test1() )
@ 2, 4 BUTTON "Test 2" OF oDlg SIZE 40, 12;
ACTION ( c1test2() )
@ 3, 4 BUTTON "Test 3" OF oDlg SIZE 40, 12;
ACTION ( c1test3() )
@ 1, 12 BUTTON oBtn PROMPT "Exit" OF oDlg SIZE 40, 12 ;
ACTION (lExit := .t., oDlg:End() )
ACTIVATE DIALOG oDlg VALID lExit
return nil
//----------------------------------------------------------------------------//
#include"c1test.prg"function c1test1()
local x:=0
local y:=0
local max:=1000000000
local stime:=seconds()
local etime:=0
do while .t.
do case
case y=10
x:=max
case y=11
x:=max
case y=12
x:=max
case y=13
x:=max
case y=14
x:=max
case y=15
x:=max
case y=16
x:=max
case y=17
x:=max
case y=18
x:=max
case y=19
x:=max
case y=20
x:=max
case y=21
x:=max
case y=22
x:=max
case y=23
x:=max
case y=24
x:=max
case y=25
x:=max
case y=26
x:=max
case y=27
x:=max
case y=28
x:=max
case y=29
x:=max
endcase
x:=x+1
if stime<seconds()-10
exit
endif
enddo
?str(x)+" Loops in 10 Seconds"
return(x)
****************************************
function c1test2()
local x:=0
local y:=0
local max:=1000000000
local stime:=seconds()
local etime:=0
local xfile:="c1test"
local xdata:=""
if file(xfile)
?" Error Running Test. Delete the c1test.dbf file to correct the problem."
else
create temp
append blank
replace field_name with "SBS00A"
replace field_type with "C"
replace field_len with 255
replace field_dec with 0
close
create c1test from temp
erase temp
close databases
select 1
dbselectarea("1")
use c1test
stime:=seconds()
do while .t.
append blank
replace sbs00a with replicate("Z",200)
x:=x+1
if stime<seconds()-10
exit
endif
enddo
?str(x)+" records written to the database in 10 seconds."
goto top
stime:=seconds()
do while .not.eof()
xdata:=1->sbs00a
skip 1
enddo
?str(seconds()-stime)+" seconds to read "+str(x)+" records."
goto top
stime:=seconds()
do while .not.eof()
if rlock()
replace sbs00a with space(200)
endif
skip 1
enddo
?str(seconds()-stime)+" seconds to Update "+str(x)+" records."
close databases
erase temp.dbf
erase c1test.dbf
endif
return(x)
*********************
function c1test3()
local x:=0
local y:=0
local max:=1000000000
local stime:=seconds()
local etime:=0
local xfile:="c1test.txt"
local xdata:=""
local ydata:=""
local z:=1
do while .t.
if z=1
xdata:=replicate("X",1000)
z=0
else
z:=1
xdata:=replicate("Y",2000)
endif
memowrit(xfile,xdata)
ydata:=memoread(xfile)
x:=x+1
if stime<seconds()-10
exit
endif
enddo
erase c1test.txt
?str(x)+" Memo Read Writes in 10 seconds."
return(x)Antonio Linares wrote:Problem solved!
We were using a wrong resources manifest file. Now it is ok.
Here you can test the EXEs again:
tutor01.exe
http://www.mediafire.com/?wynk2izdz22
tutor02.exe
http://www.mediafire.com/?utzwmuczltx
ribbon.exe
http://www.mediafire.com/?fzjjmgmzvdj
Antonio,
We have some good news and some bad news.
First the good news.
We were able to convert one of our products over to 64 bits in less than a half days work.
The bad news is that it is slower than the 32 bit version.
If I had to guess as to why, it may have to do with arrays.
We are doing binary file reads and then loading multiple dimensional arrays.
Just wanted to pass back what we were finding here.
Thanks