params = AsciiToBase64(ts.ReadAll)
(есть вариант и без Бейс64)
- Код: Выделить всё
Form1.Winsock1.SendData "POST " & URL & " HTTP/1.1" & vbCrLf
Form1.Winsock1.SendData "Authorization: Basic " & AsciiToBase64("login:password") & vbCrLf
Form1.Winsock1.SendData "Content-Type: multipart/form-data; boundary=1BEF0A57BE110FD467A" & vbCrLf
Form1.Winsock1.SendData "Host: HOST" & vbCrLf
Form1.Winsock1.SendData "Content-Length: " & Len(params) & vbCrLf & vbCrLf
Form1.Winsock1.SendData "--1BEF0A57BE110FD467A" & vbCrLf
Form1.Winsock1.SendData "Content-Disposition: form-data; name='Req'; filename='suggestion.csv'" & vbCrLf
Form1.Winsock1.SendData "Content-Type: application/octet-stream" & vbCrLf & vbCrLf
Form1.Winsock1.SendData params & vbCrLf
Form1.Winsock1.SendData "--1BEF0A57BE110FD467A--" & vbCrLf
Вот так. Фишка в том, что некоторые файлы отправляются ок, а некоторые нет - сервер возвращает: Error Source: Microsoft Data Transformation Services (DTS) Data Pump Description: Column name 'Col004' was not found. Хотя совсем недавно такого же формата файл был отправлен успешно. В файле .csv строчки типа : 155;34;14,5;10.05.2006
Какие предположения?
Спасибо.