FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour Salvar a disco graficos de un RC/EXE en tiempo de ejecucion
JmGarcia
Posts: 654
Joined: Mon May 29, 2006 03:14 PM
Salvar a disco graficos de un RC/EXE en tiempo de ejecucion
Posted: Fri May 25, 2007 11:07 AM

Es decir:
Tengo graficos en un RC, compilo con su pertinente PRGs y una vez todo ello cuando ejecute el programa salvar a disco algunos graficos.

El activex con internet explorer solo admite una URL o un fichero en disco.
Que yo sepa no puedo darle de parametro una variable string de memoria con el contenido del HTML.

Entonces para no tener el directorio de la aplicacion lleno de jpgs, bmps o gifs quiero tenerlos en el RC (es decir en el EXE).
Cuando quiera salvo a disco un HTML y los graficos que le hagan falta, presento la "pagina web" y borro todos esos temporales.

驴 Me he explicado o no ?

Gracias a todos...

Mi abuelo dec铆a: Los aviones vuelan porque Dios quiere, y los helic贸pteros ni Dios sabe porque vuelan.

FWH 16.02, xHarbour 1.2.3, Harbour 3.2.0, WorkShop 4.5, AJ Make 0.30, Borlan BCC 7.00, VisualStudio 2013
Biel EA6DD
Posts: 682
Joined: Tue Feb 14, 2006 09:48 AM
Salvar a disco graficos de un RC/EXE en tiempo de ejecucion
Posted: Fri May 25, 2007 11:26 AM
Hola Jose M陋,
quizas te seria mas facil grabar los graficos en un campo memo de una tabla, y recuperarlos cuando te hagan falta.

Code: Select all Collapse
//Grabar
CampoMemo:=MemoRead("grafico.jpg")
//Recuperar
MemoWrit("grafico.jpg",CampoMemo)

Espero que te valga como idea.
Saludos desde Mallorca
Biel Maim贸
http://bielsys.blogspot.com/
JmGarcia
Posts: 654
Joined: Mon May 29, 2006 03:14 PM
Salvar a disco graficos de un RC/EXE en tiempo de ejecucion
Posted: Fri May 25, 2007 12:10 PM
Biel EA6DD wrote:...quizas te seria mas facil grabar los graficos en un campo memo de una tabla, y recuperarlos cuando te hagan falta...

Ya pero entonces tengo un EXE y un DBF... si me lo borran ya esta el lio.
Es para una peque帽a utilidad que pretendo que solo sea un fichero EXE aunque pese 2 o 3 megas.

Saludos.
Mi abuelo dec铆a: Los aviones vuelan porque Dios quiere, y los helic贸pteros ni Dios sabe porque vuelan.

FWH 16.02, xHarbour 1.2.3, Harbour 3.2.0, WorkShop 4.5, AJ Make 0.30, Borlan BCC 7.00, VisualStudio 2013
Biel EA6DD
Posts: 682
Joined: Tue Feb 14, 2006 09:48 AM
Salvar a disco graficos de un RC/EXE en tiempo de ejecucion
Posted: Fri May 25, 2007 02:18 PM

Pues entonces prueba con la clase tImage.
Los siguientes metodos te permiten recuperar desde recurso, y grabara a disco.

LoadImage( cResName, cBmpFile )
SaveImage( cFile, nFormat )

Esto con BMPs en recursos te va a funcionar, para JPG lo dudo.

Si te a servido de ayuda, apuntate q debes un pintxo. :lol: Un abrazo.

Saludos desde Mallorca
Biel Maim贸
http://bielsys.blogspot.com/
JmGarcia
Posts: 654
Joined: Mon May 29, 2006 03:14 PM
Salvar a disco graficos de un RC/EXE en tiempo de ejecucion
Posted: Sat May 26, 2007 11:30 AM
Biel EA6DD wrote:LoadImage( cResName, cBmpFile )
SaveImage( cFile, nFormat )

Pues he hecho esto:
Code: Select all Collapse
oBmp:=TImage():Define("Logo",,)
oBmp:SaveImage("pepe.bmp")
oBmp:End()


驴 Pero hay forma de quitarse del medio la DLL freeimage.dll ?
Mi abuelo dec铆a: Los aviones vuelan porque Dios quiere, y los helic贸pteros ni Dios sabe porque vuelan.

FWH 16.02, xHarbour 1.2.3, Harbour 3.2.0, WorkShop 4.5, AJ Make 0.30, Borlan BCC 7.00, VisualStudio 2013
Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Salvar a disco graficos de un RC/EXE en tiempo de ejecucion
Posted: Sat May 26, 2007 11:45 AM

No se puede porque la Clase TImage necesita FreeImage.dll

regards, saludos

Antonio Linares
www.fivetechsoft.com
JmGarcia
Posts: 654
Joined: Mon May 29, 2006 03:14 PM
Salvar a disco graficos de un RC/EXE en tiempo de ejecucion
Posted: Sat May 26, 2007 10:44 PM
Antonio Linares wrote:No se puede porque la Clase TImage necesita FreeImage.dll

Y cuando el objeto oBmp tiene el grafico BMP en memoria (des霉es de un load, new o redefine) no habria posibilidad de "leer" esa parte de la memoria.

Algo asi como poder hacer cGraficoBmp:=???????? y despues
Memowrit(cGraficoBmp,"pepe.bmp")
o
h:=fcreate("pepe.bmp",0)
fwrite(h,cGraficoBmp)
fclose(h)

Seria ideal...

驴 La clase TBitmap donde guarda el BMP ?
Mi abuelo dec铆a: Los aviones vuelan porque Dios quiere, y los helic贸pteros ni Dios sabe porque vuelan.

FWH 16.02, xHarbour 1.2.3, Harbour 3.2.0, WorkShop 4.5, AJ Make 0.30, Borlan BCC 7.00, VisualStudio 2013

Continue the discussion

Static archive 路 New replies & topics via GitHub Discussions