Passage de Turbo Pascal 5.5 vers Free Pascal

Version imprimable

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:

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

25/02/2014, 21h09
Roland Chastain

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.

complement

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

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
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;

26/02/2014, 07h15
Roland Chastain

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. :roll:

J'ai cru comprendre que la procédure servait à encadrer du texte, mais je n'ai pas pu aller plus loin.
26/02/2014, 21h23
Alcatîz

Bonjour,

Sur quelle plateforme le programme doit-il tourner ? Un émulateur de DOS, une console Windows, un vrai MS-DOS ?
26/02/2014, 22h16
escargot72

TP 55 sur W XP et MSDOS vers FreePascal et W7

Citation:

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
27/02/2014, 12h26
yamer
Citation:

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.
27/03/2014, 10h28
e-ric

Salut à tous

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

Code:

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

soit encore supporté par Free Pascal.

@+
27/03/2014, 14h15
Paul TOTH

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)
13/04/2014, 10h45
escargot72

pour windows 7

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
14/04/2014, 07h53
Paul TOTH

Citation:

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.
15/04/2014, 14h20
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 ?

@+
28/04/2014, 19h35
escargot72

tp 5.5 vers freePascal

Citation:

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
29/04/2014, 08h29
e-ric

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 ?

@+
25/07/2014, 08h25
Jiji66

Citation:

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 !
25/07/2014, 09h06
escargot72

windows xp et dos

Je vous remercie pour ces précisions. Je continue mes recherches ...
25/07/2014, 10h22
Jiji66

Citation:

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.
27/07/2014, 10h31
escargot72

merci

Merci pour ces compléments