Horst0815,
hast Du vielleicht ein Beispiel für mich? Die GSMDemo geht leider nicht
habe hier schon versucht was zu basteln....
Delphi-Quellcode:
procedure TForm1.nrGsm1SmsReceived(Sender: TObject; aMem: String;
idSms: Integer; aSms: TnrPduSms);
begin
if Memo3.text <> ''
then ListBox1.Items.Add('Sms is received "' + Memo3.Text+'",'+ IntToStr(idSms))
else ListBox1.Items.Add('Sms is received ');
if aSms <> nil then begin
if aSms.Report
then ListBox1.Items.Add(aSms.ReportText)
else ListBox1.Items.Add('SMS: From: ' + aSms.Phone + ' text: '+ aSms.Text)
end;