Discussion :

[EpiTouille]

Bonjour j'essai de faire une sauvegarde de l'écran en heap, et le contraire. Voilà un bout de mon code;

J'ai vu cette techique dans plusieurs logiciel et j'essai de comprendre comment ça marche

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
 
Program SaveScr;
Uses
  Crt;
 
Type
  OneChar = Record
    Character : Char;
    Attribute : Byte;
    end;
 
  RAMBuffer = Array [1..25, 1..800] of OneChar;
  RAMBufPtr = ^RAMBuffer;
Var
  i , j : integer;
  VideoRAM : RAMBufPtr;
 
 
procedure sauvegarde;
 
begin
  If (LastMode = 7) { Sans pilote graphique }
    Then
      VideoRAM := Ptr ($B000, $0000) 
    Else
      VideoRAM := Ptr ($B800, $0000);
end; 
 
procedure restore;
  For i := 1 to 25 Do
    begin
      For j := 1 to 80 Do
        Write (VideoRAM^ [i, j].Character);
    end;
 
 
end.

Le problème c'est que ce bout de code affiche plusieurs fois le bout de texte de l'écran.

Merci pour vos réponses et/ou conseils

[Eric2a]

Salut,

Tu as créé un tableau de 800 colonnes / ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

RAMBuffer = Array [1..25, 1..80] of OneChar;

[EpiTouille]

C'est juste un faute de frappe, mais dans le vrai code, j'ai bien mis 80

[Paul TOTH]

c'est un peu vieux dans mon esprit, mais de ce que je comprend tu écris à l'écran ce qu'il y a à l'écran ... je vois pas trop l’intérêt.

VideoRAM est un pointeur vers ma mémoire écran

Write() affiche le caractère à l'écran...

si tu ajoutes un GotoXY(0,0) avant ta boucles tu devrais écrire en X,Y le caractère qui est en X,Y...pas convaincant

[EpiTouille]

Oui , dans mon exemple c'est bête, mais j'ai vu de nombreuses applications qui utilise ça pour rafraîchir de manière plus rapide l'écran. Je veux juste le principe.

[Paul TOTH]

Oui , dans mon exemple c'est bête, mais j'ai vu de nombreuses applications qui utilise ça pour rafraîchir de manière plus rapide l'écran. Je veux juste le principe.

haha, j'ai retrouvé un vieux code

l'idée est de sauvegarder l'écran DOS dans la seconde page de la mémoire vidéo au démarrage du programme et de la restaurer à la fin

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
uses crt;
...
Var
 OldExit:pointer;
 OldX,OldY:Byte;
Procedure RestoreScreen; far;
 begin
  ExitProc:=OldExit;
  Move(Mem[SegB800:80*25*2],Mem[SegB800:0],80*25*2);
  Crt.Window(1,1,80,25);
  GotoXY(OldX,OldY);
 end;
 
begin
 OldX:=WhereX;
 OldY:=WhereY;
 Move(Mem[SegB800:0],Mem[SegB800:80*25*2],80*25*2);
 OldExit:=ExitProc;
 ExitProc:=@RestoreScreen;
end.

[M.Dlb]

Alors alors... La zone mémoire associée à l'écran en mode texte comme dans la plupart des cas au segment B800 (mode réel !). Pour coder chaque caractère, 2 octets sont utilisés:

• Le premier octet donne le code ASCII du caractère qu'on veut afficher,
• Le deuxième octet donne l'attribut du caractère en question (c'est-à-dire sa couleur, la couleur du fond et le clignotement (blink).

Les bits 0-3 (masque 0fH) donne la couleur de la police (foreground color).
Les bits 4-6 (masque 70H) donne la couleur de fond (background color).
Le bit 7 (masque 80H) code le blink.

Pour sauvegarder un écran tel quel, on comprend qu'il faut donc le double d'espace que prévu ! Le plus logique est donc de coder 25 lignes pour 160 colonnes, en lisant 2 octets à chaque tout de boucle... Une approche est aussi de stocker dans un vecteur de 4000 octets (=25*160) (et non pas 2000) !