Mit Delphi 2010 SIP Rufnummer an Softphone übergeben

[stephanx]

Hallo

Ich versuche seit Tagen das ich aus einem Delphi Formular eine Telefonnummer an Countherpath (Softphone) zu übergeben.

Skype hat den Befehl Callto: und ich muss mit SIP: übergeben

aber wie übergebe ich diesen Befehl an Counterpath ??? Ich finde in Google keine Lösung ((((

ich würde mich freuen wenn mit jemand helfen könnte...

Die Nummer wird aus einen Normalen Textfield gelesen und per Button möchte ich diese Nummer an das Softphone Senden damit er diese Telefonnr. anruft.

[himitsu]

ShellExecute + 'SIP:dienummer'
und als Operation nil oder 'open' mal ausprobieren

[stephanx]

Man sollte den Einfachen Weg gehen bevor man den Schwerigen sucht ))))

vielen Dank

[himitsu]

Bitte.

Und (beinah übersehn)
Hallo und Willkommen an Board

[stephanx]

Nun hab ich folgende Problem (((

procedure TForm1.Button1Click(Sender: TObject);
Var
tel : Integer;
begin
edit1.Text := '00494075014';
tel := strtoint(edit1.Text);
ShellExecute(0, 'open', 'Sip:' + 'tel', nil, nil, SW_NORMAL);

end;

aber in das Softphone zeigt er SIP:tel an ?????? Wieso ???

[stephanx]

Vielen Dank .... und ich fühlte mich schon so unwohl als NEUER hier ))))

[Klaus01]

edit.text ist UniCode = 2 Byte pro Zeichen.

Der Sofclient erwartet wahrscheinlich nur ein Byte pro Zeichen also AnsiString bzw. pAnsiChar.

Grüße
Klaus

[BUG]

Zitat von stephanx:

Nun hab ich folgende Problem (((

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
Var
tel : Integer;
begin
edit1.Text := '00494075014';
tel := strtoint(edit1.Text);
ShellExecute(0, 'open', 'Sip:' + 'tel', nil, nil, SW_NORMAL);

end;

aber in das Softphone zeigt er SIP:tel an ?????? Wieso ???

Du übergibst ja auch 'Sip:tel' als Argument, 'Sip:' + edit1.Text wäre wohl gewollt. Die Konvertierung in Integer (intToStr) frisst übrigens die führenden Nullen.

[stephanx]

Guten Morgen )))

Leider bekomme ich nicht das hin das er die Nummer aus dem Textfeld übernimmt. Ich hab die ganze Nacht daran gearbeitet.... OHNE ERFOLG (((

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ShellAPI, StdCtrls;

type
TForm1 = class(TForm)
Edit1: TEdit;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
edit1.Text := '00494075014';
ShellExecute(0, 'open', 'Sip:' + inttostr(edit1.Text), nil, nil, SW_NORMAL);

end;
end.

Wer hatte das gleiche Problem ... hat jemand eine Lösung für mich ???

[Sir Rufo]

Zunächst benutze bitte bei Delphi-Quellcode die Delphi-Tags

Delphi-Quellcode:

Procedere IchSehTollAus;
begin
  // Kommentar
end;

Und nun erklär mir und uns mal, warum du auf die Verwendung von StrToInt bzw. IntToStr beharrst?

Du hast einen String und möchtest den als String weiterverarbeiten - richtig?
Wofür dann dieses Geraffel mit dem Umwandeln?

Lass den Schmutz mal weg und es wird funktionieren

Und wenn du dir die bisherigen Antworten mal durchgelesen hättest, dann würdest du auch schon im Besitz der Lösung sein.