FoxPro/Visual FoxPro - 2.- CONSULTAS

   
Vista:

2.- CONSULTAS

Publicado por KIKITO (127 intervenciones) el 07/11/2009 03:19:48
SALUDOS.
SE PUEDE REALIZAR UN PROGRAMA EN FOX PARA SCANEAR DOCUMENTO Y GUARDARLO DIRECTAMENTE EN UN CAMPO GENERAL.
SI HAY UN EJEMPLO O LINK POR FAVOR ENVIEMELO.

UN PROGRAMITA QUE CIERRE UNA TABLA OSEA QUE NO SE PUEDA VER CON COMANDOS INTERACTIVOS EN AL VENTANA DE COMANDOS (USE, BROW, ETC) PERO QUE SI SE PUEDA VIA ABRIR VIA SISTEMA.

Y OTRO PARA BOLVER A SU SITUACION NORMAL.

GRACIAS.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:2.- CONSULTAS

Publicado por Humberto (83 intervenciones) el 07/11/2009 14:26:14
Hola KIKITO

Emmm a ver si entendí

Consulta 1
No lo he realizado personalmente, pero hay una tal "TWAIN" ocx para scanear

Consulta 2
Creo entender que queres ocultar una tabla, si es así. Tendrías que usar los comandos de atributos. !Attrib nombre_archivo -h -a

Eh!! Dijiste 2 consultas y al final son TRES jajaajaj
Desde el sistema estarías manejando la situación de esa tabla

A mi en este momento; no se me ocurre otro modo. Mucha Suerte
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Scanear Si es que aun estas interesado

Publicado por Roberto (123 intervenciones) el 10/11/2009 05:36:36
Colocar esto en un boton (Evento Click)

DECLARE INTEGER TWAIN_SelectImageSource IN 'C:\Eztw32.DLL' INTEGER hWnd
DECLARE INTEGER TWAIN_GetSourceList IN 'C:\Eztw32.DLL'
DECLARE INTEGER TWAIN_GetNextSourceName IN 'C:\Eztw32.DLL' STRING @cSourceName
DECLARE INTEGER TWAIN_OpenSource IN 'C:\Eztw32.DLL' STRING cSourceName
DECLARE INTEGER TWAIN_AcquireNative IN 'C:\Eztw32.DLL' INTEGER nAppWind, INTEGER nPixelTypes
DECLARE INTEGER TWAIN_WriteNativeToFilename IN 'C:\Eztw32.DLL' INTEGER nDIB, STRING cFilename
DECLARE INTEGER TWAIN_FreeNative IN 'C:\Eztw32.DLL' INTEGER nDIB
DECLARE INTEGER TWAIN_SetMultiTransfer IN 'C:\Eztw32.DLL' INTEGER nFlag
LOCAL lcFile, lnImageHandle, lnReply

lcFile = 'c:\prueba.JPG'

* Captura la imágen
lnImageHandle = TWAIN_AcquireNative(0,0)
* copia la imagen a un archivo
lnReply = ;
TWAIN_WriteNativeToFilename(lnImageHandle,lcFile)
* Libera la memoria del manejador de la imágen
TWAIN_FreeNative(lnImageHandle)
* Chequear errores
IF lnReply = 0
MESSAGEBOX(' * Scaneado Exitoso')
ELSE
MESSAGEBOX(' * Algo NO Estuvo Bien',0,'Revise Scaner')
ENDIF


El archivo Eztw32.DLL debes bajarlo desde google...busquelo

Saludos,
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar