| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Отправить данные из формы

Страницы:   < 1 2 >

Муслик ©   (2008-06-18 10:01:00) 

Скажите пожалуйста как передать из программы текст в Internet Explorer точнее есть форма отправки сообщение (гостевая книга) вот мне из программы делфи нужно передать в <input type=text> текст

---

Муслик   (2008-06-19 13:49:00) [1]

Скажите у кого нить этот пример работает?

---

Муслик   (2008-06-19 13:20:00) [2]

Стоп... то был неправильно скопирован коддд! цикл который вы написалии он существует но всё равно не работает код

---

McSimm   (2008-06-19 13:13:00) [3]

наверное вам надо разобраться в своем коде или копировать чужой внимательнее (и все равно разобраться в нем)

предположу, что
ovElements := Document.forms.Item(m).elements;
for i := 0 to ovElements.Length - 1 do
begin

---

Муслик   (2008-06-19 13:10:00) [4]

и как его реализовать? чёт я непонял

---

McSimm   (2008-06-19 13:09:00) [5]

не хватает еще одного цикла.
после
ovElements := Document.forms.Item(m).elements;

блок begin - end это должен быть телом еще одного цикла со счетчиком i

---

Муслик   (2008-06-19 13:07:00) [6]

или может чтото я не правильно пнял

---

Муслик   (2008-06-19 13:04:00) [7]

Ну так правльно! если поставить i то будит ошибка

---

palva   (2008-06-19 12:05:00) [8]

У вас счетчик цикла m, а в теле вы используете переменную i.

---

Муслик   (2008-06-19 11:24:00) [9]

никакого решения этому нет?

---

Муслик   (2008-06-19 10:11:00) [10]

скажите пожалуйста, вот код, почему ничего не происходит почему данные не добавляются в форму?

webbrowser1.navigate("www.ya.ru")

и


var
 hIE: HWND;
 ShellWindow: IShellWindows;
 WB: IWebbrowser2;
 spDisp: IDispatch;
 IDoc1: IHTMLDocument2;
 Document: Variant;
 k, m: Integer;
 ovElements: OleVariant;
 i: Integer;
begin
 ShellWindow := CoShellWindows.Create;

 for k := 0 to ShellWindow.Count do
 begin
   spDisp := ShellWindow.Item(k);
   if spDisp = nil then
     Continue;
   
   spDisp.QueryInterface(iWebBrowser2, WB);

   if WB <> nil then
   begin
     WB.Document.QueryInterface(IHTMLDocument2, iDoc1);
     if iDoc1 <> nil then
     begin
       WB := ShellWindow.Item(k) as IWebbrowser2;
       begin
         Document := WB.Document;

       
         for m := 0 to Document.forms.Length - 1 do
         begin
           ovElements := Document.forms.Item(m).elements;
         
           begin
           
             try
               if (CompareText(ovElements.item(i).tagName, 'INPUT') = 0) and
                 (CompareText(ovElements.item(i).type, 'text') = 0) then
               begin
                 ovElements.item(i).Value := 'FindWindow';
               end;
             except
             end;
           
             try
               if (CompareText(ovElements.item(i).tagName, 'INPUT') = 0) and
                 (CompareText(ovElements.item(i).type, 'SUBMIT') = 0) and
                 (ovElements.item(i).Value = 'Search') then
                 
               begin
                 ovElements.item(i).Click;
               end;
             except
             end;
           end;
         end;
       end;
     end;
   end;
 end;


---

Муслик   (2008-06-18 11:31:00) [11]

блин! как всегда спешу... отправка произошла успешно

---

Муслик   (2008-06-18 11:30:00) [12]

Извеняюсь... прокси не там поставил ... но ошибку теперь не выдаёт... зато ничего не отправляет

---

Муслик   (2008-06-18 11:28:00) [13]

создал запрос для отправки данных
ar
 send_post: TStringList;
begin
send_post:= TStringList.Create; //Òóò áóäåò POST çàïðîñ
send_post.add('session=0fb42726948bbd8e93ca9f37b1316821'); //Ïåðåìåííûå
send_post.Add('IsPublic=1');
send_post.Add('act=');
send_post.Add('ChatFilter=0');
send_post.Add('mesg=test');
send_post.Add('whisper=');
send_post.Add('clr_to=on');
send_post.Add('style_i=');
send_post.Add('user_color=20');
send_post.Add('tr=off');
idHTTP1.Post(' http://www.xchat.ru/sender.php', send_post);
send_post.Free;
exit;

выдаёт ошабку Соект еррор 10049

---

Palladin   (2008-06-18 10:53:00) [14]

Ну где нибудь да есть. Поискать сложно?

---

Муслик   (2008-06-18 10:51:00) [15]

Ну до этого не дошло.
А есть примеры по работе с передачей данных в форму IE

---

Palladin   (2008-06-18 10:49:00) [16]

) понятно, и по колесам пинал, и по рулю бил...

---

Муслик   (2008-06-18 10:47:00) [17]

Да пробовал с этим компонентом я боротся и читал много про него но никак не получается

---

Palladin   (2008-06-18 10:44:00) [18]

TIdHTTP

---

Муслик   (2008-06-18 10:32:00) [19]

Скажите с каким компонентом нужно работать

---

Муслик   (2008-06-18 10:12:00) [20]

Нет это не в целях флуда это для удобства точнее для своего скрипта!

---

Страницы:   < 1 2 >

Наверх