8 respuestas en este tema

[armadillo]

Hola amig@s
Estoy haciendo una pequeña aplicacion en consola estoy usando FreePascal y com SO Linux.
Necesito poder grabar la pantalla y luego restaurar , algo asi como una funcion savescreen(1,1,80,24) y su antonima restorescreen(1,1,80,24)... todo lo que he visto por ahi esta basado en TP7 y no funciona en FP y mucho menos en linux...
Podria alguien orientarme un poquito o como deberia buscar?
Gracias

[enecumene]

Prueba lo siguiente, lo encontré en mis librerías:
 

delphi

type
  screentype= array[1..4000] of byte;
  screenptr=^screentype;
 
var
  screen1: screenptr;
 
procedure savescreen(scr:byte);
var
  sc1: byte absolute $b000:0;
  sc2: byte absolute $b800:0;
begin;
  if screenaddress=$b000 then move(sc1,screens1^,4000);
  if screenaddress=$b800 then move(sc2,screens1^,4000);
end;
 
procedure restorescreen(scr:byte);
var
  sc1: byte absolute $b800:0;
  sc2: byte absolute $b000:0;
begin;
  if screenaddress=$b000 then move(screens1^, sc2,4000);
  if screenaddress=$b800 then move(screens1^, sc1,4000);
end;

[armadillo]

Prueba lo siguiente, lo encontré en mis librerías:

delphi

type
  screentype= array[1..4000] of byte;
  screenptr=^screentype;
 
var
  screen1: screenptr;
 
procedure savescreen(scr:byte);
var
  sc1: byte absolute $b000:0;
  sc2: byte absolute $b800:0;
begin;
  if screenaddress=$b000 then move(sc1,screens1^,4000);
  if screenaddress=$b800 then move(sc2,screens1^,4000);
end;
 
procedure restorescreen(scr:byte);
var
  sc1: byte absolute $b800:0;
  sc2: byte absolute $b000:0;
begin;
  if screenaddress=$b000 then move(screens1^, sc2,4000);
  if screenaddress=$b800 then move(screens1^, sc1,4000);
end;

Hola enecume!!
Gracias por tu pronta respuesta.
He hecho esta pequeña prueba de tu código:
 

delphi

program segunda_prueba;
uses crt;
type
  screentype= array[1..4000] of byte;
  screenptr=^screentype;
 
var
screen1: screenptr;
 
procedure savescreen(scr:byte);
var
  sc1: byte absolute $b000:0; <---- error
  sc2: byte absolute $b800:0;
begin;
  if screenaddress=$b000 then move(sc1,screens1^,4000);
  if screenaddress=$b800 then move(sc2,screens1^,4000);
end;
 
procedure restorescreen(scr:byte);
var
  sc1: byte absolute $b800:0;
  sc2: byte absolute $b000:0;
begin;
  if screenaddress=$b000 then move(screens1^, sc2,4000);
  if screenaddress=$b800 then move(screens1^, sc1,4000);
end;
 
begin
var pantalla: byte;
 
  savescreen(pantalla);
  clrscr;
  gotoxy(10,10);
  writeln('Pantalla limpia... y restauramos pantalla de consola');
  readln;
  restorescreen(pantalla);
end.

Pero me sale el siguiente error

segunda_prueba.lpr(12,27) Fatal: Syntax error, ";" expected but ":" found


La verdad es que no se donde puede estar el problema he visto varias rutinas en internet y todas muy parecidas o iguales a la tuya, no se si es un incompatibilidad del FreePascal con TP7 o es tema del Sistemaoperativo...

[egostar]

Desconozco freePascal pero ésto me parece raro

php

begin
var pantalla: byte;
 
 
 
 
end.

¿Las variables se pueden asignar dentro del bloque begin ... end; ?

 

La otra que veo me da curiosidad.

 

php

begin;
 
 
end;

El begin requiere del punto y coma ???

 

Saludos

[escafandra]

Mucho me temo que el código expuesto por enecumene se trara de un código específico para los antiguos PCs con MSDOS. En ellos, la memoria de pantalla estaba en el rango:

 

1.- Modos gráficos:

  A000:0000h-A000:FFFFh  para EGA, VGA y SuperVga

  B000:0000h-B000:FFFFh  para CGA

 

2.- Modos texto:

  B000:0000h Monocromo (4 Kb)

  B800:0000h Color (16Kb)

 

