SoloCodigo

Hola,
Tengo el siguiente problema.
Mediante las funciones que a continuación describo, almaceno y leo desde BBDD archivos (sobre un campo image de SQLServer)
Siempre ha funcionado bien, pero ahora me he dado cuenta que con archivos de Office2007 (docx, xlsx, etc) da problemas de apertura.
He descubierto que en BBDD se están almacenando bytes de mas.
¿Alguien ha tenido este problema y lo ha podido solucionar?
Dejo aquí las funciones para su revisión:

Public Function GuardarBinario(ByRef rs As Recordset, Campo As String, archivo As String, Optional BorraArchivo As Boolean) As Integer
    ' Función que Almacena en Base de datos un archivo binario
    ' Recibe como parámetros una referencia a un recorset, el campo dónde se almacena
    ' el archivo que hay que almacenar y si se desea borrar el fichero físico una vez almacenado
    ' La función devuelve 0 si almacenó correctamente el archivo o 1 si hubo un error
   
    Dim LongitudFichero, i As Long
    Dim Porcion As Long
    Dim Bloque
    Dim varChunk() As Byte
   
    lnNumero = FreeFile
    Open archivo For Binary Access Read As lnNumero
                                        ' El fichero hay que partirlo en trozos....
    LongitudFichero = LOF(lnNumero)                  ' Longitud de los datos en el archivo
    nconst = 102400
   
    If LongitudFichero > 0 Then
        Bloque = LongitudFichero  nconst
        Porcion = LongitudFichero Mod nconst
        rs(Campo).AppendChunk Null      ' limpiamos el campo por si acaso...
       
        ReDim varChunk(Porcion)
        Get lnNumero, , varChunk()      ' Tomo un trozo del tamaño necesario
        rs(Campo).AppendChunk varChunk()
        ReDim varChunk(nconst)
        For i = 1 To Bloque             ' y ahora los trozos que quedan
            Get lnNumero, , varChunk()
            rs(Campo).AppendChunk varChunk()
        Next i
        GuardarBinario = 0
    Else
        GuardarBinario = 1
    End If
    Close lnNumero
    If BorraArchivo = True Then
        Kill archivo
    End If
End Function

Public Sub LeerBinario(ByRef rs As Recordset, Campo As String, archivo As String)
    ' Procedimiento que guarda en disco un archivo binario leido de Base de datos

    Dim fl, i As Long
    Dim fragment As Long
    Dim Chunks
    Dim varChunk() As Byte
   
    lnFichero = FreeFile
    fl = rs(Campo).ActualSize
    If fl > 0 Then
        Open Environ("TEMP") + "" + archivo For Binary Access Write As lnFichero
        Chunks = fl  102400
        fragment = fl Mod 102400
        ReDim varChunk(fragment)
        varChunk() = rs(Campo).GetChunk(fragment)
        Put lnFichero, , varChunk()
        For i = 1 To Chunks
            ReDim varChunk(102400)
            varChunk() = rs(Campo).GetChunk(102400)
            Put lnFichero, , varChunk()
        Next i
        Close lnFichero
    End If
End Sub

¿Nadie ha hecho algo similar?

Hola, para insertar imágen en un picturebox
Necesitas haber agregado el control CommonDialog
Luego ya podrás guardarlo en Base de datos o lo que quieras...

Private Sub CmdExaminar_Click()
    CommonDialog1.FileName = "*.jpg"
    CommonDialog1.ShowOpen
    On Error Resume Next
    If CommonDialog1.FileName <> "" Then
        FOTO.Picture = LoadPicture(CommonDialog1.FileName)
    End If
    On Error GoTo 0
End Sub


Para quitar el borde de una ventana tienes la propiedad BorderStyle. Deberás seleccionar None. No creo que valga para MDIForms o MDIChilForms
P.D. Proyecto va con "y"
Saludos

bueno, creo que seguimos con problemas de entendimiento.
No tengo problemas a la hora de calcular el tiempo que se empleará en un desarrollo, sino la forma de contabilizar durante el desarrollo las horas empleadas en ese proyecto.
La pregunta es, ¿como haceis el control de las horas? ¿con un cronómetro, con una aplicación?
Cuando se desarrolla sobre un único proyecto no hay problemas, pero cuando se hacen mas tareas en simultaneo, es dónde empieza a complicarse...
¿Sugerencias?

Bueno, sólo me he leido la documentación que me has pasado por encima, quizá me equivoque con lo que esté diciendo. Pero por lo que entiendo de la info. es para estimar el tiempo que va a tener un desarrollo.
Lo que yo estoy solicitando en el foro es el cómo controlar el tiempo empleado DURANTE el desarrollo de un software. Quizá la palabra "durante" es la clave entre lo que tu aportas y lo que yo solicito.
Un ejemplo sobre lo que estoy pidiendo, sería controlar el tiempo empleado con el típico reloj de los ajedrecistas... Supongo que habrá alguna aplicación para realizar el mismo control y que luego te dé un total de horas por proyecto. No se, es una idea... Como no sé como se suele hacer, por eso pregunto en el foro...

Hola, espero que no se haya hablado ya de este tema con el fin de no repetir cosas, pero no he encontrado info al respecto.
Me gustaría saber vuestras opiniones sobre el control del tiempo que empleamos en el desarrollo de software. Es importante aprender a medir los tiempos del desarrollo y luego compararlos con los èstimado y así mejorar cada vez en las siguientes estimaciones. ¿Algún método o aplicación para la medición?
Gracias y saludos