Дед Winsock и файлы :-)

[Tarik]

Подскажите плиз, как перекачивать файлы по Winsock? Желательно поподробнее.

[Amed]

Давай скину пример на мыло... В zip или rar?

[sanches]

есть у меня свой пример, но после того, как я увидел это - мой оказался полной фигней (ну почти фигней )

[Amed]

Вот файл:

[X-BOND]

Посмотрел я этот примерчик...
Даже испытывать не стал. Попробуйте переслать графику. Интересно, что получится.
Да, кстати, у Winsock есть ограничение (не помню точно, вроде около 5Kb) размера пересылаемого блока.

[Firestorm]

где-то видал еще примерчик на vbnet.ru...
всё должно работать нормально...

Да, кстати, у Winsock есть ограничение (не помню точно, вроде около 5Kb) размера пересылаемого блока.

и чё ты этим хочешь сказать?

[X-BOND]

Да просто если файл будет больше этого размера, данный пример отправит только этот блок. И размер полученного файла будет не соответствовать оригиналу.

[X-BOND]

Да просто если файл будет больше этого размера, данный пример отправит только этот блок. И размер полученного файла будет не соответствовать оригиналу.

[Amed]

Даа... А решение в голову сразу не приходит?
Имхо: грузим файл в String, затем разбиваем String на куски по 5 кБайт и поочерёдно их посылаем...

P.S. Пример написан для примера, это ведь не готовое приложение %)

[X-BOND]

Но в том и проблема, что "грузим в string".
Бинарные файлы таким способом передать не удастся.[/b]

[Amed]

Хмм.. Почему же не получится? Разве я не могу сделать так:
1) Определяю размер файла с помощью Windows API
2) В цикле побайтно загружаю файл в String:
For i = 1 to FILE_SIZE-1
put #1, i, tmp
Data=Data & cstr(chr(tmp))
Next i
3) В цикле разбиваю String на куски по 5 кбайт и поочерёдно их посылаю...
4) В клиенте собираю куски файла, склеиваю их и пишу в файл...

??? Может, я неправ и это невозможно ???

[X-BOND]

Я тоже так думал. Но в переменной String теряются определенные байты. (вроде все до 32).

Вот фрагмент моего кода:

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

Sub SendFile(ByVal FN As String, ByVal StartPos As Long)
Dim FL As Long, POS As Long, LB As Integer, TB As Long, LP As Long
Dim TMP As String, TimeOut As Single
Dim R() As Byte  ' !!!
Dim P As Long
Dim B As Integer

On Error GoTo 1

B = Val(OPT(6))
P = Val(OPT(5))

Close #1: Open FN For Binary Access Read As #1

FL = LOF(1)
LB = FL Mod B - 1
LP = FL - LB

SendDATA "SENDFILE:" & LTrim$(Str$(FL)), "&"

If WAD = 1 Then
ReDim R(B) As Byte
Else: GoTo E
End If

For POS = 1 To FL Step B

R:
If POS >= LP Then
ReDim R(LB) As Byte
Get #1, POS, R
Else: Get #1, POS, R
End If

SendDATA LTrim$(Str$(POS)), "#"

If WAD <> 1 Then GoTo E

SendDATA R

Select Case WAD
Case 2: GoTo R
Case 0, 3: GoTo E
End Select

Next POS

SendDATA "EOF:" & FN, "&"

E:
Close

Exit Sub
1:: Close: ErrINT

Разобратся здесь, я думаю, будет сложно, так как код вплотную интегрирован с всей прграммой.

Но главное, что пересылать бинарные данные можно только в переменной типа Byte
[/code]

[Amed]

2X-BOND Ох! А я и не знал... Спасибо за разъяснение

[v-adix]

вот мой пример
может кому нибудь пригодится...

[GoGosha]

Я тоже так думал. Но в переменной String теряются определенные байты. (вроде все до 32).
[/code]

Вот код, который сведетельствует, что никакие байты в String переменных НЕ теряются

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

Private Sub Form_Load()
    Do
        Dim Str As String
        Dim Numb As Byte
       
        Randomize
       
        Numb = Rnd * 32
       
        MsgBox Numb, , "Номер символа"
       
        Str = Chr(Numb)
        MsgBox Asc(Str), , "Номер символа после хранения в String переменной"
    Loop
End Sub

[X-BOND]

Возможно, на счет String я ошибся.
Но приведите здесь кто-нибудь реально работающий код по пересылке бинарных данных с помощью переменной String

[Tarik]

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