Jest mały problemik z wysłaniem sms'a przez Delphi
Wykorzystuje serwis http://sms.ikp.pl/ (NIE, JA GO NIE REKLAMUJE TYLKO JEST TO SCISLE ZWIAZANE Z PROBLEMEM), na podstawie przegladu kodu źródłowego strony napisałem coś takiego:
procedure TForm1.wyslijsmsClick(Sender: TObject);
var Recv,Snd : TStringStream;
beginRecv := TStringStream.Create('');
Snd := TStringStream.Create('');Snd.WriteString(Format('status=%s&siec=%s&nr=%s&number2=%s&tresc=%s&od=%s&wapacz=%s',['send', siec.Text,
, numer.Text, html.Text, od.Text,
]));;try
HTTP.Post('http://sms.ikp.pl/',Snd,Recv);
except
ShowMessage('Blad polaczenia !!!');
end;Recv.Free;
Snd.Free;
HTTP.Disconnect;end;
Komponent HTTP to IdHTTP z Indy 9
I ten kod właściwie coś robi... ale sms nie dochodzi, limitu jeszcze nie przekroczyłem bo wysłałem 1 sms na początku i 1 po niedziałającym programie i wszystkie doszły. Co jest źle ??