[akapel]

Вот решил написать типа аськи для контакта,чтобы когда мне сообщение приходило оно всплывало как у аськи.Но вот в чем проблема входящий я запрос обработать смог,а как исходящий сделать.Не могу заполнить форму для ответа.Надо чтобы пишешь в edit и нажимаешь отправить она автоматически заполнялись в tWEBbrowser все поля.

Код:

1 2 3 4 5 6

<tr>         <td class="label">Тема:</td>         <td>          <input maxlength="128" class='inputText' autocomplete='off' type="text" name='title' id='title' style='width: 250px;' value="Re(44):  ВОТ ЗДЕСЬ МОЖНО ЗАМЕНИТЬ ТЕМУ(НО ЭТО НЕ ВАЖНО)..." size=35>         </td>        </tr>

Здесь надо как то автоматически заполнить поле с сообщением

Код:

1 2 3 4 5 6 7 8

<tr class="tallRow">   <td class="label">Сообщение:</td>   <td>    <textarea onkeypress="utils.submit(event, ge('postMessage'), this.value)" onkeyup="utils.checkTextLength(4096, this.value, ge('textWarn'))" name="message" id="messageBody" rows="6" style="width: 250px;"></textarea><br/>   <div id="textWarn" style="text-align:left; color:#666666;margin:5px 0px;display:none;width:250px;"></div>  </td>  </tr> </table>

Вот я не могу разобраться как автоматически заполнить поля в этом месте.Уже перерыл весь инет все пишут про метод POST,но ниче конкретного найти не смог.

[akapel]

как всегда я сам разобрался,воспользовался этим кодом

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

procedure TForm1.Button3Click(Sender: TObject); var ovElements: OleVariant;     i,len: Integer;     name,tp:string;     idLogin,idPass,idButton:integer; begin  ovElements := WebBrowser1.OleObject.Document.forms.item(0).elements;  len := ovElements.Length;  for i:=0 to (len-1) do   begin    name := ovElements.item(i).Name;    tp := ovElements.item(i).type;    if ( name = 'title') and ( tp = 'text') then idLogin := i;    if ( name = 'message') {and ( tp = 'messageBody')} then idPass:=i;    if ( name = 'submit') and ( tp = 'submit') then idButton := i;   end;  ovElements.item(idLogin).value := 'Привет';  ovElements.item(idPass).value := '502311';  ovElements.item(idButton).Click; end;

Admin: Пользуемся тегами!