cs_shining
Messages postés304Date d'inscriptionlundi 30 décembre 2002StatutMembreDernière intervention10 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és304Date d'inscriptionlundi 30 décembre 2002StatutMembreDernière intervention10 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.
3 juil. 2003 à 12:37
3 juil. 2003 à 08:12
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.