Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Работа с сетью в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 20.11.2013, 02:16   #1
ClMlD
Форумчанин
 
Аватар для ClMlD
 
Регистрация: 09.07.2011
Сообщений: 185
По умолчанию GetHTMLCode может зависать?

Люди кто знаком с данной функцией ? может ли она зависать ?
Вообщем у меня есть прога , в целом она нормально работает но бывает такой заход что пол программы виснет я подозреваю именно эту функцию

Код:
function TForm1.WB_GetHTMLCode(WebBrowser: TWebBrowser;
  ACode: TStrings): Boolean;
 var
   ps: IPersistStreamInit;
   ss: TStringStream;
   sa: IStream;
   s: string;
 begin
   ps := WebBrowser.Document as IPersistStreamInit;
   s := '';
   ss := TStringStream.Create(s);
   try
     sa := TStreamAdapter.Create(ss, soReference) as IStream;
     Result := Succeeded(ps.Save(sa, True));
     if Result then ACode.Add(ss.Datastring);
   finally
     ss.Free;
   end;
 end;
Вызываю я ее здесь

Код:
procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
С помощью нее я узнаю где я нахожусь , выходит что грузиться она каждую минуту , есть ли способ заменить ее или зависания не в ней ?
ClMlD вне форума Ответить с цитированием
Старый 20.11.2013, 03:11   #2
Пепел Феникса
Старожил
 
Аватар для Пепел Феникса
 
Регистрация: 28.01.2009
Сообщений: 21,000
По умолчанию

а проверка на полную завершенность загрузки стоит?
Хорошо поставленный вопрос это уже половина ответа. | Каков вопрос, таков ответ.
Программа делает то что написал программист, а не то что он хотел.
Функции/утилиты ждут в параметрах то что им надо, а не то что вы хотите.
Пепел Феникса вне форума Ответить с цитированием
Старый 20.11.2013, 03:33   #3
ClMlD
Форумчанин
 
Аватар для ClMlD
 
Регистрация: 09.07.2011
Сообщений: 185
По умолчанию

НЕт, не как не додумаюсь как оформить , я когда тестил заметил что событие обрабатывается до загрузке и несколько раз . Как оформить не подскажите ?


Пепел Феникса, Ну вроде сам помыслил , немного оптимизировал стало лучше, у вас нету лишнего времени не могли бы код посмотреть может что посоветовали бы

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

Во время работы с запущенным Delphi вылетает эта ошибка что она значит ? когда просто exe запущен не каких ошибок
Изображения
Тип файла: jpg 2013-11-20_070016.jpg (11.4 Кб, 135 просмотров)

Последний раз редактировалось ClMlD; 20.11.2013 в 07:15.
ClMlD вне форума Ответить с цитированием
Старый 20.11.2013, 12:28   #4
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

Крамольная догадка: А попробуй IE поновее поставить. Может его ядрышки глюкавые?
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 21.11.2013, 05:00   #5
Slym
Участник клуба
 
Регистрация: 07.12.2011
Сообщений: 1,025
По умолчанию

я бы sa гасил принудительно и раньше чем ss
Не стесняемся, плюсуем!
Slym вне форума Ответить с цитированием
Старый 21.11.2013, 11:14   #6
ClMlD
Форумчанин
 
Аватар для ClMlD
 
Регистрация: 09.07.2011
Сообщений: 185
По умолчанию

Цитата:
Сообщение от Slym Посмотреть сообщение
я бы sa гасил принудительно и раньше чем ss
что такое ss,sa ?

Обновил IE щас буду тестить , а обязательно каждый раз прописывать ключ реестра на мой файл или переименовывать его в iexploer , можно ли что нибудь сделать 1 раз и забыть об этом?

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

После многих кругов заметил что программа вообще начала критовать чего раньше не было, код даже не трогал ток IE обновил
когда критует говорит что тут ошибка (ieframe.dll)

Вообщем стало хуже , буду рад если кто найдет время и код посмотрит

Последний раз редактировалось ClMlD; 21.11.2013 в 14:12.
ClMlD вне форума Ответить с цитированием
Старый 21.11.2013, 18:26   #7
Slym
Участник клуба
 
Регистрация: 07.12.2011
Сообщений: 1,025
По умолчанию

Цитата:
Сообщение от ClMlD Посмотреть сообщение
что такое ss,sa ?

это переменные из твоего кода!
Не стесняемся, плюсуем!
Slym вне форума Ответить с цитированием
Старый 21.11.2013, 18:53   #8
eval
Подтвердите свой е-майл
 
Регистрация: 29.08.2012
Сообщений: 4,011
По умолчанию

это не его код
eval вне форума Ответить с цитированием
Старый 22.11.2013, 02:55   #9
ClMlD
Форумчанин
 
Аватар для ClMlD
 
Регистрация: 09.07.2011
Сообщений: 185
По умолчанию

Цитата:
Сообщение от eval Посмотреть сообщение
это не его код
верно код нагуглил , я на него даже не смотрел =))))) работает да работает
ClMlD вне форума Ответить с цитированием
Старый 24.11.2013, 03:51   #10
alextrof94
Форумчанин
 
Регистрация: 16.03.2013
Сообщений: 599
По умолчанию

Цитата:
Сообщение от ClMlD Посмотреть сообщение
верно код нагуглил , я на него даже не смотрел =))))) работает да работает
У тебя, я смотрю, понтов столько же сколько и мозгов. Количество стремится к нулю.
alextrof94$gmail.com
alextrof94 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Где и как скачать программу Delphi. Может кто нибудь может помочь мне - без скачивания из интернета. IZOPGRAM Общие вопросы Delphi 4 16.06.2012 18:12
Где можно скачать Borland C++ или может кто-то может скинуть dani6 C++ Builder 11 19.02.2011 14:01
Может быть так, что в мамку может попасть вирус и не загружать жесткий диск Berzhan Операционные системы общие вопросы 6 27.07.2009 21:40