Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > Помогите разобраться GET и POST запрос сайту!

Автор: Nik9 24.6.2006, 23:39

Народ вот у меня стоит чат http://xakepy.xost.ru/, как мне програмно на делфе сделать что - бы определенный ник заходил, вставлял сообщение и сразу уходил! Может кто покажет пример?... Заранее вам благодарен!

Автор: Paranoik 24.6.2006, 23:41

Используй idHTTP... smile

Автор: Nik9 24.6.2006, 23:52

Цитата(Paranoik @ 24.6.2006, 23:41)

Используй idHTTP... smile

Ты код можешь дать???

Автор: Sunr1se 25.6.2006, 09:56

Конкретный запрос не напишу, а вот заготовку - пожалуйста:
POST:

Код


procedure TForm1.Button1Click(Sender: TObject);
var
  PostRequest: TStrings;
begin
  IdHTTP1.Request.URL := 'http://xakepy.xost.ru/';  //здесь надо указать полный адрес к скрипту, который должен получить этот запрос
  IdHTTP1.Request.Method := hmPost;
  IdHTTP1.Request.ContentType := 'application/x-www-form-urlencoded';  //в принципе можно и не вводить, так как это значение стоит по умолчанию
  PostRequest := TStringList.Create;
  PostRequest.Add('a=10&b=20&c=30');  //тело запроса. вместо 'a=10&b=20&c=30' введи свои данные.
  IdHTTP1.Request.ContentLength := Length(PostRequest.Strings[0]);
  IdHTTP1.Post('http://xakepy.xost.ru/', PostRequest);  //здесь тоже нужен полный адрес
  PostRequest.Free;
end;

GET:

Код


procedure TForm1.Button2Click(Sender: TObject);
begin
  IdHTTP1.Get('http://xakepy.xost.ru/SomeScript.php?a=10&b=20&c=30');  //http://xakepy.xost.ru/SomeScript.php - это адрес к скрипту, который получит запрос. после знака "?" вместо 'a=10&b=20&c=30' введи свои данные
end;

Автор: Nik9 25.6.2006, 11:00

Блин объясни поподробней!!! Я чтот неразберусь! Напиши как можно сделать запрос к моему чату т.е куда что писать!!! Плизз smile

Автор: Демо 25.6.2006, 12:55

Вообще-то, этот вопрос для конференции "Сети".

Вот тебе ответ, после реализации задавай конкретные вопросы:

Вопрос: Как заполнить форму и отправить на сервер?

Для того, чтобы отправить форму на сервер, необходимо:

1. Найти форму в исходном тексте страницы.
Для этога найти в исходном тексте страницы теги <form>...</form>

Например:

Код


<form method=GET action=http://localhost/cgi-bin/mget?>
<input type=text name=name1 value="имя" size="40" maxlength="20"><br>
<input type=text name=name2 value="фамилия" size="40" maxlength="20"><br>
<input type=submit>
</form>

2. Определить метод, который используется для отправки данных. В указанном выше примере это "GET" - form method=GET

3. Найти поля, которые необходимо заполнить.

В примере это:

Код


<input type=text name=name1 value="имя" size="40" maxlength="20"><br>
<input type=text name=name2 value="фамилия" size="40" maxlength="20"><br>

4. Используя компоненты для работы с протоколом TCP/IP, сформировать строку запроса.
Для определенности пусть это будет компонент TIdHTTP из пакета Indy, входящий в стандартный набор компонент Delphi.
--------------

Сформируем строку для отправки на сервер для нашего примера:

Пусть нам нужно отправить значениядля полей: имя=Vasya, фамилия=Pupkin.

В этом случае запрос будет выглядеть так:

Код


var
  s: String;
begin
  s := IdHTTP1.Get('http://localhost/cgi-bin/mget?name1=Vasya&name2=Pupkin')

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

В случае, если форма использует метод POST:

Код


<form method=POST action=http://localhost/cgi-bin/mget?>
<input
 type=text name=name1 value="имя" size="40" maxlength="20"><br>
<input type=text name=name2 value="фамилия" size="40" maxlength="20"><br>
<input type=submit>
</form>

формируем запрос для отправки несколько по-другому:

Код


var
  tL: TStringList;
  s: String;
begin
  tL := TStringList.Creat
e;
  tL.Add('name1=Vasya');
  tL.Add('name2=Pupkin');
  try
    s := IdHTTP1.Post('http://localhost/cgi-bin/mget',tL);
  finally
    tL.Free;
  end;

Автор: Paranoik 25.6.2006, 12:58

Короче разъяснили уже, лучше некуда...
Тока запускай делфу и делай)) smile

... не, я серьезно) после ответа Sunr1se'а уже было все понятно....

Автор: Nik9 25.6.2006, 20:45

Блин вы можете написать код как будет выгледет на моем чате??? Когда аходит ник отпраляет сообщение и выходит, что тяжело написать я не пойму... Заранее вам благодарен напишите... smile

Автор: Yanis 25.6.2006, 21:13

Цитата(Nik9 @ 25.6.2006, 21:45

)

что тяжело написать я не пойму

Что тяжело так прочитать, что тебе написали? Попробуй разобраться сам.

Автор: Демо 25.6.2006, 21:44

Цитата(Nik9 @ 25.6.2006, 20:45

)

Блин вы можете написать код как будет выгледет на моем чате???

С какой стати?
Возьми и напиши.
Для написания за тебя программ на сайте есть Центр Помощи, где ты можешь попросить это сделать.

Автор: Yanis 25.6.2006, 21:49

Цитата(Демо @ 25.6.2006, 22:44

)

Для написания за тебя программ на сайте есть Центр Помощи, где ты можешь попросить это сделать.

Но более качественно тебе сделают в разделе "Работа".

Автор: Sunr1se 26.6.2006, 09:27

Nik9, ты скажи, какие данные нужно отправлять в запросе, а я тебе готовый код предоставлю. Т.к. откуда я могу знать, как работает этот чат smile

Автор: Nik9 26.6.2006, 13:28

Цитата(Sunr1se @ 26.6.2006, 09:27)

Все разъесняю тепе по порядку.... смотри.
Главная строница моего чата http://xakepy.xost.ru/index.php,на ней заполняются поля Введите ник и полепароль, но он необязательный,так затем я ввожу ник и захожу в чат,далее куда зашол в урл отображается http://xakepy.xost.ru/chat.php, фрейм от куда отправляются сообщения называется sender_visible.php, а фрейм куда всталяются сообщения назывется js_writer.php, но они (фреймы) с сессиями... что еще??? мож че забыл?

Автор: Sunr1se 27.6.2006, 09:37

Нет... найди, пожалуйста, на странице теги <form> и </form>, и напиши здесь все, что находится между ними. Как говорил Демо. Вот пример, взято с этой страницы:

Код


<form action="http://forum.vingrad.ru/index.php?" method="post" name="search"><p class="inline_p">
<input type="hidden" name="forums" value="142" />
<input type="hidden" name="cat_forum" value="forum" />
<input type="hidden" name="act" value="Search" />
<input type="hidden" name="joinname" value="1" />
<input type="hidden" name="CODE" value="01" />
<span>Поиск: </span><input type="text" size="20" name="keywords" class="forminput" value="Введите слово"
onfocus="if (this.value == 'Введите слово') this.value = '';"
onblur="if (this.value == '') this.value = 'Введите слово';" /><input
type="submit" value="Go" class="forminput" /></p>
</form>

Автор: Nik9 27.6.2006, 12:48

На главной странице между тегами <fofm> <form> находиться такой
код

Код


<form action="http://xakepy.xost.ru/chat.php" method="POST" target="_parent">
<input type="hidden" name="user_lang" value="ru">
<tr><td rowspan="2" valign="top" width="250">


</td><td rowspan="2"></td>
<td valign="top">
<table>
<tr><td>Введите Ваш ник: </td><td><input type="text" name="user_name" size=15 value="123" class="input" tabindex="100"></td><td> &nbsp; <input type="Submit" value="&nbsp;Login&nbsp;" class="input" tabindex="105"></td></tr>
<tr><td colspan="3"><small>(Ник должен быть длиной от 3 до 15 символов<br> и может содержать буквы английского алфавита и знак _)</small></td></tr>
<tr><td>Пароль: </td><td><input type="password" name="password" size=15 value="" class="input" tabindex="101"></td><td>&nbsp;</td></tr>
<tr><td colspan="3"><small>(только для зарегистрированных пользователей)</small></td></tr>

</select>
</td><td>&nbsp;</td></tr>
<input type="hidden" name="design" value="hi-tech">
</table>
</td></tr>

</form>

А что находиться между тегами <form></form>, когда заходишь в сам чат надо писать???