Добро пожаловать в форум, Guest  >>   Войти | Регистрация | Поиск | Правила | В избранное | Подписаться
Все форумы / Microsoft SQL Server Новый топик    Ответить
Топик располагается на нескольких страницах: [1] 2   вперед  Ctrl      все
 Копировать файл из интернета  [new]
NNNata:)
Member

Откуда:
Сообщений: 146
Добрый день!! Мне нужно скопировать фаил из интернета, к сожалению, у меня не получается. Может я что-то делаю не так? Создала File Transfer protocol Task, в Source выбрала Internet Site, Ftp Site написала www.aaaaa.org/..., Directory Path указала. выдает ошибку Ftp Error"Unable to connect to Internet. Please check the sourse site information, zour username and password". Не могу понятьб мне ведь не нужен пароль для скачивания моего документаю
4 ноя 05, 13:59    [2038381]     Ответить | Цитировать Сообщить модератору
 Re: Копировать файл из интернета  [new]
Glory
Member

Откуда:
Сообщений: 104760
Не могу понятьб мне ведь не нужен пароль для скачивания моего документаю
Вы путаете ftp и http протоколы. Ваш сайт предоставляет доступ к своим файлам через протокол ftp ?
4 ноя 05, 14:04    [2038389]     Ответить | Цитировать Сообщить модератору
 Re: Копировать файл из интернета  [new]
NNNata:)
Member

Откуда:
Сообщений: 146
Glory
Не могу понятьб мне ведь не нужен пароль для скачивания моего документаю
Вы путаете ftp и http протоколы. Ваш сайт предоставляет доступ к своим файлам через протокол ftp ?

А что мне тогда делать если у меня есть адрес http://www.aaa......??
4 ноя 05, 14:14    [2038407]     Ответить | Цитировать Сообщить модератору
 Re: Копировать файл из интернета  [new]
NNNata:)
Member

Откуда:
Сообщений: 146
И надо скачать документ.
4 ноя 05, 14:17    [2038412]     Ответить | Цитировать Сообщить модератору
 Re: Копировать файл из интернета  [new]
Anatoly Podgoretsky
Member

Откуда:
Сообщений: 62917
NNNata:)
А что мне тогда делать если у меня есть адрес http://www.aaa......??

Это не фтп, а http протокол.
4 ноя 05, 14:17    [2038413]     Ответить | Цитировать Сообщить модератору
 Re: Копировать файл из интернета  [new]
NNNata:)
Member

Откуда:
Сообщений: 146
[quot Anatoly PodgoretskyЭто не фтп, а http протокол.[/quot]
Это я уже поняла, а как мне бытьб как все таки скачать с этого адреса документ???
4 ноя 05, 14:18    [2038417]     Ответить | Цитировать Сообщить модератору
 Re: Копировать файл из интернета  [new]
Glory
Member

Откуда:
Сообщений: 104760
NNNata:)
Anatoly Podgoretsky
Это не фтп, а http протокол.

Это я уже поняла, а как мне бытьб как все таки скачать с этого адреса документ???

Писать/искать свой скрипт/процедуру/готовую утилиту, которая сможет это сделать


Function Main()

Main = DTSTaskExecResult_Failure

Dim XMLHTTP, ADOStream, WorkFileName


Set XMLHTTP = CREATEOBJECT("Microsoft.XMLHTTP")
XMLHTTP.open "GET", Cstr(DTSGlobalVariables("HTTPLink").Value), "False"
XMLHTTP.send

If XMLHTTP.statustext = "OK" Then
	WorkFileName = DTSGlobalVariables("InputFileFullName").Value

	Set ADOStream = CreateObject("ADODB.Stream")
	ADOStream.Open
	ADOStream.WriteText XMLHTTP.Responsetext
	ADOStream.SaveToFile WorkFileName, 2
	ADOStream.Close
	Set ADOStream = Nothing
	Main = DTSTaskExecResult_Success
End if

Set XMLHTTP = Nothing
End Function
4 ноя 05, 14:23    [2038426]     Ответить | Цитировать Сообщить модератору
 Re: Копировать файл из интернета  [new]
Anatoly Podgoretsky
Member

