Nuevo en FWPPC

[leandro]

Compañeros del foro buenas noches...

El día de hoy adquirí el fwppc, Necesito desarrollar para la empresa que trabajo actualmente una pequeña aplicación para el control del recaudo de los servicios de electricidad y agua. Pero la verdad es que no se por donde empezar y tampoco se que herramientas necesito. Me gustaría saber si alguien me puede indicar por donde empezar?. No se si exista un emulador de windows CE, para hacer las pruebas. Me imagino que necesito bcc582.... Mejor dicho no se por donde.

Si alguien me puede dar una luz le agradecería.

Saludos

[Antonio Linares]

Leandro,

Cuando accedes a http://www.fivetechsoft.com/software/fwppc ahi tienes todo lo que necesitas:

1. FWPPC
2. Harbour 3.4 para Windows Mobile/Windows CE
3. El compilador de C a usar (no se usa Borland)
4. Los emuladores de Microsoft listos para usarlos (wce_wm_emulator.zip)

a) Ejecuta FWPPC.exe y te creará la carpeta FWPPC.
b) Descomprimer Harbour respetando su estructura de carpetas.
c) Descomprime vce2008.zip respetando su estructura de carpetas y ya tienes el compilador de C a usar.
d ) Descomprime wce_wm_emulator.zip y ahi tienes los dos emuladores (Windows Mobile y Windows CE, según lo que necesites).

Ve a la carpeta samples y ejecuta:
buildce.bat tutor01

te generará tutor01.exe. Ahora lo copias a una carpeta compartida con el emulador, que se configura desde la carpeta
donde instales los emuladores. Edita gowce.bat y verás que por defecto usamos /sharedfolder c:\fwppc\samples

[Antonio Linares]

Finalmente aqui tienes una aplicación completa con todo el código fuente que desarrolló nuestro querido Charly (Carles Aubia):

http://www.fivetechsoft.com/files/clients.zip

Modifícala según tus necesidades y ya tienes tu aplicación

[leandro]

Excelente Antonio..... Funciono a la primera. Ya compile varios ejemplos. Muchas Gracias.

Pero te tengo una pregunta... como hago para compilar varios pgrs?

[Antonio Linares]

Leandro,

Tienes que usar un fichero makefile. Necesitas estos ficheros y ejecuta go.bat:

go.bat

Code: Select all  Expand view

c:\vce2008\bin\nmake -ftest.mak

Tienes que descargar nmake.exe desde aqui:
https://bitbucket.org/fivetech/fivewin-contributions/downloads/nmake.exe

test.mak

Code: Select all  Expand view

#FWPPC make sample, (c) FiveTech Software 2015

HBDIR=c:\harbour_3.4_fwppc
FWDIR=c:\fwppc
VCDIR=c:\vce2008

PRGS =       \
uno.prg  \
dos.prg     \
tres.prg
#aqui tantos PRGs como quieras

.SUFFIXES: .prg .c .obj .rc .res

