Передача данных

[homjak]

Объясните пожалуйста, возможно ли (если возможно, то как) с помощью VB6 передать с одного компа на другой значения двух переменных (например А и В) по IP.

[Sasha_karasov]

Если тебя интересует как отправлять данные по сети.
То зайди вот на этот сайт:
http://www.vbprosto.narod.ru/там в разделе Cтатьи->Cеть->Winsock

[homjak]

Если тебя интересует как отправлять данные по сети.
То зайди вот на этот сайт:
http://www.vbprosto.narod.ru/там в разделе Cтатьи->Cеть->Winsock

Эта статья (и не только эта, вроде даже все) лежит у тебя на компе, а не на сайте.

Зато я там нашел пример TCP/IP чата. За это спасибо.

А есть у кого-нибудь пример, как отправлять файлы по TCP/IP?

[tyomitch]

А есть у кого-нибудь пример, как отправлять файлы по TCP/IP?

Есть такая удивительная функция - TransmitFile. Найти пример поможет гугл.

[Jenizix]

А есть у кого-нибудь пример, как отправлять файлы по TCP/IP?

Каешн есть! на форуме поищи тут их море!!!!!!!!
З.Ы. Я уже такие топики воспринимаю как топик для флейма и т.п.

[fort]

а чем тебя Winsock не устраивает???

http://www.vbstreets.ru/VB/Articles/65986.aspx-посмотри, может это то что тебе надо???

[VVitafresh]

Если тебя интересует как отправлять данные по сети.
То зайди вот на этот сайт:
http://www.vbprosto.narod.ru/там в разделе Cтатьи->Cеть->Winsock

Подредактируй ссылки на сайте. Они у тебя ведут на твой диск:
D:/Мои труды/
и т.д.

[Jenizix]

а чем тебя Winsock не устраивает???

LooooooooooL!!! Еще один супер-мега кодер... TCP/IP - это протокол!!! а винсок это НЕ протокол!

[fort]

Jenizix ну скажем не мега-супер кодер... Но с помощью Winsock можно передовать инф. через TCP/IP протокол...


P.S. каюсь, несколько неверно сформулировал свой ответ...
видимо читать не умею...

[Jenizix]

А еще и по протоколу UDP можно данные передавать с помощью винсока...

[tyomitch]

А еще и по протоколу UDP можно данные передавать с помощью винсока...

Jenizix, какое это имеет отношение к топику?
Соревнуешься с fort-ом за звание супер-мега кодера?

[Jenizix]

нет =))))
он писал:

Но с помощью Winsock можно передовать инф. через TCP/IP протокол...

а я сказал что еще через UDP можно... да и сказал что винкос это не протокол

[tyomitch]

Чего-то я посмотрел в инете - и правда, никто не юзает TransmitFile. Совершенно непонятно - всем так хочется повторять рутинную работу самим?

[Konst_One]

tyomitch
используют, но не у нас
http://www.codeproject.com/isapi/imageserver.asp

[tyomitch]

Ок - буду первым, кто догадался использовать TransmitFile в VB-прогах

Передача файла по сети без заморочек, без байтовых массивов, без кусков, без ничего.

[neic]

tyomitch
Скачал тока нифига не понятно! Это клиент или сервер? и ещё если можно прокоментировать каждую строчку. (просто по Передачи файл через нет я ещё новичёк).

[Konst_One]

это клиент-сервер

[tyomitch]

tyomitch
Скачал тока нифига не понятно! Это клиент или сервер? и ещё если можно прокоментировать каждую строчку. (просто по Передачи файл через нет я ещё новичёк).

это клиент-сервер

Угу. Там и клиент, и сервер в одном флаконе.
Winsock1 отправляет файл, а Winsock2 принимает.
Комментирую:

Код: Выделить всё

Private Sub Command1_Click()
If Winsock1.State = sckClosed Then
    Winsock1.RemoteHost = "localhost"
    Winsock1.RemotePort = 12345
    Winsock1.Connect 'подключиться к "серверу" Winsock2
    Do: DoEvents: Loop Until Winsock1.State = sckConnected
End If
Dim hFile As Long
hFile = CreateFile(Text1, GENERIC_READ, 0, ByVal 0&, OPEN_EXISTING, 0, 0) 'открыть файл для передачи
If hFile Then
    TransmitFile Winsock1.SocketHandle, hFile, 0, 0, ByVal 0&, ByVal 0&, TF_WRITE_BEHIND 'передать файл
    CloseHandle hFile 'закрыть файл
End If
End Sub

Private Sub Form_Load()
Winsock2.LocalPort = 12345
Winsock2.Listen '"сервер" слушает на 12345 порту
End Sub

Private Sub Winsock2_ConnectionRequest(ByVal requestID As Long)
Winsock2.Close 'принимать все подключения
Winsock2.Accept requestID
End Sub

Private Sub Winsock2_DataArrival(ByVal bytesTotal As Long)
Dim s As String: Winsock2.GetData s 'считать полученные данные
Text2 = Text2 & s 'показать полученные данные в текстбоксе
End Sub


[Конь]

Насколько я понял, это только для приема/передачи текста.
А как быть, допустим, с приложениями?

Посмотрите, плз, мой файлообменник, скажите, что изменить надо (чтобы не только текст принимать/отправлять)!

[Amed]

Конь, приложения и вообще файлы - практически тот же текст.

Байтовый массив, если точнее. Читай файл в массив и отправляй его так же, как текст.

[Конь]

Amed
Вообще-то да, но после передачи приложение не работает. Попробуй сам - запусти дважды мой "файлообменник" и пошли на IP 127.0.0.1 любое приложение!

[Amed]

Я не смотрел и не пробовал. Подозреваю, что передаешь массив как строку, и при этом все нулевые байты теряются.

[tyomitch]

Конь, посмотри прикреплённый выше пример.
Там передаётся именно файл, причём без чтения его в байтовый массив и прочих премудростей.

[Конь]

Ты про то, где контент идет в переменную "s"?

[tyomitch]

Ещё один считающий, что в переменной типа String может лежать один только текст?

[Конь]

Я то же самое пытался сделать на твоем примере, tyomitch, только вместо "Text2 = Text2 & s" писал:

Open "C:\1.exe" For Output As #1
Print #1, s
Close #1

Не работает.

[alibek]

Конь, как ты думаешь, зачем в примере была точка с запятой?

[Конь]

alibek
А ты как думаешь, почему я ее не вижу?

[tyomitch]

alibek
А ты как думаешь, почему я ее не вижу?

Наверное, близорукость от слишком долгого сидения перед монитором?
Посмотри сюда ещё раз, внимательно и с лупой.

[Конь]

Код: Выделить всё

Private Sub WSG_DataArrival(ByVal bytesTotal As Long)

    Dim GD As String: WSG.GetData GD
    Open txtFile.Text For Append As #1
    Print #1, GD;
    Close #1
   
    cmdStop_Click
    StBar.SimpleText = "Готово"

End Sub

Ты имел в виду сделать так?