TAPI i Delphi 4

Prøv:

http://sunsite.icm.edu.pl/delphi/authors/a0000209.htm

http://sunsite.icm.edu.pl/delphi/authors/a0000952.htm


Hvis det ike er godt nok så afvis bare svaret, jeg skal godt nok lave for at du sætter nogle point af til det

F*ck det her lede system :o(
Anywayz:
127 >> Thx.. men har desværre været inde på Delphi's superside :o/
Havde ozo dl dem før, (virkede ikke til Delphi 4)

Hvordan kalder man TAPI funktionen i Delphi 4 ?
Og hvordan opretter man en "sink" (TapiCallBack) ?
Det er ret nødvendigt nemlig :o(
Jeg kender alle kommandoerne til at ringe op med osv., jeg ved bare ikke hvordan jeg skal aktivere dem.
f.eks. Label1.CAPTION, hvor jeg kender CAPTION men ikke Label1.
(Label1 er en parallel til TAPI/whatever)

Er det egentlig ikke ret skidt at der ikke er mere information om emnet på nettet ?

jo

Det eneste jeg ellers kan foreslå er at søge efter TAPI på Microsfts hjemmeside (det er jo de  der har lavet det)

Jeg ved nu at man skal bruge kommandoen:

LineInitialize( lphLineApp, hInstance, LineCallback, lpszFriendlyAppName, lpdNumDevs)

Men når jeg skriver dem ind får jeg fejl-meddelsen om at lphLineApp ikke er af det korrekte format.
Jeg bruger linien:

var
  FLineApp: lphLineApp;

til at definere den.
Er det ikke korrekt ?
(der skal forresten snabela foran)

..har fundet ud af det...

Har et helt nyt problem!
Hvis du har den nyeste tapi.pas
Send den venligst til mig :)
Zzapper@hotmail.com

Den har jeg ikke, (har kun Delphi 3 C/S)

Mig er gået over til Delphi 3...
(altså med det program)

Hvis du har bare PRØVET at få noget til at virke, så giv mig lige besked...

Danke!

Fundet følgende om callback, hved ikke om det hjælper:


// This code sample shows only part of the callback function.

LPTSTR lpszStatus;

  switch (dwMsg)
  {
    case LINE_CALLSTATE:

      // If the CALLSTATE message does not apply to the call in
      // progress, then return.
      if (g_hCall != (HCALL) hDevice)
        return;

      // dwParam1 is the specific CALLSTATE change occurring.
      switch (dwParam1)
      {
        case LINECALLSTATE_DIALTONE:
          lpszStatus = TEXT("Dial tone");
          break;

        case LINECALLSTATE_DIALING:
          lpszStatus = TEXT("Dialing");
          break;

        case LINECALLSTATE_PROCEEDING:
          lpszStatus = TEXT("Dialing has completed and the call ")
                      TEXT("is proceeding.");
          break;

        case LINECALLSTATE_RINGBACK:
          lpszStatus = TEXT("Ring back");
          break;

        case LINECALLSTATE_CONNECTED:
          lpszStatus = TEXT("Connected");
          break;
       
        case LINECALLSTATE_BUSY:
          ErrorBox (TEXT("Line busy, shutting down"));
          CurrentLineClose ();
          if (g_hwndDial)
            SendMessage (g_hwndDial, WM_COMMAND, MAKEWPARAM(IDOK,0), 0);
          break;

        case LINECALLSTATE_IDLE:
          ErrorBox (TEXT("Line is idle"));
          CurrentLineClose ();
          if (g_hwndDial)
            SendMessage (g_hwndDial, WM_COMMAND, MAKEWPARAM(IDOK,0), 0);
          break;

        case LINECALLSTATE_SPECIALINFO:
          ErrorBox (TEXT("Special Information, couldn't dial number"));
          CurrentLineClose ();
          if (g_hwndDial)
            SendMessage (g_hwndDial, WM_COMMAND, MAKEWPARAM(IDOK,0), 0);
          break;

        case LINECALLSTATE_DISCONNECTED:
        {
          LPTSTR lpszDisconnected;

          switch (dwParam2)
          {
            case LINEDISCONNECTMODE_NORMAL:
              lpszDisconnected = TEXT("Remote party disconnected");
              break;

            case LINEDISCONNECTMODE_UNKNOWN:
              lpszDisconnected = TEXT("Disconnected: Unknown reason");
              break;

            case LINEDISCONNECTMODE_REJECT:
              lpszDisconnected = TEXT("Remote Party rejected call");
              break;

            case LINEDISCONNECTMODE_PICKUP:
              lpszDisconnected =
                TEXT("Disconnected: Local phone picked up");
              break;

            case LINEDISCONNECTMODE_FORWARDED:
              lpszDisconnected = TEXT("Disconnected: Forwarded");
              break;

            case LINEDISCONNECTMODE_BUSY:
              lpszDisconnected = TEXT("Disconnected: Busy");
              break;

            case LINEDISCONNECTMODE_NOANSWER:
              lpszDisconnected = TEXT("Disconnected: No Answer");
              break;

            case LINEDISCONNECTMODE_BADADDRESS:
              lpszDisconnected = TEXT("Disconnected: Bad address");
              break;

            case LINEDISCONNECTMODE_UNREACHABLE:
              lpszDisconnected = TEXT("Disconnected: Unreachable");
              break;

            case LINEDISCONNECTMODE_CONGESTION:
              lpszDisconnected = TEXT("Disconnected: Congestion");
              break;

            case LINEDISCONNECTMODE_INCOMPATIBLE:
              lpszDisconnected = TEXT("Disconnected: Incompatible");
              break;

            case LINEDISCONNECTMODE_UNAVAIL:
              lpszDisconnected = TEXT("Disconnected: Unavailable");
              break;

            case LINEDISCONNECTMODE_NODIALTONE:
              lpszDisconnected = TEXT("Disconnected: No dial tone");
              break;

            default:
              lpszDisconnected =
                TEXT("Disconnected: LINECALLSTATE; Unknown reason");
              break;
          }

          ErrorBox (lpszDisconnected);
          CurrentLineClose ();
          if (g_hwndDial)
            SendMessage (g_hwndDial, WM_COMMAND, MAKEWPARAM(IDOK,0), 0);
          break;
        }
      }
      break;

Adressen til er:
http://msdn.microsoft.com/isapi/msdnlib.idc?theURL=/library/wincesdk/wcecomm/tapi_12.htm

Heheh... Thx..
Men det kræver at der er noget der sender tilbage...
Kan ikke få noget til at virke :o(
Men tak alligevel :)

Hvad er det helt præcist dit program skal kunne ?

Ret simpelt indtil videre...

Skriver et tlf. nummer, trykker på en knap, og programmet ringer op.

Det eneste indtil videre..
(mit første problem)

Btw.. Al'  den kode, er det ikke til C++ ?

Jo

Nej, det er Windows API kald

...Jaer...

Hvordan får jeg det inplementeret i et Delphi program?

>>januskh jeg kan da godt se at det er API kald, men det er stadig skrevet i C++

Prøv http://www.delphi-jedi.org/apilib/tapi.zip

det virker !

jeg får nu ellers:
HTTP 404 NOT Found
så det vil jeg nu ikke sige!!!!!!!!!

Det rigtige link er:
http://www.delphi-jedi.org/convlib/untitled_stacked_page_17.html

Så prøv da http://www.delphi-jedi.org/convlib/untitled_stacked_page_17.html

eller http://www.delphi-jedi.org

Lukker du ikke lige spørgsmålet? Evt. stille et nyt?

Har du fået det til at virke?

Hva? Skal det her spm ikke snart lukkes?