Voir toute la discussion dans une seule page
Ecrit par
letocha@.... le jeudi 24 mai 2012 dans le thème :
ADA
bonjour,
Je veux produire des fichiers RAW en 16 bits pcm.
si je fais ça :
with Ada, Text_IO, Ada.Integer_Text_IO, Ada.Sequential_IO;
use Ada;
procedure Write_Ints is
subtype Num is natural range 0..65536;
package Integer_Bin_IO is new Sequential_IO (Num);
File : Integer_Bin_IO.File_Type;
File_Name : constant String := "integers.data";
mesnombres: Num;
begin
Integer_Bin_IO.Create (File=>File, Name=>File_Name);
mesnombres := 128 ;
Integer_Bin_IO.Write (File, mesnombres);
Integer_Bin_IO.Close (File=>File);
end Write_Ints;
le résultat est un fichier binaire dont de 4 octets. Je voulais un
codage sur 2 octets.
Comment faire ? merci.
Classé sous : io,
file,
integer,
bin,
ada