FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexActive topicsAll discussionsLogin (GitHub)
Board index FiveWin for Harbour/xHarbour Upgrade Errror From FWH107 to FWH113
acwoo1
Posts: 175
Joined: Tue Nov 10, 2009 10:56 AM
Upgrade Errror From FWH107 to FWH113
Posted: Thu Mar 31, 2011 12:10 PM

Hi,

I get this error when I upgrade.

Error: Unresolved external 'WSAIoctl' referenced from C:\HARBOUR113\LIB\HBRTL.LIB|hbsocket

Using FWH113 + Harbour + BCC582

Regards
ACWoo

nageswaragunupudi
Posts: 10733
Joined: Sun Nov 19, 2006 05:22 AM
Re: Upgrade Errror From FWH107 to FWH113
Posted: Thu Mar 31, 2011 12:17 PM

Please try linking this library also in addition:
\bcc582\lib\ws2_32.lib

Regards



G. N. Rao.

Hyderabad, India
acwoo1
Posts: 175
Joined: Tue Nov 10, 2009 10:56 AM
Re: Upgrade Errror From FWH107 to FWH113
Posted: Thu Mar 31, 2011 02:05 PM

Thanks for the help.

The error is gone.
But transactions are doubly saved when click once.

Please help

Thanks
AC Woo

nageswaragunupudi
Posts: 10733
Joined: Sun Nov 19, 2006 05:22 AM
Re: Upgrade Errror From FWH107 to FWH113
Posted: Thu Mar 31, 2011 02:18 PM
But transactions are doubly saved when click once.

I have not noticed any such behavior. Possible because I mostly use xHarbour and use Harbour very rarely.

Can you post a small self-contained sample which replicates the problem?
Regards



G. N. Rao.

Hyderabad, India
acwoo1
Posts: 175
Joined: Tue Nov 10, 2009 10:56 AM
Re: Upgrade Errror From FWH107 to FWH113
Posted: Fri Apr 08, 2011 03:11 AM

Thanks for the help

If I use 'Alt' key to save, it is OK. But if I click the 'Save' button, it will save twice.

Please help.

Regards
Eddy
Using FWH113+harbour+bcc582

Antonio Linares
Posts: 44162
Joined: Thu Oct 06, 2005 05:47 PM
Re: Upgrade Errror From FWH107 to FWH113
Posted: Fri Apr 08, 2011 08:45 AM

Eddy,

Could you please provide a source code example ? thanks

regards, saludos

Antonio Linares
www.fivetechsoft.com
acwoo1
Posts: 175
Joined: Tue Nov 10, 2009 10:56 AM
Re: Upgrade Errror From FWH107 to FWH113
Posted: Fri Apr 08, 2011 11:21 PM
Thanks for your help

A reproduceable example:


Code (fw): Select all Collapse
#include "FiveWin.ch"

static oWnd

function Main()

local oFont
local obtn1

skinbuttons()

DEFINE FONT oFont NAME "Arial" SIZE 0, -22 BOLD
if !file("tax3.dbf")
createfilea()
endif

DEFINE WINDOW oWnd FROM 1, 1 TO 20, 70 ;
TITLE "Test" 

      @ 1.5, 1 BUTTON obtn1 PROMPT  "Test1"  OF oWnd ACTION test1() ;
                                            SIZE 100, 24

SET MESSAGE OF oWnd ;
TO "WELCOME" CENTERED TIME DATE
ACTIVATE WINDOW oWnd MAXIMIZED

DEFINE FONT oFont NAME "Arial" SIZE 0, -11 BOLD
oFont:End()

return nil
*******************************************
function createfilea()

// "File : tax3.dbf"
tmpdbf:= {}
AAdd(tmpdbf, {"recnum1", "n", 5, 0})
AAdd(tmpdbf, {"recnum", "c", 8, 0})
AAdd(tmpdbf, {"desp", "c", 100, 0})
dbcreate("tax3.dbf", tmpdbf)
close
****************************
function test1()

