|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
23.03.2012, 11:26 | #1 |
Пользователь
Регистрация: 20.03.2012
Сообщений: 27
|
Создание ставки
Помогите написать создание ставки. Вожусь с idhttp но ничего не выходит. Вод что я пишу:
procedure TForm1.Button2Click(Sender: TObject); var params,responseres:tstringlist; begin params:=TStringList.Create; responseres:=TStringList.Create; try params.Add('sum1='+Edit3.Text); params.Add('type=4'); responseres.Text:=idhttp1.Post('htt p://www.knb-game.com/?s=4&p=2',params); if Pos('Ставки сделаны',responseres.Text)>0 then Edit4.Text:=(Ставка размером' +Edit3.Text +'успешно создана!') else Edit4.Text:=('Ошибка.'); finally params.free; responseres.free; end; end; html код : <tr> <td class="td" align="left"> Ставка:</td> <td class="td" align="center"> <input type="text" name="sum1" title="sum12" value="1" size="14"/> <input type="hidden" name="rfs" title="rfs" value="4325538" size="10"/></td> <input type="hidden" name="num" value="1"/></td> </tr> <tr> <td class="td" align="left"> Предмет:</td> <td class="td" align="center"> <select name="type"> <option value="4">Случайно</option> <option value="1">Камень</option> <option value="2">Ножницы</option> <option value="3">Бумага</option> </select> </td> </tr> |
24.03.2012, 01:28 | #2 |
Пользователь
Регистрация: 20.03.2012
Сообщений: 27
|
немного по другому задам вопрос:
Есть код <input type="text" name="sum1" title="sum13" value="1" size="14"/> . Надо с помощью params.Add('тут чтобы в value="1" присвоить другое значение'); responseres.Text:=idhttp1.Post('htt p://www.knb-game.com/?s=4&p=2',params); значение value="1" менялось на другое и ставка создовалась |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Форвардные ставки VBA | Boris123 | Microsoft Office Excel | 0 | 11.12.2011 16:13 |
Добавить в тотализатор возможность делать ставки. | Николай1 | Помощь студентам | 0 | 21.11.2011 18:11 |
Создание внутреннего и внешнего серверов. Создание серверов автоматизации. | Ann_Sh | Помощь студентам | 3 | 09.10.2011 15:53 |
Расчет процентной ставки | Thorn | Microsoft Office Excel | 5 | 02.08.2011 16:01 |
Расчитать величину процентной ставки за период в MS Excel | Майесик | Помощь студентам | 0 | 26.06.2011 15:08 |