paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-09 02:28:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

* PChar -> PAnsichar

Browse Source
This commit is contained in:
Michaël Van Canneyt 2023-01-13 22:24:23 +01:00
parent 574ddada39
commit 63e7f4feb6
2 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
packages/openal/examples/captureplaybackopenal.pas
View File

@ -25,11 +25,11 @@ var
begin
//- Find out which extensions are supported and print them (could error check for capture extension here)
writeln('OpenAL Extensions = ',PChar(alGetString(AL_EXTENSIONS)));
writeln('OpenAL Extensions = ',PAnsiChar(alGetString(AL_EXTENSIONS)));
//- Print device specifiers for default devices
writeln('ALC_DEFAULT_DEVICE_SPECIFIER = ',PChar(alcGetString(nil, ALC_DEFAULT_DEVICE_SPECIFIER )));
writeln('ALC_CAPTURE_DEVICE_SPECIFIER = ',PChar(alcGetString(nil, ALC_CAPTURE_DEVICE_SPECIFIER )));
writeln('ALC_DEFAULT_DEVICE_SPECIFIER = ',PAnsiChar(alcGetString(nil, ALC_DEFAULT_DEVICE_SPECIFIER )));
writeln('ALC_CAPTURE_DEVICE_SPECIFIER = ',PAnsiChar(alcGetString(nil, ALC_CAPTURE_DEVICE_SPECIFIER )));
//- Setup the input capture device (default device)
writeln('Setting up alcCaptureOpenDevice to use default device');

8
packages/openal/examples/wavopenal.pas
View File

@ -37,13 +37,13 @@ uses
type
TRiffHeader = packed record
ID : array [0..3] of char;
ID : array [0..3] of AnsiChar;
Size : LongWord;
Format : array [0..3] of char;
Format : array [0..3] of AnsiChar;
end;
TWaveFormat = packed record
ID : array [0..3] of char;
ID : array [0..3] of AnsiChar;
Size : LongWord;
Format : Word;
Channels : Word;
@ -54,7 +54,7 @@ type
end;
TDataChunk = packed record
Id : array [0..3] of char;
Id : array [0..3] of AnsiChar;
Size : LongWord;
end;