SoloCodigo

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