no wlasnie co to za blad?
korzystam z try except a i tak mi wywala
"invalid argument to date encode"
Input:= TStringStream.Create('');
Input.WriteString('login='+combobox3.Text+'&password='+labelededit3.Text+'&saveCookie=off');
if Checkbox1.Checked=true then flash:=1 else flash:=0;
if Checkbox2.Checked=true then raport:=30 else raport:=0;
if Checkbox3.Checked=true then archiwizuj:=1 else archiwizuj:=0;
nadanie:=TStringStream.Create('phoneNumber='+labeledEdit1.Text+'&message='+Memo1.Lines.Text+'&flashMessage='+IntToStr(flash)+'&userId=0&groupId=0&archiveMessage='+inttostr(archiwizuj)+'&smsType=10¬ifyCode='+inttostr(raport)+'&validity=48&sendDay=-1&sendHour=0&sendMin=0&templateCategory=0&templateText=1&targetURL=%2Fsms%2Fsend_sms.jsp');
odbior:=TStringStream.Create('');
output:=TStringStream.Create('');
IdHTTP1.Request.Referer:='http://www.miastoplusa.pl/minimal/login.jsp';
IdHTTP1.Request.ContentType:='application/x-www-form-urlencoded';
try
IdHTTP1.Get('http://www.miastoplusa.pl/minimal/frameset.jsp');
IdHTTP1.Post('http://www.miastoplusa.pl/auth/LoginCitizen.do',input,output);
IdHTTP1.Get('http://www.miastoplusa.pl/index.jsp',output);
except on Exception do
begin
ShowMessage('Nie udalo sie wyslac SMSa.');
nadanie.Free;
odbior.Free;
Input.Free;
end;
end;
i to nie tylko w tym kodzie mi wywala probowalem pisac bramke do idei i to samo :(
ktos wie moze o co biega?