Alaska Software Inc. - Copiar y Pegar un BMP a un Archivo
Username: Password:
AuthorTopic: Copiar y Pegar un BMP a un Archivo
Nolberto PaulinoCopiar y Pegar un BMP a un Archivo
on Mon, 06 Feb 2006 15:12:42 -0400
Hola a Todos
como puedo copiar un BMP,GIF o Grafica, y luego pegarlo a un archivo para 
covertirlo en un archivo.

Nolberto Paulino
un cordial saludo
Pablo BotellaRe: Copiar y Pegar un BMP a un Archivo
on Tue, 07 Feb 2006 17:20:29 +0100
Hola Nolberto,

Mira a ver si es algo asi lo que andas buscando

#include "xbp.ch"
//-----------------------------------------------------------------
proc appsys ; return
//-----------------------------------------------------------------
function Main()
local oClip := XbpClipBoard():new():Create()
local oBmp
if oClip:Open()
   if (aScan( oClip:QueryFormats() ,  XBPCLPBRD_BITMAP ) > 0 )
      oBmp := oClip:GetBuffer( XBPCLPBRD_BITMAP )
      oBmp:SaveFile("Test.jpg" , XBPBMP_FORMAT_JPG )
      oBmp:SaveFile("Test.bmp" , XBPBMP_FORMAT_WIN3X )
      oBmp:Destroy()
   end
   oClip:Close()
end
oClip:Destroy()
return NIL
//-----------------------------------------------------------------

Saludos,
Pablo Botella
Nolberto PaulinoRe: Copiar y Pegar un BMP a un Archivo
on Tue, 07 Feb 2006 17:58:44 -0400
Gracias Pablo
por tu ayuda,
Probare esto, a ver si me funciona.

Pero lo idea que tengo en mente es copiar una Foto de internet y pegarlo en 
un XBPSTATIC.
para que se copie como un archivo.

Nolberto Paulino.
Un cordia saludo.


"Pablo Botella" <pbn_NOSPAM_@pablob.com> escribi en el mensaje 
news:7c24c624$2775c74d$42c218@news.alaska-software.com...
> Hola Nolberto,
>
> Mira a ver si es algo asi lo que andas buscando
>
> #include "xbp.ch"
> //-----------------------------------------------------------------
> proc appsys ; return
> //-----------------------------------------------------------------
> function Main()
> local oClip := XbpClipBoard():new():Create()
> local oBmp
> if oClip:Open()
>   if (aScan( oClip:QueryFormats() ,  XBPCLPBRD_BITMAP ) > 0 )
>      oBmp := oClip:GetBuffer( XBPCLPBRD_BITMAP )
>      oBmp:SaveFile("Test.jpg" , XBPBMP_FORMAT_JPG )
>      oBmp:SaveFile("Test.bmp" , XBPBMP_FORMAT_WIN3X )
>      oBmp:Destroy()
>   end
>   oClip:Close()
> end
> oClip:Destroy()
> return NIL
> //-----------------------------------------------------------------
>
> Saludos,
> Pablo Botella
>
Jose Luis OterminRe: Copiar y Pegar un BMP a un Archivo
on Wed, 08 Feb 2006 09:58:58 -0300
Nolberto,

Si tienes PhotoEditor de M$-Office, esto es solo copiar y pegar como imagen
nueva.


Saludos
Jos Luis Otermin
Soporte Tcnico
--------------------------------------------------------------------
Alaska Software Inc.
Foros de Usuarios: news://news.alaska-software.com
Foros de Usuarios Web: http://news.alaska-software.com
Pgina Web: http://www.alaska-software.com
Base de Conocimientos en la Web: http://www.alaska-software.com/kbase.shtm
Oficina en Europa: Fax: +49 (0) 61 96 - 77 99 99 23
Oficina en EEUU: Fax: +1 (646) 218 1281
--------------------------------------------------------------------
Nos gustara poder recibirle en la tercera conferencia de Xbase++ en
Manchester, NH, EE.UU.; Los detalles se encuentran ac:
http://www.xbasedevcon.com:8001/



"Nolberto Paulino" <news.abox.com> escribi en el mensaje
news:624b7fc9$57a56c90$445a29@news.alaska-software.com...
>
> Gracias Pablo
> por tu ayuda,
> Probare esto, a ver si me funciona.
>
> Pero lo idea que tengo en mente es copiar una Foto de internet y pegarlo
en
> un XBPSTATIC.
> para que se copie como un archivo.
>
> Nolberto Paulino.
> Un cordia saludo.
>
>
> "Pablo Botella" <pbn_NOSPAM_@pablob.com> escribi en el mensaje
> news:7c24c624$2775c74d$42c218@news.alaska-software.com...
> > Hola Nolberto,
> >
> > Mira a ver si es algo asi lo que andas buscando
> >
> > #include "xbp.ch"
> > //-----------------------------------------------------------------
> > proc appsys ; return
> > //-----------------------------------------------------------------
> > function Main()
> > local oClip := XbpClipBoard():new():Create()
> > local oBmp
> > if oClip:Open()
> >   if (aScan( oClip:QueryFormats() ,  XBPCLPBRD_BITMAP ) > 0 )
> >      oBmp := oClip:GetBuffer( XBPCLPBRD_BITMAP )
> >      oBmp:SaveFile("Test.jpg" , XBPBMP_FORMAT_JPG )
> >      oBmp:SaveFile("Test.bmp" , XBPBMP_FORMAT_WIN3X )
> >      oBmp:Destroy()
> >   end
> >   oClip:Close()
> > end
> > oClip:Destroy()
> > return NIL
> > //-----------------------------------------------------------------
> >
> > Saludos,
> > Pablo Botella
> >
>
>
Nolberto PaulinoRe: Copiar y Pegar un BMP a un Archivo
on Wed, 08 Feb 2006 09:22:51 -0400
Gracias Jose Luis Otermin
pero con la ayuda de Pablo Botella resolvi mi problema.

