Delphi » FAQ » Sieć » Internet

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ż:

Internet

9 komentarzy

JC

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 ;)
WA

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

Ludomir

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

NE

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

WA

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

Ludomir

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

Wolverine

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

mitring

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