Sauvegarde d'écran en heap

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:

---

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 :ccool:

Salut,

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

Code:

---

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

---

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

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 :)

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.

Citation:

---

Envoyé par titeeee

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:

---

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.

---

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) !

Petit exemple avec l'output d'un programme TP tout simple, qui ne fait rien.

Code:

---

1 2 3 4 5 6 7 8 9

00000000:54 07 75 07 72 07 62 07 6f 07 20 07 50 07 61 07 T.u.r.b.o. .P.a. 00000010:73 07 63 07 61 07 6c 07 20 07 20 07 56 07 65 07 s.c.a.l. . .V.e. 00000020:72 07 73 07 69 07 6f 07 6e 07 20 07 37 07 2e 07 r.s.i.o.n. .7... 00000030:30 07 20 07 20 07 43 07 6f 07 70 07 79 07 72 07 0. . .C.o.p.y.r. 00000040:69 07 67 07 68 07 74 07 20 07 28 07 63 07 29 07 i.g.h.t. .(.c.). 00000050:20 07 31 07 39 07 38 07 33 07 2c 07 39 07 32 07 .1.9.8.3.,.9.2. 00000060:20 07 42 07 6f 07 72 07 6c 07 61 07 6e 07 64 07 .B.o.r.l.a.n.d. 00000070:20 07 49 07 6e 07 74 07 65 07 72 07 6e 07 61 07 .I.n.t.e.r.n.a. 00000080:74 07 69 07 6f 07 6e 07 61 07 6c 07 20 07 20 07 t.i.o.n.a.l. . .

---

Attention à l'hexa :) Le deuxième octet est 07, soit la foregound color = 7 et la background color = 0. Ce qui signifie couleur grise et fond noir, pas de clignotement, soit la configuration de la console par défaut.

Merci de vos réponses :ccool: