Discussion :

[MichelR]

J'ai d�velopp� des programmes importants (pour la plupart : un prog de base et plus de 40 unit�s en overlay) en turbo pascal version 7. Ils ont tr�s bien march� sous MSDOS, Windows 3.1, Windows 95 et Windows 98. Par contre, sous Windows 2000 et surtout sous Windows XP apparaissent plusieurs probl�mes, par exemple :
- arr�t en cours de lecture s�quentielle d'un fichier
- clic de la souris sur une mauvaise ligne
- blocage sans raison apparente
- etc ...
autant d'erreurs que je n'avais jamais eues auparavant en 6 ans de fonctionnement.
Ma question (bien s�r) : existe t-il une solution permettant de faire tourner mes programmes sous Windows XP (patches, recompilation ...). Je sais que c'est une question de 16/32 bits, mais je ne vois pas comment la r�soudre.
Merci d'avance � ceux qui pourront me sortir de cette situation tr�s critique.

Michel

[hachesse]

le Turbo Pascal sous windows, c'est delphi.

la tu n'auras plus de probleme.

[charly]

non haschesse non , desoler , on a le droit de vouloire faire du tp7 et pas du delphi , ils ont des optiques largement differents , il ne fautpas faire d amalgame s il vous plaits merci

[hachesse]

Il n'y a pas d'amalgame

http://community.borland.com/article/0,1410,26523,00.html

TP c'est du 16bit, Windows XP c'est du 32bit

Je ne denigre en rien le tubro pascal mais simplement je dit que le langage n'a pas evoluer en meme temps que windows, et certains changements de windows font que les applications Turbo Pascal ne sont plus totalement compatible avec les derni�res versions de Windows (XP dans le cas pr�sent)

La solution �tant peut etre d'utiliser Delphi et de faire des applications consoles qui sont les plus proches du Turbo Pascal

[Pascail]

Avant, Y'avais �pict�te, maintenant, Hachesse s'y met.
Dites moi pourquoi toutes les r�ponse que j'ai trouver de vous dans le langage pascal conseillent de se mettre en delphi ?

On peut aimer Turbo pascal, juste pour faire du turbo pascal, avoir un ecran 80/25, 16 couleurs, pour se rendre compte un jour qu'on peut le booster a 800/600, 32bits.

Le turbo pascal est une solution simple pour ceux qui se lenssent dans la programmation, et qui on un modem 56kb/s.
Le pack d'haypo pret a l'emploi permet a n'importe qui, du tout jeune programmeur de 10 ans d'age, � celui qui programme depuis 70 ans !

Quand on pense qu'un programme tp fait rarement plus de 52o, alors que pour delphi, c'est plutot 520o ...

Donc, j'aimerais bien qu'on arr�te de dire sur le forum "Pascal" qu'il faut que tout le monde passe a Delphi.
Personnelement, je fait maintenant plus de delphi que de Turbo Pascal, mais j'ai encore le compilateur, et quelque part sur un disque, des sources ! en sauvegarde.
Toujours personnelement, j'adore delphi, car je l'utilise pour faire des clients/serveurs avec indy. Mais je connais aussi quelqu'un d'autre, CHarly, qui pour rien au monde, abandonnerais le turbo pascal pour le delphi, on aime ou on aime pas.


Donc, passer au delphi n'est pas forcement une r�ponse a tous les probl�mes des pascalistes !



@++ Mathieu

[hachesse]

Hola, on se calme.

J'adore le pascal, c'est par l� que j'ai commencer et je le conseil absolument a tout ceux qui veulent apprendre la programmation.

Mais l� o� on ne parle pas de la m�me chose, c'est l'utilisation que l'on peut en faire.

Une application de 40 unit�s qui date d'il y a plus de 6 ans, pour moi c'est du professionel.
Or pour cet usage, borland a abandon� le TP pour passer a delphi.

Donc le probleme n'est pas de conseiller automatiquement Delphi ou pas, mais de conseiller le meilleur choix, celui qui evitera d'avoir un programme qui ne tourna plus du tout dans quelques temps avec les prochaines versions de Windows.

[Pascail]

Dit ce que tu veut de toute fa�on.

si c'est vraiment professionel, alors, il a consience que Delphi existe donc, surement que c'est un choix pour lui d'utiliser Turbo pascal. En tout cas, c'est ce que j'ai compris.

:@++ Mathieu

[charly]

