Page 1 of 1
Marvell, PXA310 Win CE 6.0
Posted: Sun Oct 19, 2014 9:05 pm
by 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?
Re: Marvell, PXA310 Win CE 6.0
Posted: Mon Oct 20, 2014 5:54 am
by 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.
Re: Marvell, PXA310 Win CE 6.0
Posted: Mon Oct 27, 2014 8:36 pm
by Eugeniusz Owsiak
Thanks Antonio.
The next problem:
Some code:
Code: Select all
#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
@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
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
Re: Marvell, PXA310 Win CE 6.0
Posted: Tue Oct 28, 2014 3:35 am
by Antonio Linares
Eugeniusz,
In your PRG at the very beginning you have to add:
REQUEST dbfcdx
REQUEST dbffpt
REQUEST dbfntx
Re: Marvell, PXA310 Win CE 6.0
Posted: Tue Oct 28, 2014 7:13 am
by 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
Re: Marvell, PXA310 Win CE 6.0
Posted: Tue Oct 20, 2015 2:11 pm
by Antonio Linares
I missed this post.
Were you able to solve it ?