En Linux no va a funcionar, y en los PCs actuales tampoco.

 

 

Saludos.

[Edson]

Tal vex sea mejor usar una memoria temporal y definir rutinas que escriban en esa memoria y en pantalla a la vez. Así se podrá acceder siempre a lo que hay en pantalla.

[Marc]

Hola.

 

Dentro de /system/bin/ tienes la utilidad "screencap" para lanzar una captura de pantalla. Solo tienes que lanzarla desde tu aplicación Lazarus.

 

Desde una sesión de terminal (por ejemplo con la app Terminal Emulator) ejecútala con el parámetro -h para ver los parámetros que acepta esa utilidad (formato de salida, nombre de archivo, ...).

 

Ejemplo: /system/bin/screencap -p /sdcard/Pictures/captura.png

 

Te va a dejar la captura de imagen en la carpeta de fotos de tu teléfono.

 

Saludos.

[Delphius]

Hola armadillo,

¿Cuál es el trasfondo de esto? A lo que voy es que mires más en profundidad. ¿Que objetivo o propósito tiene esto?

Se que dices que buscas guardar la pantalla y poder volver desde ese punto. Ahora bien, ¿Porqué o que es lo que te motiva esto? ¿La aplicación sobre la que se va a hacer "captura" la estás desarrollando tu?

 

Porque si la idea es tener una especie de sesión para que uno al salir de tu programa pueda comenzar desde dicho punto quizá no sea necesario llegar a ese extremo sino más bien de pensamiento adicional y algo más de lógica (y si, de esfuerzo también) ¿Que te impide tener alguna estructura de datos definida por ti que lleve el registro de pasos que ejecuta el usuario... una especie de UserTracker. Es decir algo que vaya registrando la actividad del usuario. Supongamos que el programa tenga "módulos" y cada uno tiene un aspecto de interfaz, y como aplicamos programación basado en procedimientos nos hemos avivado bien en tener algo como PintarModulo(NroModulo), y éste invoca al procedimiento indicado según el número leído. Entonces si tuviéramos una estructura de seguimiento haríamos algo como: UserTracker.EnModulo := NroModulo antes o después de invocar a PintarModulo.

Para poder recuperar el "estado" de la sesión basta con guardar en archivo la información almacenada en UserTracker y leerla al iniciar el programa. Esto motiva entonces algún procedimiento como CargarSesion().

Este enfoque de programación puede ser tan simple como complejo según lo que necesites. Naturalmente esta forma de encararlo requiere de más dedicación y obviamente tener una "máquina de estado" capaz de reconocer como es el paso de una pantalla a otra según como interactúa el usuario.

 

Saludos,

[armadillo]

Hola Nuevamente a todos...

Creo que se ha liado un poco la cosa...

La idea de lo que quiero hacer es simple práctica....

Estoy haciendo una simple aplicación de consola, solo por amor al arte y practicar un poco de programación básica que se me ha olvidado... cuando llevas tiempo Usando Delphi y luego Lazarus (Como es mi caso)... terminas siendo cómodo y cojiendo vicios,  prácticamente ya no usas mas el: "  Type MiObjeto = Class " uno se limita solo a meter objetos en formularios y hacerlos funcionar entre si.. Generalmente las pequeñas aplicaciones que hago son solo de control de datos, aplicaciones contables control de stock y rollos por el estilo. Tan simples como que meten un dato lo guardo y luego lo muestro cuando lo pidan.

Y como vi que estaba perdiendo lucidez y/o soltura, quise volver a los inicios... así que decidí hacer una pequeña aplicación de "Agenda" (El "Hello World" de las aplicaciones de base de datos).

Te entusiasmas y quieres hacerla cada vez mas vistosa y etc etc... y me encontré con el problema y/o dificultad, de que por ejemplo tengo un listado en pantalla y muestro un mensaje en medio de la pantalla informando de algo... que pisa la información inicial,  cuando quiero quitar ese mensaje debo de escribir nuevamente toda la pantalla por eso empece a preguntar si existía  algo como se usa en CLIPPER savescreen() algún homologo en FreePascal, he visto que hay opciones pero la cosa se complica en mi caso usando linux... en fin esa era la idea de todo esto.

Esta claro que si quiero hacer algo relativamente serio en consola usaría FreeVision, pero ya os digo que quiero practicar y jugar yo