Откатываюсь к версии за 4.08 таже история ,библиотеки нет ,приложение не откроется
Сергей UR4IOR
http://ur4ior.jimdo.com/
Добавлено через 5 минут
Да заработал ,но только с exe от 31.07.
Сергей UR4IOR
http://ur4ior.jimdo.com/
Вид для печати
Откатываюсь к версии за 4.08 таже история ,библиотеки нет ,приложение не откроется
Сергей UR4IOR
http://ur4ior.jimdo.com/
Добавлено через 5 минут
Да заработал ,но только с exe от 31.07.
Сергей UR4IOR
http://ur4ior.jimdo.com/
Владимир, не обижайтесь пожалуйста - чисто по дружески. Я уверен что все это Вы сами знаете, но постоянные хотелки пользователей мешают Вам доделать звук.
Вот кусок из моей проги, надеюсь поможет Вам избежать общения пользователей c айдишниками звуковых устройств :
try{
MMRESULT mmr;
UINT cWaveDevs;
WAVEINCAPS wic1;
int i;
sComboBox29->Clear();
sComboBox31->Clear();
cWaveDevs=waveInGetNumDevs()+1;
if(!cWaveDevs)return;
for (UINT uDevId = (UINT)WAVE_MAPPER ; (0 != cWaveDevs); uDevId++, cWaveDevs--) {
mmr = waveInGetDevCaps(uDevId, &wic1, sizeof(wic1));
if(MMSYSERR_NOERROR == mmr){
wic1.szPname[sizeof(wic1.szPname) - 1] = '\0';
}else{
memset(&wic1, 0, sizeof(wic1));
if (MMSYSERR_BADDEVICEID == mmr)continue;
if (WAVE_MAPPER == uDevId){
lstrcpy(wic1.szPname, TEXT("Default Wave Input Mapper"));
}else{
lstrcpy(wic1.szPname, TEXT("Bad Wave Input Device"));
}
}
sComboBox29->Items->AddObject(wic1.szPname,(TObject *)uDevId);
sComboBox31->Items->AddObject(wic1.szPname,(TObject *)uDevId);
}
sComboBox29->ItemIndex=0;
sComboBox31->ItemIndex=0;
//MMRESULT mmr;
//UINT cWaveDevs;
WAVEOUTCAPS wic2;
i=0; sComboBox30->Clear(); sComboBox32->Clear();
cWaveDevs=waveOutGetNumDevs()+1; //
if(!cWaveDevs)return;
for (UINT uDevId = (UINT)WAVE_MAPPER; (0 != cWaveDevs); uDevId++, cWaveDevs--){
mmr = waveOutGetDevCaps(uDevId, &wic2, sizeof(wic2)); //
if(MMSYSERR_NOERROR == mmr){
wic2.szPname[sizeof(wic2.szPname) - 1] = '\0';
}else{
memset(&wic2, 0, sizeof(wic2));
if (MMSYSERR_BADDEVICEID == mmr)continue;
if (WAVE_MAPPER == uDevId){
lstrcpy(wic2.szPname, TEXT("Default Wave Input Mapper"));
}else{
lstrcpy(wic2.szPname, TEXT("Bad Wave Input Device"));
}
}
sComboBox30->Items->AddObject(wic2.szPname,(TObject *)uDevId);
sComboBox32->Items->AddObject(wic2.szPname,(TObject *)uDevId);
}
sComboBox30->ItemIndex=0;
sComboBox32->ItemIndex=0;
прежде, чем установить апгрейд, я делаю полную копию лога.
В дальнейшем, не составит труда заменить, или полностью папку -UR5EQF_Log-
(в таком случае надо помнить про файлы в папке -db-)
или (в последнем случае) один файл-UR5EQF_Log3.exe (предпосдедней версии)
на данный момент-от 04.08.09...
и все заработало без проблем. (Win-XP SP-3)
Сваял файлы с директориями островов Хорватии (IOCA) и Дании (DIA).
Заточены под окно State4.
Пользуйтесь!
В догонку - директория с островами Украины (Ukraine Island Award = UIA)
Кликать в окне State4
Пользуйтесь!
А попробуйте это: http://files.ur5eqf.com/Update_ur5eq...06_08_2009.exe
Это не ошибка, работает так:
Если в CATEGORY_OPERATOR выбрать SINGLE-OP, то тогда NAME: печатается, если нет, то вместо NAME: печатается OPERATORS
Добавлено через 4 минуты
Смотрю, Вы серьезно занялись дипломными программами, если можно дам совет:
на http://www.ucoz.ru/?uz=12137 можно создать хороший сайт, и как было бы хорошо, если бы все дипломные программы видеть в одном месте.
Добавлено через 11 минут
Какие обиды, большущее спасибо.
Да постоянные хотелки мешают работать.
С третьей версией я начал работать по плану, взялся за модуль и стараюсь его довести до конца, и заметил, что от этого есть большая польза, а как начинаешь хаотично выполнять пожелания, в конце концов из этого ничего хорошего не получается.
Добавлено через 30 минут
var
Caps: PWaveOutCaps;
begin
GetMem(Caps, SizeOf(TWaveOutCapsW));
for i := 0 to waveOutGetNumDevs - 1 do
begin
waveOutGetDevCaps(i, Caps, SizeOf(TWaveOutCaps));
DriverBox.items.Add(Caps.szPname);
end;
В DriverBox перечень устройств, ну куда проще, и все средствами операционной системы.
Почему на этом компе это глючит? и как иначе можно сделать?
Спасибо, конечно ,но все это давно известно так как пользуюсь логом с тех пор как он еще и логом то самостоятельным не был. Реплики мои не вопросы и не пожелания ,а только к констатация факта.
Сергей UR4IOR
http://ur4ior.jimdo.com/
Добавлено через 17 минут
Да вот теперь все нормально.Володь все жду когда же коструктор "сделай сам" по интерфейсу заработает в этой версии.
Сергей UR4IOR
http://ur4ior.jimdo.com/
Вот такой вариант нашел где то на сайте. Отображение всех карт, всех микшеров и т.д.
Собрал в кучку и компильнул. Мутновато немного но как минимум на рабочем компе у меня все показывает.
Вечером дома на Windows 7 протестирую.
Правда на Delphi 7 но думаю если подойдет то можно и на пятерку легко перетащить.
P.S. У кого там 4 звучки (сорри не помню), тоже можете попробовать как что будет отображаться. В архиве есть компильнутый EXE.
В разделе Соревнования сайта UR5EQF есть ткая информация - "call_epc_ru.dat – список членов EPC Russia, этот список можно обновлять через Интернет, нажатием на соответствующую кнопку: «Load "call_epc_ru.dat" file fom the Internet» ". Так где находится эта кнопка? Спасибо.
Растяните форму до нужных размеров:
Вложение 22996
Спасибо, работает. Сейчас я на даче, с понедельника буду дома, попробую переделать, так, как в Вашем примере.
Добавлено через 2 минуты
Сережа, напиши мне свои пожелания на почтовый ящик ur5eqf@cqrivne.com.ua
Всем самые добрые пожелания!
Вопрос к пользователям, (Владимира стараюсь не отвлекать маленькими вопросами), как в Телнете можно увеличить шрифт, уж очень мелкий.
При нажатии копки Споты со шрифтом все ОК!, но зато очень мало информации, а зрение, к сожалению, уже подсело. Кто как выходит из этого положения?
С уважением, Сергей.