Имя: Пароль:
1C
 
Опять вопрос про WinHttp.dll
0 il
 
07.11.06
16:03
Помогите кто знает, мне приводили кусок кода на форуме
   Скрипт=СоздатьОбъект("MSScriptControl.ScriptControl");
   Скрипт.language="vbscript";
   Имя="Èìÿ";
   Пароль="Ïàðîëü";
   URL="http://partweb.1c.ru/PartnerSupport/Redirect.aspx?redirUrl=/rus/partners/priv/info-private.jsp%3Fnumb%3D6059";

   x =CreateObject("Microsoft.XMLHTTP");
   x.Open("GET", ÓÐË, 0,Èìÿ,Ïàðîëü);
   x.Send();
   s = CreateObject("ADODB.Stream");
   s.Mode = 3;
   s.Type = 1;
   s.Open();
   Скрипт.AddObject("s",s);
   Скрипт.AddObject("x",x);
   Скрипт.Eval("s.Write(x.responseBody)");//Пишет что какое то несовпадение типов
   s.SaveToFile("D:\55555555555555.Zip", 3);
и другие куски кода в разных вариациях, но все они застревают на предпоследней строке, может мне надо как то это ADO настроить?
1 il
 
07.11.06
16:11
Помогите кто нибудь
2 Ковычки
 
07.11.06
16:28
Как застревает ?
3 il
 
07.11.06
18:15
Пишет ADODB.Stream: Аргументы имеют неверный тип, выходят за пределы допустимого диапазона или вступают в конфликт друг с другом.
4 Ковычки
 
07.11.06
18:23
(3) в какой строке ?
5 il
 
07.11.06
18:24
Скрипт.Eval("s.Write(x.responseBody)");//Пишет что какое то несовпадение типов
6 Ковычки
 
07.11.06
18:29
Странно, тогда так
...
s = CreateObject("ADODB.Stream");
Попытка
   s.Mode = 3;
   s.Type = 1;
   s.Open();
   Скрипт.AddObject("s",s);
   Скрипт.AddObject("x",x);
   Скрипт.Eval("s.Write(x.responseBody)");
Исключение
   Скрипт.Reset();
   s.close();
   s.Mode = 3;
   s.Type = 2;
   s.Open();
   Скрипт.AddObject("s",s);
   Скрипт.AddObject("x",x);
   Скрипт.Eval("s.Write(x.responseBody)");
КонецПопытки;
7 il
 
07.11.06
18:32
Тоже самое
8 il
 
07.11.06
18:35
Может эту dll надо подключать ПодключитьвнешнююКомпоненту() но перед этим то выполняются операторы
9 Ковычки
 
07.11.06
18:37
(8) в аську ткнись
10 il
 
07.11.06
18:44
У меня не настроена
11 il
 
07.11.06
19:13
370026916
Чтобы обнаруживать ошибки, программист должен иметь ум, которому доставляет удовольствие находить изъяны там, где, казалось, царят красота и совершенство. Фредерик Брукс-младший