VPF::POST-запрос на livejournal.com - Форум программистов

Sunr1se

Дата 13.5.2006, 18:38 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 193
Регистрация: 1.5.2006

Репутация: нет
Всего: 13

Необходимо из Delphi отправить POST-запрос на LiveJournal.com. Я написал такой код:

Код


procedure TForm1.Button1Click(Sender: TObject);
var Post: TStrings;
begin
IdHTTP1.Request.URL := 'www.livejournal.com';
IdHTTP1.Request.Method := hmPost;
IdHTTP1.Request.ContentType := 'application/x-www-form-urlencoded';
Post := TStringList.Create;
Post.Add('mode=postevent&user={username}&auth_method=clear&auth_response=&allowmask=&auth_challenge=&password={pass}&lineendings=pc&year=2006&mon=05&day=14&hour=11&min=10&subject=test&event=Testtesttest');
IdHTTP1.Request.ContentLength := Length(Post.Strings[0]);
Edit4.Text := IdHTTP1.Post('http://www.livejournal.com/interface/flat', post);
end;

Однако в ответ я получаю такое сообщение:

Цитата

errmsg
Client error: No username sent.
success
FAIL

В чем проблема?
Зараннее благодарен.

--------------------

IRC-канал Винграда

Poseidon

Дата 13.5.2006, 19:40 (ссылка)

(нет голосов)

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 4
Всего: 133

Демаю что в 9 строчке нужно не username и pass использовать, а реальные имя пользователя и пароль

Ну это так, на вскидку

--------------------

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

Sunr1se

Дата 13.5.2006, 19:54 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 193
Регистрация: 1.5.2006

Репутация: нет
Всего: 13

Я вместо настоящего имени и пароля вставил {username} и {pass}. Не показывать же мне здесь свой пасс smile

. Да и логин тут не нужен.

Это сообщение отредактировал(а) Sunr1se - 13.5.2006, 19:56

--------------------

IRC-канал Винграда

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Сети \| Следующая тема »