Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ]
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 30.11.2010, 23:14
crea crea вне форума
Прохожий
 
Регистрация: 24.11.2010
Сообщения: 5
Репутация: 10
По умолчанию как обработать onSubmit="return checkform(this)"

Доброго время суток
Помогите пожалуйста!
надо отправить запрос через TIdHttp на
Код:
<FORM id="entryform" name="entryform"  method="post" onSubmit="return checkform(this)">
<input name="title" type="text" value="" size="60" required>
<select name="cat" required>
  <option value=""  selected></option>
  <option value="1" >Софт</option> 
  <option value="2" >Музыка</option> 
  <option value="3" >Видео</option> 
  <option value="4" >Игры</option>
  <option value="5" >Юмор</option> 
  <option value="6" >Мобильный</option> 
  <option value="7" >Другие новости</option>
  <option value="8" >Креатив</option> 
  <option value="9" >Книги и видеоуроки</option> 
  <option value="10" >Сериалы</option>              
</select>

<textarea  name="text" rows="25" id="text" style="width: 100%; "  required></textarea>

<input name="link" type="text" size="50" value="">				

<input checked type="checkbox" value="1" name="com" >

<input type="submit" value="отправить" name="add" >

<input type="button" value="предосмотр" onClick="preview();">				
</form>
код сильно упрощено так как оригинал много занимает места если надо оригинал то он здесь
отправляю так
Код:
 
procedure TForm1.startBtnClick(Sender: TObject);
var
  S: string;
  M: TStringStream;
  Data: TStringList;
begin 
  M := TStringStream.Create('');
  Data := TStringList.Create;
  Data.Add('uname=****');
  Data.Add('pass=****');
  LoginHTTP.Post('******/login.php', Data,m);
  data.Clear;
  m.Clear;
  data.Add('title=Title123');
  data.Add('cat=2');
  data.Add('text=asdfghyrwew');
  data.add('link=ffdsss.ru');
  data.add('com=1');
  data.add('add=отправить');
  LoginHTTP.Post({!!!!!куда!!!!!!}, Data,m);
  
  M.Free;
  Data.Free;
end;
я не могу понять куда мне отправлять последний запрос.
пробовал на return checkform(this) но как я и думал ничего не случилось...
Роботаю в Delphi 2010. Indy родные.
Ответить с цитированием
  #2  
Старый 01.12.2010, 09:07
Аватар для NumLock
NumLock NumLock вне форума
Let Me Show You
 
Регистрация: 30.04.2010
Адрес: Северодвинск
Сообщения: 5,426
Версия Delphi: 7, XE5
Репутация: 59586
По умолчанию

нужно искать где форме "entryform" назначается действие "action". в функции "checkform(this)" нет? а onSubmit="return checkform(this)" всего лишь проверяет правильность передаваемых данных: false отменяет отправку, любое другое значение разрешает.
искать что-то типа: document.entryform.action='blablabla' к примеру.
__________________
Пишу программы за еду.
__________________
Ответить с цитированием
  #3  
Старый 01.12.2010, 18:29
crea crea вне форума
Прохожий
 
Регистрация: 24.11.2010
Сообщения: 5
Репутация: 10
По умолчанию

спасибо разобрался )))
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 10:44.


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2025