Тема: Delphi

POST запрос через Delphi

procedure TForm1.Button1Click(Sender: TObject);
var
LoginInfo: TStrings;
Response: TStringStream;
begin
LoginInfo := TStringList.Create;
Response := TStringStream.Create('');
LoginInfo.Clear;
LoginInfo.Add('login=***);
LoginInfo.Add('pass=***');
LoginInfo.Add('login_omen=1');
LoginInfo.Add('submiter=ok');
LoginInfo.Add('ok=ok');

IdHTTP1.Post('http://stat.datasvit.ks.ua/login.php',LoginInfo, Response);
Memo1.Lines.Add(Response.DataString);
Response.Free;
LoginInfo.Free;
end;

Выдаёт ошибку, не могу разобраться:

Говорят мол ошибся адресом.

читай ртфмы к библиатеке Инди тут http://www.indyproject.org/index.en.aspx.
используй правильный пратакол передачи данных тут

Код:

IdHTTP1.Post('http://stat.datasvit.ks.ua/login.php',LoginInfo, Response);

читай наказание за взлом серверов датасвита тут http://server/index.php?option=com_c...d=15&Itemid=44

Сообщение от blex

читай наказание за взлом серверов датасвита тут http://server/index.php?option=com_c...d=15&Itemid=44

А чё за взлом я ж ему ничего не делаю

Сообщение от freeman

) Но двигаешься в сторону брута (перебора) паролей на аккаунты ;)

Не собираюсь я перебирать пароли к аккаутам, я для себя делаю, и администрация в курсе...

Сообщение от blex

используй правильный пратакол передачи данных тут

Код:

IdHTTP1.Post('http://stat.datasvit.ks.ua/login.php',LoginInfo, Response);

Самое интересное что если как в примерах стоит путь _http://www.limpa.ru/login.php то функция работает, что-то возвращаяет, но вот если поменять сразу ошибку выбивает :(

Сообщение от freeman

Хочешь узнать в чём трабла???
Дело в том, что на stat.datasvit.ks.ua надо заходить по закриптованному http протоколу. Дело элементарно в одной букве IdHTTP1.Post('httpS://stat.datasvit.ks.ua/login.php',LoginInfo, Response);

хтмл кодом я уже сделал, вот пытаюсь перенести в делфу...
Э не, оно все-равно не хочет, но ошибка уже другая:
Когда по инету рысачил где-то видел, надо было дописать, но уже забыл...