na podstawie postu Piechnata z forum chciałem napisać program do wysyłania sms-ów do idei bo ten przdstawiony przez niego mi nie dzialał ( miejsca w których wyskakiwały błędy zaznaczyłem w kementarzach poniżej. czy ktoś mógłby powiedzieć czemu sms-y nie dochodzą-gdzie jest błąd? i jak to powinno wyglądać
dzięki
var
Odbior : TStringStream;
begin
Odbior := TStringStream.Create('');
IdHTTP1.Get('http://213.218.116.131/default_.aspx/',Odbior);
- Cookie := IdHTTP1.Response.ExtraHeaders.Text; * tu wyskakuje błąd wiec
// wstawiłem komentarz
Token := Odbior.DataString;
Odbior.Free;
Delete(Token, 1, Pos('rotate_token.aspx?token=', Token) - 1);
Token := Copy(Token, 1, 60);
WebBrowser1.Navigate('http://213.218.116.131/' + Token);
Delete(Token, 1, 24);
Delete(Cookie, 1, Pos('Set-Cookie: ', Cookie));
Cookie := Copy(Cookie, 12, Pos(';', Cookie) - 12);
end;
var
Nadanie , Odbior : TStringStream;
begin
Nadanie := TStringStream.Create('');
Odbior := TStringStream.Create('');
Nadanie.WriteString('token=' + Token +
'&RECIPIENT=' + Edit1.Text +
'&SHORT_MESSAGE=' + Memo1.Text +
'&SENDER=' + Edit3.Text +
'&pass=' + Edit2.Text);
// błąd gdy
// jest IdHTTP1.Request.ExtraHeaders.Add('Cookie: ' + Cookie);
IdHTTP1.Request.Referer := 'http://213.218.116.131/';
IdHTTP1.Request.ContentType := 'application/x-www-form-urlencoded';
IdHTTP1.Post('http://213.218.116.131/sendsms.aspx', Nadanie, Odbior);
Nadanie.Free;
Odbior.Free;
end;