Отправка файла на сервер

[Зод]

Цель: загрузить файл на сайт.
Есть код на синапсе:

procedure TForm1.Otpravka(Sender: TObject);
Const
  CRLF = #$0a + #$0d;
  CR = #$0a;
var
  HTTP: THTTPSend;
  s: AnsiString;
  FS: TFileStream;
begin
     HTTP := THTTPSend.Create;
     HTTP.Protocol:='1.1';
     HTTP.Headers.Add('Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8');
     HTTP.Headers.Add('Accept-Language: en-us,en;q=0.5');
     HTTP.Headers.Add('Accept-Encoding: gzip, deflate');
     FS:=TFileStream.Create('8.jpg', fmOpenRead);
      HTTP.MimeType := 'multipart/form-data; boundary=---------------------------296832204222114';
      s := '-----------------------------296832204222114' + CR +
        'Content-Disposition: form-data; name="files[]"; filename="8.JPEG"'
        + CR + 'Content-Type: image/jpeg' + CRLF;
      HTTP.Document.Write(PAnsiChar(s)^, Length(s));
      FS.Position := 0;
      HTTP.Document.CopyFrom(FS, FS.Size);
    s := CR + '-----------------------------296832204222114' + CR + 'Content-Disposition: form-data; name="user-form"' +
     CRLF + 'Send request' + CR + '-----------------------------296832204222114--';
    HTTP.Document.Write(PAnsiChar(s)^, Length(s));
     HTTP.HTTPMethod('POST', 'https://урл');
     FS.Free;
  end;

И он определенно не работает. Сервер не принимает картинку. Но если сделать так:

begin
     HTTP := THTTPSend.Create;
     HTTP.Protocol:='1.1';
     HTTP.Headers.Add('Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8');
     HTTP.Headers.Add('Accept-Language: en-us,en;q=0.5');
     HTTP.Headers.Add('Accept-Encoding: gzip, deflate');
     FS:=TFileStream.Create('8.jpg', fmOpenRead);
      HTTP.MimeType := 'multipart/form-data; boundary=---------------------------296832204222114';
      HTTP.Document.Write(PAnsiChar(s)^, Length(s));
      FS.Position := 0;
      HTTP.Document.CopyFrom(FS, FS.Size);
    HTTP.Document.Write(PAnsiChar(s)^, Length(s));
     HTTP.HTTPMethod('POST', 'https://урл);
     FS.Free;
  end;

а вместо картинке создать текстовый файл с именем 8.jpg и запихнуть в него нужные строки

-----------------------------296832204222114
Content-Disposition: form-data; name="files[]"; filename="029.JPG"
Content-Type: image/jpeg

файл картинке открытой блокнотом и скопированной сюда
-----------------------------296832204222114
Content-Disposition: form-data; name="user-form"

Send request
-----------------------------296832204222114--

То "картинка" загрузится успешно, сервер ее примет.
В чем может быть проблема?
Я конечно понимаю что я в Делфи не правильно создаю запрос, но он точно такой же как в 2 варианте, а результат отправки разный.
Кто поможет?

[indexx]

Перехвати пакет и посмотри что с ним не так.

[Зод]

Отправка один в один во всех вариантах. Сервер в первом случае ругается так :
The file "1.JPEG" cannot be uploaded. Only files of these MIME-types are allowed: image/gif, image/jpeg, image/pjpeg, image/png, application/pdf
Как понимаю здесь два варианта. Либо я записывая тело отправки нарушаю структуру файла (на взгляд различий не вижу), либо не правильно выставляю bound ( на взгляд опять же все строчка в строчку).


В принципе проблему решает замена

Const
  CRLF = #$0a + #$0d;
  CR = #$0a;

на

Const
  CRLF = #13#10;
  CR = #13#10;