#include "fivewin.ch"
local oDlg

              mrecnum1 = 0
              mrecnum = space(8)
              mdesp = space(100)


if (Select("tax3") == 0)
use tax3 new
index on recnum to temp
else
select Select("tax3")
endif 


DEFINE DIALOG oDlg FROM 0, 0 TO 26, 79 ;
TITLE "Test 1"

@ -0.361, -0.1 to 13.945, 44.714
@ -0.361, -0.1 to 12.545, 44.714

              @  0, 1 say "No."
              @  0.9, 1 say "Ref. No."
              @  1.8, 1 say "Desp"
              @  0, 6 get mrecnum1 OF oDlg SIZE 38, 11 picture "99999"
              @  1, 6 get mrecnum OF oDlg SIZE 100, 11
              @  2, 6 get mdesp OF oDlg SIZE 150, 11


@ 4, 0.4 LISTBOX oLbx FIELDS str(tax3->recnum1,5,0),;
tax3->recnum, tax3->desp ;
HEADERS "No", "Ref. No.", "Desp" ;
FIELDSIZES 40, 80, 390 ;
SIZE 307, 116 OF oDlg 

@ 9.95, 18.7 BUTTON "&Save" OF oDlg SIZE 40, 12 ;
ACTION (test1a("2"), oLbx:Refresh())
@ 9.95, 25.7 BUTTON "&Exit" OF oDlg SIZE 40, 12 ;
ACTION ( lreturn := .t., oDlg:End())

ACTIVATE DIALOG oDlg CENTERED
close databases
return nil 
************************************************
function test1a()

parameter Newedit

local oDlg
local oFont
local oLbx
local lreturn := .f.
local oc1desp
local time1:= 1
local newref1:= "N"

DEFINE FONT oFont NAME "Arial" SIZE 0, -11 BOLD

select tax3
      append blank
      onerror("APPEND")
      replace recnum1 with mrecnum1 
      replace recnum with mrecnum 
      replace desp with mdesp
goto top
return nil
********************************************
function ONERROR

parameters errortype
errortype:= Upper(errortype)
do case
case errortype == "RLOCK"
if (RLock())
return .T.
endif
do while (!RLock())
InKey(3)
enddo
case errortype == "APPEND"
if (!neterr())
onerror("RLOCK")
return .T.
endif
do while (neterr())
InKey(3)
append blank
enddo
onerror("RLOCK")
endcase
return .T.

********************************


Please help

Regards
acwoo
Using FWH113+harbour+bcc582
Daniel Garcia-Gil
Posts: 2365
Joined: Wed Nov 02, 2005 11:46 PM
Re: Upgrade Errror From FWH107 to FWH113
Posted: Sat Apr 09, 2011 12:08 AM

Hello

send me a email danielgarciagil@gmail.com

i'll send you the correction, only for test, if all is ok, we will include to fivewin

our best documentation is the source code
Isla de Margarita Venezuela.
danielgarciagil@gmail.com
http://tdolphin.blogspot.com/
https://www.dropbox.com/referrals/NTI5Njk4MDc1OQ?src=global9
acwoo1
Posts: 175
Joined: Tue Nov 10, 2009 10:56 AM
Re: Upgrade Errror From FWH107 to FWH113
Posted: Sun Apr 10, 2011 12:45 AM

Thanks for the help

How do I modify my make file to put in the obj received.

Template make file for FWH and Borland Make tool

Copyright FiveTech 2002

Make directives

.autodepend
.swap
.suffixes: .prg .hrb

.suffixes: .prg .obj

Flags for modules to include: YES | NO (must be UPPERCASE)

RES_FILE = NO
LNK_DBFNTX = YES
LNK_DBFCDX = NO
LNK_DEBUG = NO
LNK_ADVANTAGE = NO
LNK_ODBC = NO
MAP_FILE = NO

Application directories & filenames

APP_NAME = test1 # (Your EXE name without extension)
APP_PRG_DIR = .

APP_OBJ_DIR = obj # (create the app\obj directory first)