bon de toute facon il faut arreter de se demmander lequelle des deux est le meilleur , si je veux faire un prog graphique , un petit jeu comme sa , je le ferraien tp7 ! il y a bien delphix mais c est pas tres interressant !
apres tous depant de l uitilisation !

Bref la question n est pas la , MichelR veut pouvoire faire tournerdes programme fais en tp7 sous windows n eet je n a quun solution pour lui , passer a win 95 ...
sa parait bete comme sa .. mais c est une des seul solution
puisque win95 n emule pas dos , mais est bien base sur dos

[hachesse]

http://www.developpez.com/pascal/

CF en bas de la page:

Le Pascal existe aussi pour Windows : Delphi et pour Linux : Kylix

[haypo]

On se calme!

Turbo Pascal : ok pour MS-DOS, Windows 95/98
Delphi : ok pour tous Windows 95/98/NT/XP/Me

Si tu veux absolument faire du TP7, installe une partition MS-Dos / Windows 9x sur ton disque. Windows XP int�gre un logiciel "multi-boot".

@+ Haypo

[MichelR]

R�ponses d�cevantes...
Vous jouez le jeu des �diteurs de logiciels et des constructeurs qui s'entendent pour nous vendre de plus en plus de puissance, de plus en plus de m�moire, des logiciels de plus en plus gourmands. Je n'ai pas envie de me mettre � r��crire un logiciel qui m'a pris des ann�es de mise au point, et qui me satisfait pleinement moi et mes clients. Quand j'aurai fini de le r��crire sous Delphi, on m'annoncera que Delphi est d�pass�, et qu'il faut utilise je ne sais quoi qui consomme 10 fois plus de puissance, 2 fois plus de place disque, et qui sera encore plus vite d�pass�.
O� sont pass�s le bon sens et la conscience collective.
Il fallait appeler ce site Delphi, et non pas Pascal.
Cela dit, je n'en veux � personne, mais j'ose esp�rer que d'autres r�agiront comme moi.
Salut

[Pascail]

Personnelement, je n'aime pas faire de la pub pour delphi sur le forum pascal. cela �tant dit, nous avons quand m�me donner des �l�ments de r�ponse.

Delphi g�re les programmes consols, donc tu n'auras juste ouvrir tes ancien fichiers Turbo pascal, avec delphi consol, le temps qu'il n'y a pas d'asm.

sinon, comme l'as deja dit haypo, tu peut faire une partition sur laquelle tu install un dos. vu que xp g�re le multi boot !

je pense que nous avons repondu a ta question, m�me si il y a eu prise de t�te a certains endroits :-P

mais ceci est regl�

@++ Marthieu

[MichelR]

Apres cette petite pol�mique (fort int�ressante), je vais essayer malgr� tout d’avancer. La premi�re chose � faire est d’�purer mes programmes des routines assembleur.
Voici un extrait d’unit� que j’avais r�cup�r� (sur swag pour ne pas le nommer), et int�gr� dans mes programmes.
Ne connaissant pas assez bien l’assembleur sous Pascal, j’ai besoin d’aide pour traduire en pascal � pur � ces routines. Je pense n’avoir pas trop de mal � traduire les proc�dures. Par contre les Functions (Mouse_init, Mouse_pressed, Mouse_gotoxy, et surtout Mouse_releasebutton, � laquelle je ne comprends pas grand chose, mais qui, j’insiste, marche sous windows 98) me posent probl�me.
La documentation Turbo pascal est assez succinte sur les fonctions utilisabnt l’option ASSEMBLER.
Y aurait-il quelqu’un d’assez pointu pour faire ces conversions ?
Je peux fournir tout autre renseignement sur l’unit� si n�cessairs.
Merci d’avance

MichelR

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
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
(************************************************************************)
TYPE
   { Constantes Boutons enfonces }
   cgMouse_Key = (cgMouse_None, cgMouse_Left, cgMouse_Right, cgMouse_Both);
VAR
   XMin, XMax, YMin, YMax : Word;
   bMouse_Exist : Boolean;
   { Coordonnees du pointeur de la souris }
   cgMouse_X    : Word;
   cgMouse_Y    : Word;
   { Correspondant du LastKey.  Contient la valeur du dernier bouton
     enfonce }
   cgMouse_LastButton : cgMouse_Key;
 
{ ------------------------------------------------------------------------ }
 
{ Teste si un gestionnaire de souris est present }
FUNCTION Mouse_Init : Boolean;
BEGIN
   ASM
      Xor  Ax, Ax
      Int  33h
      Mov  Byte Ptr bMouse_Exist, Ah
   END;
