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