Gracias.


"Jose Luis Otermin" <jose.otermin@alaska-software.com> escribi en el 
mensaje news:2bdf4789$4df94e82$44ad4a@news.alaska-software.com...
> Nolberto,
>
> Si tienes PhotoEditor de M$-Office, esto es solo copiar y pegar como 
> imagen
> nueva.
>
>
> -- 
> Saludos
> Jos Luis Otermin
> Soporte Tcnico
> --------------------------------------------------------------------
> Alaska Software Inc.
> Foros de Usuarios: news://news.alaska-software.com
> Foros de Usuarios Web: http://news.alaska-software.com
> Pgina Web: http://www.alaska-software.com
> Base de Conocimientos en la Web: http://www.alaska-software.com/kbase.shtm
> Oficina en Europa: Fax: +49 (0) 61 96 - 77 99 99 23
> Oficina en EEUU: Fax: +1 (646) 218 1281
> --------------------------------------------------------------------
> Nos gustara poder recibirle en la tercera conferencia de Xbase++ en
> Manchester, NH, EE.UU.; Los detalles se encuentran ac:
> http://www.xbasedevcon.com:8001/
>
>
>
> "Nolberto Paulino" <news.abox.com> escribi en el mensaje
> news:624b7fc9$57a56c90$445a29@news.alaska-software.com...
>>
>> Gracias Pablo
>> por tu ayuda,
>> Probare esto, a ver si me funciona.
>>
>> Pero lo idea que tengo en mente es copiar una Foto de internet y pegarlo
> en
>> un XBPSTATIC.
>> para que se copie como un archivo.
>>
>> Nolberto Paulino.
>> Un cordia saludo.
>>
>>
>> "Pablo Botella" <pbn_NOSPAM_@pablob.com> escribi en el mensaje
>> news:7c24c624$2775c74d$42c218@news.alaska-software.com...
>> > Hola Nolberto,
>> >
>> > Mira a ver si es algo asi lo que andas buscando
>> >
>> > #include "xbp.ch"
>> > //-----------------------------------------------------------------
>> > proc appsys ; return
>> > //-----------------------------------------------------------------
>> > function Main()
>> > local oClip := XbpClipBoard():new():Create()
>> > local oBmp
>> > if oClip:Open()
>> >   if (aScan( oClip:QueryFormats() ,  XBPCLPBRD_BITMAP ) > 0 )
>> >      oBmp := oClip:GetBuffer( XBPCLPBRD_BITMAP )
>> >      oBmp:SaveFile("Test.jpg" , XBPBMP_FORMAT_JPG )
>> >      oBmp:SaveFile("Test.bmp" , XBPBMP_FORMAT_WIN3X )
>> >      oBmp:Destroy()
>> >   end
>> >   oClip:Close()
>> > end
>> > oClip:Destroy()
>> > return NIL
>> > //-----------------------------------------------------------------
>> >
>> > Saludos,
>> > Pablo Botella
>> >
>>
>>
>
>
Nolberto PaulinoRe: Copiar y Pegar un BMP a un Archivo
on Tue, 07 Feb 2006 21:27:44 -0600
Gracias Pablo
Esto me funciono Muy Bien.

Nolberto Software, Design
Nolberto Paulino
digitsoft26@hotmail.com
digitsoft26@gmail.com
digitsoft26@yahoo.com


"Pablo Botella" <pbn_NOSPAM_@pablob.com> escribi en el mensaje
news:7c24c624$2775c74d$42c218@news.alaska-software.com...
> Hola Nolberto,
>
> Mira a ver si es algo asi lo que andas buscando
>
> #include "xbp.ch"
> //-----------------------------------------------------------------
> proc appsys ; return
> //-----------------------------------------------------------------
> function Main()
> local oClip := XbpClipBoard():new():Create()
> local oBmp
> if oClip:Open()
>    if (aScan( oClip:QueryFormats() ,  XBPCLPBRD_BITMAP ) > 0 )
>       oBmp := oClip:GetBuffer( XBPCLPBRD_BITMAP )
>       oBmp:SaveFile("Test.jpg" , XBPBMP_FORMAT_JPG )
>       oBmp:SaveFile("Test.bmp" , XBPBMP_FORMAT_WIN3X )
>       oBmp:Destroy()
>    end
>    oClip:Close()
> end
> oClip:Destroy()
> return NIL
> //-----------------------------------------------------------------
>
> Saludos,
> Pablo Botella
>
>