APP_OBJ_DIR = . # (create the app\obj directory first)
APP_INCLUDE_DIR = .
APP_EXE_DIR = $(APP_PRG_DIR)
APP_RES_DIR = $(APP_PRG_DIR)

APP_EXE = $(APP_EXE_DIR)\$(APP_NAME).exe
APP_RC = $(APP_RES_DIR)\$(APP_NAME).rc
APP_RES = $(APP_RES_DIR)\$(APP_NAME).res
APP_MAP = $(APP_RES_DIR)\$(APP_NAME).map

Paths for dependent files

.path.prg = $(APP_PRG_DIR)
.path.hrb = $(APP_OBJ_DIR)
.path.obj = $(APP_OBJ_DIR)

Application PRG files (your PRG files go here)

APP_PRG_LIST = \
test1.prg \
vrd.prg \
vrdbcode.prg \
vrdini.prg \
vrditem.prg \
easyprev.prg \
tfilexls.prg \
xlsError.prg \
xlsfunc.prg

Contruction of the rest dependency lists

APP_PRGS = $(APP_PRG_LIST)

APP_HRBS = $(APP_PRG_LIST:.prg=.hrb)

APP_HRBS = $(APP_PRG_LIST:.prg=.obj)
APP_OBJS = $(APP_PRG_LIST:.prg=.obj)

Fivewin directories

FIVEWIN_INCLUDE_DIR = c:\fwh113\include
FIVEWIN_LIB_DIR = c:\fwh113\lib

Fivewin libraries

FIVE_LIB = $(FIVEWIN_LIB_DIR)\fiveH.lib
FIVEC_LIB = $(FIVEWIN_LIB_DIR)\fiveHC.lib

Harbour directories & flags

HARBOUR_INCLUDE_DIR = c:\harbour113\include
HARBOUR_EXE_DIR = c:\harbour113\bin
HARBOUR_LIB_DIR = c:\harbour113\lib
HARBOUR_FLAGS = -i$(APP_INCLUDE_DIR);$(FIVEWIN_INCLUDE_DIR);$(HARBOUR_INCLUDE_DIR) -n -m -w -es2 -gc0 -w0
HARBOUR_EXE = $(HARBOUR_EXE_DIR)\harbour.exe

Harbour libraries

HBRTL_LIB = $(HARBOUR_LIB_DIR)\hbrtl.lib
HBVM_LIB = $(HARBOUR_LIB_DIR)\hbvm.lib
GTGUI_LIB = $(HARBOUR_LIB_DIR)\gtgui.lib
HBLANG_LIB = $(HARBOUR_LIB_DIR)\hblang.lib
HBMACRO_LIB = $(HARBOUR_LIB_DIR)\hbmacro.lib
HBRDD_LIB = $(HARBOUR_LIB_DIR)\hbrdd.lib

RDDNTX_LIB = $(HARBOUR_LIB_DIR)\rddntx.lib
RDDCDX_LIB = $(HARBOUR_LIB_DIR)\rddcdx.lib
RDDFTP_LIB = $(HARBOUR_LIB_DIR)\rddfpt.lib
HBSIX_LIB = $(HARBOUR_LIB_DIR)\hbsix.lib
HBDEBUG_LIB = $(HARBOUR_LIB_DIR)\hbdebug.lib
HBCOMMON_LIB = $(HARBOUR_LIB_DIR)\hbcommon.lib
HBPP_LIB = $(HARBOUR_LIB_DIR)\hbpp.lib
HBCPAGE_LIB = $(HARBOUR_LIB_DIR)\hbcpage.lib
HBWIN_LIB = $(HARBOUR_LIB_DIR)\hbwin.lib

HBCPLR_LIB = $(HARBOUR_LIB_DIR)\hbcplr.lib
HBCT_LIB = $(HARBOUR_LIB_DIR)\hbct.lib
XHB_LIB = $(HARBOUR_LIB_DIR)\xhb.lib
HBZIPARC_LIB = $(HARBOUR_LIB_DIR)\hbziparc.lib
HBMZIP_LIB = $(HARBOUR_LIB_DIR)\hbmzip.lib
HBZLIB_LIB = $(HARBOUR_LIB_DIR)\hbzlib.lib
MINIZIP_LIB = $(HARBOUR_LIB_DIR)\minizip.lib

