Red de conocimiento informático - Material del sitio web - ¿Es posible subir fotos en PB?

¿Es posible subir fotos en PB?

Sí, primero defina una variable blob, luego lea el archivo en la variable y use updateblob para actualizar, que es similar a la sintaxis UPDATE, pero no se implementa a través de la ventana de datos, sino a través de declaraciones SQL, consultas selectblob y The La consulta SELECT es básicamente la misma y no se puede actualizar directamente como si se insertara directamente en la ventana de datos.

Te doy un ejemplo:

//Leer y guardar imágenes

Cadena ls_pathname, ls_filename

Entero li_value, li_FileNum, bucles, i

long ll_fileLength, bytes_read fileLength, bytes_read, new_pos

blob b, tot_b

li_value = GetFileOpenName("Seleccionar foto", amp;

ls_pathname, ls_filename, "Gráfico", "Archivos gráficos (*.bmp; *.gif; *.jpg; *.jpeg), *.bmp; *.gif; *.jpg; *.jpeg ")

IF li_value = 1 THEN

// Establece el estilo del mouse para esperar

SetPointer(HourGlass!)

// Obtener longitud del archivo , la longitud máxima que se puede leer a la vez es 32765

ll_fileLength = FileLength(ls_filename)

li_FileNum = FileOpen(ls_ filename, StreamMode! Read LockRead!)

// Número de bucles para obtener la longitud

IF ll_filelength gt 32765 THEN

IF Mod(ll_filelength, 32765) = 0 THEN

bucles = ll_filelength /32765

ELSE

bucles = (ll_filelength/32765) 1

END IF

ELSE

bucles = 1

END IF

// Leer archivo

new_pos = 1

FOR i = 1 para bucles

bytes_read = FileRead(li_FileNum, b)

tot_b = tot_b b

SIGUIENTE

FileClose(li_FileNum)

/ / Actualizar la tabla

//UPDATEBLOB Nombre de la tabla SET Imagen campo = :tot_b WHERE Condición USing sqlca

//IF Sqlca.SQLNRows gt 0 THEN

// COMPROMETE USANDO SQLCA;

P_1.setpicture(tot_b) //Configura la interfaz para mostrar imágenes

Elseif li_value=-1 luego

MessageBox( "Seleccionando foto", "¡Error al abrir el archivo! ")

End If

//Leer la imagen de la tabla

//Blob lb_photo

//SELECTBLOB foto EN: lb_photo DE la tabla donde Condición Usando SQLCA

//P_1.