Внешняя компонента. Аналог ОтправитьДляОбработки() объекта HTTPReader v7plus.dll (1С 7.7)

var url: string;
        hSession, hfile: hInternet;
        dwindex,dwcodelen :dword;
        dwcode:array[1..20] of char;
        res : pchar;
        fSize, ReadLen:DWORD; //<-количество реально прочитанных байт
        fBuf:array[1..1024]of byte;//<-буфер куда качаем
        f:file; //<-файл куда качаем
        s,i_f: string;
        flag:integer;
  begin
    case mode of
      m_rus_name: Result:='ПолучитьВебСтраницу';//Имя процедуры
      m_eng_name: Result:='GetWWWPage';//Англоязычный синоним
      m_n_params: g_NParams:=3; //Количество параметров функции
      m_execute: begin
        flag:=GetParamAsInteger(0);//тип действия 1-записать в файл, 2-записать в переменную
        url:=GetParamAsString(1);//адрес
        i_f:=GetParamAsString(2);//имя файла
        fSize:=0; //<- |переменных
        if pos('http://',lowercase(url))=0 then
        url := 'http://'+url;
        hSession := InternetOpen('InetURL:/1.0',//открываем адрес
        INTERNET_OPEN_TYPE_PRECONFIG,nil, nil, 0);
        if assigned(hsession) then
        begin
        hfile := InternetOpenUrl(hsession, pchar(url), nil,  0,  INTERNET_FLAG_RELOAD, 0);
        dwIndex  := 0;
        dwCodeLen := 10;
        HttpQueryInfo(hfile, HTTP_QUERY_STATUS_CODE, @dwcode, dwcodeLen, dwIndex);
        res := pchar(@dwcode);
        if (res ='200') or (res ='302') then
        result:= '1'
        else result:= '0';
        //Попробуем получить страницу...
        if result='1' then
        begin
                if flag=1 then begin
                AssignFile(f,i_f);//открываем файл
                ReWrite(f,1);
                while ReadLen<>0 do
                begin
                //читаем в буфер
                InternetReadFile(hfile, @fBuf, SizeOf(fBuf), ReadLen);
                //смотрим ск-ко осталось докачать
                InternetQueryDataAvailable(hfile, fSize,0,0);
                BlockWrite(f, fBuf, ReadLen) //<-пишем в файл
                end;
                end
                else
                begin
                result:='';
                while ReadLen<>0 do
                begin
                //читаем в буфер
                        InternetReadFile(hfile, @fBuf, SizeOf(fBuf), ReadLen);
                        //смотрим ск-ко осталось докачать
                        InternetQueryDataAvailable(hfile, fSize,0,0);
                        s := '';
                        SetString(S, pchar(@fBuf), ReadLen);//преобразуем массив в сторку
                        result:=result+s;
                end;
                end;
                if flag=1 then
                CloseFile(f) //<закроем файл
                else begin
                g_Value:=result;
                PutNParam(2,g_Value);//установим значение третьей переменной
                end;
                result:='1';
                end;
                g_Value:=StrToInt(result);//Установим возвращаемое функцией
                //конец получения страницы
                InternetCloseHandle(hfile);//закроем сессию
                InternetCloseHandle(hsession);
        end;
      end;
    end;//case

Попытка
             vk = СоздатьОбъект("AddIn.GetURL");
Исключение
             Сообщить("Не удается создать объект AddIn.GetURL... !!");
             Сообщить("Зайдите в Windows под правами локального администратора и повторите попытку.");   

КонецПопытки;    

Ф = СокрЛП(СТР);
Сообщить(vk.ПолучитьВебСтраницу(фл,СОКРЛП(адр),Ф)); 
Стр = Ф; 
vk = 0;