Есть функция которая используя библиотеку 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;
|
собственно скрипт на сервере ругается что имя файла не может быть пустым.
Сниффером посмотрел что отправляет программа:
Вот кусок вместе с заголовком
А вот как это делает браузер:
Не могу понять откуда там пробелы берутся...
Помогите плз разобраться |
