home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PC Interdit
/
pc-interdit.iso
/
memory
/
flat
/
demormem.pas
< prev
next >
Wrap
Pascal/Delphi Source File
|
1994-10-31
|
2KB
|
69 lines
{
****************************************************************************
*** MICRO APPLICATION PC INTERDIT ***
*** ================================ ***
*** ***
*** Programme de démonstration pour le mode de fonctionne- ***
*** ment de la Unit RMEM. ***
*** ***
*** Une image se fait charger par la ***
*** RMEM et ensuite afficher par la RMEM ***
*** Auteur : Boris Bertelsons (InspirE) ***
*** Nom de fichier : DEMORMEM.PAS ***
*** Dernière modif : 28.04.1994 ***
*** Version : 1.0 ***
*** Compilateur : Turbo Pascal 7 ***
****************************************************************************
}
program demo386;
uses dos,crt,rmem,gifunit;
var Position_image : longint;
procedure Charge_fic_gif;
begin;
getmem(vscreen,64000);
Init_ModeX;
blackpal;
LoadGif('Exemple.gif',vscreen,0,0);
textmode(3);
end;
procedure Affiche_image_gif;
begin;
Init_ModeX;
p13_2_modex(0,16000);
setpal;
end;
begin
memory_checks(500,2700);
enable_Realmem(2700);
if not Rgetmem(Position_image,64000) then begin;
textmode(3);
writeln('Erreur lors de l''allocation de la mémoire !!!');
end;
Charge_fic_gif;
writeln('Chargement l''image GIF dans la mémoire.');
writeln('Enregistrement de l''image dans la RMEM et suppression du tampon de chargement !');
Rmem_write(vscreen,Position_image,64000);
fillchar(vscreen^,64000,0);
writeln('Suppression du tampon de chargement !');
writeln('Chargement maintenant de l''image à partir de la RMEM');
writeln('<ENTER>, pour afficher l''image ... ');
readln;
Rmem_Lire(Position_image,vscreen,64000);
Affiche_image_gif;
readln;
textmode(3);
Exit_Rmem;
end.