Mensajes

No se que te hizo pensar que hacia eso

No desviemos mas

Mal ahi, deberia actualizarse solo o al menos proponer un cartel GIGANTE como lo venia haciendo hasta ahora

Busca sobre programas o sitios webs donde optimizen imagenes para WEB (siempre se busca el menor peso posible)

[Ehn-Dev 2010] - Concurso de desarrollo de aplicaciones - Hilo oficial.
Abril Negro 2010
1er CONCURSO diseño GRAFICO foro elhacker.net (Ganadores) (Algo viejo )

Y ahi mas

[sin perdidas]

Cuesta hacer un compresor sin perdidas y de poco peso. Los formatos JPG, PNG y otros son formatos de compresion tambien, entonces, algo que ya esta comprimido, lo quieres re-comprimir y medio que carece de logica puesto que ya esta en su "menor" peso posible (al menos eso trata de hacer  el algoritmo). Lo mismo que con la Musica y etc.

Lee

Algoritmo de compresión sin pérdida (Compresores de archivos, png y flac por citar ejemplos)
Algoritmo de compresión con pérdida (Compresores multimedia en general)

Nunca escuchaste de Abril Negro? El concurso de programacion EHNDev? CoreWar? WAllpaper mensual?

Ehhh? No, mi codigo intenta abrir el archivo por API y si lo hace (o no) cierra el handle del archivo, no del proceso

Lo tuve que usar para esperar a que se termine de armar un zip de backup (Lo que es enviar a windows que te zipee archivos )

Código (vb) [Seleccionar] Expandir


Private Declare Function CreateFile Lib "kernel32" Alias _
    "CreateFileA" (ByVal lpFileName As String, _
    ByVal dwDesiredAccess As Long, _
    ByVal dwShareMode As Long, _
    ByVal lpSecurityAttributes As Long, _
    ByVal dwCreationDisposition As Long, _
    ByVal dwFlagsAndAttributes As Long, _
    ByVal hTemplateFile As Long) As Long

Private Declare Function CloseHandle Lib "kernel32" _
    (ByVal hObject As Long) As Long

Private Const FILE_SHARE_READ = &H1
Private Const FILE_SHARE_WRITE = &H2
Private Const OPEN_EXISTING = &H3
Private Const GENERIC_WRITE = &H40000000
Private Const INVALID_HANDLE_VALUE = -1


Public Function ArchivoEnUso(ByVal sFileName As String) As Boolean

    Dim hFile As Long

    On Error GoTo ExitGetFileInfo

    ' Obtenemos el manipulador del archivo. Para ello indicamos
    ' que vamos a permitir el acceso de lectura
    hFile = CreateFile(sFileName, GENERIC_WRITE, _
        FILE_SHARE_READ Or FILE_SHARE_WRITE, ByVal 0&, OPEN_EXISTING, 0&, 0&)

    ' Si hay un error es porque el archivo está siendo utilizado
    If hFile = INVALID_HANDLE_VALUE Then
        ArchivoEnUso = True
    End If

ExitGetFileInfo:
    ' Cerramos el manipulador del archivo
    hFile = CloseHandle(hFile)
End Function


Queda una semana practicamente, ten paciencia

Nunca use fraps, pero si el problema persiste puedes probar PlayClaws (que tampoco nunca lo probe, maquina pobre en video 3d ) que es una  gran alternativa