VPF::Вопрос по IHTMLDocument2 - Форум программистов

Sergey1974

Дата 13.7.2011, 23:00 (ссылка)

(нет голосов)

Загрузка ...

Новичок

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

Репутация: нет
Всего: нет

Доброго времени суток. Есть такой код:

Код


CoInitialize(nil)
HTML := CoHTMLDocument.Create as IHTMLDocument2;
CurrentFile := Files[I];
Synchronize(UpdateProgress);
try
   Content := TStringStream.Create;  
   Content.LoadFromFile(Files[I]);
   V := VarArrayCreate([0, 0], varVariant);
   V[0] := Content.DataString;
   HTML.Write(PSafeArray(TVarData(V).VArray)); <-- Проблема в этой строке
finally
   Content.Free;
end;

Если этот код выполнять в основном потоке, то проблем нет. Если запихнуть его в другой поток и выполнять параллельно основному, то выпадает сообщение "The page not found, sorry". Сломал голову. Где грабли?

Все, разобрался. Оказывается, это сообщение выдавал JavaScript на странице. Чтобы этого избежать, сделал так:

Код


CoInitialize(nil)
HTML := CoHTMLDocument.Create as IHTMLDocument2;
// Добавлена срока ниже
FHTML.designMode := 'On';    
CurrentFile := Files[I];
Synchronize(UpdateProgress);
try
   Content := TStringStream.Create;  
   Content.LoadFromFile(Files[I]);
   V := VarArrayCreate([0, 0], varVariant);
   V[0] := Content.DataString;
   HTML.Write(PSafeArray(TVarData(V).VArray)); <-- Проблема в этой строке
finally
   Content.Free;
end;

Это сообщение отредактировал(а) Sergey1974 - 14.7.2011, 10:26

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: ActiveX/СОМ/CORBA \| Следующая тема »