FUNCTION main()LOCAL flenme := space(50)LOCAL Color := SETCOLOR("w/b")scroll()@ 10, 10 say "Enter File Name:" get flenmereadflenme := rtrim( flenme )dbusearea( .T., "dbfntx", flenme, flenme, .F. , )browse()RETURN NIL
#include "c:\include\mediator.ch"FUNCTION main()request medntxdbusearea( .T., "medntx", "LCS_CDR", "LCS_CDR", .F. , )RETURN NIL
----------------------------------------------------------------------------------------------------Project [ C:/hb30/bin/Projects/Mediator/mediator.prg ] Launch [ Yes ] Rebuild [ Yes ] Started [ 12:05:12 ]----------------------------------------------------------------------------------------------------Batch File Exists => C:\DOCUME~1\ADMINI~1.EMP\LOCALS~1\Temp\1\dddeu3.batBatch File Contents =>hbmk2 -q -trace -info -lang=en -width=0 -rebuild -hbexe C:\hb30\bin\Projects\Mediator\mediator.prgCommand => C:\WINDOWS\system32\cmd.exeArguments => /C C:\DOCUME~1\ADMINI~1.EMP\LOCALS~1\Temp\1\dddeu3.bat----------------------------------------------------------------------------------------------------CurDir() => hb30\bin Starting in => C:\hb30\bin\Projects\Mediator\C:\hb30\bin\Projects\Mediator>hbmk2 -q -trace -info -lang=en -width=0 -rebuild -hbexe C:\hb30\bin\Projects\Mediator\mediator.prghbmk2: Autodetected platform: winhbmk2: Autodetected C compiler: mingwhbmk2: Using Harbour: C:\HB30\bin C:\HB30\include C:\HB30\lib\win\mingw C:\HB30\binhbmk2: Using C compiler: C:\HB30\comp\mingw\binhbmk2: Compiling Harbour sources...hbmk2: Harbour compiler command (embedded):(C:\HB30\BIN\harbour.exe) -n2 C:\hb30\bin\Projects\Mediator\mediator.prg -q -o.hbmk\win\mingw\ -iC:\HB30\includeHarbour 3.0.0 (Rev. 16951)Copyright (c) 1999-2011,hbmk2: Compiling...hbmk2: 'cd' to: .hbmk\win\mingwhbmk2: C/C++ compiler command:C:\HB30\comp\mingw\bin\gcc.exe -c -O3 -march=i586 -mtune=pentiumpro -fomit-frame-pointer -W -Wall -pipe -IC:/HB30/include ../../../.hbmk/win/mingw/mediator.c ../../../.hbmk/win/mingw/_hbmkaut_mediator.chbmk2: 'cd' back.hbmk2: Linking... mediator.exehbmk2: Linker command:C:\HB30\comp\mingw\bin\gcc.exe .hbmk/win/mingw/mediator.o .hbmk/win/mingw/_hbmkaut_mediator.o -mconsole -Wl,--start-group -lhbextern -lhbdebug -lhbvm -lhbrtl -lhblang -lhbcpage -lgtcgi -lgtpca -lgtstd -lgtwin -lgtwvt -lgtgui -lhbrdd -lhbuddall -lhbusrrdd -lrddntx -lrddcdx -lrddnsx -lrddfpt -lhbrdd -lhbhsx -lhbsix -lhbmacro -lhbcplr -lhbpp -lhbcommon -lhbmainstd -lkernel32 -luser32 -lgdi32 -ladvapi32 -lws2_32 -lwinspool -lcomctl32 -lcomdlg32 -lshell32 -luuid -lole32 -loleaut32 -lmpr -lwinmm -lmapi32 -limm32 -lmsimg32 -lwininet -lhbpcre -lhbzlib -Wl,--end-group -omediator.exe -LC:/HB30/lib/win/mingw -LC:/HB30/bin.hbmk/win/mingw/mediator.o:mediator.c:(.data+0x48): undefined reference to `HB_FUN_MEDNTX'collect2: ld returned 1 exit statushbmk2: Error: Running linker. 1C:\HB30\comp\mingw\bin\gcc.exe .hbmk/win/mingw/mediator.o .hbmk/win/mingw/_hbmkaut_mediator.o -mconsole -Wl,--start-group -lhbextern -lhbdebug -lhbvm -lhbrtl -lhblang -lhbcpage -lgtcgi -lgtpca -lgtstd -lgtwin -lgtwvt -lgtgui -lhbrdd -lhbuddall -lhbusrrdd -lrddntx -lrddcdx -lrddnsx -lrddfpt -lhbrdd -lhbhsx -lhbsix -lhbmacro -lhbcplr -lhbpp -lhbcommon -lhbmainstd -lkernel32 -luser32 -lgdi32 -ladvapi32 -lws2_32 -lwinspool -lcomctl32 -lcomdlg32 -lshell32 -luuid -lole32 -loleaut32 -lmpr -lwinmm -lmapi32 -limm32 -lmsimg32 -lwininet -lhbpcre -lhbzlib -Wl,--end-group -omediator.exe -LC:/HB30/lib/win/mingw -LC:/HB30/bin----------------------------------------------------------------------------------------------------Exit Code [ 7 ] Exit Status [ 0 ] Finished at [ 12:05:13 ] Done in [ 0.64 Secs ]----------------------------------------------------------------------------------------------------Detected executable => C:\hb30\bin\Projects\Mediator\mediator.exeSorry, cannot launch project because of errors...
I am in the process of converting 16 bit Clipper programs to 32 bit programs. I have several executables that use Mediator in order to access MSSQL tables that work fine in Clipper but are slow and will not work with 64 bit operating systems.I do not any problems writing basic programs such as the following:FUNCTION main()LOCAL flenme := space(50)LOCAL Color := SETCOLOR("w/b")scroll()@ 10, 10 say "Enter File Name:" get flenmereadflenme := rtrim( flenme )dbusearea( .T., "dbfntx", flenme, flenme, .F. , )browse()RETURN NILThe executible works fine and opens an xBase (dbf) file and permits browsing. However, when I attempt to use an RDD, specifically mediator in the following prg (that works in clipper)#include "c:\include\mediator.ch"FUNCTION main()request medntxdbusearea( .T., "medntx", "LCS_CDR", "LCS_CDR", .F. , )RETURN NILI receive the following Error - Undefined reference to `HB_FUN_MEDNTX'