VPF::Использование IHTMLDocument2 без TWebBrowser

Matematik

Дата 27.4.2006, 14:20 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1027
Регистрация: 11.3.2006

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

Как загрузить html файл в IHTMLDocument2 не используя TWebBrowser. Надо парсить html текст, а использовать WB не хочется.
Спасибо.

Matematik

Дата 27.4.2006, 14:42 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1027
Регистрация: 11.3.2006

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

Код


procedure TForm1.Button2Click(Sender: TObject);
var doc : IHTMLDocument2;
    v   : Variant;
    j   : Integer;
begin
  v    := VarArrayCreate([0, 0], varVariant);
  v[0] := '<html><b>1.</b><a href="javascript:ShowRis(143726593)">Рисунки</a></html>';
  doc  := CoHTMLDocument.Create as IHTMLDocument2;
  doc.writeln(PSafeArray(TVarData(v).VArray));
//  doc.clear;
  doc.write(PSafeArray(TVarData(v).VArray));
  for j:=1 to doc.all.length do
  begin
    showmessage(doc.body.innerHTML);
  end;
  doc.close;
end;

Извените за беспокойство

Это сообщение отредактировал(а) Matematik - 27.4.2006, 14:44

MetalFan

Дата 30.11.2006, 14:11 (ссылка)

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

Загрузка ...

Аццкий Сотона

Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

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

в MSDN есть пример:

Код


IHTMLDocument2 *document; // Declared earlier in the code
HRESULT hresult = S_OK;
VARIANT *param;
SAFEARRAY *sfArray;
BSTR bstr = SysAllocString(OLESTR("Written by IHTMLDocument2::write()."));

// Creates a new one-dimensional array
sfArray = SafeArrayCreateVector(VT_VARIANT, 0, 1);

if (sfArray == NULL || document == NULL) {
 goto cleanup;
}

hresult = SafeArrayAccessData(sfArray,(LPVOID*) & param);
param->vt = VT_BSTR;
param->bstrVal = bstr;
hresult = SafeArrayUnaccessData(sfArray);
hresult = document->write(sfArray);

cleanup:
SysFreeString(bstr);
if (sfArray != NULL) {
 SafeArrayDestroy(sfArray);
}

на Delphi делаю так:

Код


function GetHTMLDoc2FromString( const AStr: string ): IHTMLDocument2;
 var
   lSfArr: PSafeArray;
   lVar: PVariant;
   lWS: WideString;
 begin
   Result := CoHTMLDocument.Create as IHTMLDocument2;
   lSfArr := SafeArrayCreateVector(VT_VARIANT, 0, 1);
   if lSfArr <> nil then
   begin
     SafeArrayAccessData( lSfArr, Pointer(lVar) );
     lWS := AStr;
     TVarData(lVar^).VType := VT_BSTR;
     TVarData(lVar^).VOleStr := @lWS[1];
     SafeArrayUnaccessData( lSfArr );
     Result.write(lSfArr);
     //SafeArrayDestroy(lSfArr);  [U]<<- на этой строчке иногда вываливает AV, без нее все ок.но как тогда память освобождать?[/U]
   end;
 end;

подскажите, где косяк?!

--------------------

There are always someone smarter than you...

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