Форум программистов, компьютерный форум, киберфорум
Visual Basic .NET
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.82/11: Рейтинг темы: голосов - 11, средняя оценка - 4.82
 Аватар для Pe4eNEG
123 / 123 / 12
Регистрация: 12.06.2010
Сообщений: 499
Записей в блоге: 2
.NET 2.x

Download \ Upload

04.09.2010, 22:20. Показов 1984. Ответов 10
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Собственно в чем вопрос: как (какими командами) скачивать с сервера и закачивать на него файл?
(имя файла хранится в пермменной MyFileName типа String)
и еще как узнать текущее состояние сети (подключен ли компьютер к сети и доступен ли сервер)

Не по теме:

Блин началась учеба и на форум уже не вылезешь:(

0
Лучшие ответы (1)
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
04.09.2010, 22:20
Ответы с готовыми решениями:

Обзор моего проекта What The Download 0.1.2
И так всем доброго времени суток. Вот не давно закончил свой проект и решил поместить его на обзор. В крации сама программа выкладывает...

загрузка (download) файла в массив байт
Привет всем! Подскажите, пожалуйста, каким образом по прямому HTTP-запросу загрузить файл из Интернета не на диск, а в массив байт или...

Upload файлов из WinForms апликации на Web сервер
Есть WinForms апликация, которая, между всем прочим, должна аплоадить файлы на Web сервер по HTTP (!). Может кто знает, какой...

10
Заблокирован
04.09.2010, 22:23
Цитата Сообщение от Pe4eNEG Посмотреть сообщение
какими командами
Лолшто?

Смотри пространство имён System.Net
0
 Аватар для Pe4eNEG
123 / 123 / 12
Регистрация: 12.06.2010
Сообщений: 499
Записей в блоге: 2
04.09.2010, 22:30  [ТС]
ну блин не команда, а функция какая хрен разница кому надо поймут

Смотри пространство имён System.Net
Щас посмотрим

хотелось бы хотя бы какой-нибудь пример.
0
2 / 2 / 1
Регистрация: 10.05.2010
Сообщений: 74
05.09.2010, 08:35
Visual Basic
1
 My.Computer.Network.DownloadFile("ftp://*.*.*.*/readme.txt", "c:\reamne.txt", "user", "password", 0, 1000, 1)
1
 Аватар для Pe4eNEG
123 / 123 / 12
Регистрация: 12.06.2010
Сообщений: 499
Записей в блоге: 2
05.09.2010, 12:16  [ТС]
Блин пытаюсь залить файл на свой фтпшник по локальному ипу и ВБ мне пишет, что "Данный формат пути не поддерживается" что за фигня?
0
 Аватар для Pe4eNEG
123 / 123 / 12
Регистрация: 12.06.2010
Сообщений: 499
Записей в блоге: 2
05.09.2010, 12:27  [ТС]
А все, разобрался (в аплоаде нужно сервак и файл местами поменять) осталось понять как узнать доступна ли сеть или нет.
0
2 / 2 / 1
Регистрация: 10.05.2010
Сообщений: 74
05.09.2010, 12:44
Visual Basic
1
                    My.Computer.Network.IsAvailable
0
 Аватар для Pe4eNEG
123 / 123 / 12
Регистрация: 12.06.2010
Сообщений: 499
Записей в блоге: 2
05.09.2010, 13:44  [ТС]
Это я уже пробовал, но почему то даже если отключить модем, то при выполнении следующего кода все равно выдается "сеть доступна"
VB.NET
1
2
3
4
5
If My.Computer.Network.IsAvailable = True Then
  Me.Text = "Сеть доступна"
Else
  Me.Text = "Сеть недоступна"
End If
0
 Аватар для Pe4eNEG
123 / 123 / 12
Регистрация: 12.06.2010
Сообщений: 499
Записей в блоге: 2
23.09.2010, 18:15  [ТС]
Вот уж не думал что вопрос окажется таким сложным
0
 Аватар для XIST
1961 / 1071 / 148
Регистрация: 01.10.2009
Сообщений: 3,608
Записей в блоге: 1
23.09.2010, 18:54
Про соединение на знаю, а так
Если в сетке то проверь ping
VB.NET
1
If My.Computer.Network.Ping("**.**.***.2", 1000) Then
0
Почетный модератор
 Аватар для Памирыч
23251 / 9163 / 1084
Регистрация: 11.04.2010
Сообщений: 11,014
23.09.2010, 19:00
Лучший ответ Сообщение было отмечено как решение

Решение

Где-то видел код:

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Private Declare Function InternetGetConnectedState Lib "wininet" (ByRef dwFlags As Integer, ByVal dwReserved As Long) As Integer
    Private Enum ConnectStates
        LAN = &H2
        Модем = &H1
        Прокси = &H4
        Отключен = &H20
        Конфигурировано = &H40
        RasInstalled = &H10
    End Enum
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim dwFlags As Integer
        Dim Connected As Boolean = (InternetGetConnectedState(dwFlags, 0&) <> 0)
        If Connected Then
            MsgBox("Этот компьютер подключен к сети Интернет")
            Dim ConnectionType As ConnectStates
            For Each ConnectionType In System.Enum.GetValues(GetType(ConnectStates))
                If (ConnectionType And dwFlags) = ConnectionType Then
                    MsgBox("Способ подключения: " & ConnectionType.ToString())
                End If
            Next
        End If
    End Sub
3
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
23.09.2010, 19:00
Помогаю со студенческими работами здесь

GDrive download / upload
Добрый день! Изучаю google drive api и есть непонятные моменты. Попробовал несколько примеров для загрузки и выгрузки файлов. Все проходит...

Upload/download файлов на сервере
Привет всем! Мне нужно чтобы пользователь имел возможность загружать/выгружать свои файлы на сервак. Как то у меня было подобное, но я...

Gridview Download & Upload files
Господа , нужно создать аплоадер и даунлоадер файлов в gridview. Как можно ето реализовать? есть ли у кого гайд? дня 4 искал в интернете,...

Where to download C++
Where to download C++. Write plese! :scratch: Throw link!

Download
&amp;Ntilde;&amp;egrave;&amp;ograve;&amp;oacute;&amp;agrave;&amp;ouml;&amp;egrave;&amp;yuml;: &amp;Egrave;&amp;igrave;&amp;aring;&amp;aring;&amp;ograve;&amp;ntilde;&amp;yuml; &lt;&amp;Agrave;...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
11
Ответ Создать тему
Новые блоги и статьи
Идея фильтра интернета (сервер = слой+фильтр).
Hrethgir 31.03.2026
Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .
Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда
anaschu 31.03.2026
В прикрепленном документе раздумья о том, как можно поменять модель в будущем
10 пpимет, которые всегда сбываются
Maks 31.03.2026
1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .
Перемещение выделенных строк ТЧ из одного документа в другой
Maks 31.03.2026
Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .
Functional First Web Framework Suave
DevAlt 30.03.2026
Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .
Автоматическое создание документа при проведении другого документа
Maks 29.03.2026
Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .
Настройка движения справочника по регистру сведений
Maks 29.03.2026
Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .
Автозаполнение реквизита при выборе элемента справочника
Maks 27.03.2026
Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru