Tapi 32.dll

[Alterauge]

Hallo,
das Telefon wird angesprochen!
Es wird aber nur eine '0' übermittelt, und nicht die ganze Nummer! Wieso?

Delphi-Quellcode:

{$R *.dfm}

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

procedure TForm3.AdvGlowButton1Click(Sender: TObject);
begin
 Form3.Close;
end;

procedure TForm3.AdvGlowButton2Click(Sender: TObject);
var
  PhoneNumber, AppName: array[0..255] of Char;
  i: integer;
begin
  PhoneNumber := '0017123456789';
  StrPCopy(AppName, Application.Title);
  tapiRequestMakeCall(PhoneNumber, AppName, '', '');
  if i < 0 then
ShowMessage('es ist ein Fehler aufgetreten - Abbruch des Wählvorganges!');
end;

[Bernhard Geyer]

Ich Tipp darauf das die API hier nur ANSI-Strings erwartet

Delphi-Quellcode:

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

[DeddyH]

Welchem Typ entspricht denn LPCSTR? Ich kann mir das nie merken.

[Bernhard Geyer]

Zitat:

Zitat von DeddyH (Beitrag 1215895)

Welchem Typ entspricht denn LPCSTR? Ich kann mir das nie merken.

http://msdn.microsoft.com/en-us/library/cc230350.aspx

[DeddyH]

Dann fragt man sich aber doch, wieso es tapiRequestMakeCallA und tapiRequestMakeCallW gibt, wenn beide Ansi-Parameter entgegennehmen :gruebel:
Anyway, ich würde es so versuchen:

Delphi-Quellcode:

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

procedure TForm3.AdvGlowButton1Click(Sender: TObject);
begin
  Close;
end;

procedure TForm3.AdvGlowButton2Click(Sender: TObject);
var
  PhoneNumber, AppName: AnsiString;
  i: integer;
begin
  PhoneNumber := '0017123456789';
  AppName := Application.Title;
  i := tapiRequestMakeCall(PAnsiChar(PhoneNumber), PAnsiChar(AppName), '', '');
  if i < 0 then
    ShowMessage('es ist ein Fehler aufgetreten - Abbruch des Wählvorganges!');
end;

[Der schöne Günther]

Ignoriere mich

[Alterauge]

Hallo DeddyH,

Richtig so geht es!
Danke für Deine schnelle Hilfe! :-D