Набрать номер по модему. Различие в реализации кода Delphi 2007 и 2010.

[plato]

Стоит задача «набрать номер по модему».
Использую код, приведенный в Интернете.
Ссылка:

http://www.delphisources.ru/pages/faq/base/tapi.html

Или вот сам код:

{tapi Errors}
const TAPIERR_CONNECTED = 0;
const TAPIERR_DROPPED = -1;
const TAPIERR_NOREQUESTRECIPIENT = -2;
const TAPIERR_REQUESTQUEUEFULL = -3;
const TAPIERR_INVALDESTADDRESS = -4;
const TAPIERR_INVALWINDOWHANDLE = -5;
const TAPIERR_INVALDEVICECLASS = -6;
const TAPIERR_INVALDEVICEID = -7;
const TAPIERR_DEVICECLASSUNAVAIL = -8;
const TAPIERR_DEVICEIDUNAVAIL = -9;
const TAPIERR_DEVICEINUSE = -10;
const TAPIERR_DESTBUSY = -11;
const TAPIERR_DESTNOANSWER = -12;
const TAPIERR_DESTUNAVAIL = -13;
const TAPIERR_UNKNOWNWINHANDLE = -14;
const TAPIERR_UNKNOWNREQUESTID = -15;
const TAPIERR_REQUESTFAILED = -16;
const TAPIERR_REQUESTCANCELLED = -17;
const TAPIERR_INVALPOINTER = -18;

{tapi size constants}
const TAPIMAXDESTADDRESSSIZE = 80;
const TAPIMAXAPPNAMESIZE = 40;
const TAPIMAXCALLEDPARTYSIZE = 40;
const TAPIMAXCOMMENTSIZE = 80;
const TAPIMAXDEVICECLASSSIZE = 40;
const TAPIMAXDEVICEIDSIZE = 40;

function tapiRequestMakeCallA(DestAddress : PAnsiChar;
AppName : PAnsiChar;
CalledParty : PAnsiChar;
Comment : PAnsiChar) : LongInt;
stdcall; external 'TAPI32.DLL';

function tapiRequestMakeCallW(DestAddress : PWideChar;
AppName : PWideChar;
CalledParty : PWideChar;
Comment : PWideChar) : LongInt;
stdcall; external 'TAPI32.DLL';

function tapiRequestMakeCall(DestAddress : PChar;
AppName : PChar;
CalledParty : PChar;
Comment : PChar) : LongInt;
stdcall; external 'TAPI32.DLL';



Нажатие кнопки обработайте следующим образом: 
procedure TForm1.Button1Click(Sender: TObject);
var
  DestAddress : string;
  CalledParty : string;
  Comment : string;
begin
  DestAddress := '000-00-00'; {phone number}
  CalledParty := '___Nikolay';
  Comment := 'Calling to ___Nikolay';
  tapiRequestMakeCall(pChar(DestAddress),
  PChar(Application.Title),
  pChar(CalledParty),
  PChar(Comment));
end;

Под Delphi 2007 все работает нормально. Вызов идет, звонок можно нормально совершить.
Если тот же самый код использовать в Delphi 2010, то здесь траблы. Неверно передается номер телефона. Передает только первую цифру.
Может там проблема с типами данных?

[Kotofff]

В самой функции попробуй вместо PChar использовать PAnsiChar. Т.е.

procedure TForm1.Button1Click(Sender: TObject);
var
  DestAddress : string;
  CalledParty : string;
  Comment : string;
begin
  DestAddress := '000-00-00';
  CalledParty := '___Nikolay';
  Comment := 'Calling to ___Nikolay';
  tapiRequestMakeCall(PAnsiChar(DestAddress), PAnsiChar(Application.Title), PAnsiChar(CalledParty), PAnsiChar(Comment));
end;

Как-то помогло при переводе проекта на D2010.

[plato]

Спасибо за подсказку. Это помогло. 5 минут страданий, и решение найдено. Только нужно было сделать в другом варианте. Сама функция tapiRequestMakeCall ругается на смену типов. Там все надо оставить как есть. А переменную DestAddress как раз объявить как PAnsiChar. Тогда все работает.

По сути вопрос закрыт.
Но если появятся дополнительные интересные мысли по поводу различий 2007 и 2010 с конкретными примерами, то интересно было бы посмотреть.

[Qami]

Звонки можно совершать на домашние и мобильные телефоны любых опсосов ?

[Grenade]

Да, это конечно плохо для нас , программистов , что языки разные, но к сожелению это так. Мне нечего добывить. Всё вышесказанное верно, встречался с точно такой же проблемой... Ведь 2007 Delphi - это Borland, а 2010 - это Embarcadero....

[FaTaL]

Да совсем не в этом дело борланд это или другое что. Дело в том что в дельфине 2009 - 2010 по умолчанию типа String это набор Unicode символов, т.е. двухбайтовых. Вот в этом всё и дело.

[plato]

Правоприемник должен был позаботиться о наиболее безболезненном переходе.

[alf138]

Господа можно выложить весь текст а то у меня не получается
мне нужно строчку

  DestAddress:= PAnsiChar(Edit1.Text);

[plato]

var
DestAddress : AnsiString;
...
...
...
DestAddress:= Edit1.Text;
DialExecute(Sender);
...
...
...
procedure TForm1.DialExecute(Sender: TObject);
begin
  if MessageDlg(
    'Звоним на номер ' + DestAddress + '?',
    mtConfirmation,
    [mbOk, mbCancel],
    0) = mrOk
      then
        tapiRequestMakeCall(
          PChar(DestAddress),
          PChar(Application.Title),
          pChar(CalledParty),
          PChar(Comment));
end;
...
...
...