Clase tGraph

[George]

Alfredo o algun compañero del foro:

Estoy usando la clase tGraph de Alfredo Arteaga. Todo esta muy bien con excepcion del metodo oGraph:Save2BMP(); este solo me graba un cuadro pequeño blanco con una x en el medio.

Intente con la ultima clase modificada, pero me sigue saliendo igual.
Estou usando FWH 2.7 Sep 06 + xHarbour builder Jan 07. Estaria por aqui el problema?

Alguna sugerencia?

Saludos,


George

[Francisco Horta]

George,
yo he probado asi y me funciona

cFile := cTempFile()+"bmp"
IF oGraph:nType == 3 .OR. ( oGraph:nType == 2 .AND. !oGraph:l3D )
oGraph:Save2Bmp(cFile,0)
nOpt := 0
ENDIF

probe con barras,lineas,puntos y pie
salu2
paco

[George]

Francisco,

Gracias por responder.
Yo tambien lo hice de esa manera, usando la misma clase modificada que tu usas, y me sigue dando el problema. No se por donde anda la solucion.

Pero creo que el problema debe estar en que uso xHarbour builder y no harbour.

Por otro lado si me funciona perfectamente la opcion de copiar la grafica al clipboard.
Mi pregunta a ti, a Antonio y a cualquier compañero de foro que sepa la respuesta es:
Como Salvar Una Imagen, Tipo BMP, Que Esta En El ClipBoard?

Saludos,


George

[Antonio Linares]

George,

Prueba así:

Code: Select all  Expand view  RUN

   DEFINE CLIPBOARD oClp OF oWnd
   DibWrite( "screen.bmp", DibFromBitmap( oClp:GetBitmap() ) )


[George]

Hola Antonio,

Trate tu sugerencia y me salva un fichero igual, solo presenta un pequeño cuadrado con una X roja en el centro.

Que podra ser? Me tiene vuelto loco.

Saludos

George

[Antonio Linares]

El fichero screen.bmp que se crea, que tamaño tiene ?

[George]

Antonio,

El tamaño del fichero creado es de 689,990 Bytes

Te estoy enviando a tu correo personal el fichero generado, quizas tu puedas ver algo que yo no estoy viendo.

Saludos,


George[/url]

[Antonio Linares]

El fichero lo estas creando así ?

Code: Select all  Expand view  RUN

   DEFINE CLIPBOARD oClp OF oWnd
   DibWrite( "screen.bmp", DibFromBitmap( oClp:GetBitmap() ) )


y previamente has puesto la imagen en el clipboard ?

[George]

La imagen se copia al clipboard con la siguiente funcion:
WndCopy( Self:hWnd, .F., .T. )
que esta en el metodo tGraph
Yo verifique lo anterior y mediante un paste puedo poner la imagen en Ms-Word. Esta parte trabaja 100% OK


Esta son las intrucciones, tal cual como tu me indicaste, que estoy usando para grabar el fichero en el Hard Disk:
DEFINE CLIPBOARD oClp OF oWnd
DibWrite( "screen.bmp", DibFromBitmap( oClp:GetBitmap() ) )

Pero solamente se salva un pequeño cuadrado blanco con una X roja en el medio

Saludos

George

[Francisco Horta]

george, puede ser por cuestion del compilador, yo uso harbour y me va bien, si que es un caso para la araña.
intentare probando con xharbour a ver que tal, luego te comento
salu2
paco

[George]

Francisco te agradezco tu ayuda en este asunto.

Espero encontrar una solucion a este problema sin tener que abandonar xHarbour por Harbour.
Yo pienso que, si el problema es debido a que uso xHarbour, quizas Alfredo Arteaga pudiera encontrar una solucion al mismo.

Saludos,

George