FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour Copy & Paste y grabar imagen en archivo
Willi Quintana
Posts: 1054
Joined: Sun Oct 09, 2005 10:41 PM
Copy & Paste y grabar imagen en archivo
Posted: Tue Sep 27, 2022 12:20 PM
Amigos buenos días:
Utilizo XIMAGE, y requiero copiar una imagen (desde la WEB) y pegarla en un control XIMAGE, activando lCanPaste := .t. funciona el pegado, pero lo que no puedo hacer es grabar esa imagen pegada a un archivo:
este es código que utilizo, gracias por vuestra atención
Code (fw): Select all Collapse
       REDEFINE XIMAGE oFoto ;  //
                RESOURCE "NOIMAGEN" ;  //
                ID 120 OF oDlg
                oFoto:lCanPaste := .t.
                oFoto:lBmpTransparent := .f.
                oFoto:cToolTip := "Click Derecho Modificar Imagen 310 x 250 Px
karinha
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Re: Copy & Paste y grabar imagen en archivo
Posted: Tue Sep 27, 2022 01:00 PM
Mira se ayuda:

http://forums.fivetechsupport.com/viewtopic.php?f=6&t=38844&start=0&hilit=REDEFINE+XIMAGE&sid=7fbdb36271086802b121b7c2eccdae66

Regards, saludos.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
Willi Quintana
Posts: 1054
Joined: Sun Oct 09, 2005 10:41 PM
Re: Copy & Paste y grabar imagen en archivo
Posted: Tue Sep 27, 2022 01:45 PM

Gracias por el enlace, no me ayuda, sa hacer el ::save indica "Formato Invalido"

cmsoft
Posts: 1344
Joined: Wed Nov 16, 2005 09:14 PM
Re: Copy & Paste y grabar imagen en archivo
Posted: Tue Sep 27, 2022 06:06 PM
Asi Willy?
Aunque no es desde recursos
Code (fw): Select all Collapse
#include "FiveWin.ch"
#include "image.ch"
STATIC oWnd, oBar
function Main()
local oDlg, oFoto, nQuality := 100, oBot
DEFINE DIALOG oDlg SIZE 980,300 PIXEL ;
      TITLE "COPY PASTE XIMAGE"
  @ 05,30  XIMAGE oFoto FILE ".\nofoto.jpg" OF oDlg SIZE 150,75 
  oFoto:lCanPaste := .t.
  oFoto:lBmpTransparent := .f.
  oFoto:cToolTip := "Click Derecho Modificar Imagen 310 x 250 Px"   
  @ 05,05 BUTTON oBot PROMPT "Save" ACTION (oFoto:Refresh(), oFoto:Save(.f.,".\newfile.jpg", nQuality)) PIXEL SIZE 20,12 
  ACTIVATE DIALOG oDlg CENTERED
  oFoto:End()
return NIL
Salu2
Cesar Gomez
https://www.bcnsoft.com.ar
https://www.pedidosbcn.com
Willi Quintana
Posts: 1054
Joined: Sun Oct 09, 2005 10:41 PM
Re: Copy & Paste y grabar imagen en archivo
Posted: Tue Sep 27, 2022 08:56 PM

HOla César, sale este aviso:

Image type not supported

cmsoft
Posts: 1344
Joined: Wed Nov 16, 2005 09:14 PM
Re: Copy & Paste y grabar imagen en archivo
Posted: Tue Sep 27, 2022 10:11 PM

La imagen que pegas es JPG u otro formato?
Yo hice la prueba con una imagen JPG y el archivo me lo guarda bien
Voy a probar con copiando una con otro formato, a ver que me dice

Salu2
Cesar Gomez
https://www.bcnsoft.com.ar
https://www.pedidosbcn.com
cmsoft
Posts: 1344
Joined: Wed Nov 16, 2005 09:14 PM
Re: Copy & Paste y grabar imagen en archivo
Posted: Tue Sep 27, 2022 10:17 PM

Hice las pruebas con JPG, PNG y webp y me las guarda bien.

La clase Ximage no tiene ese mensaje (por lo menos la versión que yo tengo), solo tiene este mensaje cuando no puede grabar en el metodo Save: ? "No image to save"

Salu2
Cesar Gomez
https://www.bcnsoft.com.ar
https://www.pedidosbcn.com
Willi Quintana
Posts: 1054
Joined: Sun Oct 09, 2005 10:41 PM
Re: Copy & Paste y grabar imagen en archivo
Posted: Wed Sep 28, 2022 12:51 AM

Por favor, si puedes hacerlo desde recursos
GRacias

cmsoft
Posts: 1344
Joined: Wed Nov 16, 2005 09:14 PM
Re: Copy & Paste y grabar imagen en archivo
Posted: Wed Sep 28, 2022 02:53 AM
Desde recursos: (También me funciona a mi)
Code (fw): Select all Collapse
#include "FiveWin.ch"
#include "image.ch"
STATIC oWnd, oBar
function Main()
local oDlg, oFoto, nQuality := 100, oBot
DEFINE DIALOG oDlg NAME "WILLY"

  REDEFINE XIMAGE oFoto FILE '.\oldimg.jpg"' ;  //
                ID 130 OF oDlg
                oFoto:lCanPaste := .t.
                oFoto:lBmpTransparent := .f.
                oFoto:cToolTip := "Click Derecho Modificar Imagen 310 x 250 Px"
  REDEFINE BUTTON oBot ID 120 PROMPT "Save" ACTION (oFoto:Refresh(), oFoto:Save(.f.,".\newfile.jpg", nQuality)) 
ACTIVATE DIALOG oDlg CENTERED

Y el .rc
Code (fw): Select all Collapse
1 MANIFEST "WindowsXP.Manifest"

WILLY DIALOG DISCARDABLE 6, 18, 158, 70
STYLE WS_CAPTION|WS_SYSMENU|WS_MINIMIZEBOX|WS_MAXIMIZEBOX|WS_VISIBLE
CAPTION "Copy Paste Image"
FONT 10, "MS Sans Serif"
{
  CONTROL "Save", 120, "Button", WS_TABSTOP, 0, 4, 36, 14
  CONTROL "", 130, "TXIMAGE", 0x00000000, 40, 4, 116, 56
}
Salu2
Cesar Gomez
https://www.bcnsoft.com.ar
https://www.pedidosbcn.com
Willi Quintana
Posts: 1054
Joined: Sun Oct 09, 2005 10:41 PM
Re: Copy & Paste y grabar imagen en archivo
Posted: Sat Oct 01, 2022 02:17 AM

GRacias, fucniono,,,, ahora esta muy bien....

cmsoft
Posts: 1344
Joined: Wed Nov 16, 2005 09:14 PM
Re: Copy & Paste y grabar imagen en archivo
Posted: Sat Oct 01, 2022 11:58 AM

Estupendo Willi!

Salu2
Cesar Gomez
https://www.bcnsoft.com.ar
https://www.pedidosbcn.com

Continue the discussion

Static archive · New replies & topics via GitHub Discussions