PROBLEMAS ABRIENDO ARCHIVOS SHARED CON INDEX

[dario]

SALUDOS

QUIEN TIENE UN PROGRAMA QUE FUNCIONE ABRIENDO ARCHIVOS COMPARTIDOS (SHARED) CON INDICES (INDEX).

HE PROBADO MI PROGRAMA CON WINDOWS MOBILE 5 Y NO FUNCIONA

LO PROVE CON EL EMULADOR WINDOWS MOBILE 6 Y NO FUNCIONA
TEMAPOCO.

GRACIAS POR SU AYUDA.

DARIO FERREIRA.

[Antonio Linares]

Dario,

Tus DBFs tienen campos memo ?

[dario]

saludos antonio

LA TABLA DBF NO TIENE CAMPOS MEMOS.

SI TIENES UN PROGRAMA EJEMPLO CON SHARED Y INDEX
TE LO AGRADESCO.


GRACIAS.

[Antonio Linares]

Este ejemplo funciona correctamente en el emulador de WM2005 sobre XP SP2 y la DBF se abre sin ninguna demora:

Code: Select all  Expand view

function Main()

   USE (curdir()+'\customer.dbf') shared NEW
   msginfo(Alias())
   DbCloseAll()

return nil


Mira la versión del emulador:

[dario]

antonio


gracias por el ejemplo embiado, pero
este ejemplo ya me lo comunicaste meses antes.


el ejemplo que necesito es que maneje una tabla
abierta en forma shared con indeces abiertos (index ntx o cdx)


gracias

[Antonio Linares]

Dario,

Estos ejemplos funcionan correctamente aunque hay que ejecutarlos en un directorio del Pocket PC y NO en la tarjeta de memoria, ya que la tarjeta de memoria (SD card ó Storage card) no admite la compartición de ficheros (opción SHARED).

hay que copiar el EXE y el fichero DBF a un directorio del Pocket PC, que no esté en la tarjeta de memoria:

Code: Select all  Expand view

REQUEST DBFCDX

function Main()

   USE ( CurDir() + "\customer.dbf" ) NEW VIA "DBFCDX" SHARED
   INDEX ON Customer->First TAG "First" TO ( CurDir() + "\customer" )
   MsgInfo( IndexKey() )
   DbCloseAll()

return nil


Code: Select all  Expand view

REQUEST DBFCDX

function Main()

   USE ( CurDir() + "\customer.dbf" ) NEW VIA "DBFCDX" SHARED
   SET ORDER TO "First"
   MsgInfo( IndexKey() )
   DbCloseAll()

return nil


[dario]

antonio


gracias por el ejemplo embiado, si funciona como indicaste.


PERO CUANDO LO DIRIJO HACIA UNA RUTA FUERA DEL POCKET PC

EJEMPLO \\PC\C\CUSTOMER TIENE EL MISMO PROBLEMA ANTERIOR

SE QUEDA COLGADO NO HACE NADA.

TAMBIEM LO EJECUTE CON EL .EXE EN ENTRO DIRECTORIO Y
NO FUNCIONA.

LA DBF Y EL INDEX ESTA EN OTRA COMPUTADORA EN RED

EJEMPLO \\NOMBRE DEL PC\RUTA\CUSTOMER.DBF
DE ESTA MANERA NO FUNCIONA.

DE ESTA MANERA ES QUE NECESITO HACER EL PROGRAMA DE
PEDIDOS VIA WHI-FI O EN RED

SALUDOS.
DARIO FERREIRA.

[dario]

antonio


gracias por el ejemplo embiado, si funciona como indicaste.


PERO CUANDO LO DIRIJO HACIA UNA RUTA FUERA DEL POCKET PC

EJEMPLO \\PC\C\CUSTOMER TIENE EL MISMO PROBLEMA ANTERIOR

SE QUEDA COLGADO NO HACE NADA.

TAMBIEM LO EJECUTE CON EL .EXE EN ENTRO DIRECTORIO Y
NO FUNCIONA.

LA DBF Y EL INDEX ESTA EN OTRA COMPUTADORA EN RED

EJEMPLO \\NOMBRE DEL PC\RUTA\CUSTOMER.DBF
DE ESTA MANERA NO FUNCIONA.

DE ESTA MANERA ES QUE NECESITO HACER EL PROGRAMA DE
PEDIDOS VIA WHI-FI O EN RED

SALUDOS.
DARIO FERREIRA.

[Antonio Linares]

Dario,

> EJEMPLO \\PC\C\CUSTOMER

Cómo configuras el nombre del grupo de trabajo de la red local desde el Pocket PC ?

[dario]

antonio.


en el emulador yo no configuro el grupo de trabajo.

si existe no se donde colocarlo.


solamente cuando me conecto me pide el usuario la clave y
el dominio po primera vez y se conecta.

si me lee los archivos que esta en la RUTA \\PC\C\CUSTOMER
y exploro el disco dirigido desde el emilador.

[Antonio Linares]

Dario,

>
solamente cuando me conecto me pide el usuario la clave y
el dominio po primera vez y se conecta.
>

Desde donde te conectas ? Desde el Internet Explorer ? Puedes capturar la imagen de pantalla y ponerla aqui ? gracias (usa www.imageshack.us)

>
si me lee los archivos que esta en la RUTA \\PC\C\CUSTOMER
y exploro el disco dirigido desde el emilador.
>

Con que utilidad exploras el disco remoto ?

[dario]

antonio,

la coneccion la hice con file explorer del emulador
selecione el MENU y la opcion OPEN PATH
Y ESCRIBE \\PC\C (SERVIDOR Y DISCO COMPARTIDO)

esto lo hice para saber si estaba leyendo la ruta deseada,
esta prueba no hacia falta en condiones normales para
ejecutar el programa.


cuando me referi a tu pregunta anterior respecto al grupo de
trabajo.

simplemente te explique el proceso anterior para que emtendieras
que si habia coneccion con el servidor lo cual este no es el problema.

el programa que me embiaste modificalo de esta madera y veras
que no funciona

REQUEST DBFCDX

function Main()

** crear la variables \\servidor\disco c\directorio pru \archivo dbf

c:=("\\pc\c\pru\MESONERO.DBF")
ccdx:=("\\pc\c\pru\MESONERO")

*** USE ( CurDir() + "\customer.dbf" ) NEW VIA "DBFCDX" SHARED
*** INDEX ON Customer->First TAG "First" TO ( CurDir()+ "\customer" )

USE &c NEW VIA "DBFCDX" SHARED

INDEX ON Customer->First TAG "First" TO &ccdx


MsgInfo( IndexKey() )
DbCloseAll()

return nil



veras que da el mismo error anterior cuando el programa estaba
en la tarja storage card o tarjeta memoria

si lees el archivo sin index o shared si funciona leyendo del servidor.

[Antonio Linares]

Dario,

Te enviamos por email un nuevo build de Harbour para Pocket PC.

Por favor pruébalo, gracias. Aqui está funcionando bien.

[dario]

antonio,


actualize con lo que me mandaste y ahora no compila

cuando ejecuto b.bat y el nombre del programa

sale el siguiente error al compilar

******************************************************

Harbour Compiler Alpha build 46.2 (Flex)
Copyright 1999-2006, http://www.harbour-project.org/
Compiling '_aaa.prg' and generating preprocessed output to '_aaa.ppo'...
Lines 17, Functions/Procedures 1
Generating C source output to '_aaa.c'... Done.
Microsoft (R) C/C++ Optimizing Compiler Version 12.20.9615 for ARM
Copyright (C) Microsoft Corp 1984-2002. All rights reserved.

_aaa.c
Creating library _aaa.lib and object _aaa.exp
_aaa.obj : error LNK2001: unresolved external symbol HB_FUN_MSGINFO
common.lib(hbgete.obj) : error LNK2019: unresolved external symbol GetEnvironmen
tVariable referenced in function hb_getenv
rtl.lib(hbffind.obj) : error LNK2001: unresolved external symbol AnsiToWide
rtl.lib(errorint.obj) : error LNK2019: unresolved external symbol AnsiToWide ref
erenced in function hb_conOutErr
rtl.lib(console.obj) : error LNK2001: unresolved external symbol AnsiToWide
rtl.lib(filesys.obj) : error LNK2019: unresolved external symbol AnsiToWide refe
renced in function hb_fsOpen
rtl.lib(fstemp.obj) : error LNK2001: unresolved external symbol AnsiToWide
rtl.lib(filesys.obj) : error LNK2019: unresolved external symbol SetCurrentDirec
tory referenced in function hb_fsChDir
rtl.lib(filesys.obj) : error LNK2019: unresolved external symbol GetCurrentDirec
tory referenced in function hb_fsCurDirBuff
rtl.lib(seconds.obj) : error LNK2019: unresolved external symbol GetProcessTimes
referenced in function hb_secondsCPU
rtl.lib(fstemp.obj) : error LNK2019: unresolved external symbol WideToAnsi refer
enced in function hb_fsTempName
rtl.lib(hbffind.obj) : error LNK2001: unresolved external symbol WideToAnsi
rtl.lib(hbffind.obj) : error LNK2019: unresolved external symbol GetVolumeInform
ation referenced in function hb_fsFindNextLow
rtl.lib(gtsys.obj) : error LNK2019: unresolved external symbol HB_FUN_HB_GT_WIN
referenced in function hb_gt_ForceLink_HB_GT_WIN
vm.lib(main.obj) : error LNK2019: unresolved external symbol GPFStack referenced
in function WinMain
_aaa.exe : fatal error LNK1120: 10 unresolved externals
* Application successfully built

C:\FWPPC\dario>block
"block" no se reconoce como un comando interno o externo,
programa o archivo por lotes ejecutable.

[Antonio Linares]

Dario,

Intenta construir samples/tutor01.prg y dime que errores te da, gracias

De que fecha son las librerías de FWPPC que estás usando ?