Discussion :

[bel76]

j'essay d'initialiser la Telephony API avec les deux méthodes :
initialize et initializeEX. Mais j'ai l'erreur 80000035 LINEERR_INVALPOINTER.
et je n'arrive pas à comprentdre ou est le problème.

extrait du code :

unit Main;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, TAPI, TAPI3Err, TSPI, StdCtrls, Buttons;

type
TForm1 = class(TForm)
BitBtn1: TBitBtn;
BTN_InitTapi: TSpeedButton;
TapiInform: TMemo;
Label1: TLabel;
BTN_OldInit: TSpeedButton;
procedure BTN_InitTapiClick(Sender: TObject);
procedure BTN_OldInitClick(Sender: TObject);
function InitTAPI : Longint;
function OldInitTAPI : Longint;
private
{ Déclarations privées }
lineApp : PHLINEAPP;
CallParams : TLineCallParams;
InitParams : TLineInitializeExParams;
public
{ Déclarations publiques }
end;

var
Form1: TForm1;

nDevs : DWord;
TapiVers : DWord;
Vers : record
P,R : word
end absolute tapivers;

implementation

{$R *.dfm}

procedure CallBackFct (hDevice, dwMessage, dwInstance,
dwParam1, dwParam2, dwParam3: Longint);
begin
end;

function TFORM1.InitTAPI;
begin
TapiVers := $00030001;
FillChar(InitParams, 0, SIZEOF(InitParams));
with InitParams do
begin
dwTotalSize := SIZEOF(InitParams);
dwOptions := LINEINITIALIZEEXOPTION_USEHIDDENWINDOW
end;
InitTAPI := lineInitializeEx(lineApp, HInstance,
@CallBackFct, nil, nDevs, TapiVers, InitParams);
end;

function TForm1.OldInitTAPI;
begin
FillChar(CallParams, sizeof(CallParams), 0);
with CallParams do
begin
dwTotalSize := sizeof(CallParams);
dwBearerMode := LINEBEARERMODE_VOICE;
dwMediaMode := LINEMEDIAMODE_INTERACTIVEVOICE;
end;
OldInitTAPI := lineInitialize(lineApp, HInstance, @CallBackFct, nil, nDevs)
end;

procedure TForm1.BTN_InitTapiClick(Sender: TObject);
begin

with TapiInform.Lines do
begin
Clear;
add('Code erreure : ' + inttohex(InitTAPI, 8));
add('TAPI Version : ' +IntTostr(Vers.P)+'.'+IntTostr(Vers.P));
Add('Nombre des Devices : '+ IntToStr(nDevs));
end
end;

procedure TForm1.BTN_OldInitClick(Sender: TObject);
begin
with TapiInform.Lines do
begin
Clear;
add('Code erreure : ' + inttohex(OldInitTAPI, 8));
Add('Nombre des Devices : '+ IntToStr(nDevs))
end
end;
end.

[neilbgr]

[neilbgr]

Les callback windows sont en stdcall, après ça, ça devrait aller mieux. Mais c'est juste a vu de nez !

[bel76]

J'utilise une unité qui interface la bibliothèque TAPI (TAPI.pas) que j'ai téléchargé (Recherches avec google. les appels sont bien en stdcall.

F1 sans résultats

Google sans résultats

reste les FORUMs

[neilbgr]

les appels sont bien en stdcall.

Or :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
procedure CallBackFct (hDevice, dwMessage, dwInstance,
dwParam1, dwParam2, dwParam3: Longint);
begin
end;

Je ne vois pas de stdcall.

Je vais nettoyer mes lunettes de ce pas...

[DAGADA]

function TfrmMain.InitTAPI():Boolean;
var
AppName:array[0..20] of char;
nAPIVersionWORD;
begin
Result:=true;
lineApp := 0;
AppName := 'IP OFFICE Project';

LogString( 'START TO INITIALIZE TAPI' );
with lineInit do
begin
dwTotalSize := sizeof( lineInit );
dwOptions := LINEINITIALIZEEXOPTION_USEHIDDENWINDOW;
end;
nAPIVersion := $00020000;
nReturn := lineInitializeEx( @lineApp , HInstance , lineCallBack , AppName ,nDevs , nAPIVersion, lineInit );
if (nReturn < 0)
then
begin
// Initialize Failed
LogString( 'FAILED TO INITIALIZE ' + IntToHex( nReturn,8 ) + ' '
+ IntToHex( HInstance ,8 ) ) ;
Result:= false;
end
else if (nDevs = 0) then
begin
LogString ('NO TAPI LINE DEVICES' );
lineShutDown( lineApp );
lineApp :=0;
Result:= false;
end
else
begin
LogString ( 'LINEAPP:' + IntToHex( lineApp , 8 ) + ' ' +
'INSTANCE:' + IntToHex( HInstance , 8 ) + ' ' +
'LINE DEVICES:' + IntToHex( nDevs ,8) + ' ' +
'TAPI VERSION:' + IntToHex( nAPIVersion , 8 ) ) ;
// save the handle
m_lineApp := lineApp;

end;
end;


je le fait de cette façon et j'en ai aucun problème d'initialisation, tu peux tester sbien !

si tu rencontre qq problème je suis là pour tt aides !

[Lung]