Проблема с передачей данных методом POST через TWebBrowser

← →
Aiden © (2008-09-24 14:00) [0]

Имеется 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);
Проблема в том что данные не передаются (точней не происходит переход на следующую страницу, обновляется уже имеющаяся). ПОдскажите, пожалуйста, в чем может быть проблема?

← →
its_me (2008-11-18 18:50) [1]

Проблема с передачей данных методом POST через TWebBrowser Найти похожие ветки