Marvell, PXA310 Win CE 6.0

[Eugeniusz Owsiak]

Hi.
Many years ago i wrote some program for HP2790 with Win 6.5 with winsock and it was ok. Now i must do the same work with device Datalogic Memor X3 with processor Marvell PXA310 Win CE 6.0. I made some test on this device but programms can not be executed - i get none message.
I have fwppc 2009 version.

Can anybody help me?

[Antonio Linares]

Eugeniusz,

There are some functions that are available in Win 6.5 but they are not available on WinCE. If you review tutor01.prg you'll see:

// Windows CE temporary fix
// function CeSetmenu() ; return nil
// function GetMenu() ; return nil
// function ReadBitmap() ; return nil
// function PalBmpRead() ; return nil

Try with those and check again please.

Also I take the oportunity to announce that there is a new FWPPC built very recently and working fine with Harbour 3.4. We used Harbour 3.4 as Viktor helped us to make it work We sell it as an upgrade.

[Eugeniusz Owsiak]

Thanks Antonio.
The next problem:

Some code:

Code: Select all  Expand view  RUN

#include "FWCE.ch"
function Main()

   local oWnd, oBrw
   local oSay, cSearch := ""

   USE ( CurDir() + "\Customer" ) VIA "DBFCDX"
   if ! File( CurDir() + "\LAST.CDX" )
      INDEX ON Customer->Last TO ( CurDir() + "\LAST" )
   endif  
   Customer->( OrdSetFocus( "LAST" ) )
   Customer->( DbGoTop() )

   DEFINE WINDOW oWnd TITLE "IncSearch"
   
   @ 1, 1 LISTBOX oBrw ;
      FIELDS Customer->Last, Customer->First ;
      HEADERS "Last", "First" ;
      SIZE 220, 167
   
   oBrw:bKeyChar = { | nKey, nFlags | Search( nKey, @cSearch ), oBrw:Refresh(),;
                                      oSay:Refresh() }
   
   @ 14,  2 SAY "Searching:" SIZE 60, 30
   @ 14, 12 SAY oSay PROMPT cSearch SIZE 80, 30
   
   ACTIVATE WINDOW oWnd ;
      ON CLICK MsgInfo( "Click!" )
   
return nil

//----------------------------------------------------------------------------//

function Search( nKey, cSearch )

   if nKey = 8
      cSearch = SubStr( cSearch, 1, Len( cSearch ) - 1 )
   else
      cSearch += Upper( Chr( nKey ) )
   endif
   
   Customer->( DbSeek( cSearch, .t. ) )

return nil

//----------------------------------------------------------------------------//
Init Function RddInit()
REQUEST DBFCDX
   REQUEST DBFFPT
    dbSetDriver("DBFCDX")
    REQUEST HB_CODEPAGE_PLWIN
    REQUEST HB_LANG_PLWIN
    hb_SetCodepage( "PLWIN" )
    hb_langselect('PLWIN')

    SET DBFLOCKSCHEME TO 3

RETURN NIL
 

My batch file:

Code: Select all  Expand view  RUN

@ECHO OFF
CLS
ECHO Compiling...

set hdir=c:\hb_CE
set vcdir=c:\vce
set include=c:\vce\include\armv4;c:\Hb_CE\include;%include%
set lib=c:\vce\lib;c:\Hb_CE\lib;%lib%

c:\Hb_CE\bin\harbour tutor1 /n /ic:\fwppc\include;c:\Hb_CE\include /p > clip.log
@type clip.log
IF ERRORLEVEL 1 PAUSE
IF ERRORLEVEL 1 GOTO EXIT

c:\vce\bin\clarm -W3 -c /DARM /DUNICODE /Ic:\Hb_CE\include /Ic:\fwppc\include tutor1.c >comp.log
:ENDCOMPILE

IF EXIST tutor1.rc c:\vce\bin\rc /ic:\vce\include\armv4 /r /d_CE tutor1.rc >>comp.log

echo tutor1.obj > msvc.tmp

