Si lo que quieres es guardar imágenes en una base de datos basta que pongas un PictureBox (que también abre este formato) y lo enlaces con una tabla que tenga los campos tipo Memo.
No es eso. Yo me referia a guardar cualquier tipo de imagen en formato JPG (por ejemplo un BMP) desde un programa hecho en Visual. De todos modos muchas gracias. ;)
Valora esta respuesta
0
Comentar
RE:Guardar como JPG
Publicado por Miguel (1 intervención) el 15/01/2001 00:00:00
Mira este código lo que hace es copiarte ese archivo que quieres guardar con otro formato y lo guerdas con la extensión en el formato que quieras.
´-------------EXISTE FICHERO---------------´Tipos, constantes y funciones para FileExist Const MAX_PATH = 260 Const INVALID_HANDLE_VALUE = -1
Private Type FILETIME dwLowDateTime As Long dwHighDateTime As Long End Type
Private Type WIN32_FIND_DATA dwFileAttributes As Long ftCreationTime As FILETIME ftLastAccessTime As FILETIME ftLastWriteTime As FILETIME nFileSizeHigh As Long nFileSizeLow As Long dwReserved0 As Long dwReserved1 As Long cFileName As String * MAX_PATH cAlternate As String * 14 End Type
Private Declare Function FindFirstFile Lib "kernel32" Alias "FindFirstFileA" _ (ByVal lpFileName As String, lpFindFileData As WIN32_FIND_DATA) As Long Private Declare Function FindClose Lib "kernel32" _ (ByVal hFindFile As Long) As Long ´----------------------------------------------------- Public Function FileExistC(ByVal sFile As String) As Boolean ´comprobar si existe este fichero Dim WFD As WIN32_FIND_DATA Dim hFindFile As Long
hFindFile = FindFirstFile(sFile, WFD) ´Si no se ha encontrado If hFindFile = INVALID_HANDLE_VALUE Then FileExistC = False Else FileExistC = True ´Cerrar el handle de FindFirst hFindFile = FindClose2