[beralus]

Люди добрые, после получение POST данные
Request и Response полученных от событии OnCommandGet объекта TIdHTTPServer и передается к след. функции.
Но полученные байты значительно отличаются от оргинала. Код взята с инета, чут изменен.Вожил исходный и байты. Они не соответсвуют. И естественно нарущается последователности байтов

Чего я неправилно делаю? Где моя ощибка?

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96

HandleMultipartUpload(Request: TIdHTTPRequestInfo;Response: TIdHTTPResponseInfo); var   LBoundary, LBoundaryStart, LBoundaryEnd: string;   LDecoder: TIdMessageDecoder;   LLine: string;   LBoundaryFound, LIsStartBoundary, LMsgEnd: Boolean;     // mine   Decoder: TIdMessageDecoderMIME;   LStream: TStream;   fstream:TmemoryStream;   I: integer;   begin     LBoundary := ExtractHeaderSubItem(Request.ContentType, 'boundary', QuoteHTTP);   if LBoundary = '' then   begin     Response.ResponseNo := 400;     Response.CloseConnection := true;     Response.WriteHeader;     Exit;   end;     LBoundaryStart := '--' + LBoundary;   LBoundaryEnd := LBoundaryStart + '--';     LDecoder := TIdMessageDecoderMIME.Create(nil);   try     TIdMessageDecoderMIME(LDecoder).MIMEBoundary := LBoundary;     LDecoder.SourceStream := Request.PostStream;     LDecoder.FreeSourceStream := False;       LBoundaryFound := False;     LIsStartBoundary := False;     repeat       LLine := ReadLnFromStream(Request.PostStream, -1, true);       if LLine = LBoundaryStart then       begin         LBoundaryFound := true;         LIsStartBoundary := true;       end       else if LLine = LBoundaryEnd then       begin         LBoundaryFound := true;       end;       until LBoundaryFound;       if (not LBoundaryFound) or (not LIsStartBoundary) then     begin       Response.ResponseNo := 400;       Response.CloseConnection := true;       Response.WriteHeader;       Exit;     end;       LMsgEnd := False;       repeat       TIdMessageDecoderMIME(LDecoder).MIMEBoundary := LBoundary;       LDecoder.SourceStream := Request.PostStream;       LDecoder.FreeSourceStream := False;         LDecoder.ReadHeader;       case LDecoder.PartType of         mcptText:            ProcessMimePart(LDecoder, LMsgEnd, Response);         mcptAttachment:           begin           fstream:=TmemoryStream.Create();                             {не правиьно получаетбайты}                var newDecor:TIdMessageDecoder:= LDecoder.ReadBody(fstream,LMsgEnd);                 fstream.SaveToFile(GetUploadFolder+LDecoder.Filename) ;                 LDecoder:=TIdMessageDecoderMime(newDecor);                 continue;            end;           mcptIgnore:           begin             LDecoder.Free;             LDecoder := TIdMessageDecoderMIME.Create(nil);           end;         mcptEOF:           begin             LDecoder.Free;             LMsgEnd := true;           end;       end;     until (LDecoder = nil) or LMsgEnd;   finally     LDecoder.Free;   end; end;

lmikle: Пользуемся тегами при оформлении

исходные:
OrginalBytes.png

Код:

1	полученные:

ReceivedBytes.png