Люди тут проблема такая назрела:
Нада передовать скрипту на сервере данные типа логин,пароль,сайт,аська и т.д
Я для этого использую метод Post компанента TNMHTTP (Дельфя 6)
Но ничего у меня неполучается.
Посмотрел с помощью специальной проги как это делает ХТМЛ страница
Вот что показала прога:
Url:http://www.server.ru/phpBB2/profile.php?sid=eff213e8269595b0c6e0d85997c36eb1

PostData:username=Zlo-2&[email protected]&new_password=123&password_confirm=123&icq=268310&aim=&msn=&yim=&website=zlo-raspisanie.narod.ru&location=&occupation=&interests=&signature=%D0%E0%E7%F0%E0%E1%EE%F2%EA%E0+%EF%F0%EE%E3%F0%E0%EC%ED%EE%E3%EE+%EE%E1%E5%F1%EF%E5%F7%E5%ED%E8%FF%21&viewemail=0&hideonline=0&notifyreply=0&notifypm=1&popup_pm=1&attachsig=1&allowbbcode=1&allowhtml=0&allowsmilies=1&language=russian&style=1&timezone=3&dateformat=D+M+d%2C+Y+g%3Ai+a&mode=register&agreed=true&coppa=0&submit=%CE%F2%EF%F0%E0%E2%E8%F2%FC

Referer:http://www.server.ru/phpBB2/profile.php?mode=register&agreed=true

Насколько удалось выяснить неполучается нормально послать запрос из за третьей строки (Referer)
Народ помогите! как сделать чтоб с методом пост еще и отпровлять Referer?

Чет несовсем вопрос понял, но может быть вариант такой что

Цитата(Zlo @ 31.10.2004, 18:22)

Referer:http://www.server.ru/phpBB2/profile.php?mode=register&agreed=true

это есть метод GET и у меня есть сомнения что GET и POST могут работать вместе

К примеру, в TIdHTTP есть свойство Request, в нём можно поменять Referer
(IdHTTP1.Request.Refererer := 'http://www.server.ru/...т.д.')
Потом уже делаем IdHTTP1.Post (...);

Посмотри, может в NMHTTP есть подобное ?...

ЗЫ: реферер - это URL страницы, с которой происходит запрос...
(Т.е. на какой странице нажали линк, ведущий к твоей странице)...

А подскажите как с помощью компонента TIdHTTP послать вот такой запрос
username=Zlo-2&[email protected]&new_password=123&password_confirm=123&icq=268310&aim=&msn=&yim=&website=zlo-raspisanie.narod.ru&location=&occupation=&interests=&signature=%D0%E0%E7%F0%E0%E1%EE%F2%EA%E0+%EF%F0%EE%E3%F0%E0%EC%ED%EE%E3%EE+%EE%E1%E5%F1%EF%E5%F7%E5%ED%E8%FF%21&viewemail=0&hideonline=0&notifyreply=0&notifypm=1&popup_pm=1&attachsig=1&allowbbcode=1&allowhtml=0&allowsmilies=1&language=russian&style=1&timezone=3&dateformat=D+M+d%2C+Y+g%3Ai+a&mode=register&agreed=true&coppa=0&submit=%CE%F2%EF%F0%E0%E2%E8%F2%FC

пользуйся поиском:
http://forum.vingrad.ru/index.php?showtopic=31596

Хорошо,
допутим Процедура пост выглядит так

Код

Post(URL: string; const Source: TStrings; const AResponseContent: TStream);

так вот
Url - это адрес скрипта которому передаются данные, а что такое

Код

const Source: TStrings

и

Код

const AResponseContent: TStream

Скажите плиз!

IMHO в справке все понятно написанно:

Цитата

const Source: TStrings Object containing the request data. const AResponseContent: TStream Destination for response data.

Source - данные запроса.
AResponseContent - ответ с сервера (напр., html-страница или файл).

При методе Post в запрос к серверу еще входят дополнительные данные (Source).
Это может быть какой-то файл (для закачки на сервер).
Но можно и параметры передавать (не всегда), например так:

Код

var s : TStringList; begin  s := TStringList.Create;  s.Add('username=Zlo-2');  s.Add('[email protected]');  s.Add('new_password=123'); .. и т.д.  Memo1.Text := IdHTTP1.Post ('http://www.server.ru/phpBB2/profile.php', s);  s.Free; end;

А в твоём случае надо сделать так:

Код

var s : TStringList; begin  s := TStringList.Create;  Memo1.Text := IdHTTP1.Post ('http://www.server.ru/phpBB2/profile.php?username=Zlo-2&[email protected]&new_password=123...', s);  s.Free; end;

А если нет Post-данных, то проще так сделать:

Код

Memo1.Text := IdHTTP1.Get ('http://www.server.ru/phpBB2/profile.php?username=Zlo-2&[email protected]&new_password=123...');

_hunter
Блин еслиб в справке понял я б сюды неписал.
Ну что ты за человек.

p0s0l
Пасиба, очень подробненько, как раз для ламеров

p0s0l

Код

var s : TStringList; begin  s := TStringList.Create; Memo1.Text := IdHTTP1.Post ('http://www.server.ru/phpBB2/profile.php?username=Zlo-2&[email protected]&new_password=123...', s);  s.Free; end;

А зачем там s?
В нее наверно надо чтото записать, если да то что?

вопрос интересный
судя по записи, имелся в виду метод Get
и тогда достаточно такого:
Memo1.Text := IdHTTP1.Post ('http://www.server.ru/phpBB2/profile.php?username=Zlo-2&[email protected]&new_password=123...');

Zlo, а что именно ты не понял в справке?

_hunter
В справке?
Да там все на ангилйском, а у меня с ним неочень


p0s0l
Вот сделал как ты написал

Код

var s : TStringList; begin  s := TStringList.Create; Memo1.Text := IdHTTP1.Post ('http://www.server.ru/phpBB2/profile.php?username=Zlo-2&[email protected]&new_password=123...', s);  s.Free; end;

А дельфя говорит:
[Error] Unit1.pas(88): String literals may have at most 255 elements
Походу строка неможет быть больше 255 символов
И чего теперь делать?

именно поэтому создатели того сайта ( с которого форма ) решили использовать метод POST.
тебе остается делать то же самое

_hunter
Тоже самое это что?

использовать метод POST

немного модифицирую код p0s0l:

Код

var s : TStringList;      buffer: TStream;     begin  s := TStringList.Create;  s.Add('username=Zlo-2');  s.Add('[email protected]');  s.Add('new_password=123'); .. и т.д.  buffer = TMemoryStream.Create();  IdHTTP1.Post ('http://www.server.ru/phpBB2/profile.php', s, buffer);  buffer.Free();  s.Free; end;