test.exe : $(PRGS:.prg=.obj) test.res
   echo $(PRGS:.prg=.obj) > msvc.tmp

   echo $(FWDIR)\lib\Fivece.lib $(FWDIR)\lib\fivecec.lib >> msvc.tmp

   echo $(HBDIR)\lib\hbrtl.lib    >> msvc.tmp
   echo $(HBDIR)\lib\hbvm.lib     >> msvc.tmp
   echo $(HBDIR)\lib\gtgui.lib    >> msvc.tmp
   echo $(HBDIR)\lib\hblang.lib   >> msvc.tmp
   echo $(HBDIR)\lib\hbmacro.lib  >> msvc.tmp
   echo $(HBDIR)\lib\hbrdd.lib    >> msvc.tmp
   echo $(HBDIR)\lib\rddntx.lib   >> msvc.tmp
   echo $(HBDIR)\lib\rddcdx.lib   >> msvc.tmp
   echo $(HBDIR)\lib\rddfpt.lib   >> msvc.tmp
   echo $(HBDIR)\lib\hbsix.lib    >> msvc.tmp
   echo $(HBDIR)\lib\hbdebug.lib  >> msvc.tmp
   echo $(HBDIR)\lib\hbcommon.lib >> msvc.tmp
   echo $(HBDIR)\lib\hbpp.lib     >> msvc.tmp
   echo $(HBDIR)\lib\hbwin.lib    >> msvc.tmp
   echo $(HBDIR)\lib\hbcplr.lib   >> msvc.tmp
   echo $(HBDIR)\lib\xhb.lib      >> msvc.tmp
   echo $(HBDIR)\lib\hbpcre.lib   >> msvc.tmp
   echo $(HBDIR)\lib\hbct.lib     >> msvc.tmp
   echo $(HBDIR)\lib\hbcpage.lib  >> msvc.tmp
   echo $(HBDIR)\lib\hbzlib.lib   >> msvc.tmp
   echo $(HBDIR)\lib\png.lib      >> msvc.tmp
   echo $(HBDIR)\lib\gtwvt.lib   >> msvc.tmp

   echo $(VCDIR)\lib\coredll.lib   >> msvc.tmp
   echo $(VCDIR)\lib\corelibc.lib  >> msvc.tmp
   echo $(VCDIR)\lib\aygshell.lib  >> msvc.tmp
   echo $(VCDIR)\lib\ws2.lib       >> msvc.tmp
   echo $(VCDIR)\lib\ole32.lib     >> msvc.tmp
   echo $(VCDIR)\lib\oleaut32.lib  >> msvc.tmp
   echo $(VCDIR)\lib\uuid.lib      >> msvc.tmp
   echo $(VCDIR)\lib\ceshell.lib   >> msvc.tmp
   echo $(VCDIR)\lib\commctrl.lib  >> msvc.tmp
   echo $(VCDIR)\lib\wininet.lib   >> msvc.tmp
   echo $(VCDIR)\lib\winsock.lib   >> msvc.tmp

   IF EXIST test.res echo test.res >> msvc.tmp
   
   $(VCDIR)\bin\link @msvc.tmp /nologo /SUBSYSTEM:WINDOWSCE,4.20 /MACHINE:THUMB /ARMPADCODE /NODEFAULTLIB:libcmt /NODEFAULTLIB:oldnames > link.log
   @type link.log
   @del $(PRGS:.prg=.obj)

$(PRGS:.prg=.obj) : $(PRGS:.prg=.c)
$(PRGS:.prg=.c) : $(PRGS)

test.res : test.rc
   $(VCDIR)\bin\rc.exe -r -d__FLAT__ -I$(VCDIR)\include test.rc
   
.prg.c:
   $(HBDIR)\bin\harbour $< /n /i$(FWDIR)\include;$(HBDIR)\include

.c.obj:
   $(VCDIR)\bin\cl.exe -c -TC -W3 -I$(HBDIR)\include -I$(VCDIR)\include $<
 

Te aparecerá un warning al construir el EXE, pero aún asi debe funcionar bien:
gtwvt.lib(gtwvt.obj) : warning LNK1166: cannot adjust code at offset=0x00001000, rva=0x000FAE28

[Antonio Linares]

Falta test.rc:

test.rc

Code: Select all  Expand view

#include "c:\vce2008\include\windows.h"

test DIALOG 10, 35, 139, 89
STYLE DS_MODALFRAME | WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU
CAPTION "DialogBox Test"
FONT 8, "system"
{
 LTEXT "&Name:", -1, 14, 4, 23, 8
 EDITTEXT 110, 12, 14, 114, 12
 LTEXT "&Address:", -1, 14, 30, 32, 8
 EDITTEXT 120, 12, 41, 114, 12
 DEFPUSHBUTTON "OK", IDOK, 14, 67, 50, 14
 PUSHBUTTON "Cancel", IDCANCEL, 74, 67, 50, 14
}

[leandro]

Ok Antonio muchas gracias... voy a hacer las pruebas y te comento.

Por otro lado necesito realizar impresiones en una pequeña impresora termica marca bixolon. La cual puedo conectar por bluetooth. Tienes algun ejemplo sobre como hacer esto?

[Antonio Linares]

Leandro,

En la carpeta samples de FWPPC tienes el ejemplo bluetoth.prg

Si buscas en estos foros por fwppc bluetooth encontrarás más ejemplos

[leandro]

Antonio Buenos dias...

Que pena molestar de nuevo.. pero es que estoy intentando compilar client.prg.... Pero
me dice que hacen falta unas funciones de harbour.. este es el error que arroja.

Code: Select all  Expand view

┌────────────────────────────────────────────────────────────────────────────┐
│ FiveWin for Pocket PC - February 2010            Harbour development power │▄
│ (c) FiveTech Software, 1993-2010           for Microsoft Windows Pocket PC │█
└────────────────────────────────────────────────────────────────────────────┘█
  ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀
Compiling...
Harbour 3.4.0dev () (2014-09-28 23:40)
Copyright (c) 1999-2014, https://github.com/vszakats/harbour-core/
Compiling 'client.prg' and generating preprocessed output to 'client.ppo'...
Lines 2085, Functions/Procedures 13
Generating C source output to 'client.c'... Done.
Microsoft (R) C/C++ Optimizing Compiler Version 15.00.20720 for ARM
Copyright (C) Microsoft Corporation.  All rights reserved.

