¿Es posible subir fotos en PB?
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.