Залить файл!

[Debugger]

Как залить файл по Inet Constrol? MSDN не предлагайде, она не естся. И ещё: надо ftp или http для этого? Можно исходник?

[keks-n]

Читай описание протокола FTP и работай через винсок. Поверь, так лучше. А через HTTP можно, но обычно это запрещено настройками сервера.

[Debugger]

С винсоком я ваще не лады. Можно пример?

[hCORe]

http://www.vbip.com ?

[Debugger]

Для меня английский как для тебя китайский.
К тому же это .Net, а у мя 6.1

[CORBA]

Для меня английский как для тебя китайский.
К тому же это .Net, а у мя 6.1

да ну ладно... www.vbip.com это вообще кладезь информации по твоему вопросу.

[Debugger]

Хватаюсь за голову и повторяю: есть на русском? Я с енглишем не лады..

[GSerg]

Тогда не стоит заниматься программированием...

[Debugger]

Да не просто я не супер в енглише. С трудом понимаю тексты, что там...

[teCa]

Такая проблемма:

Пытаюсь слить/залить файлы на фтп.

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

strFileSend = """" & "PUT " & strFilePath & " /upload/skins/" & strFileName & """"
Inet1.Execute , strFileSend

debug.print strFileName = "PUT D:\SyncFTPP.txt /upload/skins/SyncFTPP.txt"

И нифига не работает, но если же сделаю так:

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

strFileSend = "PUT D:\SyncFTPP.txt /upload/skins/SyncFTPP.txt"
Inet1.Execute , strFileSend

То все велеколепно отрабатывает!
Все переменные типа Srting.

C GET таже история...

[Tarik]

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

strFileSend = """" & "PUT " & strFilePath & " /upload/skins/" & strFileName & """"
Inet1.Execute , strFileSend

Так а нафиг дополнительно всю команду в кавычки заключать?

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

strFileSend = "PUT " & strFilePath & " /upload/skins/" & strFileName
Inet1.Execute , strFileSend

[teCa]

Да так все заработало, только теперь не отрабатываются пути в которых есть пробелы к примеру

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

PUT D:\Games\Live For Speed S2\data\skins\FOX_RSC_Blue.jpg /upload/skins/FOX_RSC_Blue.jpg

Уже не отрабатывает, что делать?

[tyomitch]

strFileSend = "PUT """ & strFilePath & """ /upload/skins/" & strFileName

[StimorolD3DX]

Для меня английский как для тебя китайский.
К тому же это .Net, а у мя 6.1

Извините за офтоп, но что есть Visual Basic 6.1, новая версия? Посвятите меня

[tyomitch]

Обычно так называют VB6 SP1.
Хотя слышал и о пиратских русификациях с таким названием.

[Ruslan Demidow]

Обычно так называют VB6 SP1.
Хотя слышал и о пиратских русификациях с таким названием.

В самый первый раз поставил себе именно таку "русефекацию". Обплевался, снёс и поставил английскую. Чего и всем желаю.

[teCa]

Да с ФТП все получилось, но возникла необходимость переписать под http протакол, это вообще как реализуется, ясно что к фтп можно подлючится, использовать его папки итд, а тут как?

[Antonariy]

А тут должен быть скрипт на сервере, который из multipart-формы извлечет данные и складирует из в файл.

[teCa]

а как с этим скриптом взаимодействовать?

[Antonariy]

Ну например так:

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

Dim objHTTP As New MSXML2.XMLHTTP
Dim r() As Byte
    r = ReadFile
    With objHTTP
        .open "POST", "http:\\server\page.asp"
        .setRequestHeader "Content-Type", "image/gif;"
        .send r
    End With

На сервере:

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

<%WriteFile Request.BinaryRead(Request.TotalBytes)%>