Autor Tema: Extraer Iconos (Leído 1441 veces)

ROBER.29 · « **en:** Lunes 15 de Marzo de 2004, 11:11 »

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(&#34;Scripting.FileSystemObject&#34;)
    
    On Error GoTo Control_errores
        
    If txtFolder.Text = &#34;&#34; Then
        MsgBox &#34;Tiene que seleccionar donde quiere que se guarden las fotos&#34;, , &#34;CM Image Creator&#34;
        Exit Sub
    End If
    
    cmdOk.Enabled = False
    strSql = &#34;SELECT * FROM ShapeIcons&#34;
    
    rsFotos.Open strSql, &#34;Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:&#092;Documents and Settings&#092;rgarcia&#092;Desktop&#092;Copy of iconosDFD.mdb;Persist Security Info=False&#34;, 3, 1
    If rsFotos.EOF Then
        MsgBox &#34;No se han encontrado fotos en la base de datos&#34;, , &#34;CM Image Creator&#34;
    Else
        DoEvents
    End If
    
    Do While Not rsFotos.EOF
        Fichero = FreeFile
        size = rsFotos!ShapeIcon.ActualSize
        If size = 0 Then Exit Sub
        Open txtFolder.Text & &#34;&#092;&#34; & rsFotos(&#34;ShapeMasterId&#34;) & &#34;.ico&#34; For Binary Access Write As Fichero
        Chunks = size &#092; 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 &#34;Se ha producido un error. Consulte con el administrador.&#34; & Err.Number, , &#34;CM Image Creator&#34;
    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.

9tnix · « **Respuesta #1 en:** Lunes 15 de Marzo de 2004, 11:29 »

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]

9tnix

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

ROBER.29

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.

9tnix

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]

piyey

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.

9tnix

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]

SoloCodigo

Autor Tema: Extraer Iconos (Leído 1441 veces)

ROBER.29

Extraer Iconos

9tnix

Re: Extraer Iconos

9tnix

Re: Extraer Iconos

ROBER.29

Re: Extraer Iconos

9tnix

Re: Extraer Iconos

piyey

Re: Extraer Iconos

9tnix

Re: Extraer Iconos