Programación General > Visual Basic 6.0 e inferiores

 Visual Basic

<< < (3/3)

chaja:
Buenas...
Eliza pruebo el codigo que pasaste utilizando la dll que adjuntaste, pero la funcion DIWriteJpg me devuelve 2 (y no 1 como cuando indica que salio todo bien), y por lo que veo no me crea el archivo test.jpg.


El codigo que tengo es el sgte:


    Dim var As Long
    Dim loadStr As String
   
    'Guardamos la imagen
    CD.Filter = "*.jpg;*.jpeg;*.bmp"
    CD.ShowSave
   
    loadStr = App.Path & "test.jpg"

    SavePicture Picture1.Image, CD.FileName & ".bmp"
   
    'Para guardar  JPEG
    var = DIWriteJpg(loadStr, 100, 1) 'Aca me devuelve 2'
   
    'esto es para remover el archivo temporal
    Kill CD.FileName & ".bmp"


Otra pregunta, esto que va como parámetro a la funcion:   loadStr = App.Path & "test.jpg"    me va a crear el archivo test.jpg???? o ya tiene que existir.

Desde ya muchas gracias.
Saludos

Chaja

seba123neo:
Hola,no hace flata dll  ni nada, busca por ahi esta un modulo llamado cJPEG  que hace eso...

saludos.

Navegación

[0] Índice de Mensajes

[*] Página Anterior