Advantage libraries

RDDADS_LIB = $(HARBOUR_LIB_DIR)\rddads.lib
ACE32_LIB = $(FIVEWIN_LIB_DIR)\ace32.lib

Borlanc directories & flags

BORLANDC_INCLUDE_DIR = c:\bcc582\include
BORLANDC_EXE_DIR = c:\bcc582\bin
BORLANDC_LIB_DIR = c:\bcc582\lib

BORLANDC_INCLUDE_DIR = f:\bcc582\include

BORLANDC_EXE_DIR = f:\bcc582\bin

BORLANDC_LIB_DIR = f:\bcc582\lib

BORLANDC_COMP_FLAGS = -c -O2 -I$(HARBOUR_INCLUDE_DIR);$(BORLANDC_INCLUDE_DIR)
BORLANDC_COMP_EXE = $(BORLANDC_EXE_DIR)\bcc32.exe
BORLANDC_LINK_FLAGS = -Gn -aa -Tpe -s -I$(APP_OBJ_DIR)
BORLANDC_LINK_EXE = $(BORLANDC_EXE_DIR)\ilink32.exe
BORLANDC_RES_EXE = $(BORLANDC_EXE_DIR)\brc32.exe

!if $(MAP_FILE) != YES
BORLANDC_LINK_FLAGS = $(BORLANDC_LINK_FLAGS) -x
!endif

Borland libraries & files

STARTUP_OBJ = $(BORLANDC_LIB_DIR)\c0w32.obj
CW32_LIB = $(BORLANDC_LIB_DIR)\cw32.lib
UUID_LIB = $(BORLANDC_LIB_DIR)\uuid.lib
IMPORT32_LIB = $(BORLANDC_LIB_DIR)\import32.lib
ODBC32_LIB = $(BORLANDC_LIB_DIR)\psdk\odbc32.lib
NDDEAPI_LIB = $(BORLANDC_LIB_DIR)\psdk\nddeapi.lib
IPHLPAGI_LIB = $(BORLANDC_LIB_DIR)\psdk\iphlpapi.lib
MSIMG32_LIB = $(BORLANDC_LIB_DIR)\psdk\msimg32.lib
RASAPI32_LIB = $(BORLANDC_LIB_DIR)\psdk\rasapi32.lib
WS2_32_LIB = $(BORLANDC_LIB_DIR)\ws2_32.lib

Dependencies

all: $(APP_OBJS) $(APP_HRBS) $(APP_EXE)

!if $(RES_FILE) == YES
all: $(APP_RES)
!endif

Implicit Rules

.prg.hrb:
$(HARBOUR_EXE) $(HARBOUR_FLAGS) $** -o$@

.hrb.obj:
$(BORLANDC_COMP_EXE) $(BORLANDC_COMP_FLAGS) -o$@ $**

Explicit Rules

!if $(RES_FILE) == YES
$(APP_RES) : $(APP_RC)
$(BORLANDC_RES_EXE) -r $**

$(APP_EXE) :: $(APP_RES)
@if exist $(APP_EXE) del $(APP_EXE) > nul
!endif

$(APP_EXE) :: $(APP_OBJS)
@echo $(STARTUP_OBJ) + > make.tmp
@echo $(**), + >> make.tmp
@echo $(APP_EXE), + >> make.tmp
@echo $(APP_MAP), + >> make.tmp
@echo $(FIVE_LIB) + >> make.tmp
@echo $(FIVEC_LIB) + >> make.tmp

