Mam problem z wyslaniem smsa, kozystajac z IdHTTP.Post.... Najgorsze jest to, ze niewiem do konca na jakiej zasadzie dziala POST w indy... Bylbym wdzieczny za poprawienie bledow.
O to zrodlo:
procedure TForm1.Button1Click(Sender: TObject);
var
odbior,nadanie:TStringStream;
Begin
odbior:=TStringStream.Create('');
nadanie:=TStringStream.Create('');
nadanie.WriteString('login='+'moj_login'+'&haslo='+'moje_haslo');
IdHTTP1.Request.ContentType:='application/x-www-form-urlencoded';
try
IdHTTP1.Post('http://www.miastoplusa.pl/auth/LoginCitizen.do', nadanie, odbior);
if pos('Zalogowany jako',odbior.DataString)=0 then ShowMessage('Zalogowano!') else begin ShowMessage('Niezalogowano!');exit;end;
nadanie.free;
odbior.free;
except
exit;
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
var
nadanie2,odbior2:TStringStream;
begin
nadanie2:= TStringStream.Create('');
odbior2:= TStringStream.Create('');
IdHTTP1.Request.ContentType:='application/x-www-form-urlencoded';
nadanie2.WriteString('phoneNumber=607xxxxxx&smsType=10&userId=0
&groupId=0&message=test&preview=MiastoPlusa,+n4p1:+test
¬ifyCode=0&validity=48&sendDay=-1&sendHour=0&sendMin=0
&flashMessage=0&templateCategory=0&ArchiveMessage=1
&targetURL=%2Fsms%2Fsend_sms.jsp');
try
idHTTP1.Post('http://www.miastoplusa.pl/sms/SendSMS2.do', nadanie2, odbior2);
if pos('przekazany',odbior2.DataString)=0 then ShowMessage('Wyslano SMS!') else begin ShowMessage('Niewyslano SMS!');exit;end;
nadanie2.free;
odbior2.free;
except
exit;
end;
end;
// proszę, róbcie złamania linii, bo inaczej okropnie strone rozwala.