Mit Delphi 2010 SIP Rufnummer an Softphone übergeben

[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.

[stephanx]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
edit1.Text := '00494075014';

ShellExecute(0, 'open', 'Sip:' + edit1.Text, nil, nil, SW_NORMAL);

end;


end.

Ich hab jetzt den ganzen Rotz weggelasssen ich bekomme aber jetzt die Fehlermeldung:

[DCC Fehler] Unit1.pas(31): E2010 Inkompatible Typen: 'PWideChar' und 'string'
[DCC Fataler Fehler] Project1.dpr(5): F2063 Verwendete Unit 'Unit1.pas' kann nicht compiliert werden

Auch wenn ich das in PWideChar Umwandle sagt er mir das

[Bummi]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
edit1.Text := '00494075014';

ShellExecute(0, 'open', PCHAR('Sip:' + edit1.Text), nil, nil, SW_NORMAL);

end;

[stephanx]

Vielen Dank Herr Wasserman

Sie haben mir sehr geholfen. Würde mich freuen wenn Sie mit mir den Kontakt halten würden.

mfg
Stephan Eschler