Upgrade Errror From FWH107 to FWH113

[acwoo1]

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]

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

[acwoo1]

Thanks for the help.

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

Please help

Thanks
AC Woo

[nageswaragunupudi]

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?

[acwoo1]

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]

Eddy,

Could you please provide a source code example ? thanks

[acwoo1]

Thanks for your help

A reproduceable example:

Code: Select all  Expand view

#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]

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

[acwoo1]

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]

Hello

Here

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

Or here

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

[acwoo1]

Thanks a lot.

It works.

Regards
acwoo

[acwoo1]

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]

Dear Acw001

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

regards,

Kok