VBNet - Форум - Отправить файл на удаленный сервер...

Вопрос: Отправить файл на удаленный сервер... Добавлено: 15.03.06 18:25

Автор вопроса: Mihalыch | ICQ: 373-509-101

Посмотрите что не так, расшареная папка имеет полный доступ, т.е. ручками я туда закидываю файлы без проблем. Нужно подключить Microsoft Internet Control.

Private Sub Command1_Click()
    List1.Clear
    Inet1.URL = "ftp://ftp2.kanal7.ru/\\FAR\SharedDocs\"
    Inet1.AccessType = icUseDefault
    'Inet1.UserName = ""
    'Inet1.Password = ""
    Inet1.Protocol = icFTP
    Inet1.Execute Inet1.URL, "PUT C:\1.txt ftp://ftp2.kanal7.ru/\\FAR\SharedDocs\1.txt"
    Do While Inet1.StillExecuting
        DoEvents
    Loop
End Sub
Private Sub Inet1_StateChanged(ByVal State As Integer)
    Select Case State
        Case 0: List1.AddItem "icNone"
        Case 1: List1.AddItem "icHostResolvingHost"
        Case 2: List1.AddItem "icHostResolved"
        Case 3: List1.AddItem "Поиск соединения ..."
        Case 4: List1.AddItem "Установлено соединение"
        Case 5: List1.AddItem "Запрос ..."
        Case 6: List1.AddItem "Посланн запрос"
        Case 7: List1.AddItem "Получение ответа"
        Case 8: List1.AddItem "Получено ..."
        Case 9: List1.AddItem "Соединение разрывается"
        Case 10: List1.AddItem "Соединение разарвано"
        Case 11: List1.AddItem "Ошибка"
        Case 12: List1.AddItem "Данные загружены"
    End Select
End Sub

Ответить

Ответы Всего ответов: 12

Номер ответа: 1 Автор ответа: Fever Вопросов: 60 Ответов: 808	Профиль \| \| #1	Добавлено: 15.03.06 19:11
	а вчем проблема? Ответить

Номер ответа: 2 Автор ответа: Mihalыch ICQ: 373-509-101 Вопросов: 56 Ответов: 330	Профиль \| \| #2	Добавлено: 15.03.06 19:20
	Файл не пересылается Ответить

Номер ответа: 3 Автор ответа: AgentFire ICQ: 192496851 Вопросов: 75 Ответов: 3178	Профиль \| \| #3	Добавлено: 15.03.06 21:51
	Inet1.URL = "ftp://ftp2.kanal7.ru/\\FAR\SharedDocs\" А это как так? Разве не так? Inet1.URL = "ftp://ftp2.kanal7.ru/FAR/SharedDocs/" Ответить

Номер ответа: 4 Автор ответа: Sharp Лидер форума ICQ: 216865379 Вопросов: 106 Ответов: 9979	Web-сайт: sharpc.livejournal.com Профиль \| \| #4	Добавлено: 16.03.06 05:01
	Первый раз слышу, чтобы MS Internet Control поддерживал расшаренные папки Ответить

Номер ответа: 5 Автор ответа: Mihalыch ICQ: 373-509-101 Вопросов: 56 Ответов: 330	Профиль \| \| #5	Добавлено: 16.03.06 05:16
	FAR - это имя компютера, хотя я пробовал по всякому, в событие Inet1_StateChanged параметр State принимает значение 4 - "Установлено соединение", только при таком варианте. Ответить

Номер ответа: 6 Автор ответа: HACKER Разработчик Offline Client Вопросов: 236 Ответов: 8362	Профиль \| \| #6	Добавлено: 16.03.06 16:09
	А я б не советовал InetControl, уже лучше винсоком... примеров полно! Ответить

Номер ответа: 7 Автор ответа: Sacred Phoenix ICQ: 304238252 Вопросов: 52 Ответов: 927	Профиль \| \| #7	Добавлено: 16.03.06 19:20
	Добавлено: 16.03.06 16:09 А я б не советовал InetControl, уже лучше винсоком... примеров полно! Зато, имхо, придется ftp-клиент писать. InetControl, наскока я понял (Inet1.Protocol = icFTP), и коннектится, и пересылает нужные данные для настройки соединение, и коннектится к data-порту, т.е. берет на себя всю рутинную работу ftp-клиента. А с winsock'ом... Щас посмотрел на листинг - юзается протокол ftp, а запрос (PUT) - http... Ответить

Номер ответа: 8 Автор ответа: AgentFire ICQ: 192496851 Вопросов: 75 Ответов: 3178	Профиль \| \| #8	Добавлено: 16.03.06 22:19
	FAR - это имя компютера , Inet1.URL = "ftp://ftp2.kanal7.ru/\\FAR\SharedDocs\" !!!! Да кто же два адреса подряд пишет?! Ответить

Номер ответа: 9 Автор ответа: Mihalыch ICQ: 373-509-101 Вопросов: 56 Ответов: 330	Профиль \| \| #9	Добавлено: 17.03.06 07:36
	Давайте я попробую уточнить задачу. Есть компьютер «сервер», в кавычках, потому что это обычный компьютер с постоянным подключением к Internet, на который нужно передать файл с другого компьютера. Известен IP «сервера». Возможно ли это если да то как? Ответить

Номер ответа: 10 Автор ответа: Billi Gates ICQ: 242-026-281 Вопросов: 25 Ответов: 57	Профиль \| \| #10	Добавлено: 17.03.06 13:30
	Возможно! Посмотри на VBNET в Примерах. Есть File_transfer он файлы передаёт через сеть(через интернет не пробовал) Получится, сообщи какнибудь! Пожалуйста, ато у меня нет компа серевера! А мне это тоже очень важно! billvorota@mail.ru Ответить

Номер ответа: 11 Автор ответа: HACKER Разработчик Offline Client Вопросов: 236 Ответов: 8362	Профиль \| \| #11	Добавлено: 17.03.06 17:44
	тьфу... так не интересно, мы то думали фтп Я от придлагал самому протокол юзать винсоком, прикольно ж а раз просто передать с IP на другой IP файл, весело отправим в поиск )) google.com )) Ответить

Номер ответа: 12 Автор ответа: Sacred Phoenix ICQ: 304238252 Вопросов: 52 Ответов: 927	Профиль \| \| #12	Добавлено: 17.03.06 23:06
	google.com )) Не-а, google.ru! )) Ответить

Страница: 1 |