Передача файла.

[GPP]

Привет всем! Народ помогите пожалуйста. Надо передать по протоколу UDP по локалке файл. Пробовал так:


Программа отправитель.

Private Sub Command1_Click()

Dim buf As String

Open "c:\1.jpg" For Binary As #1

Get #1, , buf

Close #1

Send.RemoteHost = "127.0.0.1"

Send.SendData buf

End Sub

Private Sub Form_Load()

With Send
.RemotePort = 255
.Bind 254
End With

End Sub


Программа "приемник"

Private Sub Form_Load()

With Send
.RemotePort = 254
.Bind 255
End With

End Sub

Private Sub Send_DataArrival(ByVal bytesTotal As Long)

Dim buf As String

Send.GetData buf

Open "C:\2.jpg" For Binary As #2

Put #2, , buf

Close #2

MsgBox "Файл принят"

End Sub

Не работает. Почему не знаю. Файл весит 2.2 метра. Может подскажете? Надо именно через UDP. Так препод сказал. За ранее огромное СПАСИБО.

[CodeName33]

GPPЧерез UDP нельзя сразу весь файл отправить. Он автоматически не делит на пакеты, как в TCP. Надо самому делить файл на части (я по 2к делил) и отправлять. Но так как в UDP нет уведомления о том, доставлен пакет или нет, получатель должет сообщить, что он пакет получил и только тогда можно следующий отправлять...

[Odrick]

Dim buf As String
Open "c:\1.jpg" For Binary As #1
Get #1, , buf
Close #1

Так ты ничего не получиш... Нужно устанавливать еще размер буферной переменной, равным размеру файла. Например так:

buf = Space(Lof(1))

[GPP]

А можно исходничек? Очень надо!

[Wild VB Code for Food]

Сейчас чёнить придумаем.....ктомуже на приёмнике надо писать

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

Dim segments as integer

Dim file() as string

Private Sub Form_Load()

Send.Bind 256
Send.Listen

End Sub

Private Sub Send_ConnectionRequest(ByVal requestID As Long)

send.close
send.acept requestID

End Sub


Private Sub Send_DataArrival(ByVal bytesTotal As Long)
Dim buffer as string
Dim tmparr() as string

send.getdata buffer

tmparr = split(buffer,":");

select case tmparr(0)

case "hello"
    segments = tmparr(1)
    send.senddata "ok"
case "end"
    Open "C:\2.jpg" For Binary As #1
    for i = 0 to ubound(file)
     put #1,,file(i)
    next i
    send.senddata "ok:end"
    send.close
    Exit Sub
default:
    file(tmparr(0)-1) = tmparr(1)

end select



End Sub

Я бы способ не назвал самым иделальным, и не гарантирую что выше приведённый код работает, тк писал его прямо на форуме, без проверки в VB. Немного ВБ стал подзабывать тк пересел на C++

[GPP]

Блин. Выше представленный код не пашет... Может у кого завалялся исходничек? Очень надо... За ранее огромное спасибо!

[GPP]

Можно и с TCP ! Помогите пожалуйста...

[Wild VB Code for Food]

во 1ых - передавать файл по UDP - сумашествие...только п TCP... специально для тебя сейчас пишу прогу.... как напишу отошлю в личку...

[GPP]

Wild VB Code for Food, ОГРОМНОЕ СПАСИБО!