Resumen Distribucion de imagenes

Mensaje enviado por José Rubí de la Vega <jrubi@ctv.es>

Siguiendo con el tema de "trucar" ficheros para impedir que se abran con otros programas podemos usar una función sumiliar a la que propongo más abajo para "trucar" y "destrucar" cualquier tipo de fichero. Para ello distribuiremos con nuestro programa los ficheros "trucados" y cuando necesitemos hacer uso de ellos hacemos una copia del fichero deseado en un fichero temporal (por ejemplo con FileCopy), llamamos a la función CambiarCabecera() para que "destruque" el fichero y ya podemos operar con él. Una vez que hayamos acabado deberíamos borrar dicho fichero o volver a llamar a dicha función para que no nos quede accesible.

La función intercambia los 32 primeros bytes de un fichero con los 32 últimos cada vez que la llamas y podría ser algo como :

Function CambiaCabecera(Fichero As String) As Boolean
Dim i As Integer, Cabecera(31) As Byte, Fin(31) As Byte, Longitud As Long

On Error GoTo CambiaCabecera_Err
'voy a suponer que todos los ficheros miden más de 64 bytes
i = FreeFile()
Open Fichero For Binary Access Read Write Lock Read Write As i
'leo la cabecera del fichero
Get #i, 1, Cabecera()
'leo el final del fichero
Longitud = LOF(i) - 32
Get #i, Longitud, Fin()
'grabo el final del fichero sobre la cabecera
Put #i, 1, Fin()
'grabo el principio sobre el final del fichero
Put #i, Longitud, Cabecera()
'cerramos el fichero
Close #i
CambiaCabecera = True
CambiaCabecera_End:
    Exit Function
CambiaCabecera_Err:
    On Error Resume Next
    Close #i
    CambiaCabecera = False
    Resume CambiaCabecera_End
End Function



Un saludo.

_________________________________________________
José Rubí de la Vega
E-mail : jrubi@ctv.es
WWW : http://www.ctv.es/USERS/jrubi
Podrás encontrar información sobre VB, las listas
vb-esp y visualbasic-esp y un resumen de los
mensajes de las mismas



Resumen Resumen

Visual Basic Página de Visual Basic

Página principal Página principal

www.jrubi.com