lRet = lineMakeCall(hLine, &hCall, szPhoneNumber, 0, lpLineCallParams);

 

      ...

      // TAPI callback is called only when messages are dispatched!

 

      while (!bReadyToEnd || hCall)

      {

      PumpMessages(TRUE);

      }

      ...

      lineShutdown(hLineApp);

BOOL PumpMessages(BOOL bWaitForMessage)

{

    static MSG msg;

 

   if (bReadyToEnd)

       return FALSE;

 

   if (bWaitForMessage)

   {

      if (!GetMessage(&msg, NULL, 0, 0))

         return FALSE;

   }

   else

      if (!PeekMessage(&msg, NULL, 0, 0, PM_REMOVE))

         return TRUE;

      else

         if (msg.message == WM_QUIT)

            return FALSE;

 

   TranslateMessage(&msg);

   DispatchMessage(&msg);

 

   return TRUE;

}

Function PumpMessages(bWaitForMessage As Integer) As Integer

 

   Static MSG As tagmsg

 

   If bWaitForMessage Then

 

      If Not GetMessage(msg, %NULL, 0, 0) Then

         Function = 0

      End If

 

   Else

 

      If Not PeekMessage(msg, %NULL, 0, 0, %PM_REMOVE) Then

         Function = 1

      End If

 

   End If

 

   TranslateMessage(msg)

   DispatchMessage(msg)

 

   Function = 1

 

End Function

  

  lRet = LineMakeCall (ByVal hLine, hCall, numberToDial, ByVal 0, lineParams)

 

   While hCall

     PumpMessages(1)

   Loop

 

   LineDrop(ByVal hCall, ByVal 0, ByVal 0)

Function PumpMessages() As Integer

 

   Static MSG As tagmsg

 

   If Not GetMessage(msg, %NULL, 0, 0) Then

      Function = 0

   End If

 

   TranslateMessage(msg)

   DispatchMessage(msg)

 

   Function = 1

 

End Function

 

и вызов функции:

 

While hCall

  PumpMessages

Loop

LONG WINAPI lineInitializeEx(

  LPHLINEAPP lphLineApp,                            

  HINSTANCE hInstance,                              

  LINECALLBACK lpfnCallback,                        

  LPCSTR lpszFriendlyAppName,                        

  LPDWORD lpdwNumDevs,                              

  LPDWORD lpdwAPIVersion,                            

  LPLINEINITIALIZEEXPARAMS lpLineInitializeExParams  

);

#Compile Exe

#Dim All

 

#Include "Tapi32.inc"

#Include "WinUser.inc"

 

 

 

Global hCall As Dword

 

Function PBMain

    Local numberToDial As String

    numberToDial = $DefNumberToDial

    ' Зациклено в исследовательских целях

    1:

    Con.Input "Nomer: ", numberToDial

    dial(numberToDial)

    GoTo 1

End Function

 

 

Function Dial(phoneNumber As String) As Long

   Local lRet As Long, hApiVersion As Long, numLines As Long, lineNo As Long

   Local minVer As Long, maxVer As Long, dwAPIVersion As Dword

   Local hLine As Dword

   Local numberToDial As AsciiZ * 32

   Local lineParams As LINECALLPARAMS, extID As LINEEXTENSIONID

   Local lip As LINEINITIALIZEEXPARAMS

   Local hInstance As Dword, hTapiApp As Dword

   Local i As Long

 

   Local Msg As tagMsg

 

   lip.dwtotalsize = Len(lip)

 

   lip.dwoptions = %LINEINITIALIZEEXOPTION_USEHIDDENWINDOW

 

 

   hApiVersion = %TAPI_CURRENT_VERSION

   numberToDial = phoneNumber

 

   hInstance = GetModuleHandle(ByVal %NULL)

  

   'PeekMessage(msg, %Null, 0, 0, %PM_REMOVE)

 

   lRet = lineInitializeEx(hTapiApp, hInstance, CodePtr(tapiCallback), "weqweqweqeweqwe", numLines, hApiVersion, lip)

 

   If lRet Then

       Print "Error on LineInitialize: " + Str$(lRet)

   End If

 

   lineNo = -1

 

   For i = 0 To numLines - 1

 

      minVer = &h00010004

      maxVer = &h00020000

 

      lRet = LineNegotiateAPIVersion(ByVal hTapiApp, ByVal i, ByVal minVer, ByVal maxVer, dwAPIVersion, extID)

 

      If lRet Then

         Print "Error negotiation API Version: " + Str$(lRet)

      End If

 

      lRet = LineOpen (ByVal hTapiApp, ByVal i, hLine, ByVal dwAPIVersion, ByVal 0, ByVal 0, ByVal %LINECALLPRIVILEGE_NONE, ByVal %LINEMEDIAMODE_DATAMODEM, lineParams)

 

      If lRet Then

          Print "Error on LineOpen: " + Str$(lRet)

      Else

          lineNo = i

          Exit For

      End If

 

   Next i

 

   If lineNo < 0 Then Print "Could not find modem": Exit Function

 

   lineParams.dwTotalSize = SizeOf(LINECALLPARAMS)

   lineParams.dwMediaMode = %LINEMEDIAMODE_DATAMODEM

 

   lRet = LineMakeCall (ByVal hLine, hCall, numberToDial, ByVal 0, lineParams)

 

   If lRet < 0 Then

      Print "Error making call: " + Str$(lRet)

      Exit Function

   End If

 

   While PeekMessage(msg, %Null, 0, 0, %PM_REMOVE)

        TranslateMessage(msg)

        DispatchMessage(msg) '<-- вот здесь прога падает

   Loop

 

   Print ">>>"

 

   LineDrop(ByVal hCall, ByVal 0, ByVal 0)

   LineClose(ByVal hLine)

   LineShutdown(ByVal hTapiApp)

 

End Function

 

 

 

Function TapiCallback(ByVal hDevice&, ByVal dwMsg&, ByVal CBInstance&,_

                      ByVal Param1&, ByVal Param2&, ByVal Param3&) As Long

 

   Local nDim As Long, Dword As Long, dwNeed As Dword, sDevice As AsciiZ * 16

 

 

    If dwMsg& = %LINE_REPLY Then

        If Param2& < 0 Then

            Print "Line Reply Error"

        Else

            Print "Line Reply Ok"

        End If

    ElseIf dwMsg& = %LINE_CALLSTATE Then

 

        Select Case Param1&

            Case %LINECALLSTATE_IDLE

                If hCall <> 0 Then

                    Print "Line Idle"

                End If

            Case %LINECALLSTATE_CONNECTED

                If hCall <> 0 Then

                    Print "Connected"

                End If

            Case %LINECALLSTATE_PROCEEDING

                Print "Proceeding"

            Case %LINECALLSTATE_DIALING

                Print "Dialing..."

            Case %LINECALLSTATE_DISCONNECTED

 

                If Param2& = %LINEDISCONNECTMODE_NORMAL Then

                    Print "Disconnected Normal"

                ElseIf Param2& = %LINEDISCONNECTMODE_BUSY Then

                    Print "Disconnected Busy"

                ElseIf Param2& = %LINEDISCONNECTMODE_NODIALTONE Then

                    Print "No dial tone"

                ElseIf Param2& = %LINEDISCONNECTMODE_NOANSWER Then

                    Print "No Answer"

                End If

            Case %LINECALLSTATE_BUSY

                Print "Line Busy"

        End Select

    End If

 

End Function