In der untenstehenden Procedure erhalte ich den Fehler:
Got "AnsiString", expected "PChar"
bezogen auf diese Zeile:
PChar('ALIGNMENT ' +IntToStr(Channels*round(BitsPerSample/8))),
Ich war der Meinung PChar() würde reichen. Wo ist der Fehler?
Delphi-Quellcode:
procedure Aufnehmen(SamplesPerSec, BitsPerSample: integer);
var
Channels: integer;
begin
if Form1.RadioButton1.Checked=True
then Channels:=1
else Channels:=2;
mciSendString('
OPEN NEW TYPE WAVEAUDIO ALIAS mysound',
nil,0,
Handle);
mciSendString('
SET mysound ' +
'
TIME FORMAT MS ' +
PChar('
BITSPERSAMPLE '+IntToStr(BitsPerSample)+'
') +
PChar('
CHANNELS ' +IntToStr(Channels)+'
') +
PChar('
SAMPLESPERSEC '+IntToStr(SamplesPerSec)+'
') +
PChar('
BYTESPERSEC ' +IntToStr(SamplesPerSec*Channels*round(BitsPerSample/8))+'
') +
PChar('
ALIGNMENT ' +IntToStr(Channels*round(BitsPerSample/8))),
nil,0,
handle);
mciSendString('
RECORD mysound',
nil,0,
Handle);
end;