VPF::длина массива поля структуры WaveInCaps

gl42

Дата 9.11.2011, 18:49 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 44
Регистрация: 2.11.2011

Репутация: нет
Всего: нет

Пробую получить информацию об устройствах ввода звука. При этом поле szPname содержащее имя устройства, выводится не полностью. половина символов отсутствует.
Пробовала приводить к различным типам - безрезультатно. в описании структуры TWaveInCaps поле имеет тип array[0..MAXPNAMELEN-1] of AnsiChar
Пробовала описать структуру и увеличивала массив - все также.

Код

 
procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
  lpCaps: TWaveInCaps;
  NumDevs: UINT;
begin
  NumDevs:=WaveInGetNumDevs;
 for i:=0 to NumDevs-1 do
   begin
   WaveInGetDevCaps(i, @lpCaps, SizeOf(lpCaps));
  ShowMessage(lpCaps.szPname);
   end;
 end;

посоветуйте что делать.к какому типу может привести, или изменить на другой тип поля.

gl42

Дата 9.11.2011, 19:28 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 44
Регистрация: 2.11.2011

Репутация: нет
Всего: нет

константа MAXPNAMELEN = 32 символа.
MAXPNAMELEN-1=31
и у меня выводит строку длиной ровно 31 символ.
подскажите как переопределить структуру WaveInCaps (изменить тип полей) и чтобы функция waveInGetDevCaps ссылалась на эту структуру?

Если я просто объявляю структуру и по меняю допустим тип массива с AnsiChar на WideChar - то выводятся непонятные символы. значит функция видит изменения в структуре. но если я расширяю размер массива указывая допустим array[0..100] of AnsiChar то все равно выводит 31 символ.

Это сообщение отредактировал(а) gl42 - 9.11.2011, 19:38

Keeper89

Дата 10.11.2011, 03:45 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 14
Всего: 58

Лучше через DirectSound:

Код


program Project1;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils, Winapi.Windows,
  Winapi.DirectSound,
  Winapi.ActiveX;

function DirectSoundEnumCallback(lpGuid: PGUID; lpstrDescription: PChar;
      lpstrModule: PChar; lpContext: Pointer): BOOL; stdcall;
begin
  Writeln('"', lpstrDescription, '"');
end;

begin

  CoInitialize(nil);
  try
    if Succeeded(DirectSoundcaptureEnumerate(@DirectSoundEnumCallback, nil)) then
      Writeln('OK!');
  finally
    CoUninitialize;
  end;

  Readln;
end.

Это сообщение отредактировал(а) Keeper89 - 10.11.2011, 12:51

--------------------

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

gl42

Дата 10.11.2011, 17:34 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 44
Регистрация: 2.11.2011

Репутация: нет
Всего: нет

спасибо), но а если все же хочется разобраться с тем?

Это сообщение отредактировал(а) gl42 - 10.11.2011, 17:35

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: WinAPI и системное программирование \| Следующая тема »