[quote="ХАМский designer"]
А вот программист-системщик крайне желателен. Для создания тиражируемой проги требуется отловить и локализировать баги возникающие при тестировании на различных осях из за особенности платформ.
Вот в этом я наверное могу помочь.
Кстати я ВАМ забыл сообщить, я нашел причину не работы вашей программы на моем домашнем компьютере. Изучил код места вылетания ошибки IDAй(интерактивный дизассемблер).
Код в вашей программы с указанием места ошибки:
Код:
procedure THiAsmClass.doSelect(var _Data:TData; Index:word);
var i,N:integer;
begin
Sorce := ReadInteger(_Data,Src,_prop_Src);
MK := ReadInteger(_Data,SetMic,_prop_SetMic);
LIN := ReadInteger(_Data,SetLine,_prop_SetLine);
MCD.cbStruct := SizeOf(MCD);
MCD.dwControlID := PRi[0]^.dwControlID;//---------------ERROR!!
MCD.cbDetails := SizeOf(MCDA);
MCD.paDetails := @MCDA;
MCD.cChannels := 1;
MCD.cMultipleItems := PRi[0]^.cMultipleItems;;//---------------ERROR!!
mixerGetControlDetails(MixerID,@MCD,MIXER_GETCONTROLDETAILSF_VALUE);
for i := 0 to 20 do MCDA[i] := 0;
if Sorce = 1 then N := MK; if Sorce = 2 then N := LIN;
MCDA[N] := 1;
mixerSetControlDetails(MixerID,@MCD,MIXER_SETCONTROLDETAILSF_VALUE);*)
//_hi_OnEvent(onOk,PMi[1].fdwControl);
end;
указатель на адрес структуры равен 0, в причине я не копался, тем более не выяснял почему именно на моем компе эта проблема, т.к. это случается только в Вашей программе, и после именно добавления в нее функций работы с миксером. Думаю эту часть следует подкорректировать. Если есть у Вас новые версии с удовольствием проверю