Wie senden Sie eine SMS mit Delphi XE5 in Android
Weiß jemand, wie man diese arbeiten?
Der nächstgelegene ich bekam, war der code unten an, bekam aber keine Erfolg.
Auf den ersten, es gibt Ihnen Hoffnung, wenn Sie sagt, Sie müssen die SEND_SMS
Berechtigung. Aber nachdem Sie setup diese Berechtigung, nix passiert!!!
uses
Androidapi.JNI.JavaTypes;
procedure TForm1.Button1Click(Sender: TObject);
var
smsManager: JSmsManager;
smsTo, smsFrom: JString;
begin
smsManager:= TJSmsManager.JavaClass.getDefault;
smsTo:= StringToJString('552199999999'); //replace with the right destination number
smsFrom:= StringToJString('552499999999'); //replace with the right originator number
smsManager.sendTextMessage(smsTo, smsFrom, StringToJString(Edit1.Text), nil, nil);
end;
Können Sie senden eine Nachricht an die gleiche Nummer von diesem Telefon manuell? Wirkt sich das hinzufügen eines Land-Präfix-Nummer helfen? Zum Beispiel, Land, prefix-Nummer für mein Land ist +381.
InformationsquelleAutor rribas | 2013-09-17
Du musst angemeldet sein, um einen Kommentar abzugeben.
Versuchen, geben Sie einen leeren Wert (
nil
) derscAddress
parameter dersendTextMessage
- Funktion aufrufen, um die aktuelle Standard-SMS-center:InformationsquelleAutor mh taqia
Zweiten parameter sendTextMessage ist nicht der "sender" - Reihe, vielmehr identifiziert es die SMS-Anbieter service-center.
Werden Sie mit ziemlicher Sicherheit nicht angeben möchten, alles ist hier möglich. Pass einfach auf null und die SMSManager verwenden Sie das Gerät Standard-service-center für die Bereitstellung Ihrer Nachricht.
InformationsquelleAutor Deltics
Siehe auch:
http://delphi-android.blogspot.dk/2013/10/how-to-send-sms-with-delphi-on-android.html
für eine copy & paste-Funktion.
Mag ich solche Funktionen in einer separaten Einheit, anstatt Sie in der Button-event-handler.
InformationsquelleAutor Lars D
Kann man es auch mit JIntend Objekt, wie unten
Format 'smsto:%s' is invalid or incompatible with argument.
Ich habe die Technologie ändern, ein Jahr vor, nachdem nur wenige Monate in Delphi und ich kann mir nicht helfen :/
Es ist kein problem, ich Schätze deine Besorgnis. Dies scheint jedoch nicht mehr zu arbeiten.
InformationsquelleAutor Xawery Wiśniowiecki