Проблема с передачей данных методом POST через TWebBrowser [D7, WinXP]
Aiden © (2008-09-24 14:00:00)
Имеется 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:00) [1]
GB
Наверх 
ЧАТ |
Орешник |
|
