Einzelnen Beitrag anzeigen

Benutzerbild von baumina
baumina

Registriert seit: 5. Mai 2008
Ort: Oberschwaben
1.275 Beiträge
 
Delphi 11 Alexandria
 
#12

AW: TAPI - lineMakeCall - Format der Telefonnummer

  Alt 5. Jun 2013, 06:16
Danke für all eure Tipps, ich habe es nun folgendermaßen gelöst. Ich nehme weiterhin alle möglichen Zeichen aus dem Telefonnummern-String raus, ersetze + durch 00 (alles wie zuvor) nun ersetze ich noch zusätzlich 0049 durch 0, damit meine Telefonanlage die Gespräche innerhalb Deutschlands auch schafft. Ob alles so klappt zeigt die Praxis
Delphi-Quellcode:
  // überflüssige Zeichen entfernen (Leerzeichen, '-', '/', etc.)
  aAddress := StringReplace(aAddress, ' ', '', [rfReplaceAll]);
  aAddress := StringReplace(aAddress, '-', '', [rfReplaceAll]);
  aAddress := StringReplace(aAddress, '/', '', [rfReplaceAll]);
  aAddress := StringReplace(aAddress, '(', '', [rfReplaceAll]);
  aAddress := StringReplace(aAddress, ')', '', [rfReplaceAll]);
  aAddress := StringReplace(aAddress, '<', '', [rfReplaceAll]);
  aAddress := StringReplace(aAddress, '>', '', [rfReplaceAll]);
  // '+' durch '00' ersetzen (Ländervorwahl)
  aAddress := StringReplace(aAddress, '+', '00', []);

  if copy(aAddress, 1, 4) = '0049then
  begin // Unsere Telefonanlage kommt mit der eigenen Ländervorwahl nicht zurecht, deswegen weg damit. 03.06.2013
    delete(aAddress, 2, 3);
  end;

  FillChar(callingNr, sizeof(callingNr), 0);
  StrPCopy(callingNr, aAddress);
  i := lineMakeCall(line, @call, callingNr, 0, @CallParams);
...
Hinter dir gehts abwärts und vor dir steil bergauf ! (Wolfgang Ambros)

Geändert von baumina ( 5. Jun 2013 um 06:20 Uhr)
  Mit Zitat antworten Zitat