Форум программистов [Powered by Invision Power Board]

Код


var id: string;
    V: OleVariant;
    DocA: IHTMLElementCollection;
    DocElement: IHtmlElement;
    Doc: IHTMLDocument2;
    cache:string;
    LSafeArray: PSafeArray;
begin
  cache:=HTTP.Get('http://codesauxcliques.com/index.php');
  Doc:=coHTMLDocument.Create as IHTMLDocument2;
  V:=VarArrayCreate([0,0], varVariant);
  V[0]:=cache;
  LSafeArray :=PSafeArray(TVarData(v).VArray); 
  Doc.writeln(LSafeArray);                                                       // Вот тут возникает ошибка
  DocA:=Doc.all.tags('A') as IHTMLElementCollection;
// ...............
end;