Passage de Turbo Pascal 5.5 vers Free Pascal

**escargot72** · 25/02/2014, 20h48

Bonjour

Pourriez-vous m'aider pour coder la procédure suivante ?

En TP 5.5, mon pgm va bien, depuis longtemps. Mais Free Pascal ne reconnaît pas le terme "mem".
Je croyais que tout était réglé après mon message précédent, mais non ...

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
38
39
40
41
42
43
44
45
46
procedure FrameTextWindow(color,trait:byte);
 
const
      FrameChar : array[1..2,1..6] of char =
 
                ((#218,#191,#192,#217,#196,#179),
 
                 (#201,#187,#200,#188,#205,#186));
var
    i,pos,offset : integer;
    base : longint;
    note : byte;
begin
   GetVideo;
   CsrOff;
   SelTextWindow(ActiveWindow);
   TextColor(colorTable[color]);
 
   gotoXY(1,1);write(FrameChar[trait,1]);
   for i:=2 to XTextLimit-1 do write(FrameChar[trait,5]);
   write(FrameChar[trait,2]);
   for i:=2 to YTextLimit-1 do
       begin
        gotoXY(1,i);write(FrameChar[trait,6]);
        gotoXY(XTextLimit,i);
        write(FrameChar[trait,6]);
       end;
 
   gotoXY(1,YTextLimit);
   write(FrameChar[trait,3]);
 
   for i:=2 to XTextLimit-1 do write(FrameChar[trait,5]);
 
   pos:=  WinRefTable[ActiveWindow,3] +
         (WinRefTable[ActiveWindow,4] - 1) * colnum;
 
   if mode_video=7 then base:=$B000
              	 else base:=$B800;
<!!!!!!!!!!
   Mem[base:(2 * pos) - 2] := ord(FrameChar[trait,4]);
 
   Mem[base:((2 * pos) - 2) + 1] := Mem[base:((2 * pos) - 2) - 1];
!!!!!!!!>
   CsrOn;
 
end;

Merci par avance
Bernard

**Roland Chastain** · 25/02/2014, 21h09

Bonjour ! Pour faciliter la lecture de votre code, il serait bon d'utiliser les balises appropriées. (Pour cela , vous pouvez vous servir du bouton marqué d'un #.)

Autrement, je voudrais bien essayer de vous aider mais sans avoir le code complet, c'est difficile.

**escargot72** · 25/02/2014, 22h03

J'avais mis le texte entre <------------------- et ------------------>
Avec la balise citee : #

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
38
39
40
41
42
43
44
45
46
procedure FrameTextWindow(color,trait:byte);
 
const
      FrameChar : array[1..2,1..6] of char =
 
                ((#218,#191,#192,#217,#196,#179),
 
                 (#201,#187,#200,#188,#205,#186));
var
    i,pos,offset : integer;
    base : longint;
    note : byte;
begin
   GetVideo;
   CsrOff;
   SelTextWindow(ActiveWindow);
   TextColor(colorTable[color]);
 
   gotoXY(1,1);write(FrameChar[trait,1]);
   for i:=2 to XTextLimit-1 do write(FrameChar[trait,5]);
   write(FrameChar[trait,2]);
   for i:=2 to YTextLimit-1 do
       begin
        gotoXY(1,i);write(FrameChar[trait,6]);
        gotoXY(XTextLimit,i);
        write(FrameChar[trait,6]);
       end;
 
   gotoXY(1,YTextLimit);
   write(FrameChar[trait,3]);
 
   for i:=2 to XTextLimit-1 do write(FrameChar[trait,5]);
 
   pos:=  WinRefTable[ActiveWindow,3] +
         (WinRefTable[ActiveWindow,4] - 1) * colnum;
 
   if mode_video=7 then base:=$B000
   			 else base:=$B800;
 
   Mem[base:(2 * pos) - 2] := ord(FrameChar[trait,4]);
 
   Mem[base:((2 * pos) - 2) + 1] := Mem[base:((2 * pos) - 2) - 1];
 
   CsrOn;
 
end;

**Roland Chastain** · 26/02/2014, 07h15

Bonjour ! Encore une fois, il paraît difficile de retoucher la procédure sans savoir ce qu'il y a dans le reste du code et sans pouvoir faire aucun essai.

J'ai cru comprendre que la procédure servait à encadrer du texte, mais je n'ai pas pu aller plus loin.

**Alcatîz** · 26/02/2014, 21h23

Bonjour,

Sur quelle plateforme le programme doit-il tourner ? Un émulateur de DOS, une console Windows, un vrai MS-DOS ?

**escargot72** · 26/02/2014, 22h16

Envoyé par Alcatîz

Bonjour,

Sur quelle plateforme le programme doit-il tourner ? Un émulateur de DOS, une console Windows, un vrai MS-DOS ?

Bonsoir
Mon programme tourne sur W XP et MSDos, sans problème.
Mais envisageant la disparition des XP et du MsDos, je voudrais continuer ma gestion avec FreePascal pour les modifications occasionnelles.
J'ai essayé de faire tourner mon pgm avec VirtualMachine, mais les variables entières ou réelles ne sont pas reconnues.
Est-ce un problème de 32 bits ou 64 bits, je n'en sais rien.
Je constate que l'instruction "mem" ou "memw" n'est plus reconnue par freepascal.
Je vous remercie pour le temps que vous prenez pour m'aider car je suis sans solution.

A bientôt
Bernard

**yamer** · 27/02/2014, 12h26

Envoyé par escargot72

Bonsoir
Je constate que l'instruction "mem" ou "memw" n'est plus reconnue par freepascal.

D'après la documentation, elle existe mais uniquement dans les compilateurs pour DOS. Ton but étant de créer un vrai programme windows elle ne te sert à rien.

2 solutions pour toi :

Conserver un programme DOS et le faire tourner dans une machine virtuelle. Tu peux essayer avec Dosbox par exemple.
Convertir ton programme pour windows. Pour cela il va falloir éliminer de ton code tout les bouts d'assembleur (s'il y en a) et toutes les instructions MEM. Pas d'autre choix que de comprendre ce que ça fait et trouver un équivalent ou un contournement.

**e-ric** · 27/03/2014, 10h28

Salut à tous

En outre, je doute que le mode d'adressage (en segment et offset avec ':')

Code :

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

Mem[base:((2 * pos) - 2) + 1] := Mem[base:((2 * pos) - 2) - 1]

soit encore supporté par Free Pascal.

@+

**Paul TOTH** · 27/03/2014, 14h15

l'écriture directe en mémoire vidéo n'est possible que sous DOS, ou avec pas mal de précautions sous Linux, mais ce n'est pas possible sous Windows.

quel est l'OS de destination ? (FreePascal n'étant pas un OS)

**escargot72** · 13/04/2014, 10h45

Bonjour
Je voudrais adapter mon pgm écrit en Turbo Pascal 5.5 pour le compléter sur FreePascal, sur mon ordi windows 7.
Est-ce suffisant ?

Amicalement
Bernard

**Paul TOTH** · 14/04/2014, 07h53

Envoyé par escargot72

Bonjour
Je voudrais adapter mon pgm écrit en Turbo Pascal 5.5 pour le compléter sur FreePascal, sur mon ordi windows 7.
Est-ce suffisant ?

Amicalement
Bernard

oui mais Mem[] n'est plus possible, il faut remplacer par des GotoXY et Write avec une unité WinCRT ou partir directement dans l'API Console de Windows.

**e-ric** · 15/04/2014, 14h20

Il est gros le programme ?
Une réécriture est-elle envisageable ? il fait quoi exactement ? beaucoup de dialogue avec l'utilisateur ou c'est plutôt un programme en tâche de fond ?

@+

**escargot72** · 28/04/2014, 19h35

Envoyé par e-ric

Il est gros le programme ?
Une réécriture est-elle envisageable ? il fait quoi exactement ? beaucoup de dialogue avec l'utilisateur ou c'est plutôt un programme en tâche de fond ?

@+

Bonsoir
Oui le programme est gros. Il y a 3 parties indépendantes qui une fois compilées font 208K, 271 K, 225 K.
Je gère une compétition de bridge en traitant les résultats de 16 clubs, puis je fabrique des fichiers en htm pour les envoyer sur un site.
Est-ce suffisant comme explications ?
Je vous remercie de bien vouloir me donner des pistes.

Cordialement

**e-ric** · 29/04/2014, 08h29

Bonjour,

Au vu des critères actuels en terme de taille de programme, cela n'est pas si gros mais il ne faut préjuger de rien.

Il faudrait passer en revue le code pour déterminer les parties concernant l'affichage qui passe par l'accès direct en mémoire (MEM[base:....).
L'adapter en Free Pascal est une bonne idée et s'il y a une partie interactive importante, Lazarus sera bien adapté pour une réécriture plus "moderne".
D'une certaine façon, cela pourrait aussi simplifier le programme car les instructions liées à l'affichage (dessin des fenêtres) seront en partie prises en charge par les bibliothèques standards.

Est-ce que les résultats sont enregistrés sous forme de fichiers typés ?

@+

**Jiji66** · 25/07/2014, 08h25

Envoyé par escargot72

Bonsoir
Mon programme tourne sur W XP et MSDos, sans problème.
Mais envisageant la disparition des XP et du MsDos, je voudrais continuer ma gestion avec FreePascal pour les modifications occasionnelles.
J'ai essayé de faire tourner mon pgm avec VirtualMachine, mais les variables entières ou réelles ne sont pas reconnues.
Est-ce un problème de 32 bits ou 64 bits, je n'en sais rien.
Je constate que l'instruction "mem" ou "memw" n'est plus reconnue par freepascal.
Je vous remercie pour le temps que vous prenez pour m'aider car je suis sans solution.

A bientôt
Bernard

Votre programme est natif sous DOS et tourne en émulation sous XP. dire ceci a son importance car DOS est 16 bits et l'accès à l'environnement matériel est très différent de ce qui ce fait avec un environnement 32 ou 64 bits. C'est la raison pour laquelle la fonction mem et memW n'est pas et ne sera jamais reconnue par free Pascal. Ces 2 fonction permettaient de passer au dessus du système d'exploitation et d'adresser directement la mémoire de la machine. Ce n'est plus possible maintenant de travailler directement sur la mémoire de la machine sans passer par le système d'exploitation et c'est bien normal !

**escargot72** · 25/07/2014, 09h06

Je vous remercie pour ces précisions. Je continue mes recherches ...

**Jiji66** · 25/07/2014, 10h22

Envoyé par escargot72

Je vous remercie pour ces précisions. Je continue mes recherches ...

En fait, je crois qu'il n'y a pas grand chose a rechercher.

Comme l'a dis Paul, il faut re-ecrire en utilisant des gotoxy. De plus "pos" par lui meme est une fonction du Turbo pascal et il est toujours dangereux d'utiliser des variables qui ont le meme nom qu'une fonction.

Ensuite, si la reecriture est trop compliquee il y a toujours la possibilite de le faire marcher dans une machine virtuelle sous freeDOS.

**escargot72** · 27/07/2014, 10h31

Merci pour ces compléments

Passage de Turbo Pascal 5.5 vers Free Pascal [Free Pascal]

Free Pascal

Discussions similaires

Partager

Partager