END;
 
{ Cache le pointeur de la souris }
PROCEDURE Mouse_Hide; ASSEMBLER;
ASM
    Mov  Ax, 02h
    Int  33h
END;
 
{ Montre le pointeur de la souris }
PROCEDURE Mouse_Show; ASSEMBLER;
ASM
    Mov  Ax, 01h
    Int  33h
END;
 
{ Retourne une des constantes equivalents aux boutons enfonces.  Retourne 0
  si aucun bouton n'a ete enfonce }
FUNCTION Mouse_Pressed : cgMouse_Key;  ASSEMBLER;
ASM
    Mov  Ax, 03h
    Int  33h
    { Bx contiendra 0 si aucun bouton n'a ete enfonce
                    1          bouton de gauche
                    2          bouton de droite
                    3          bouton de gauche et bouton de droite
                    4          bouton du milieu }
    Mov  Ax, Bx
    Mov  cgMouse_X, Cx
    Mov  cgMouse_Y, Dx
    Mov  cgMouse_LastButton, Al
END;
 
{ Positionne le curseur de la souris }
PROCEDURE Mouse_GoToXy (X, Y : Word); ASSEMBLER;
ASM
    Mov  Ax, 04h
    Mov  Cx, X
    Mov  Dx, Y
    Int  33h
END;
 
{ Definit la fenetre dans laquelle le curseur de la souris peut evoluer }
PROCEDURE Mouse_Window (XMin, XMax, YMin, YMax : Word); ASSEMBLER;
ASM
    Mov  Ax, 07h
    Mov  Cx, XMin
    Mov  Dx, XMax
    Int  33h
    Mov  Ax, 08h
    Mov  Cx, YMin
    Mov  Dx, YMax
    Int  33h
END;
 
 
{ Retourne TRUE lorsque l'utilisateur maintien le bouton xxx enfonce et
  renvoi FALSE lorsque ce bouton est relache. }
FUNCTION Mouse_ReleaseButton (Button : cgMouse_Key) : Boolean; ASSEMBLER;
ASM
   Mov  Ax, 06h
   Mov  Bx, 01h
   Int  33h
END;

[charly]

je n ai pas tous lut , j ai pas le courage , mais premiere chose , la gestion souris est qq chose de tres special sous tp7 ... dison que le seul moyen d y avoire acces c est de passer par l asm , donc dsl mais pas de pascal pure pour sa ... enfin je en croois pas

[Eric Sigoillot]

Bonjour,

XP a beaucoup de mal a accepter les applications Dos. Au mieux, on peut tenter de passer son programme en compatibilit� Ms-Dos (sous XP Pro seulement, je crois).

La souris utilise l'int 33h, qui n'est pas trop susceptible. Autrement dit, il est probable qu'elle soit accept�e par XP. Ca ne sera en tout cas pas le cas si tu utilises l'int 10h, qui est beacoup plus "mat�rielle" pour sa part.

On peut d�j�, pour commencer, repasser � la suntaxe purement "Pascalienne" pour faire appel � une interruption, avec Intr. Par exemple, pour r�cup�rer les coordonn�es de la souris, on aurait :

Code :

S�lectionner tout - Visualiser dans une fen�tre � part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
uses
  Dos;
 
var
  Regs: Registers;
 
begin
Regs.ax := $03;
Intr($33, Regs);
Button := Regs.bx;
X := Regs.cx;
Y := Regs.dx;
end;

Il est facile de faire de m�me pour les autres. Il faut avant tout tester, au cas par cas, pour savoir si le probl�me vient de l�.

Si j'ai bonne m�moire, il me semble aussi qu'XP n'aime pas trop la mani�re � TP de g�rer les fichiers. On peut dans ce cas essayer de se servir des fonctions de l'int 21h, qui devrait �tre accept�e par XP.

Pour d'autres code asm � traduire, tu peux me demander. Je pratique "un peu".

A+

[MichelR]

A l'attention de hdd34
Merci de ton d�but de r�ponse.
Je g�re dans d'autres unit�s la souris par l'int 33, en pascal pur. Ca marche tr�s bien sous xp.
Mon probl�me est la conversion des Functions utilisant l'option ASSEMBLER, qui ob�issent � des r�gles strictes (param�tres en VAR implicite, retour dans Al ou Ax...).
J'aimerais avoir la traduction correcte de celles-l� (Mouse_pressed, Mouse_gotoxy(�ventuellement) et Mouse_Releasebutton).
Je pense qu'pr�s, �a devrait tourner sous XP (du moins question souris)
Merci

Michelr

[Eric Sigoillot]

Je ne vois a priori aucun probl�me pour la transcription des deux proc�dures asm que tu demandes.
Il suffit de se baser sur le mod�le que j'ai donn� un peu plus haut. Enfin...

Code :

S�lectionner tout - Visualiser dans une fen�tre � part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
uses Dos;
 
procedure Mouse_Pressed;
var
  Regs: Registers;
begin
Regs.ax := $03;
Intr($33, Regs);
cgMouse_X := Regs.cx;
cgMouse_Y := Regs.dx;
cgMouse_LastButton := Regs.bl;
end;

Il en est de m�me pour Mouse_GotoXY :

Code :

S�lectionner tout - Visualiser dans une fen�tre � part

1
2
3
4
5
6
7
8
9
10
 
procedure Mouse_GotoXY(X, Y: Word);
var
  Regs: Registers;
begin
Regs.ax := $04;
Regs.cx := X;
Regs.dx := Y;
Intr($33, Regs);
end;

Voil� voil�...
Il est assez simple de faire la m�me chose pour les autres.

A+

[Sub0]

Salut � tous!

Le sujet commence � dater mais m'int�resse! Je suis d'accord avec vous tous! C'est vrai que l'on est vite d�pass� en programmation, vu le nombre de language, le nombre de syst�me, et la concurence du march�... Ainsi, depuis mes d�buts en programmation (autodidacte), j'ai fait pleins de prog avec TP7 et BPW qui ne seront jamais utilis�s par qui que se soit, c'est un peu dommage, mais c'est comme �a. Je n'abandonne pas, ces programmations m'ont enrichi (spirituellement parlant).

Par exemple, j'avais fait un super beau sampleur / editeur sous DOS pour la SB16, avec oscilloscope, mixer, et tout, et tout... En avance sur son temps, puisqu'il �tait total Direct-to-Disk, et que SndForgeXP le devient seulement qu'aujourd'hui avec sa derni�re version!!! Le probl�me, c'est que ce prog ne fonctionnait qu'avec ma config sous Dos pur, donc inexploitable � long et moyen terme.

Il faut �voluer, sinon oublie Windows, en particulier XP. Selon moi, TP7 est bien, mais Delphi lui apporte tout ce dont il avait besoin. J'imagine que depuis le mois de Novembre, tu as eu les solutions de tes probl�mes, sinon ce sera avec plaisir que je t'aiderai � passer le cap (si ce n'est pas d�j� fait), �+

[Dormeur74]

Delphi �tait un produit remarquable � sa sortie.

J'ai voulu acheter pour mes enfants il y a quelques semaines la version la plus ancienne maintenue (7.0), mais le roi des marchands m'a invit� � acheter pour le m�me prix la suite Embarcadero, contenant Delphi XE.

Je n'ai jamais pu installer cette suite correctement sur les PC de mes enfants. Des tas de bugs � l'installation, de DLL manquant � l'appel, de dossiers introuvables, etc. Au bout du fil : un marchand de l'h�xagone qui ne sait toujours pas (apr�s deux semaines de recherches auxquelles je ne crois plus) si le fait d'avoir pay� deux licences me permettait de t�l�charger Delphi 7.0.

Quant � la hot-line d'Embarcadero, je n'ai jamais eu de r�ponse humano�de capable de r�gler mes tickets. De la r�ponse automatique en PHP du genre " ne r�pondez pas � cet courrier...".

Alors, je comprends que le mot "Delphi" fasse trembler et que celui de Lazarus commence � se faire une place dans les universit�s.

Maintenant, le fond de ma pens�e (elle n'engage que moi) : je pense que le Pascal n'est plus depuis longtemps le meilleur langage d'initiation � la programmation objet.

[Paul TOTH]

J'ai longtemps d�velopp� sous Turbo Pascal, le produit qui m'a fait d�couvrir le Pascal que je n'ai depuis jamais abandonn�.

Aujourd'hui je ne d�veloppe en Pascal que sous Delphi ou parfois en FlashPascal que j'ai d�velopp� sous Delphi

Turbo Pascal, et les applications DOS ne fonctionnent plus sur mon nouveau PC Seven 64bits qui n'offre plus de support DOS...

mais il reste possible de l'utiliser avec une machine virtuelle telle que DOSBox, et �a fonctionne tr�s bien...par contre je ne sais pas s'il est possible d'acc�der � un modem.