Fórum de Suporte Digivoice
Você não está logado.
Por uma questão de compatibilidade com as linguagens .NET fizemos algumas alterações na VoicerLib.
Alguns métodos que retornavam string agora não retornam mais, mas os strings tem que ser passados por referência como parâmetros dos métodos (funções).
Por enquanto esses métodos tem que ser chamados diretamente da DLL da voicerlib, para o Delphi 7 então coloque no seu programa:
logo abaixo do uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,… ;
procedure dg_GetE1Number(Port:Smallint; sE1: PChar); cdecl; external 'voicerlib.dll'
procedure dg_GetCallerId(Port:Smallint; sID: PChar); cdecl; external 'voicerlib.dll'
procedure dg_ReadDigits(Port:Smallint; sDig: PChar); cdecl; external 'voicerlib.dll'
Ao invés de chamar os métodos da OCX:
GetE1Number,
GetCallerId,
ReadDigits
Use os mesmo métodos da DLL
dg_GetE1Number
dg_GetCallerId
dg_ReadDigits
passando como parâmetros um smallint para porta e um array de char para o string.
Exemplo:
Port: smallint;
sDigitos: string;
cDig: array[0..256] of char;
dg_ReadDigits(Port,cDig);
sDigitos := cDig;
Suporte DigiVoice
21916363
Offline