Discussion :

[RCATCS840]

Bonjour a tous,
je développe depuis maintenant plusieurs années une application qui utilise essentiellement l'instruction port[adresse]:=val;

je tourne avec turbo pascal v6.0 sur une VM Ms dos 6.0 et tout fonctionne très bien mais j'aimerais me détacher de l'utilisation des disquettes pour récupérer mes fichiers depuis ma VM

j'ai donc pour cela tenté de trouvé des solutions qui seraient compatibles avec les windows 7 et 10 64bits

j'ai testé free Pascal mais se dernier ne reconnais pas l'instruction "port"

je constate aussi le même phénomène avec My Pascal
je pensais que cette instruction était commune au langage Pascal mais visiblement non

quelqu'un parmi vous aurait il une idée du problème ?


merci d'avance...

[Alcatîz]

Bonjour et bienvenue !

L'accès direct au matériel n'est plus possible sur les OS actuels, tout se fait par l'intermédiaire de pilotes. Free Pascal assurait la compatibilité avec Turbo Pascal au travers des fonctions inportb et outportb de l'unité Go32, mais je ne pense pas que cela ait pu fonctionner au-delà de Windows XP. Diverses bibliothèques existent sous Free Pascal/Lazarus pour communiquer avec les pilotes, peux-tu préciser avec quel type de matériel ton application doit communiquer ? Je ne vois pas trop le lien avec l'utilisation de disquettes, soit dit en passant.

[RCATCS840]

Bonjour,
je craignais en effet ce genre de réponse
l'application qui utilise mon programme est une application maison que j'ai élaboré vers les années 2000 (quand j'étais "jeune") elle comporte des entrées et de sorites (tout ou rien) j'ai donc créé une interface d'entrées / sortie programmables on peut appeler cela un automate...
l'interface est pilotée par le port LPT1 et j'utilise le port com1 pour y relier une autre appli qui peut visualiser les variables ou les forcer ou mettre en "run "ou en "stop" l'application...
on en viens petit a petit avec mon problème des fameuses disquettes...
le système archive dans un fichier txt tous les événements de l'installation (je contrôle chez moi tout les système de chauffage / climatisation et le solaire hydraulique)
avec ses données qui sont donc stockée sur la disquette je traite les résultats avec excel et je connais mes consommations chauffage et eau chaudes sanitaires et mes productions solaire eau chaude sanitaire
ainsi j'ai une idée assez précise des économies effectuées par cette installation
on peut aussi ajouter toutes les mesures programmées pour l'optimisation de tout cela (fonctions de programmateurs en fonction des saisons et calendrier de déclenchements des fonctions chauffages et climatisations)

pour le moment je pense que je vais réussir a contourner le problème de l'utilisation des disquettes en utilisant le second port série com2 pour y envoyer mes data sur un autre PC (qui recevra donc ses données automatiquement) elles pourrons alors transiter vers un support de type clé usb sans soucis

je confirme aussi que l'application a aussi fonctionné sous xp...

merci encore pour vos informations

[RCATCS840]

j'ai tenté de me procurer cette unité Go32
pour le moment sans succès...
avez vous un lien a me proposer ?

merci d'avance...

[vttman]

Bonjour,
Je passe juste par là
Taper "go32 pascal download" sous Google ... Le premier lien (freepascal.org)

Est ce fichier à récupérer ?
GDB interface units: ugdbdos.zip (35 kB)
et/ou celui-là GNU debugger, gdb: gdbdos.zip (901 kB) ?
A voir ...

Se positionner sur le .zip désiré et cliquer droit dessus pour l'ouvrir dans un nouvel onglet, puis changer au début du lien FTP par HTTP pour pouvoir enregistrer le .zip ... enfin ça marche comme ça pour moi ...

Note : Dans ugdbdos.zip, je vois un répertoire units ->go32v2 ->gdbint etc. avec des fichiers .PPU /.O

Laurent

[RCATCS840]

Impec,

c'est pas très convivial comme méthode pour télécharger un simple zip mais ça fonctionne ...

merci pour l'astuce

je débute sur site developpez.com pas évident au début je trouve ... je suis un peu perdu ...

[vttman]

c'est pas très convivial comme méthode pour télécharger un simple zip mais ça fonctionne ...
...
je débute sur site developpez.com pas évident au début je trouve ... je suis un peu perdu ...

Euh oui désolé pour la méthode pour télécharger ce simple zip sur ce site, mais bon quand ça coince à droite, je prends à gauche ...

Ce site est super et ça vaut le coup de persévérer

[Alcatîz]

Je dirais que tant qu'à moderniser ton application, autant passer à des bibliothèques modernes comme Synaser ou des composants visuels comme TLazSerial qui fonctionnent très bien. Le forum Lazarus regorge de sujets sur la communication série.

[RCATCS840]

Bonjour,
j'ai bien récupérer les fichiers .PPU & .O
mais j'ai remarqué qu'ils sont déjà intégrés dans les répertoires de "FREE PASCAL" et aussi de "MY PASCAL"
mais quand je mentionnes ses unité dans mon prog le compilateur ne les reconnais pas et ce avec les 2 logiciels
j'ai visiblement pas trouvé le moyen de configurer éventuellement un chemin pour diriger les logiciels vers ses unités

quelqu'un aurait il une suggestion pour moi ?

merci d'avance

[RCATCS840]

Bonjour,

moderniser c'est exactement ce que je cherche a faire mais j'ai pas vraiment envie de me retaper l'ensemble du projet...
je viens d'installer l'EDI Lazarus pour le moment je dirais que ce dernier fait mieux que free pascal et my pascal
le compilateur ne se bloque pas sur les unités Go32 (visiblement) en revanche en remplaçant la syntaxe de l'ancienne instruction (turbo pascal) port[adresse]:=valeur par inportb[adresse]:=valeur ou par outportb[adresse]:=val ce dernier n'identifie toujours pas ces éléments...
avez vous une suggestion pour moi

merci d'avance

[anapurna]

salut

avec les nouveaux os (windows) il est préférable de passer par ioct ou deviceioControl combiné a un CreateFile
ceci devrais te donner un accès direct au drivers