[akapel]

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

Код:

<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>

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

Код:

       <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]

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

Код:

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: Пользуемся тегами!