VPF::Synaps отправить файл на сервер методом POST

Zlo

Дата 16.4.2013, 22:34 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 235
Регистрация: 18.9.2004

Репутация: нет
Всего: 1

Есть функция которая используя библиотеку Synaps отправляет файл на сервер:

Код


function HTTPPostFile(Const URL, FieldName, FileName: String; Const Data: TStream; Const ResultData: TStrings): Boolean;
const
  CRLF = #$0D + #$0A;
var
  HTTP: THTTPSend;
  Bound, Str: String;
begin
  Bound := IntToHex(Random(MaxInt), 8) + '_Synapse_boundary';
  HTTP := THTTPSend.Create;
  try
    Str := '--' + Bound + CRLF;
    HTTP.UserAgent:='Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 6.1; Trident/4.0; SLCC2; .NET CLR 2.0.50727; .NET CLR 3.5.30729; .NET CLR 3.0.30729; Media Center PC 6.0; InfoPath.3; .NET4.0C; .NET4.0E)';
    Str := Str + 'content-disposition: form-data; name="' + FieldName + '";';
    Str := Str + ' filename="' + FileName + '"' + CRLF;
    Str := Str + 'Content-Type: image/pjpeg' + CRLF + CRLF;
    HTTP.Document.Write(PAnsiChar(Str)^, Length(Str));
    HTTP.Document.CopyFrom(Data, 0);
    Str := CRLF + '--' + Bound + '--' + CRLF;
    HTTP.Document.Write(PAnsiChar(Str)^, Length(Str));
    HTTP.MimeType := 'multipart/form-data, boundary=' + Bound;
    Result := HTTP.HTTPMethod('POST', URL);
    ResultData.LoadFromStream(HTTP.Document);
  finally
    HTTP.Free;
  end;
end;

собственно скрипт на сервере ругается что имя файла не может быть пустым.
Сниффером посмотрел что отправляет программа:
Вот кусок вместе с заголовком
user posted image

А вот как это делает браузер:
user posted image

Не могу понять откуда там пробелы берутся...
Помогите плз разобраться

Чучмек

Дата 16.4.2013, 23:17 (ссылка)

(нет голосов)

Загрузка ...

НЭТ БИЛЭТ

Профиль
Группа: Участник
Сообщений: 841
Регистрация: 11.5.2008
Где: СССР

Репутация: 4
Всего: 41

Zlo, какая делфа?

--------------------

умную мысль держи при себе, а дурной - поделись с другими

Чучмек

Дата 17.4.2013, 00:06 (ссылка)

(нет голосов)

Загрузка ...

НЭТ БИЛЭТ

Профиль
Группа: Участник
Сообщений: 841
Регистрация: 11.5.2008
Где: СССР

Репутация: 4
Всего: 41

Zlo, Итак знаю - юникодная.

Цитата(Zlo @ 16.4.2013, 22:34

)

Не могу понять откуда там пробелы берутся...

Это не пробелы, это #0.
Исправь

Цитата(Zlo @ 16.4.2013, 22:34

)

Str: String;

на

Код


Str: AnsiString;

--------------------

умную мысль держи при себе, а дурной - поделись с другими

Zlo

Дата 17.4.2013, 00:23 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 235
Регистрация: 18.9.2004

Репутация: нет
Всего: 1

Чучмек, Гениально! Спасибо!

Akella

Дата 17.4.2013, 13:52 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 4
Всего: 329

Цитата(Zlo @ 16.4.2013, 22:34

)

const
CRLF = #$0D + #$0A;

для этого есть готовая константа в дельфи: sLinesBreak;

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Сети \| Следующая тема »