Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "WinAPI";
Текущий архив: 2009.03.29;
Скачать: [xml.tar.bz2];

Вниз

Tapi -> CallBackFunction   Найти похожие ветки 

 
kolj   (2008-04-01 14:58) [0]

Данный код инициализирует линию и находит модем. Когда идет входной звонок то срабатывает CallBack ф-я, но программа почему-то не может распознать параметр dwMsg, подскажыте пожалуйста в чем может быть проблема.

procedure lineCallBack (hDevice,dwMsg,dwCallbackInstance,dwParam1,dwParam2,dwParam3:cardinal);
begin
form1.ListBox1.Items.Add("Callback");
case dwmsg of
LINECALLSTATE_OFFERING:
form1.ListBox1.Items.Add("Call");
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var

f_hline:hline;
lineApp:HLINEAPP;
hCal : HCALL;
lpDeviceID: PVarString;
lpszDeviceClass:LPCWSTR;
lineInit:LINEINITIALIZEEXPARAMS;
dwNegotiatedTapiVersion:DWORD;
LineExtension:LINEEXTENSIONID;
dwAPIVersion:dword;
ndevs:dword;
AppName:array[0..20] of char;
dwExtVersion:Dword;
lpLineCaps:linedevcaps;
p:pchar;
dwTapiDeviceID:Longint;
dwTapiMediaMode:DWORD;
err,l,err1,i:longint;

s:string;
begin
dwTapiDeviceID:=-1;
dwTapiMediaMode:=LINEMEDIAMODE_INTERACTIVEVOICE;
dwAPIVersion :=$00020000;
p:=pchar("kolj");
AppName := "IP OFFICE Project";
dwExtVersion := 0;
ndevs:=0;
lineapp:=0;

lineInit.dwCompletionKey:=0;
lineInit.dwTotalSize := sizeof(LINEINITIALIZEEXPARAMS);
lineInit.dwOptions :=LINEINITIALIZEEXOPTION_USEHIDDENWINDOW;

err1 := lineInitializeEx( @lineApp , HInstance , @lineCallBack , AppName ,nDevs , dwAPIVersion, lineInit );

LineExtension.dwExtensionID0:=0;

for i:=0 to ndevs do begin
err1:=lineNegotiateAPIVersion(lineApp,i,dwAPIVersion,dwAPIVersion,dwNegotiatedTa piVersion,LineExtension);
if err1=0 then begin
lpLineCaps.dwTotalSize := sizeof(LINEDEVCAPS);
err1:=lineGetDevCaps(lineapp,i,dwNegotiatedTapiVersion,0,@lpLineCaps);
if err1= 0 then begin
if (lplineCaps.dwMediaModes = 30) then begin
listbox1.Items.Add(" !!!! Device");
dwTapiDeviceID:=i;
end;
end;
end;
end;

err1:=lineopen(lineapp,dwTapiDeviceID,@f_hline,dwAPIVersion,0,0,LINECALLPRIVILEG E_MONITOR +LINECALLPRIVILEGE_OWNER , LINEMEDIAMODE_AUTOMATEDVOICE, nil);


 
Cj ©   (2008-04-01 15:33) [1]

а stdcall кто ставить будет? бябя федя? тетя мотя?



Страницы: 1 вся ветка

Форум: "WinAPI";
Текущий архив: 2009.03.29;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.046 c
2-1233732829
проходил мимо решил зайти
2009-02-04 10:33
2009.03.29
Сортировка данных таблице


2-1233804054
snake-as
2009-02-05 06:20
2009.03.29
При открытии файла через OpenDialog имя файла не сохраняется


2-1233618168
koha!
2009-02-03 02:42
2009.03.29
Вопрос по функции API Openfile()


15-1233131001
Palladin
2009-01-28 11:23
2009.03.29
Работа программ на Delphi 2009


1-1209030616
psa247
2008-04-24 13:50
2009.03.29
multiselect stringgrid





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский