Модераторы: Snowy, Poseidon, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Автоматическое заполнение поля на сайте, Заполнить поле материала на сайте Ucoz 
:(
    Опции темы
Tanter
Дата 8.9.2013, 12:33 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 8
Регистрация: 7.9.2013

Репутация: нет
Всего: нет
Всем доброго времени суток!
 На сайтах систему Ucoz есть возможность добавлять статьи, при добавлении статьи есть поля "Заголовок", "Краткое описание", "полный текст материала", "Теги" и т.д. Проблем с автоматическим заполнением "Заголовка", "Теги" не возникает, даже кнопку "Добавить" могу программно нажать.
  Заполнение происходит через компонент WebBrowser
  А проблема в "Краткое описание" и "Полный текст материала". В коде они, вроде как, таблицы и заполнить их не получается, подскажите, пожалуйста, как туда вставить текст из Memo.
 Посмотреть код странички добавления материала и потестировать добавление можно тут: http://scarystories.ucoz.ru/
 Но нужно зарегестрироваться, чтобы увидеть страничку. Или если лень, то воспользоваться этим:
 Логин: [email protected]
Пароль: 9td0ZcVf 
 
Для заполнения заголовка использовал вот такой код:

Код

procedure TForm2.Button3Click(Sender: TObject);
 var zag:variant;
begin
  zag:=webbrowser1.oleobject.document.getelementbyid('puF1');
  zag.value:= edit2.text;
  
end;


Это сообщение отредактировал(а) Tanter - 8.9.2013, 20:47
PM MAIL   Вверх
Illusion Dolphin
Дата 8.9.2013, 20:04 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник Клуба
Сообщений: 1198
Регистрация: 3.5.2003

Репутация: 2
Всего: 63
Цитата

Но нужно зарегестрироваться, чтобы увидеть страничку.

Дали бы для общественности логин-пароль готовый, а так лениво


--------------------
В мире всего две бесконечности: вселенная и человеческая глупость... На счёт вселенной я не уверен.
Шифрование и организация фотографий - Photo Database 4.5
PM MAIL WWW ICQ   Вверх
Tanter
Дата 8.9.2013, 20:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 8
Регистрация: 7.9.2013

Репутация: нет
Всего: нет
Цитата(Illusion Dolphin @ 8.9.2013,  20:04)
Цитата

Дали бы для общественности логин-пароль готовый, а так лениво

Логин: [email protected]
Пароль: 9td0ZcVf
PM MAIL   Вверх
Illusion Dolphin
Дата 8.9.2013, 21:05 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник Клуба
Сообщений: 1198
Регистрация: 3.5.2003

Репутация: 2
Всего: 63
Цитата

В коде они, вроде как, таблицы и заполнить их не получается

Они там как обычные <textarea> (id = brief, message) заполняйте их и будет счасте вам.

Добавлено @ 21:06
Цитата

zag.value:= edit2.text;

Тока в textarea вроде как заполняется не value а InnerHTML или InnerText 

Это сообщение отредактировал(а) Illusion Dolphin - 8.9.2013, 21:11


--------------------
В мире всего две бесконечности: вселенная и человеческая глупость... На счёт вселенной я не уверен.
Шифрование и организация фотографий - Photo Database 4.5
PM MAIL WWW ICQ   Вверх
Tanter
Дата 8.9.2013, 21:27 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 8
Регистрация: 7.9.2013

Репутация: нет
Всего: нет
Illusion Dolphin, спасибо за ответ, но что-то не получается, вообще никак не получается. Можно Вас попросить сам кусок этого когда или, чтобы Вы его проверили, думаю,, не получится ничего. Там хитро надо обращаться.
PM MAIL   Вверх
Illusion Dolphin
Дата 8.9.2013, 22:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник Клуба
Сообщений: 1198
Регистрация: 3.5.2003

Репутация: 2
Всего: 63
Цитата

 но что-то не получается, вообще никак не получается. 

А что не получается?
  • Найти элемент?
  • Заполнить его?
  • Заполненный отправить и чтобы его сохранило?
  • Пройти валидацию?
Да и код ваш покажите если не трудно


--------------------
В мире всего две бесконечности: вселенная и человеческая глупость... На счёт вселенной я не уверен.
Шифрование и организация фотографий - Photo Database 4.5
PM MAIL WWW ICQ   Вверх
Illusion Dolphin
Дата 8.9.2013, 23:13 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник Клуба
Сообщений: 1198
Регистрация: 3.5.2003

Репутация: 2
Всего: 63
Вот нашёл:
Код


procedure WB_SetTextAreaValue(Document: IDispatch; sID, sValue: string);
var
  Doc2: IHTMLDocument2;
  i: Integer;
  field: IHTMLElement;
  textarea: IHTMLTextAreaElement;
begin
   if Supports(Document, IHtmlDocument2, Doc2) then
    for i:= 0 to Doc2.all.length - 1 do
    begin
      field := Doc2.all.item(i, '') as IHTMLElement;
      if Assigned(field) then
      begin
        if (field.tagName = 'TEXTAREA') and (field.id = sID) then
        begin
          textarea := field as IHTMLTextAreaElement;
          if Assigned(textarea) then
          begin
            textarea.Value := sValue;
          end;
        end;
      end;
    end;
end;

  WB_SetTextAreaValue(Webbrowser1.Document, 'brief', 'Text value');



--------------------
В мире всего две бесконечности: вселенная и человеческая глупость... На счёт вселенной я не уверен.
Шифрование и организация фотографий - Photo Database 4.5
PM MAIL WWW ICQ   Вверх
Tanter
Дата 9.9.2013, 07:33 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 8
Регистрация: 7.9.2013

Репутация: нет
Всего: нет
Illusion Dolphin, Ваша подпись на форуме про меня...
 У меня не получается его заполнить, id, вроде, его беру. 
 В Вашем коде ругается на строчку: 
Код

if Supports(Document, IHtmlDocument2, Doc2) then


 И пытался найти вот этот оператор(или что это), Supports... В инете пусто

 У меня к Вам предложение) Напишите код со всеми Id и работающим заполнением, а я в долгу не останусь) WebMoney же есть у Вас?

Это сообщение отредактировал(а) Tanter - 9.9.2013, 07:34
PM MAIL   Вверх
Illusion Dolphin
Дата 9.9.2013, 08:07 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник Клуба
Сообщений: 1198
Регистрация: 3.5.2003

Репутация: 2
Всего: 63
Код

uses
  MSHTML

Забыл добавить

Цитата

 В Вашем коде ругается на строчку: 

А какое сообщение компилятора?

Присоединённый файл ( Кол-во скачиваний: 9 )
Присоединённый файл  Project9.zip 80,79 Kb


--------------------
В мире всего две бесконечности: вселенная и человеческая глупость... На счёт вселенной я не уверен.
Шифрование и организация фотографий - Photo Database 4.5
PM MAIL WWW ICQ   Вверх
Tanter
Дата 9.9.2013, 11:46 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 8
Регистрация: 7.9.2013

Репутация: нет
Всего: нет
Illusion Dolphin, написал в личку, а данный пример использует нестандартные компоненты(
PM MAIL   Вверх
Illusion Dolphin
Дата 9.9.2013, 12:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник Клуба
Сообщений: 1198
Регистрация: 3.5.2003

Репутация: 2
Всего: 63
Цитата

 а данный пример использует нестандартные компоненты( 

Какие?  smile 


--------------------
В мире всего две бесконечности: вселенная и человеческая глупость... На счёт вселенной я не уверен.
Шифрование и организация фотографий - Photo Database 4.5
PM MAIL WWW ICQ   Вверх
Tanter
Дата 9.9.2013, 12:54 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 8
Регистрация: 7.9.2013

Репутация: нет
Всего: нет
Библиотека Vcl. Вообще при попытке запуска сразу ругается на:
Код

Vcl.Forms,
  Unit9 in 'Unit9.pas' {Form9};
PM MAIL   Вверх
Illusion Dolphin
Дата 9.9.2013, 13:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник Клуба
Сообщений: 1198
Регистрация: 3.5.2003

Репутация: 2
Всего: 63
Цитата

Библиотека Vcl.

Когда она стала сторонней? smile)) Если делфи старый то префиксы надо удалить.


--------------------
В мире всего две бесконечности: вселенная и человеческая глупость... На счёт вселенной я не уверен.
Шифрование и организация фотографий - Photo Database 4.5
PM MAIL WWW ICQ   Вверх
Tanter
Дата 9.9.2013, 13:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 8
Регистрация: 7.9.2013

Репутация: нет
Всего: нет
Illusion Dolphin, можно тебя в аське увидеть?) Авторизуй меня) 
PM MAIL   Вверх
Tanter
Дата 9.9.2013, 13:40 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 8
Регистрация: 7.9.2013

Репутация: нет
Всего: нет
 Удалил префиксы, поменял все, запустилось, но не заполняется((( У Вас работала?
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Сети"
Snowy
Poseidon
MetalFan

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делится вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Snowy, Poseidon, MetalFan.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Сети | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0510 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.