Lunes 23 de Diciembre de 2024, 08:17
SoloCodigo
Bienvenido(a),
Visitante
. Por favor,
ingresa
o
regístrate
.
¿Perdiste tu
email de activación?
Inicio
Foros
Chat
Ayuda
Buscar
Ingresar
Registrarse
SoloCodigo
»
Foros
»
Programación General
»
Visual Basic 6.0 e inferiores
(Moderador:
F_Tanori
) »
Extraer Iconos
« anterior
próximo »
Imprimir
Páginas: [
1
]
Autor
Tema: Extraer Iconos (Leído 1462 veces)
ROBER.29
Miembro MUY activo
Mensajes: 421
Extraer Iconos
«
en:
Lunes 15 de Marzo de 2004, 11:11 »
0
Hola,
Estoy intentando extraer los iconos de una base de datos de Access 2000 a una carpeta seleccionada por el usuario, el código que utilizo es el siguiente y la base de datos donde se encuentran los iconos la he adjuntado.
Código: Text
Private Sub cmdOk_Click()
Dim rsFotos As New ADODB.Recordset, Fichero, size As Long
Dim fragment As Long
Dim Chunks
Dim varChunk() As Byte
Dim objFile As Object
Set objFile = CreateObject("Scripting.FileSystemObject")
On Error GoTo Control_errores
If txtFolder.Text = "" Then
MsgBox "Tiene que seleccionar donde quiere que se guarden las fotos", , "CM Image Creator"
Exit Sub
End If
cmdOk.Enabled = False
strSql = "SELECT * FROM ShapeIcons"
rsFotos.Open strSql, "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\rgarcia\Desktop\Copy of iconosDFD.mdb;Persist Security Info=False", 3, 1
If rsFotos.EOF Then
MsgBox "No se han encontrado fotos en la base de datos", , "CM Image Creator"
Else
DoEvents
End If
Do While Not rsFotos.EOF
Fichero = FreeFile
size = rsFotos!ShapeIcon.ActualSize
If size = 0 Then Exit Sub
Open txtFolder.Text & "\" & rsFotos("ShapeMasterId") & ".ico" For Binary Access Write As Fichero
Chunks = size \ 16384
fragment = size Mod 16384
ReDim varChunk(fragment)
varChunk() = rsFotos!ShapeIcon.GetChunk(fragment)
Put Fichero, , varChunk()
For i = 1 To Chunks
ReDim varChunk(16384)
varChunk() = rsFotos!ShapeIcon.GetChunk(16384)
Put Fichero, , varChunk()
DoEvents
Next i
Close Fichero
DoEvents
rsFotos.MoveNext
Loop
rsFotos.Close
Set rsFotos = Nothing
cmdSalir.Enabled = True
Control_errores:
If Err Then
MsgBox "Se ha producido un error. Consulte con el administrador." & Err.Number, , "CM Image Creator"
End If
End Sub
He utilizado esto pero no me funciona pero tampoco me da error ¿qué es lo que me está pasando?
Un saludo.
El mensaje contiene
1 archivo adjunto
. Debes
ingresar
o
registrarte
para poder verlo y descargarlo.
Tweet
Roberto García
Moderador de Visual Basic.
Gerente
[contra]PixeL S.L.
Valladolid
9tnix
Miembro MUY activo
Mensajes: 165
Nacionalidad:
Re: Extraer Iconos
«
Respuesta #1 en:
Lunes 15 de Marzo de 2004, 11:29 »
0
Salu2 ROBER.29
Acabo de leer el post echare un vistazo yo tambien he estado trabajando con imagenes en un bd de sql server, seguro que entre todos lo resolveremos.
un saludo zeekel ®
[KGT]
TP-Systems
our knowledge is our power!
9tnix
Miembro MUY activo
Mensajes: 165
Nacionalidad:
Re: Extraer Iconos
«
Respuesta #2 en:
Miércoles 17 de Marzo de 2004, 11:14 »
0
Salu2 ROBER.29
Use tu base de datos para sacar los iconos de alli y si los saca pero no los puedo visualizar no se porque.
En la Bd tienes lo siguiente:
Tabla
ShapeIcons
Campos
ShapeMasterID Numerico
ShapeIcon Objeto Ole
Lo que hice es leer el Dato Binario del Campo ShapeIcon y crear el archivo en una ruta especificada, no me sale error saca todos los iconos que estan en la BD pero no los puedo visualizar
ROBER.29 estas seguro que la informacion contenida alli son Iconos? o son otro tipo de informacion?
un saludo zeekel ®
[KGT]
PD: Alli posteo mi codigo
El mensaje contiene
1 archivo adjunto
. Debes
ingresar
o
registrarte
para poder verlo y descargarlo.
TP-Systems
our knowledge is our power!
ROBER.29
Miembro MUY activo
Mensajes: 421
Re: Extraer Iconos
«
Respuesta #3 en:
Jueves 18 de Marzo de 2004, 14:01 »
0
No estoy seguro de que contenga iconos. Es una tabla que forma parte de la base de datos de Visio 2002 Profesional y lo que quería era extraer los iconos para luego utilizarles en mi aplicación pero al final desisti y lo que he hecho ha sido capturalos con el programa Microangelo y ya está.
Gracias por haberte molestado, yo la verdad es que hice muchas pruebas y siempre me creaba ficheros y no me daba error pero a la hora de abrirlos no me mostraba nada por eso lo dejé por imposible y llege a la misma conclusión que tú, que a lo mejor lo que contenia no son iconos pero es que también si esa tabla no contiene los iconos no se donde estarán pero bueno ya no me hace falta.
Gracias nuevamente.
Un saludo.
Roberto García
Moderador de Visual Basic.
Gerente
[contra]PixeL S.L.
Valladolid
9tnix
Miembro MUY activo
Mensajes: 165
Nacionalidad:
Re: Extraer Iconos
«
Respuesta #4 en:
Jueves 18 de Marzo de 2004, 15:40 »
0
Salu2 ROBER.29
Acerca del programa microangelo me podrias informar con mas detalle acerca de el y si es posible podrias pasarme el link para descargarlo?
Un saludo zeekel ®
[KGT]
TP-Systems
our knowledge is our power!
piyey
Miembro MUY activo
Mensajes: 101
Nacionalidad:
Re: Extraer Iconos
«
Respuesta #5 en:
Miércoles 14 de Abril de 2004, 04:18 »
0
Hola amigos, disculpen por entrometerme en su conversacion pero me llamo la atencion ese programa microangelo, que es lo que hace?... extraer iconos?... yo tengo uno que se llama LiquidIcon que sirve para crear iconos, extraer de archivos .exe, .dll u otros que contengan iconos, mide 360k.
Por si lo quieren ahi se los pongo...
Salu-2 a todos.
Piyey.
El mensaje contiene
1 archivo adjunto
. Debes
ingresar
o
registrarte
para poder verlo y descargarlo.
Si no vives para servir...
no sirves para vivir.
No soy el dueño del mundo...
pero si el hijo del dueño.
Entre la linea que divide la realidad de la ilusión...
se encuentra la imaginación
IlusionLand - Piyey
9tnix
Miembro MUY activo
Mensajes: 165
Nacionalidad:
Re: Extraer Iconos
«
Respuesta #6 en:
Domingo 18 de Abril de 2004, 18:26 »
0
Salu2 piyey
Pues gracias por el programita y bueno lo del microangelo tambien es nuevo para mi y por ahora tampoco lo he buscado, yo uso uno que se llama ArtIcons para mie es muy bueno, ahora no tengo el soft a la mano pero el que tengo es una version de prueba de 30 Dias, si lo tengo a la mano lo posteo para que lo pruebes.
Un saludo
Zeekel ®
[TKLP]
TP-Systems
our knowledge is our power!
Imprimir
Páginas: [
1
]
« anterior
próximo »
SoloCodigo
»
Foros
»
Programación General
»
Visual Basic 6.0 e inferiores
(Moderador:
F_Tanori
) »
Extraer Iconos