Откуда:
Сообщений: 62917
NNNata:)
[quot Anatoly PodgoretskyЭто не фтп, а http протокол.

Это я уже поняла, а как мне бытьб как все таки скачать с этого адреса документ???[/quot]
Я не специалист в это области, возможно пример от Глори поможет, а может быть достаточно указать другой протокол, логин и пароль. Но точно сказать нельзя, ты мало приводишь информации.
4 ноя 05, 14:29    [2038436]     Ответить | Цитировать Сообщить модератору
 Re: Копировать файл из интернета  [new]
NNNata:)
Member

Откуда:
Сообщений: 146
Glory

Писать/искать свой скрипт/процедуру/готовую утилиту, которая сможет это сделать


Это конечно хорошо, тщ этот скрипт не идет. На стороке
ADOStream.WriteText XMLHTTP.Responsetext
выдает ошибку 'Function not found'
4 ноя 05, 17:09    [2038726]     Ответить | Цитировать Сообщить модератору
 Re: Копировать файл из интернета  [new]
Glory
Member

Откуда:
Сообщений: 104760
NNNata:)

Это конечно хорошо, тщ этот скрипт не идет. На стороке
ADOStream.WriteText XMLHTTP.Responsetext
выдает ошибку 'Function not found'

А где вы его запускаете ?
4 ноя 05, 17:12    [2038733]     Ответить | Цитировать Сообщить модератору
 Re: Копировать файл из интернета  [new]
NNNata:)
Member

Откуда:
Сообщений: 146
Glory

А где вы его запускаете ?

ActiveX Script Task. Я разве что-то не так делаю?
4 ноя 05, 17:29    [2038756]     Ответить | Цитировать Сообщить модератору
 Re: Копировать файл из интернета  [new]
Glory
Member

Откуда:
Сообщений: 104760
NNNata:)
Glory

А где вы его запускаете ?

ActiveX Script Task. Я разве что-то не так делаю?

Ну вы же сразу не говорите. Вот и приходиться уточнять - дисплея то вашего отсюда не видно.

Скрипт один в один или с изменениями ?
4 ноя 05, 17:36    [2038770]     Ответить | Цитировать Сообщить модератору
 Re: Копировать файл из интернета  [new]
NNNata:)
Member

Откуда:
Сообщений: 146
Glory

Скрипт один в один или с изменениями ?

Почти 1 в 1: только глобальные переменные не использую
Function Main()
Main = DTSTaskExecResult_Failure

Dim XMLHTTP, ADOStream, WorkFileName


Set XMLHTTP = CREATEOBJECT("Microsoft.XMLHTTP")
XMLHTTP.open "GET", Cstr("http://www.imf.org/external/np/fin/rates/sdr_ir.cfm"), "False"
XMLHTTP.send

If XMLHTTP.statustext = "OK" Then
	WorkFileName = "d:/1.txt"

	Set ADOStream = CreateObject("ADODB.Stream")
	ADOStream.Open
	ADOStream.WriteText XMLHTTP.Responsetext
	ADOStream.SaveToFile WorkFileName, 2
	ADOStream.Close
	Set ADOStream = Nothing
	Main = DTSTaskExecResult_Success
End if

Set XMLHTTP = Nothing
End Function
4 ноя 05, 17:46    [2038789]     Ответить | Цитировать Сообщить модератору
 Re: Копировать файл из интернета  [new]
Glory
Member

Откуда:
Сообщений: 104760
Странно. Ну попробуйте "традиционный" способ создания файла - через CreateObject("Scripting.FileSystemObject")

А XMLHTTP.Responsetext что-нибудь содержит ?
4 ноя 05, 17:58    [2038813]     Ответить | Цитировать Сообщить модератору
 Re: Копировать файл из интернета  [new]
NNNata:)
Member

Откуда:
Сообщений: 146
Glory


А XMLHTTP.Responsetext что-нибудь содержит ?

Он как только доходит до этой строки его выкидивает
4 ноя 05, 18:10    [2038839]     Ответить | Цитировать Сообщить модератору
 Re: Копировать файл из интернета  [new]
Glory
Member

Откуда:
Сообщений: 104760
NNNata:)
Glory


А XMLHTTP.Responsetext что-нибудь содержит ?

Он как только доходит до этой строки его выкидивает

Ну так посмотрие содержимое XMLHTTP.Responsetext раньше этой строки :).
4 ноя 05, 18:12    [2038847]     Ответить | Цитировать Сообщить модератору
 Re: Копировать файл из интернета  [new]
