Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ]
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 09.06.2009, 07:06
akapel akapel вне форума
Прохожий
 
Регистрация: 01.06.2009
Сообщения: 16
Репутация: 10
По умолчанию Месенджер для контакта

Вот решил написать типа аськи для контакта,чтобы когда мне сообщение приходило оно всплывало как у аськи.Но вот в чем проблема входящий я запрос обработать смог,а как исходящий сделать.Не могу заполнить форму для ответа.Надо чтобы пишешь в 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, 09.06.2009 в 11:01.
Ответить с цитированием
  #2  
Старый 09.06.2009, 09:41
akapel akapel вне форума
Прохожий
 
Регистрация: 01.06.2009
Сообщения: 16
Репутация: 10
По умолчанию

как всегда я сам разобрался,воспользовался этим кодом
Код:
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: Пользуемся тегами!

Последний раз редактировалось Admin, 09.06.2009 в 10:25.
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 13:10.


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2025