Page 1 of 1

Clase tGraph

Posted: Fri Jun 15, 2007 7:07 pm
by 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

Posted: Fri Jun 15, 2007 8:25 pm
by 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

Posted: Fri Jun 15, 2007 9:07 pm
by 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

Posted: Fri Jun 15, 2007 10:16 pm
by Antonio Linares
George,

Prueba así:

Code: Select all

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

Posted: Fri Jun 15, 2007 11:41 pm
by 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

Posted: Sat Jun 16, 2007 12:24 am
by Antonio Linares
El fichero screen.bmp que se crea, que tamaño tiene ?

Posted: Sat Jun 16, 2007 2:28 pm
by 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]

Posted: Sat Jun 16, 2007 4:51 pm
by Antonio Linares
El fichero lo estas creando así ?

Code: Select all

   DEFINE CLIPBOARD oClp OF oWnd 
   DibWrite( "screen.bmp", DibFromBitmap( oClp:GetBitmap() ) )
y previamente has puesto la imagen en el clipboard ?

Posted: Sat Jun 16, 2007 8:01 pm
by 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

Posted: Sun Jun 17, 2007 4:59 am
by 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

Posted: Tue Jun 19, 2007 1:24 pm
by 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