Witam. Próbuję napisać program wysyłający smsy ale coś niezbyt mi idzie. Niby kod ok, kompiluje się ładnie i wysyła, ale jednak sms nie dochodzi. Próbowałem kod bramki z FAQ na stronie to nie działa bo jak wpiszę IdHTTP1 zamiast IdHTTP(a mój komponent ma nazwę IdHTTP1) to w ogóle nie znajduje, a jak zostawię IdHTTP mimo innej nazwy komponentu to ma problemy z ropoznaniem co to jest Reqeust i Post(IdHTTP.Request i IdHTTP.Post). Lekko zmodyfikowałem kod, aby spróbować wysłać smsa przez bramkę logosika i wpisałem tak(nie podaję tutaj VARów, bo vary dobrze na pewno wpisałem):
nadanie:=TStringStream.Create('');
nadanie.WriteString('&tel='+Numer+
'&nick='+Nadawca+
'&era_login='+Login+
'&era_haslo='+Haslo2+
'&tekst='+Tekst);
Numer:=Edit1.Text;
Nadawca:=Edit2.Text;
Tekst:=Edit3.Text;
Login:=Edit7.Text;
Haslo2:=Edit8.Text;
IdHTTP1.Request.contenttype:='application/x-www-form-urlencoded';
IdHTTP1.Post('http://www.logosik.pl/dev/send.php', nadanie);
nadanie.free;
Zarówno do Plusa jak i do Ery niby wysyła ale smsy nie dochodzą do żadnej z komórek w żadnej z tych sieci. Próbowałem też wykorzystać bramkę plusa www.text.plusgsm.pl/sms ale tam też niby sms dochodzi bo jest komunikat SMS DOSTARCZONO w moim programie ale też nie dochodzi jednak. Do tej bramki Plusa próbowałem taki kod:
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 Begin ShowMessage('Problemy z połączeniem!!!')end;end;
if pos('Twoja wiadomo?ć została wysłana',odbior.DataString)=0 then ShowMessage('SMS DOSTARCZONY') else begin ShowMessage('SMS NIEDOSTARCZONY');exit;end;
nadanie.free;
odbior.free;
end;
Poza tym próbowałem wykorzystać też bramkę Ery ale i tutaj nie poszło(próbowałem kod podobny tylko wpisywałem dane na podstawie tej strony http://www.eraomnix.pl/pl/between-us/send-sms-mms/sms_gateway_api). W ogóle jak wpiszę ten adres http://www.eraomnix.pl/pl/between-us/send-sms-mms/sms_gateway_api to wywala błąd na stronie i w adresie widać, że kod błędu to 5 czyli błąd składni. Czy może mi ktoś pomóc? Oczywiście szukałem na forum ale nic interesującego nie znalazłem, zresztą mało jest tematów o smsach w Delphi.
Problem rozwiązany.