SIMULATION TV

Signaler
Messages postés
135
Date d'inscription
mercredi 15 janvier 2003
Statut
Membre
Dernière intervention
7 avril 2006
-
Messages postés
304
Date d'inscription
lundi 30 décembre 2002
Statut
Membre
Dernière intervention
10 mars 2012
-
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/12420-simulation-tv

Messages postés
304
Date d'inscription
lundi 30 décembre 2002
Statut
Membre
Dernière intervention
10 mars 2012

bon inutile de convertir ce code en delphi, je viens de m'appercevoir qu'il utilise des interruptions qui ne sont pas geré par windows, exemple l'interruption 10h, il faut être en mode msdos ou dos native, sinon ca marche pas.
Messages postés
304
Date d'inscription
lundi 30 décembre 2002
Statut
Membre
Dernière intervention
10 mars 2012

il n'ya pas de fonction port dans delphi il faut taper quelques lignes de codes assembleur, je te conseil d'aller voir mon source sur le port LPT et de recuperé la fonction Inp et renomme la en PortIn ainsi que la fonction Out et renomme la par PortOut our Port tout simplement, bien sur il faut enlevé les [ et les remplacer par ( exemple

procedure PalSet(Color, Rc, Bc, Gc : Byte; TMode : Boolean);
begin
if (Tmode) and (Color>7) then Inc(Color,48);
PortOut($3C8,Color);
PortOut($3C9,Rc);
PortOut($3C9,BC);
PortOut($3C9,GC);
end;
Attention ces codes Asm ne fonctionnent que sous Win95/98 sur XP l'accès hardware est proteger, j'ais pas encore effectué de mise a jours pour XP(sorry), mais ya l'adresse du composant a vous de voir, seul prob pour exporter cette source 'Simulateur TV', c la fonction Mem[$A000:$0000], ya un moment que j'ais laisser tomber le turbo pascal... mais la fonction Mem gère les blocs mémoires, je suppose qu'il faudrait taper quelques ligne asm pour simulé cette fonction.