Sende en SMS

Har (endnu) ikke selv afprøvet det !

Question/Problem/Abstract:

This sample shows how to call a SMS-webservice by using SOAP
Answer:


First, download and install the Microsoft® SOAP Toolkit Version 2.0 from: http://msdn.microsoft.com/downloads/default.asp?URL=/code/sample.asp?url=/msdn-files/027/001/580/msdncompositedoc.xml

uses
  ComObj;

procedure TForm1.Button1Click(Sender: TObject);
var
  SoapClient: OleVariant;
  v: OleVariant;
begin
  SoapClient := CreateOleObject(\'MSSOAP.SoapClient\');
  SoapClient.mssoapinit(\'http://sal006.salnetwork.com:83/lucin/smsmessaging/process.xml\');
  SoapClient.SendMessage(*DestNumber*, *MessageBody*, *SenderName*, *SenderPass*);
end;


*DestNumber*: countrycode + phonenumber (no leading zero),
e.g. for 06 12345678 in the netherlands: 31612345678
*SenderName* and *SenderPass* you can obtain from:
http://www.salcentral.com/help/smsreg.htm



Snowball

Du kan også sende sms´en som en mail til det pågældende selskab .. du kan bruge F.Piettes SMTP komponent

<MobilNr>@note.sonofon.dk
<MobilNr>@sms.tdm.dk
<MobilNr>@sms.mobilix.dk
<MobilNr>@gsm1800.telia.dk

hvis du ikke ved hvilket selskab det pågældende nr har skulle du kunne bruge orange .. den skulle sende den videre til det rette selskab.
<MobilNr>@orange.dk

Function SendSMSMailMessage(MailServer, MailTo, MailFrom, MailSubject, MailMsg: string):boolean;
begin
    Result                    := False;
    SmtpCli1.Host            := MailServer;
    SmtpCli1.Port            := \'smtp\';
    SmtpCli1.FromName        := MailFrom;
    SmtpCli1.RcptName.Text    := MailTo;
    SmtpCli1.HdrSubject      := MailSubject;
    SmtpCli1.MailMessage.Text := MailMsg;

    if SmtpCli1.Connect then
        begin
              Result := SmtpCli1.Mail;
              SmtpCli1.Quit;
        end;
end;

procedure SendSMS;
begin
    if not SendSMSMailMessage(\'note.sonofon.dk\', \'20xxxxxx@note.sonofon.dk\', \'morten_s@the.net\', \'Alarm\', \'En eller anden besked\') then LogEnFejl;
end;

lasseh> hvor finder jeg den pågældende komponent ?

http://overbyte.alexid.fr/frame_index.html under ICS !

Snowball

jeg kan se at der i D6 under fastnet følger en komponent med
som hedder NMSMPT kan den bruges, nogen som har erfaring ?

Ja, men så brug hellere IdSMTP under Indy Clients da den efter sigende skulle være lidt bedere :)

Snowball

Jeg har lavet et program med følgende kode

procedure TForm1.Button1Click(Sender: TObject);

Function SendSMSMailMessage(MailServer, MailTo, MailFrom, MailSubject, MailMsg: string):boolean;
begin
    Result                    := False;
    SmtpCli1.Host            := MailServer;
    SmtpCli1.Port            := \'smtp\';
    SmtpCli1.FromName        := MailFrom;
    SmtpCli1.RcptName.Text    := MailTo;
    SmtpCli1.HdrSubject      := MailSubject;
    SmtpCli1.MailMessage.Text := MailMsg;

    {if SmtpCli1.Connect then
        begin
              Result := SmtpCli1.Mail;
              SmtpCli1.Quit;
    end; }
    end;
begin
SendSMSMailMessage(\'note.sonofon.dk\', \'229169xx@note.sonofon.dk\', \'morten_s@the.net\', \'Alarm\', \'En eller anden besked\');
end;

som du kan se har jeg været nødt til at fjerne

  {if SmtpCli1.Connect then
        begin
              Result := SmtpCli1.Mail;
              SmtpCli1.Quit;
    end; }
 

fra koden, det kan ikke compileres ?
SmtpCli1.Connect metoden findes ikke, det er måske mit problem ?


når jeg trykker på button1 er der ingen aktivitet på mit kabel modem ?

skal der sættes noget mere op først, et client komponent som forbinder
til inet eller ????

end.

Hvis nogen har noget færdig kode til at sende mail via Indy component
modtages det også gerne ;-))