Voici un petit utilitaire pour convertir des images 16-couleurs enregistrées avec l'unité GRAPH (avec GetImage et ImageSize) en fichiers Bitmap (*.bmp).
Je me suis fait ce petit utilitaire pour récupérer les images d'un vieux programme Pascal (nostalgie, nostalgie).
J'en fait donc profiter la communauté, à toute fin utile.
Exemple de code Turbo Pascal (TP7) permettant d'enregistrer une telle image :
Remarque: cet utilitaire un programme Java (Je n'ai plus écrit de Pascal de puis des lustres) mais j'ai fourni les sources et ce ne doit pas être trop dur de le transposer l'algo en Pascal.
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 VAR Graphmode : INTEGER; Graphpilot : INTEGER; ModeInf,ModeSup : INTEGER; Fichier : FILE ; p_image : POINTER; x1,y1,x2,y2 : INTEGER BEGIN {init gaphic mode} Graphpilot:= Detect; InitGraph(Graphpilot, Graphmode, ''); GetModeRange(GraphPilot, ModeInf, modeSup); SetGraphMode(ModeSup); {do somethings with graphics} {save the image in a file} GetMem(p_image, ImageSize(x1, y1, x2, y2)); GetImage(x1, y1, x2, y2, p_image^); Assign (Fichier, 'image.img'); Rewrite (Fichier, 1); BlockWrite(Fichier, p_image^, ImageSize(x1, y1, x2, y2)); Close (Fichier); FreeMem(p_image, ImageSize(x1, y1, x2, y2)); END;
Partager