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.
Dario,
Tus DBFs tienen campos memo ?
saludos antonio
LA TABLA DBF NO TIENE CAMPOS MEMOS.
SI TIENES UN PROGRAMA EJEMPLO CON SHARED Y INDEX
TE LO AGRADESCO.
GRACIAS.
function Main()
USE (curdir()+'\customer.dbf') shared NEW
msginfo(Alias())
DbCloseAll()
return nil
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
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 nilREQUEST DBFCDX
function Main()
USE ( CurDir() + "\customer.dbf" ) NEW VIA "DBFCDX" SHARED
SET ORDER TO "First"
MsgInfo( IndexKey() )
DbCloseAll()
return nil
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
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,
> EJEMPLO \PC\C\CUSTOMER
C贸mo configuras el nombre del grupo de trabajo de la red local desde el Pocket PC ?
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.
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 ?
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.
Dario,
Te enviamos por email un nuevo build de Harbour para Pocket PC.
Por favor pru茅balo, gracias. Aqui est谩 funcionando bien.
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.
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 ?