Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Работа с сетью в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 21.09.2008, 21:11   #1
Aiden
Пользователь
 
Регистрация: 12.09.2007
Сообщений: 34
По умолчанию Проблема с передачей данных методом POST

Имеется такой HTML код:
Код:
<form action="/main.php?unit/create/592402" method="POST">
<table width="100%" align="center" class="list">
<tr class="odd" onmouseover="this.className = 'selected'"  onmouseout="this.className = 'odd'" onclick="checkFirstTrRadio(this)" >
 <td><input type="radio" name="unitCreateData[unit_class]" value="1815"  checked="1"  /></td>
<td><img src="view/new_design//img/unit_types/office.gif" /></td>
</tr>
		
<tr class="even" onmouseover="this.className = 'selected'"  onmouseout="this.className = 'even'" onclick="checkFirstTrRadio(this)" >
<td><input type="radio" name="unitCreateData[unit_class]" value="1885"   /></td>
<td><img src="view/new_design//img/unit_types/shop.gif" /></td>
</tr>
</table>
<table width="100%" class="buttonset">
<tr>
<td><input type="submit" class="button250" name="next" value="Продолжить >>" tabindex="1" /></td>
<td width="100%" align="right"><input type="submit" class="button205" name="cancel" value="Отменить" tabindex="3" /></td>
</tr>
</table>
</form>
Для передачи данных использую такой код:
Код:
PostData:='unitCreateData[unit_class]=1815';
URL1:=URL + '/main.php?unit/create/592402';
PostData := VarArrayCreate([0, Length(PostString) - 1], varByte);
    Data := VarArrayLock(PostData);
    try
      Move(PostString[1], Data^, Length(PostString));
    finally
      VarArrayUnlock(PostData);
    end;
    Flags := EmptyParam;
    TargetFrame := EmptyParam;
    Headers := 'Content-Type: application/x-www-form-urlencoded' + #10#13;
    Form1.WebBrowser1.Navigate2(URL1, Flags, TargetFrame, PostData, Headers);
Проблема в том что этот код не работает. Помогите советом плз.
Aiden вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

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

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Нужна помощь с передачей даных в процедуру programer_tang Общие вопросы Delphi 5 28.08.2008 10:14
Проблема с передачей куки arwm Работа с сетью в Delphi 7 28.12.2007 23:44
Проблема при редактировании данных GloomyVitek БД в Delphi 8 24.11.2007 18:54