Hola buenas tardes/noche a toda la comunidad FW estoy con el siguiente problema, necesito pegar (paste) en el control XImage no se si se puede una imagen copiada al portapapel (Clipboard). Lo tengo hecho pero buscando la imagen en disco y como hoy es muy c贸modo para el usuario copiar y pegar quer铆a saber si existe esa opci贸n?
Desde ya muchas gracias y quedo a la espera.
Saludos desde Argentina.
Marcelo
Estimado Marcelo,
La Clase TXImage proporciona el m茅todo Paste( lCheck ) que permite copiar una imagen desde el portapapeles
Adem谩s tienes el m茅todo PopupMenu( nRow, nCol, nFlags ) que te muestra un popup con la opci贸n Paste
Espero que esto te pueda ser de ayuda
oImage:lCanPaste := .t.#include "fivewin.ch"
function Main()
聽 聽local oDlg, oImage
聽 聽DEFINE DIALOG oDlg SIZE 400,400 PIXEL TRUEPIXEL RESIZABLE ;
聽 聽TITLE "XIMAGE"
聽 聽@ 0,0 XIMAGE oImage SOURCE "" SIZE 0,0 OF oDlg
聽 聽oImage:lCanPaste 聽:= .t.
聽 聽ACTIVATE DIALOG oDlg CENTERED
return nil
Buenos dias Mr. Rao si efectivamente me anduvo logre hacerlo guardar la imagen tambien.
Gracias y saludos
Marcelo
Gracias Antonio si si ahi logre hacerlo muchas gracias por la informaci贸n.
Saludos
Marcelo
Otra consulta con respecto a la imagen, cuando selecciono un archivo de imagen del disco, la imagen se guarda bien en la tabla, pero al momento de pegar la imagen me guarda la imagen en blanco.
Me esta faltando algo?
agregue esto antes de guardar la imagen
cArchivo:=curdrive()+":\"+curdir()+"\imagenes\foto.jpg"
oSelf:oImg:Save(.F.,cArchivo, 100)
lo guarda pero me da un alert de here P
y es molesto para el usuario final
Cualquier sugerencia les agradezco
1) What is your FWH version?
2) What is the alert you are getting?
? "here",valtype( uimage ), nwidth,nheightMr. RAO
Hecho ya lo hice y funciona ok.
Gracias Mr. RAO
Otra cosita en esta misma consulta, si es posible.
Las imagenes que guardo en la base de datos mysql las quiero leer desde php pero solo veo codigo binario.
Alguien tendra la forma de leerlo?
Gracias de antemano
Saludos
Marcelo