Jak wysłać SMS-a do sieci PlusGSM

wasyl
procedure PlusSMS(Numer, Nadawca, Data, Godz, Min, SMS: String);
var Odbior, Nadanie: TStringStream;
begin
  Odbior := TStringStream.Create('');
  Nadanie := TStringStream.Create('');
 
  Nadanie.WriteString(
    'tprefix=' + Copy(Numer, 0, 3) +
    '&numer='  + Copy(Numer, 4, 6)+
    '&odkogo=' + Nadawca +
    '&dzien='  + Data + 
    '&godz='   + Godz + 
    '&min='    + Min + 
    '&tekst='  + SMS);
  IdHTTP.Request.ContentType := 'application/x-www-form-urlencoded';
 
  try
    IdHTTP.Post('http://www.text.plusgsm.pl/sms/sendsms.php', Nadanie, Odbior);
  except 
    on Exception do ShowMessage('Problemy z Połączeniem!!!');
  end;
 
  if Pos('Twoja wiadomo?ć została wysłana', Odbior.DataString) <> 0 then
      ShowMessage('SMS DOSTARCZONY') 
    else
      ShowMessage('SMS NIEDOSTARCZONY');
 
  Nadanie.free;
  Odbior.free;
end;

Zobacz też:

9 komentarzy

Zamieńcie

 if pos('Twoja wiadomo?ć została wysłana',odbior.DataString)<>0 then

na if pos('Twoja wiadomo?ć została wysłana',odbior.DataString)=0 then



Pozdrawiam ;)

neomario - mylisz sie :]
Ludomir - To wysyla przez bramke plusa, wiec sa obowiazujace tamtejsze ograniczenia...

a moge tym wysłać powiedzmy 100 sms na raz?

hehe, wasyl, cos mi mowi ze czytales artykul "Monopol jest OK" z CHIP Luty 2002.... :D:D:D chociaz moze sie myle ;) :D:D:D

No, na forum. A wskazowki sa chyba czesciej przegladane niz forum.

tyle razy było wałkowane na forum... przecież jesteśmy na 4p!

No, na forum. A wskazowki sa chyba czesciej przegladane niz forum.

raczej ani to ani to nie jest przegladane, na forum wlazi sie czesciej, zeby zadac pytanie, chociaz tu nieraz tez sie zadaje :D

Napisz jeszcze jak wyslas sms do Ery i Idei :D -=- Pozdrowionka...