echo c:\fwppc\lib\FiveCE.lib c:\fwppc\lib\FiveCEC.lib  >> msvc.tmp
echo c:\Hb_CE\lib\hbrtl.lib  >> msvc.tmp
echo c:\Hb_CE\lib\hbvm.lib  >> msvc.tmp
echo c:\Hb_CE\lib\gtgui.lib  >> msvc.tmp
echo c:\Hb_CE\lib\hblang.lib  >> msvc.tmp
echo c:\Hb_CE\lib\hbmacro.lib  >> msvc.tmp
echo c:\Hb_CE\lib\hbrdd.lib  >> msvc.tmp
echo c:\Hb_CE\lib\dbfntx.lib  >> msvc.tmp
echo c:\Hb_CE\lib\dbfcdx.lib  >> msvc.tmp
echo c:\Hb_CE\lib\dbffpt.lib  >> msvc.tmp
echo c:\Hb_CE\lib\hbsix.lib  >> msvc.tmp
echo c:\Hb_CE\lib\hbdebug.lib  >> msvc.tmp
echo c:\Hb_CE\lib\hbcommon.lib  >> msvc.tmp
echo c:\Hb_CE\lib\hbpp.lib  >> msvc.tmp
echo c:\Hb_CE\lib\hbcpage.lib  >> msvc.tmp
echo c:\Hb_CE\lib\hbw32.lib  >> msvc.tmp
echo c:\Hb_CE\lib\hbpcre.lib  >> msvc.tmp

rem Uncomment these two lines to use Advantage RDD
rem echo c:\Hb_CE\lib\rddads.lib >> msvc.tmp
rem echo c:\Hb_CE\lib\ace32.lib >> msvc.tmp


echo c:\vce\lib\arm\coredll.lib   >> msvc.tmp
echo c:\vce\lib\arm\corelibc.lib  >> msvc.tmp
echo c:\vce\lib\arm\aygshell.lib  >> msvc.tmp
echo c:\vce\lib\arm\ws2.lib  >> msvc.tmp
echo c:\vce\lib\arm\mfcce400.lib  >> msvc.tmp
echo c:\vce\lib\arm\ole32.lib  >> msvc.tmp
echo c:\vce\lib\arm\oleaut32.lib  >> msvc.tmp
echo c:\vce\lib\arm\olece400.lib  >> msvc.tmp
echo c:\vce\lib\arm\uuid.lib  >> msvc.tmp
echo c:\vce\lib\arm\ceshell.lib  >> msvc.tmp
echo c:\vce\lib\arm\commctrl.lib  >> msvc.tmp
echo c:\vce\lib\arm\wininet.lib  >> msvc.tmp


IF EXIST tutor1.res echo tutor1.res >> msvc.tmp

c:\vce\bin\link @msvc.tmp /nologo /SUBSYSTEM:WINDOWSCE,4.20 /MACHINE:ARM  >>comp.log

rem delete temporary files
rem @del tutor1.c
rem @del tutor1.obj
rem @del tutor1.exp
rem @del tutor1.lib
rem @del msvc.tmp

IF ERRORLEVEL 1 GOTO LINKERROR
ECHO * Application successfully built
GOTO EXIT
ECHO

:LINKERROR
rem PAUSE * Linking errors *
GOTO EXIT

:SINTAX
ECHO    SYNTAX: Build [Program]     {-- No especifiques la extensi˘n PRG
ECHO                                {-- Don't specify .PRG extension
GOTO EXIT

:NOEXIST
ECHO The specified PRG %1 does not exist

:EXIT
Pause ..

and at last some errors:

Code: Select all  Expand view  RUN

tutor1.c
tutor1.obj : error LNK2001: unresolved external symbol HB_FUN_DBFFPT
hbrdd.lib(rddsys.obj) : error LNK2001: unresolved external symbol HB_FUN_DBFFPT
tutor1.obj : error LNK2001: unresolved external symbol HB_FUN_DBFCDX
hbrdd.lib(rddsys.obj) : error LNK2001: unresolved external symbol HB_FUN_DBFNTX
tutor1.exe : fatal error LNK1120: 3 unresolved externals
 

What is wrong?

Regards Eugeniusz

[Antonio Linares]

Eugeniusz,

In your PRG at the very beginning you have to add:

REQUEST dbfcdx
REQUEST dbffpt
REQUEST dbfntx

[Eugeniusz Owsiak]

Antonio, in code there is
Init function RddInit()

When I add lines with REQUEST DBFNTX etc
I get the same errors.

What else ?


Regards Eugeniusz

[Antonio Linares]

I missed this post.

Were you able to solve it ?