Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Прога на другом компе не работает. В проге 3 строчки :( [D5, Win95/98, WinME, Win2k, WinXP]


Страницы:   1 2

Doctor Deejay ©   (2002-06-28 18:43:00) 

Данный код не срабатывает на компе соседа! В чем трабл???
Только без приколов, бо совсем замучался....

procedure TForm1.FormCreate(Sender: TObject);
var
i: Integer;
cap: TAuxCaps;
begin
for i := 0 to auxGetNumDevs - 1 do begin
auxGetDevCaps(i, Addr(cap), SizeOf(cap));
ListBox1.Items.Add(cap.szPname)
end;
end;


Cobalt   (2002-06-30 20:47:00) [21]

говорит, что параметр задан неверно.
У меня ESS688 PnP AudioDrive
P.S. Приведи примеры карт, у которых обнаружены Auxiliary output devices
Скорее всего, проблема в устройствах


Doctor Deejay   (2002-06-30 19:57:00) [22]

Ещё раз повторяю - ПРОГА работае только у меня, почему не работает у других?
Ошибка где-то в коде, т.к. систему всю только переставил!

Я попробую сдать так как вы сказали.
Если хотите, то я могу прислать вам exe + исходник. exe работать не будет, пока вы его у себя не скомпилите!!!

Я уже 2 недели трахаюсь с этим


NailS   (2002-06-30 15:24:00) [23]

Попробуй так

begin
if auxGetNumDevs = 0 then ShowMessage(SysErrorMessage(GetLastError));
end;


Если сообщения не будет попробуй отключить оптимизацию кода
и перед циклом присвой i := 0 (своего рода шаманство, но иногда помогает ;))


Anatoly Podgoretsky   (2002-06-30 14:20:00) [24]

Да не назначение, а какое количество возвращает


Doctor Deejay   (2002-06-30 13:56:00) [25]

У меня на компе она работает, а у других нет.

>Ряд допольнительных вопросов
>1. чему равно auxGetNumDevs

Количеству доступных девайсов


Anatoly Podgoretsky   (2002-06-30 12:13:00) [26]

Ряд допольнительных вопросов
1. чему равно auxGetNumDevs
2. какое значение LastError в случае 0

Ты очень самонадеянный если думаешь, что в системе/программе не бывает ошибок, надо хотя бы минимальную обработку делать


Doctor Deejay   (2002-06-30 11:58:00) [27]

Программа полезная. Но эти три строчки не работают на других тачках. Может дело в ДЛЛ?


Polevi   (2002-06-30 09:57:00) [28]

да, полезная программа :-)


Doctor Deejay   (2002-06-30 09:31:00) [29]

НУ ПОМОГИТЕ ХОТЬ ЧЕМ-ТО


Doctor Deejay   (2002-06-30 00:17:00) [30]

Есть карта. Проверял у 8 челове. У них карты начиная от ЕСС и заканчивая лайвом...

Может все-таки что-то установить нужно?
Напишите кому исходник прислать, пусть у себя перекомпилит и проверит.
Очень нужно, т.к. прога очень полезная, но не работает ни у кого...... :(


Wizard_Ex   (2002-06-29 13:16:00) [31]

Может у него карты как раз и нету ? :-)


Doctor Deejay   (2002-06-29 10:41:00) [32]

>Volj © (28.06.02 18:56)

Нет, эти строки выводят в мемо список всех доступных девайсов звуковой карты


Volj   (2002-06-28 18:56:00) [33]

А что это за TAuxCaps такой? ActiveX, небось? Если да, то его надо ставить...


Страницы:   1 2

Наверх

Титульная страница Поиск, карта сайта Написать письмо