SIMULATION TV

TheWhiteShadow Messages postés 135 Date d'inscription mercredi 15 janvier 2003 Statut Membre Dernière intervention 7 avril 2006 - 2 juil. 2003 à 11:38
cs_shining Messages postés 304 Date d'inscription lundi 30 décembre 2002 Statut Membre Dernière intervention 10 mars 2012 - 3 juil. 2003 à 12:37
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

cs_shining Messages postés 304 Date d'inscription lundi 30 décembre 2002 Statut Membre Dernière intervention 10 mars 2012
3 juil. 2003 à 12:37
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.
cs_shining Messages postés 304 Date d'inscription lundi 30 décembre 2002 Statut Membre Dernière intervention 10 mars 2012
3 juil. 2003 à 08:12
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.
Rejoignez-nous