1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:

procedure TForm1.Button1Click(Sender: TObject);
const
  LINEINITIALIZEEXOPTION_USECOMPLETIONPORT = 0;
var
  Tel : ITTAPI;
  C   : RequestMakeCall;
  D   : ITDispatchMapper;
  l   : OleVariant;
  I   : Integer;
  A   : IEnumAddress;
  CI  : ITCallInfo;
  Ad  : ITAddress;
  Al  : IEnumAddress;
  Cc  : ITBasicCallControl;
  Par : lineinitializeexparams_tag;
//  LD  :
  R   : LongInt;       
  Luh       : HLineApp;    
  LDC       : PLineDevCaps;
  DC, Tv    : Cardinal;
  Lo, Hi, V : DWord;
  NSize, Ln : DWord;
  LeId      : TLineExtensionID;
  CCo, AC   : PChar;
  H         : HWND;

  aName     : array[0..500] of AnsiChar;

begin
  Lo  := $00010003;   // Tapi 1.3
  Hi  := $00030000;   // Tapi 3.0
  R   := -2;
  H   := unassigned;


  FillChar(Par, SizeOf(Par), 0);
  R  := lineInitialize( @Luh, HInstance, @LineCallBack, PChar( 'Test' ), DC );  //    LineCallBack  @Par
//  ShowMessage( 'Result:  ' + Inttostr( R ) + Char( $0D ) + 'Hex:  ' + IntToHex( R, 8 ) );
  if R = 0 then
  begin
    for I := 0 to DC-1 do
    begin
      R := lineNegotiateAPIVersion( Luh, I, Lo, Hi, V, LeId );
//      ShowMessage( 'Result:  ' + Inttostr( R ) + Char( $0D ) + 'Hex:  ' + IntToHex( R, 8 ) );
      if R = 0 then
      begin
        if I < 10 then foTapiV[ I ] := V;

        LDC              := AllocMem( SizeOf(TLineDevCaps) );     
        LDC^.dwTotalSize := SizeOf( TLineDevCaps );

        R     := lineGetDevCaps( Luh, I, V, 0, LDC );
        if LDC^.dwTotalSize < LDC^.dwNeededSize then
        begin
          NSize := LDC^.dwNeededSize;
          FreeMem( LDC );    
          LDC              := AllocMem( NSize );     
          LDC^.dwTotalSize := NSize;
          R := lineGetDevCaps( Luh, I, V, 0, LDC );
        end;
        if LDC^.dwLineNameSize > 0 then
        begin
          if LDC^.dwLineNameSize > 500 then LDC^.dwLineNameSize := 500;
          FillChar(aName, SizeOf(aName), #0);
          StrLCopy(aName,PAnsiChar(LDC)+LDC^.dwLineNameOffset,LDC^.dwLineNameSize);
          ComboBox1.Items.Add( aName );
        end;
        Ln := LDC^.dwTotalSize;
        FreeMem( LDC, Ln );
      end;
    end;
    R := lineShutdown( Luh );
  end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

  
  apLineDevCaps := AllocMem(SizeOf(TLineDevCaps)); // Speicher reservieren
  apLineDevCaps^.dwTotalSize := SizeOf(TLineDevCaps);
  lineGetDevCaps(hLineApp, dwDeviceID, lpdwAPIVersion, 0, apLineDevCaps);
  if apLineDevCaps^.dwNeededSize > apLineDevCaps^.dwTotalSize then
  begin
    ReallocMem(apLineDevCaps, apLineDevCaps^.dwNeededSize); // Speicher reicht nicht, dann neu reservieren
    apLineDevCaps^.dwTotalSize := apLineDevCaps^.dwNeededSize;
    lineGetDevCaps(hLineApp, dwDeviceID, lpdwAPIVersion, 0, apLineDevCaps);
  end;
  if (apLineDevCaps^.dwMediaModes and LINEMEDIAMODE_INTERACTIVEVOICE) <> 0 then
  begin
    if apLineDevCaps^.dwLineNameSize > MAXAD then apLineDevCaps^.dwLineNameSize := MAXAD;
    FillChar(aName, SizeOf(aName), #0);
    StrLCopy(aName,PAnsiChar(apLineDevCaps)+apLineDevCaps^.dwLineNameOffset,apLineDevCaps^.dwLineNameSize);
    Result := IntToStr(apLineDevCaps^.dwPermanentLineID) + '=' + aName; // DeviceID und Name zurückgeben
  end;
  FreeMem(apLineDevCaps); // Speicher freigeben