NNNata:)
Member

Откуда:
Сообщений: 146
Glory

Ну так посмотрие содержимое XMLHTTP.Responsetext раньше этой строки :).

Содержит только начало документа
<html>
...
<meta name ...>
<language =javascript ...>
и потом обрывается
4 ноя 05, 18:20    [2038864]     Ответить | Цитировать Сообщить модератору
 Re: Копировать файл из интернета  [new]
Glory
Member

Откуда:
Сообщений: 104760
Пробуйте записать файл через CreateObject("Scripting.FileSystemObject")
4 ноя 05, 18:22    [2038867]     Ответить | Цитировать Сообщить модератору
 Re: Копировать файл из интернета  [new]
NNNata:)
Member

Откуда:
Сообщений: 146
Glory
Пробуйте записать файл через CreateObject("Scripting.FileSystemObject")

Попробую (вначале надо посмотреть как с этим делом работать), спасибо вам!!
4 ноя 05, 18:23    [2038870]     Ответить | Цитировать Сообщить модератору
 Re: Копировать файл из интернета  [new]
NNNata:)
Member

Откуда:
Сообщений: 146
Glory
Пробуйте записать файл через CreateObject("Scripting.FileSystemObject")

А если знаете и не лень скажите откуда могу узнать про это дело или как мне поступить в моем случае
4 ноя 05, 18:27    [2038876]     Ответить | Цитировать Сообщить модератору
 Re: Копировать файл из интернета  [new]
Glory
Member

Откуда:
Сообщений: 104760
Можете читать там http://msdn.microsoft.com/library/default.asp?url=/library/en-us/dnanchor/html/scriptinga.asp или скачать оттуда хелп себе на машину
4 ноя 05, 18:39    [2038892]     Ответить | Цитировать Сообщить модератору
 Re: Копировать файл из интернета  [new]
NNNata:)
Member

Откуда:
Сообщений: 146
Glory
Можете читать там http://msdn.microsoft.com/library/default.asp?url=/library/en-us/dnanchor/html/scriptinga.asp или скачать оттуда хелп себе на машину

Спасибо еще раз за выносливость:)
4 ноя 05, 18:41    [2038898]     Ответить | Цитировать Сообщить модератору
 Re: Копировать файл из интернета  [new]
NNNata:)
Member

Откуда:
Сообщений: 146
Glory
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/dnanchor/html/scriptinga.asp

попробовала я это дело, но к сожалению со своей проблемой не справилась.Видать както глючат эти 3 строчки
Set XMLHTTP = CREATEOBJECT("Microsoft.XMLHTTP")
XMLHTTP.open "GET", Cstr("http://www.imf.org/external/np/fin/rates/sdr_ir.cfm"), "False"
XMLHTTP.send
Без них в файл записывает тестовую строку, а с ними выдает ошибку
Function not found и
выходит окошко Подозрение на вирус
Что бы еще попробовать?
7 ноя 05, 16:31    [2043348]     Ответить | Цитировать Сообщить модератору
 Re: Копировать файл из интернета  [new]
AnyDev
Guest
Поищите Url2File
7 ноя 05, 20:37    [2044563]     Ответить | Цитировать Сообщить модератору
 Re: Копировать файл из интернета  [new]
Glory
Member

Откуда:
Сообщений: 104760
NNNata:)

попробовала я это дело, но к сожалению со своей проблемой не справилась.Видать както глючат эти 3 строчки
Set XMLHTTP = CREATEOBJECT("Microsoft.XMLHTTP")
XMLHTTP.open "GET", Cstr("http://www.imf.org/external/np/fin/rates/sdr_ir.cfm"), "False"
XMLHTTP.send
Без них в файл записывает тестовую строку, а с ними выдает ошибку
Function not found и
выходит окошко Подозрение на вирус
Что бы еще попробовать?

1. Вы все еще про ADOStream.WriteText говорите ?
2. Как бы вы интересно получили XMLHTTP.Responsetext, если бы "3 строки глючили" ?
3. И что интересно записывается в файл без "этих 3 строк" ?
7 ноя 05, 20:41    [2044576]     Ответить | Цитировать Сообщить модератору
Топик располагается на нескольких страницах: [1] 2   вперед  Ctrl      все
Все форумы / Microsoft SQL Server Ответить