Crear un fichero ZIP desde access y añadir archivos
Blue
añadirle los ficheros que a mi me interese. Esto me hace falta porque con un
programa access tengo que crear 5 ficheros de texto y meterlos lo 5 en un
zip, para facilitarle las cosas al clienet y que quede mas contento lo
quiero hacer con codigo. Alguna vez creo que vi una especie de SDK de winzip
que con algunas librerias podias hacer esto pero no se s ies asi o me
equvoco.
Gracias
Principiante
http://www.mvp-access.com/buho/ficheros/zipaccess.zip
Principiante.
Blue escribió:
Rosa Sanjuan
Para Acces97 no funciona porque el Búho cortó por lo
sano con relación a la versión 97.
(Una gran pérdida para los que tenemos cosas en
Access 97 y que no podemos/no queremos migrar).
Si un alma caritativa dijera como manejar estas DLL
en 97 seria como un padre para mi.
Saludos
Rosa
"Principiante" <corre...@terra.es> escribió en el mensaje
news:OAQWHZu...@TK2MSFTNGP11.phx.gbl...
Búho
Si tienes posibilidad de correr este ejemplo en algun Access 2000, pruebale:
www.mvp-access.com/buho/ficheros/zipear.zip
Utiliza una librería escrita en C++ que no tiene ninguna dependencia con VB
logicamente, esto implica que te funcionará de forma autonoma y que no
necesitas tampoco ni registrar ni referenciar en tus proyectos VBA
(Simplemente copiala en tu c:\windows\system32
Si realmente estás muy interesada en este tema, la proxima semana te preparo
un ejemplo para A97, donde además aplico ya la tecnica de transportar la
propia DLL dentro de un campo OLE de una tabla.
De esta manera te desentiendes en tus proyectos, si el cliente tiene o no
dicha librería en su sistema, ya que la creo en tiempo de ejecucion, la
primera vez que corre el codigo y la copio en el system 32, todo de manera
oculta al usuario. De esta forma siempre podrás comprimir de una manera
clara y directa desde tu A97.
--
Saludos desde Valladolid
Francisco Javier García Aguado
buho...@mvp-access.com
---
http://www.mvp-access.com/buho
http://www.mvp-access.com/foro
http://groups.msn.com/Access2000VisualBasic/
Mi Perfil de MVP en Microsoft:
http://tinyurl.com/6ysvu
---
---
Este correo ha sido testeado y no tiene virus (Al menos conocidos). Saludos
de Francisco Javier García Aguado (Buho)
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.732 / Virus Database: 486 - Release Date: 29/07/2004
Búho
habré metido la pata en algo:
www.mvp-access.com/buho/ficheros/ZipAccessversion97.zip
No hace falta que tengas la Zip32.dll, ya se crea ella solita en tiempo de
ejecucion y se deposita en C:\windows\system32 (En realidad en la ruta que
el propio codigo determine que tienes instalado el SO) mediante la tecica
que te he descrito en el anaterior mensaje. Por cierto tecnica que viene muy
bien cuando deseamos meter DLL dentro de access y no nos produzca el dolor
de cabeza de referencias rotas etc etc
He quitado funciones no compatibles com Access 97 (Creo que he quitado
todas....pero...) ya me contarás si tira o no en Access 97
Nos leemos esta noche o mañana
:-)
Emilio
extraerla y así evitar el tener que copiar el archivo, !hace falta
imaginación¡ 8-)))
Se me ocurrió usar tu rutina EscribeDLL... para extraer una imagen de un
campo OLE, pero no ha funcionado, se te ocurre porque, ¿hay alguna
diferencia?
Chapeau
--
Saludos a tod@s desde Huelva
Emilio
miliuco56 ALGARROBA hotmail.com
Reglas de conducta de los grupos de noticias:
http://support.microsoft.com/default.aspx?scid=fh;ES-ES;newsreglas
"Búho" <pacoQU...@nemo.es> escribió en el mensaje
news:efKuQG6d...@TK2MSFTNGP09.phx.gbl...
E. Feijoo
Un saludo E. Feijoo
"Emilio" <miliuco56 ARROBA Hotmail.com> escribió en el mensaje news:utoCZf6d...@TK2MSFTNGP12.phx.gbl...
Emilio
tengo una base de datos con varios cientos de imagenes en campos OLE, poco
aconsejable verdad, la idea es sacar todas y convertirlas en ficheros, para
luego guardar exclusivamente su ruta.
--
Saludos a tod@s desde Huelva
Emilio
miliuco56 ALGARROBA hotmail.com
Reglas de conducta de los grupos de noticias:
http://support.microsoft.com/default.aspx?scid=fh;ES-ES;newsreglas
"E. Feijoo" <e.feijoo()retemail.es> escribió en el mensaje
news:u5%23al76d...@TK2MSFTNGP10.phx.gbl...
Búho
fotos, las hayas almacenado en formato «paquete» bien a través de un
formulario, bien directamente desde la tabla (Insertando objeto).
Si te das cuenta, la forma de almacenar yo la DLL es otra. Aporvecho las
peculiaridades del campo OLE y lo almaceno en formato binario (Binarios
largos, si te fijas)...con lo cual si aplicas a tu caso, el codigo del
ejemplo, no obstendrás resultados adecuados.
Sé, me consta, lo debo tener por algun lado de mi PC, que existe un metodo
para extraer las imagenes de un campo OLE incrustradas en formato «paquete».
SI lo encuentro, te lo mando a ver si te funciona. Creo recordar que es un
ejemplo en VB
Bueno, vamos a ver si de alguna manera, podemos dormir a gusto hot, ya que
el calor que hace en estos momentos (Casi la 1 de la madrugada) es sofocante
:-S
julian-vlc-sp
mira que ya es lunes!!!!!!!!!!!!!!!!!!!
--
SALUDOS.
julian-valencia-españa
http://www.access-sin-codigo.tk
http://www.mvp-access.com
"Búho" <pacoQU...@nemo.es> escribió en el mensaje
news:elXZppBe...@TK2MSFTNGP12.phx.gbl...
Rosa Sanjuan
Da errores al compilar en A97
Public Enum ZTranslate
(No hay Enum en A97)
B = .Fields(NombreCampoTabla)
(Imposible asignar a una matriz)
MYUSER.DLLPrnt = FnPtr(AddressOf DLLPrnt)
MYUSER.DLLPASSWORD = FnPtr(AddressOf DllPass)
MYUSER.DLLCOMMENT = FnPtr(AddressOf DllComm)
(se esperaba expresión)
Saludos
Rosa
Búho
probarlo.
Lo de Enum, lo tienes facil, ya sabes. Le quitas y pones la declaracion de
constantes en cualquier modulo(No de clase) en la forma:
Public Const CRLFtoLF = 1
Public Const LFtoCRLF = 2
Respecto al problema con
B = .Fields(NombreCampoTabla) no tengo ni idea del error. En realidad
estamos asignando el contenido de un campo binario, a una matriz declarada
como Byte. Ni idea de por que no funciona en Access 97
Lo del operador AddressOf, sí, sabía que no existía en Access 97, pero no me
dí cuenta de que estaba en el codigo.
Se que subsituyó a AddrOf en versiones superiores a Acecss 97, ahora bien ,
su uso en Access 97 (El uso de AddrOf) no tengo ni idea, puesto que ni viene
en la ayuda de Access 2003.
Podrías mirar la ayuda de AddrOf y compatibilizar la sintaxis respecto a
AddressOf.
Y poco mas que decir...que estamos, casi, como al principio...
Búho
ojeada a las News.
Por cierto, aprovecho...y antes de que te vayas con las cabras....¿Tienes ya
el boceto de ese pedazo documento Word que estabas haciendo para inutiles
como yo que no saben escribir con Word?
--
Saludos desde Valladolid
Francisco Javier García Aguado
buho...@mvp-access.com
---
http://www.mvp-access.com/buho
http://www.mvp-access.com/foro
http://groups.msn.com/Access2000VisualBasic/
Mi Perfil de MVP en Microsoft:
http://tinyurl.com/6ysvu
---
"julian-vlc-sp" <iju...@SOBRAiespana.es> escribió en el mensaje
news:uRKR%23$BeEHA...@TK2MSFTNGP11.phx.gbl...
> opero paco, paco, hijo mío, estas son horas?
>
> mira que ya es lunes!!!!!!!!!!!!!!!!!!!
>
---
Búho
En la pagina de Juan, en concreto en esta direccion:
http://www.mvp-access.com/juanmafan/descargas/inputboxex.htm
tienes el ejemplo de uso (Comentario incluido por él). Es el ejemplo,
obviamente , para Access 97
Lo utiliza Juan para un ejemplo de un InputBox especial...
Emilio
Vayas horas, te cambio tu "caló" por la mía y eso que ha bajado un poquito.
Por cierto preciosa la iglesia de San Pablo y no menos el colegio de San
Pablo anexo.
--
Saludos a tod@s desde Huelva
Emilio
miliuco56 ALGARROBA hotmail.com
Reglas de conducta de los grupos de noticias:
http://support.microsoft.com/default.aspx?scid=fh;ES-ES;newsreglas
"Búho" <pacoQU...@nemo.es> escribió en el mensaje
news:elXZppBe...@TK2MSFTNGP12.phx.gbl...
Búho
el Colegio de San Gregorio, sede el Museo Nacional de escultura Policromada.
Hay que hacer publicidad de la tierra chica...!!!
Búho
Quité lo del Enum, quité lo del operador AddressOf y dado que no puedo
probar por que falla lo de la tabla con datos binarios, he cambiado de
tactica. Meto la DLL tal cual y la copio nada mas iniciar la aplicacion al
System 32
Está en el mismo enlace que ayer
Emilio
¿no?, hace demasiado tiempo que no voy a Valladolid :( casi que desde la
mili, que hice allí, uff que lejos queda eso. :(((
--
Saludos a tod@s desde Huelva
Emilio
miliuco56 ALGARROBA hotmail.com
Reglas de conducta de los grupos de noticias:
http://support.microsoft.com/default.aspx?scid=fh;ES-ES;newsreglas
"Búho" <pacoQU...@nemo.es> escribió en el mensaje
news:%23CIapkK...@TK2MSFTNGP12.phx.gbl...
julian-vlc-sp
No te imaginas lo oportuno que has sido recordándome lo del Word, ni te lo
imaginas, jejeje
--
SALUDOS.
julian-valencia-españa
http://www.access-sin-codigo.tk
http://www.mvp-access.com
"Búho" <pacoQU...@nemo.es> escribió en el mensaje
news:uP9p%23RGeE...@TK2MSFTNGP11.phx.gbl...
Búho
Tienes la cabeza puesta no se donde :-P
Bueno...a ver si te veo luego. Me piro con la jefa.
--
Saludos desde Valladolid
Francisco Javier García Aguado
buho...@mvp-access.com
---
http://www.mvp-access.com/buho
http://www.mvp-access.com/foro
http://groups.msn.com/Access2000VisualBasic/
Mi Perfil de MVP en Microsoft:
http://tinyurl.com/6ysvu
---
Rosa Sanjuan
Búho eres un auténtico monstruo!
Funciona requetebien (lo único no estaba desmarcada la referencia
a ADO y como lo probe en una máquina con WIN98, adrede para
hacerlo mas duro, dio un error de FALTA).
Entre con la tecla shift, desmarque la referencia y listo.
Te aseguro que has hecho tu obra buena del verano (o al menos
de lo que llevamos de Agosto).
Gracias.
Rosa
"Búho" <pacoQU...@nemo.es> escribió en el mensaje
news:%23UZl2lK...@tk2msftngp13.phx.gbl...
Búho
En la Web del Guille, hay una breve documentancion de la DLL para adjuntar +
de un fichero. poner contraseña al zip etc etc.
La dire:
http://www.elguille.info/colabora/vb/zip32dll.htm
otra para descomprimir
http://www.elguille.info/colabora/vb/unzip32dll.htm
lo que pasa, que el *j o d i o* del Guille, para bajarse los zip de
ejmeplos, ha puesto una puerta de entrada. Me parece bien, pues el ancho de
banda no le regalan, ni mucho menos, pero yo es que me he dado de alta y no
hay tu tía para poder entrar a descargarme los enlaces.
Este Guille !!!! :-D
--
Saludos desde Valladolid
Francisco Javier García Aguado
buho...@mvp-access.com
---
http://www.mvp-access.com/buho
http://www.mvp-access.com/foro
http://groups.msn.com/Access2000VisualBasic/
Mi Perfil de MVP en Microsoft:
http://tinyurl.com/6ysvu
---
---
Este correo ha sido testeado y no tiene virus (Al menos conocidos). Saludos
de Francisco Javier García Aguado (Buho)
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.733 / Virus Database: 487 - Release Date: 02/08/2004
Lluís Franco
Hola Búho y demás compas,
¿Habéis probado a usar PKZIP.EXE y PKUNZIP.EXE desde línea de comandos
(Shell o ShellExecute)?
Yo lo había usado hace años en algún proyecto y es de lo más sencillo y
económico.
Saludos,
--
Lluís Franco i Montanyés
[MS-MVP-MCP Visual Basic]
FIMARGE, S.A.
Principat d'Andorra
lfranco@ODIO_EL_SPAMfimarge.ad
Tel.: +376 805 100
Fax: +376 824 500
--
(Guía de netiquette del foro)
http://www.mvp-access.com/rubenvigon/foro/
Búho
Yo utilizaba este tipo de compresores para los programas en Clipper, bajo
Dos.
Gloria bendita.
En clipper, lo que hacía era crear un Bat con las opciones de comprensión,
le lanzaba desde el programa e iba con un tiro!!
Ej
ECHO OFF
CLS
if not exist PACK.EXE GOTO NOPACK
CLS
secho }copia1
PAUSE>NUL
PACK -r -P -sMicontraseña -en -&w A:TALLER.PAC *.dbf *.mem
GOTO END
:NOPACK
CLS
secho }copia2
PAUSE>NUL
GOTO ENDD
:END
CLS
secho }copia3
PAUSE>NUL
:ENDD
Rosa Sanjuan
que el Winzip interpreta y descomprime a la perfección.
Lo he probado y va bien.
Saludos
Rosa
"Lluís Franco" <ne...@uyssoft.com> escribió en el mensaje
news:uzLLv2T...@TK2MSFTNGP11.phx.gbl...
Lluís Franco
A mandar!
;-)
Búho
Tambien funciona para JPG
Deberás cambiar
BitmapHeaderOffset = InStr(Buffer, "BM~") valido para BMP
por
BitmapHeaderOffset = InStr(Buffer, "ÿØÿà")
valido para JPG
Ahora ya solo es cuestion de buscar el resto de encabezados de los ficheros
graficos (Gif etc) e incluso, si me apuras, de los encabezados de documentos
word etc etc y hacer una rutina de proposito general, para extraer los
contendidos «paquete» de los campos OLE.
--
Saludos desde Valladolid
Francisco Javier García Aguado
buho...@mvp-access.com
---
http://www.mvp-access.com/buho
http://www.mvp-access.com/foro
http://groups.msn.com/Access2000VisualBasic/
Mi Perfil de MVP en Microsoft:
http://tinyurl.com/6ysvu
---
---
Este correo ha sido testeado y no tiene virus (Al menos conocidos). Saludos
de Francisco Javier García Aguado (Buho)
Checked by AVG anti-virus system (http://www.grisoft.com).
Emilio
me pasa algo cuando menos curioso, con bmp's me funciona, aunque en ningún
caso me aparece "bm~" sino "bm"
en cuanto a jpg, nada, no aparece "ÿØÿà" en las varias pruebas que he hecho
con varios archivos diferentes me sale "ÐÏ à¡± á", pero el resultado es un
fichero inmenso irreconocible, idem con gif, png, doc.
--
Saludos a tod@s desde Huelva
Emilio
miliuco56 ALGARROBA hotmail.com
Reglas de conducta de los grupos de noticias:
http://support.microsoft.com/default.aspx?scid=fh;ES-ES;newsreglas
"Búho" <pacoQU...@nemo.es> escribió en el mensaje
news:e0xY71r...@TK2MSFTNGP10.phx.gbl...
Búho
La verdad es que es dar un poco palos de ciego con todo esto.
He estado toda la tarde fuera, acabo de llegar ahora y en las pruebas que me
ha dado tiempo a hacer, he sacado satisfactoriamentes este tipo de ficheros:
BM~ BMP
ÿØÿà jpg
ÐÏ à¡± á word
GIF89 gif
RIFF ß wav
ÿû MP3
MPEG mpeg
RIFFâõ avi
Por lo que veo, lo que a ti ta sale como un fichero Jpg yo lo tengo fichado
como un documento word.(No será un documento word realmente lo que tienes en
el OLE?)
Por que no hacemos una cosa. Enviame una MDB con una tabla y un campo OLE.
Meteme 8 registros que sean:
1 BMP
1 JPG
1 DOC
1 GIF
1 Wav
1 MP3
1 Mpeg
1 Avi
...y veo yo los resultados con el codigo que tengo montado.
Cuando tengas tiempo. Un saludo...a ver si sacamos algo en claro.
Mi cuenta, ya sabes
pacoARROBAnemo.es
ARROBA=@
P.D
Que pasada...una tarde fuera y 80 mensajes nuevos en el grupo de Access (Mas
otros 90 en el de Vb, 80 en el de Sql Server....) en fin... es imposible
seguir esto de una forma pormenorizada..!!!
Lluís Franco
Hola Búho,
>Enviame una MDB con una tabla y un campo OLE.
Me uno a ello e intentaré mandartelos mañana desde el curro.
> ...una tarde fuera y 80 mensajes nuevos en el grupo de Access (Mas
> otros 90 en el de Vb, 80 en el de Sql Server....)
Si... es terrible, casi hay que vivir (como Rubinho) dentro de los ñus.
Saludos,
PD - Me interesaría conocer tu opinión acerca mi post "Reflexiones - ..." de
hoy mismo.
Nos vemos,
--
Lluís Franco (en casa)
MS MVP MCP VB
Búho
mensajes nuevos que no había leido y que se habían generado desde que no
estaba en casa, incluido en de las reflexiones que comentas. (Supongo que te
refieres a este grupo de Access). Voy a buscarle el Google...eso de
«reflexiones» suena interesante.
Es que si no les borro (Grupo Access, Asp, VB y Sql Server, amén de los
privados y otros foros que leo via Web) me podrían dar las 4 de la madrugada
leyendo...y muerto el perro, se acabó la rabia.
P.D
Gracias por enviarme la MDB de prueba . Ya puestos, podría poner algun video
intesante, alguna cancioncilla tambien interesante...y pantentamos el P2P en
Access, XDD
Lluís Franco
Ja, ja, ja...
Buena táctica ésta!
Okis! Si quieres te lo paso por correo privado, ¿tienes cuenta de mvps?
--
Lluís Franco i Montanyés
[MS-MVP-MCP Visual Basic]
FIMARGE, S.A.
Principat d'Andorra
lfranco@ODIO_EL_SPAMfimarge.ad
Tel.: +376 805 100
Fax: +376 824 500
Mi Perfil MVP en: http://tinyurl.com/4nbnb
This posting is provided "AS IS" with no warranties, and confers no rights.
Este mensaje se proporciona "COMO ESTA" sin garantias y no otorga ningun
derecho
--
(Guía de netiquette del foro)
Búho
No tengo cuenta en mvps...es que actualmente tengo mas de 15 cuentas POP3 y
ya me da cosa abrir mas.
Además, desde que contraté el dominio y alojamiento mvp-access.com en Sync
tengo disponibles 999 cuentas POP3 (Mira que son raros, podían haber puesto
y redondeado a 1000).
Eso sí, supongo lo sabrás o lo habrás leido en las privadas...que de vez en
cuando dan problemas. Ultimamente, toquemos madera, parece que han dado con
la tuerca apropiada en el Server de Windows y las cuentas funcionan bastante
bien. (Si quieres una cuenta en SYNC...pidemela, a tu disposición....allí se
la he abierto a otras personas, como Ruben Vigon y Enrique Martinez etc)
Todo esto rollo para decirte, que casi mejor que me lo envíes a la de Nemo.
Es la cuenta de correo que mas cariño tengo, pues la primera que utilicé en
internet, años ha...y no me ha dado apenas problemas
pacoARROBAnemo.es
ARROBA=nemo
Ya localice la secuencia de «reflexiones»
http://www.google.com/groups?hl=es&lr=&ie=UTF-8&c2coff=1&threadm=eoX%24nlyeEHA.3532%40TK2MSFTNGP09.phx.gbl&rnum=1&prev=/groups%3Fq%3Dreflexiones%2Bgroup%253Amicrosoft.public.es.access
¿Y que puede añadir un pardillo como yo a lo dicho en esa secuencia y en la
anterior? Allí escribía gente que parece teneis experiencia en ese tipo de
cosas en el día a dia...y eso esta muy bien...contrastar opiniones.
Yo, como Chea, solo soy albañil de software (Y ademas algo chapucero para
ams INRI)
Quizá sería bueno, que alguien con ganas y tiempo, hiciera una especie de
resumen de los dicho en ambos hilos, una especie de articulo pequeño, con
las opiniones, ordenadas y contrastadas, de los que allí habeis partcipado
(EL buho echando balones fuera)...y se publicaran en alguna Web (Yo me
ofrezco a ello)
No en serío, sería interesante resumir todas esas opiniones y que no se
perdieran en el limbo del Google.
Bueno, voy a ver, que unque parezca que no tengo nada que hacer, ultimamente
voy de culete a todos los sitios.
Búho
ARROBA=nemo !Noooooooorrrrrrrrrrrrrrrr!
ARROBA=@
(Sé que lo hibieras entendido igual,pero por si acaso :-P)
Lluís Franco
Ja, ja, ja...!
>sería interesante resumir todas esas opiniones
Oído cocina, a ver si me pongo... y te lo mando.
> Yo, como Chea, solo soy albañil de software
Amos anda! Y voy yo y me lo creo........modeeeeeeeeeeeeesto!
;-P
Búho
! Tambien oido cocina !! jejeejejejeje
> > Yo, como Chea, solo soy albañil de software
>
> Amos anda! Y voy yo y me lo creo........modeeeeeeeeeeeeesto!
En serio Luis, lo digo en serio...leyendo aqui y allá y acullá digo siempre
«que solo sé que no sé nada»
! Buen fin de semana !!! :-))
--
Saludos desde Valladolid
Francisco Javier García Aguado
buho...@mvp-access.com
---
http://www.mvp-access.com/buho
http://www.mvp-access.com/foro
http://groups.msn.com/Access2000VisualBasic/
Mi Perfil de MVP en Microsoft:
http://tinyurl.com/6ysvu
---