Jak odczytac kod bledu era omnix. Napisałem program na postawie "dostępu skryptowego" bramnki sponsorowanej omnix.
http://www.eraomnix.pl/pl/between-us/send-sms-mms/sms_gateway_api
Kod wyglada następująco
procedure Tform1.EraSponsored;
var
log:boolean;
login,passwd:string;
odbior,nadanie: TStringStream;
begin
IdHTTP1.RedirectMaximum:=1;
login:=logowanieErasponsored.Text;
passwd:=hasloEraSponsored.text;
IdHTTP1.Request.ContentType:='application/x-www-form-urlencoded';
try
Widok2.caption:='Wysylanie ...';
nadanie:=TStringStream.Create('message='+tekst.text+'&number='+numer.text+
'&password='+hasloerasponsored.text+'&login='+logowanieerasponsored.text+
'&failure=http://www.era.pl&success=http://www.interia.pl');
odbior:=TStringStream.Create('');
IdHTTP1.Post('http://www.eraomnix.pl/msg/api/do/tinker/sponsored',nadanie,odbior);
widok.Text:=odbior.DataString;
except
on Exception do begin
MessageDlg('Źle działająca bramka!',mtError,[mbOk],0);
end;
end;
nadanie.Free;
odbior.Free;
end;
<delphi>
Procedura wysyła smsa ale nie zwraca informacji o błędach'ilosci kredytów itd.(jak deklaruje w swoim opisie era omnix)
odbior jest pusty
Gdzie popełniam błąd??
</delphi>