client.c
Microsoft (R) Windows (R) Resource Compiler Version 6.2.9200.20789
Copyright (C) Microsoft Corporation.  All rights reserved.

client.RC(2) : fatal error RC1015: cannot open include file 'include'.
client.obj : error LNK2001: unresolved external symbol HB_FUN_HB_LANG_ESWIN
client.exe : fatal error LNK1120: 1 unresolved externals
* Linking errors *

C:\fwppc\samples>
 

Cuando comento esa linea me arroja este...

Code: Select all  Expand view

┌────────────────────────────────────────────────────────────────────────────┐
│ FiveWin for Pocket PC - February 2010            Harbour development power │▄
│ (c) FiveTech Software, 1993-2010           for Microsoft Windows Pocket PC │█
└────────────────────────────────────────────────────────────────────────────┘█
  ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀
Compiling...
Harbour 3.4.0dev () (2014-09-28 23:40)
Copyright (c) 1999-2014, https://github.com/vszakats/harbour-core/
Compiling 'client.prg' and generating preprocessed output to 'client.ppo'...
Lines 2085, Functions/Procedures 13
Generating C source output to 'client.c'... Done.
Microsoft (R) C/C++ Optimizing Compiler Version 15.00.20720 for ARM
Copyright (C) Microsoft Corporation.  All rights reserved.

client.c
Microsoft (R) Windows (R) Resource Compiler Version 6.2.9200.20789
Copyright (C) Microsoft Corporation.  All rights reserved.

client.RC(2) : fatal error RC1015: cannot open include file 'include'.
gtwvt.lib(gtwvt.obj) : warning LNK1166: cannot adjust code at offset=0x00001000,
 rva=0x00104400
* Application successfully built *
Acceso denegado.
        0 archivo(s) copiado(s).

C:\fwppc\samples>
 

Saludos

[leandro]

Antonio que pena molestarte sin solucionar la pregunta anterior....

Pero tampoco logro crear un menu.....

Necesito armar mi ventana principal... con varias opciones pero tampoco lo logro.

Saludos

[Antonio Linares]

Que línea tienes aqui ?

client.RC(2) : fatal error RC1015: cannot open include file 'include'.

Tienes un ejemplo de menus en FWPPC\samples\menus.prg y menus.rc

[Antonio Linares]

Leandro,

Cambia estas líneas:

#include "c:\vce\include\arm\windows.h"
#include "c:\vce\include\arm\commctrl.h"

por

#include "c:\vce2008\include\windows.h"
#include "c:\vce2008\include\commctrl.h"

[leandro]

Antonio buenos dias....

que pena molestar de nuevo, lo que pasa es que necesito realizar impresiones mediante bluetoth, tengo una impresora térmica de referencia BIXOLON SPP-R200II, ya logre realizar la conexion por el puerto COM2(serial), compile el ejemplo que mencionaste en samples, pero no logro realizar la impresión. Tu me podrias dar una luz con respecto a este tema. No se si hay que configurar algo mas en mi dispositivo.

El codigo esta de la siguiente manera:

Code: Select all  Expand view

// BlueTooth use sample

#include "FWCE.ch"

#define GENERIC_READ    0x80000000
#define GENERIC_WRITE   0x40000000
#define OPEN_EXISTING   3
#define FILE_ATTRIBUTE_NORMAL 0x00000080

function Main()

   local oWnd
   local hOut := CreateFile( "COM2:",; // change the number as needed
                             GENERIC_WRITE, 0, 0, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL )
   local hIn := CreateFile( "COM0:",; // change the number as needed
                            GENERIC_READ, 0, 0, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL )

   DEFINE WINDOW oWnd TITLE "BlueTooth"

   @ 2, 2 BUTTON "Send" ;
      ACTION SendText( hOut, "Hello world!" ) SIZE 80, 20

   ACTIVATE WINDOW oWnd

   CloseHandle( hOut )
   CloseHandle( hIn )

return nil

function SendText( hOut, cText )

   local n
   
   for n = 1 to Len( cText )
      WriteByte( hOut, Asc( SubStr( cText, n, 1 ) ) )
   next

return nil
 

[leandro]

Antonio buenos días de nuevo yo..

Ya logre hacer la conexión con la impresora.

Pero ahora necesito hacer la impresión de una página completa.
Pero no se que comandos se usan para ello. Funciona igual
que la clase tdosprn?...

Como puedo imprimir códigos de barras?

Tienes algún ejemplo?