@echo $(HBRTL_LIB) + >> make.tmp # must have
@echo $(HBVM_LIB) + >> make.tmp # must have
@echo $(GTGUI_LIB) + >> make.tmp
@echo $(HBLANG_LIB) + >> make.tmp
@echo $(HBMACRO_LIB) + >> make.tmp # must have
@echo $(HBRDD_LIB) + >> make.tmp # must have
@echo $(RDDNTX_LIB) + >> make.tmp # must have
@echo $(RDDCDX_LIB) + >> make.tmp
@echo $(RDDFTP_LIB) + >> make.tmp # must have
@echo $(HBSIX_LIB) + >> make.tmp # must have
@echo $(HBDEBUG_LIB) + >> make.tmp
@echo $(HBCOMMON_LIB) + >> make.tmp # must have
@echo $(HBPP_LIB) + >> make.tmp
@echo $(HBCPAGE_LIB) + >> make.tmp
@echo $(HBWIN_LIB) + >> make.tmp # must have

@echo $(HBCPLR_LIB) + >> make.tmp
@echo $(HBCT_LIB) + >> make.tmp
@echo $(XHB_LIB) + >> make.tmp
@echo $(HBZIPARC_LIB) + >> make.tmp
@echo $(HBMZIP_LIB) + >> make.tmp
@echo $(HBZLIB_LIB) + >> make.tmp
@echo $(MINIZIP_LIB) + >> make.tmp

@echo EASYPREV.LIB + >> make.tmp
@echo FIVEHN.LIB + >> make.tmp
@echo MAIL.LIB + >> make.tmp
@echo VRD.LIB + >> make.tmp
@echo EASYPREVIEW.LIB + >> make.tmp
@echo FILEXLS.LIB + >> make.tmp

@echo $(CW32_LIB) + >> make.tmp # must have
@echo $(UUID_LIB) + >> make.tmp
@echo $(IMPORT32_LIB) + >> make.tmp # must have
@echo $(ODBC32_LIB) + >> make.tmp
@echo $(NDDEAPI_LIB) + >> make.tmp
@echo $(IPHLPAGI_LIB) + >> make.tmp
@echo $(MSIMG32_LIB) + >> make.tmp
@echo $(RASAPI32_LIB) + >> make.tmp
@echo $(WS2_32_LIB) + >> make.tmp

!if $(RES_FILE) == YES
@echo ,$(APP_RES) >> make.tmp
!endif
$(BORLANDC_LINK_EXE) $(BORLANDC_LINK_FLAGS) @make.tmp
@del $(APP_EXE_DIR)\$(APP_NAME).tds
@del make.tmp

Please help

Regards
acwoo
using FWH113+harbour+bcc582

Daniel Garcia-Gil
Posts: 2365
Joined: Wed Nov 02, 2005 11:46 PM
Re: Upgrade Errror From FWH107 to FWH113
Posted: Sun Apr 10, 2011 02:34 AM

Hello

Here

@echo $(STARTUP_OBJ) skins.obj + > make.tmp

Or here

@echo skins.obj $(**), + >> make.tmp

our best documentation is the source code
Isla de Margarita Venezuela.
danielgarciagil@gmail.com
http://tdolphin.blogspot.com/
https://www.dropbox.com/referrals/NTI5Njk4MDc1OQ?src=global9
acwoo1
Posts: 175
Joined: Tue Nov 10, 2009 10:56 AM
Re: Upgrade Errror From FWH107 to FWH113
Posted: Sun Apr 10, 2011 03:45 AM

Thanks a lot.

It works.

Regards
acwoo

acwoo1
Posts: 175
Joined: Tue Nov 10, 2009 10:56 AM
Re: Upgrade Errror From FWH107 to FWH113
Posted: Tue Apr 12, 2011 03:42 AM

Hi,

After a while, when I click the button once, it behaves like I have clicked twice.
It does not happen all the while. Only sometimes.

Regards
acwoo

kok joek hoa
Posts: 117
Joined: Tue Jan 03, 2006 06:18 PM
Re: Upgrade Errror From FWH107 to FWH113
Posted: Tue Apr 12, 2011 04:01 AM

Dear Acw001

Did you check your mouse? I used to have the same problem, because the mouse is broken

regards,

Kok

Continue the discussion

Static archive · New replies & topics via GitHub Discussions