FoxPro/Visual FoxPro - Se Lleno mi archivo

 
Vista:

Se Lleno mi archivo

Publicado por Victor Báez (30 intervenciones) el 21/02/2003 12:43:45
Tengo un archivo .dbf dentro de una BD, con campos general para imagenes, resulta que mi archivo.FPT ya alcanzo 2 GB que es lo maximo que visial maneja, como puedo hacer para solucionar, las imagenes que se guardaron son muy grande que se capto desde una cama fotografica.
Desde ya le agradesco y espero una solución
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:Se Lleno mi archivo

Publicado por Roman Suazo (2723 intervenciones) el 21/02/2003 15:40:30
En el foro FoxPro/Visual FoxPro Avanzado , hace poco tuvimos una dis-
cusion acerca de como lidiar con ese problema, el tema de la pregunta era: insertar fotos por maria cristina . Lee todas las respuestas creo que por ahi se te puede ocurrir algo para solucionar tu problema.

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

Ya lei

Publicado por Victor Báez (30 intervenciones) el 21/02/2003 15:59:41
Ya lei ese, pero tengo ya guardados varias imagenes entonces me gustaria encontrar una funcione que me permita guardar ahora del campo general a un archivo de imagen para implementar solo por las rutas. pero no se como pasar de un campo general a un archivo.bmp
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

RE:Ya lei

Publicado por Roman Suazo (2723 intervenciones) el 21/02/2003 22:08:07
Ok, ojala mucha gente lea esta pregunta para asi evitarse los problemas
que estas teniendo...
Aqui te va una rutinita que te ayudara a resolver tu problema:

selec 'tutabla'
copy to "tempTabla" next 1
gcBMP_file = 'nombredearchivo.bmp"'
lnHandlein = fopen ("temptabla.fpt")
lnHandleout = fcreate(gcBMP_file)
lnEnd = fseek(lnHandlein, 0, 2)
lnTop = fseek(lnHandlein, 0)
lcStr1 = fread(lnHandlein, lnEnd)
lcStr2 = right(lcStr1, len(lcStr1) - 599)
fwrite(lnHandleout, lcStr2)
fclose(lnHandlein)
fclose(lnHandleout)
erase temptabla.dbf
erase temptabla.fpt

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

RE:Ya lei

Publicado por Victor Báez (30 intervenciones) el 22/02/2003 12:13:08
Ok, gracias por la rutina, voy a probar
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

No me funciono

Publicado por Victor Báez (30 intervenciones) el 22/02/2003 17:30:38
Hola amigo, lastima probe asi como me pasaste pero no me funcionó probe de varias formas más aumentando el 599 que su pongo es el bloque. Un dato interesante que un campo general vacio me devuelve 512 que tambien probe con esto pero ni aun.
Desde ya te agradesco por la atención que me diste
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

RE:No me funciono

Publicado por Roman Suazo (2723 intervenciones) el 22/02/2003 21:09:36
Que raro!
Yo lo probe antes de mandartelo y funciono. Por que no pruebas con
una tabla de prueba (asi lo probe yo). Añadis al primer registro un
archivo .bmp con append general, despues pones el codigo como
te lo di, es decir, el bmp se añadio al primer registro de la tabla, te
vas al primer registro y de ese registro sacas el bmp con el codigo.
Obviamente el codigo que te di solo funciona para un registro. Un
posible error que encontre en mi respuesta es que temptabla esta
escrito diferente en algunas lineas de la rutina, chequea eso, tal
vez ese es el error del codigo.

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

No porque...

Publicado por Victor Báez (30 intervenciones) el 24/02/2003 16:27:51
Gracias amigo.
No funcionó porque los archivos que se guardarón se corto desde Imagin. Ahora probe desde paint y me funcionó, pero haciendo desde Imagin no funciona. y todas las fotos se guardarón desde imagin.

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