delphi 带有TIdMultiPartFormDataStream的TIdHTTPServer

xzlaal3s  于 2024-01-07  发布在  其他
关注(0)|答案(2)|浏览(361)

这与我之前的问题here有关，我发现了一个东西，认为这可能是解决我的问题的方法，但我无法让它工作，我需要有人谁可以帮助我。
这是密码
代码TIdMIMEBoundary.FindBoundary（）的问题是未声明的标识符和Fetch（）。

  1. uses
  2. ...
  3. IdTCPConnection, IdTCPClient, IdHTTP, IdBaseComponent,
  4.   IdComponent, IdCustomTCPServer, IdCustomHTTPServer, IdHTTPServer,
  5.   IdContext, IdMultipartFormData, IdHeaderList, IdMessageCoder,
  6.   IdMessageCoderMIME, IdMessage, IdGlobalProtocols;
  8. procedure DecodeFormData(const Header: String; ASourceStream:TStream);
  9. var
  10.   MsgEnd: Boolean;
  11.   Decoder: TIdMessageDecoder;
  12.   Tmp: String;
  13.   Dest: TStream;
  14. begin
  15.   MsgEnd := False;
  16.   Decoder := TIdMessageDecoderMIME.Create(nil);
  17.   try
  18.     TIdMessageDecoderMIME(Decoder).MIMEBoundary :=
  19.     TIdMIMEBoundary.FindBoundary(Header);
  20.     Decoder.SourceStream := ASourceStream;
  21.     Decoder.FreeSourceStream := False;
  22.     Decoder.ReadLn;
  23.     repeat
  24.       Decoder.ReadHeader;
  25.       case Decoder.PartType of
  26.         mcptUnknown:
  27.         raise Exception.Create('Unknown form data detected');
  29.         mcptText:
  30.         begin
  31.           Tmp := Decoder.Headers.Values['Content-Type'];
  32.           Dest := TMemoryStream.Create;
  33.           try
  34.             Decoder := Decoder.ReadBody(Dest,MsgEnd);
  35.             if AnsiSameText(Fetch(Tmp, ';'),'multipart/mixed') then
  36.               DecodeFormData(Tmp, Dest)
  37.              else
  38.             // use Dest as needed...
  39.           finally
  40.             FreeAndNil(Dest);
  41.           end;//try
  42.         end;
  44.       mcptAttachment:
  45.       begin
  46.         Tmp := ExtractFileName(Decoder.FileName);
  47.         if Tmp <>'' then
  48.           Tmp := 'c:\some folder\' + Tmp
  49.         else
  50.           Tmp := MakeTempFilename('c:\somefolder\');
  51.         Dest := TFileStream.Create(Tmp, fmCreate);
  52.         try
  53.           Decoder := Decoder.ReadBody(Dest,MsgEnd);
  54.         finally
  55.           FreeAndNil(Dest);
  56.         end;//try
  57.       end;
  59.       end;
  61.       until (Decoder = nil) or MsgEnd;
  62.   finally
  63.     FreeAndNil(Decoder);
  64.   end;//try
  65. end;

字符串

delphi

2条答案

按热度按时间
0g0grzrc

0g0grzrc1#

您需要在uses子句中包含IdMessage和IdMessageCoderMIME

赞(0）分享  回复(0）举报  2024-01-07
vojdkbi0

vojdkbi02#

我创建了一个名为TIdMultiPartFormDataStreamReader的对象，它可以在一个步骤中解码您在服务器上接收到的所有多部分/表单数据内容。

  1. unit idMultipartFormDataReader;
  3. interface
  5. {$I IdCompilerDefines.inc}
  7. uses System.SysUtils, System.Classes, IdGlobal, IdGlobalProtocols,
  8.   idMultipartFormData, IdCustomHTTPServer,
  9.   IdCoderQuotedPrintable, IdCoderMIME, IdHeaderList;
  11. type
  12.   TIdMultiPartFormDataStreamReader = class( TIdMultiPartFormDataStream )
  13.   private
  14.     FRequestInfo: TIdHTTPRequestInfo;
  15.   protected
  16.     procedure decodeStream;
  17.   public
  18.     property Fields: TIdFormDataFields read FFields;
  19.     constructor Create( ARequestInfo: TIdHTTPRequestInfo );
  20.   end;
  22. implementation
  24. { TIdMultiPartFormDataStreamReader }
  26. constructor TIdMultiPartFormDataStreamReader.Create(
  27.   ARequestInfo: TIdHTTPRequestInfo);
  28. begin
  29.   inherited Create;
  30.   FSize := 0;
  31.   FInitialized := False;
  32.   FFields := TIdFormDataFields.Create(Self);
  33.   FRequestInfo := ARequestInfo;
  34.   decodeStream;
  35. end;
  37. procedure TIdMultiPartFormDataStreamReader.decodeStream;
  38. var
  39.   delimi, cadStream: string;
  40.   cabeceras: TIdHeaderList;
  41.   stInfo: TMemoryStream;
  42.   posIniPost, posFinPost, posIniRetorno: Integer;
  43.   cadenaOri: string;
  44.   fieldName: string;
  45.   fieldFileName: string;
  46.   contentType: string;
  47.   charSet: string;
  48.   transferEnconding: string;
  49.   {$IFDEF STRING_IS_ANSI}
  50.     LBytes: TIdBytes;
  51.   {$ENDIF}
  53.   function ReadStringLn( StreamOri: TStream; var cadenaBus: string; char_set: string ): Boolean;
  54.   var
  55.     candidato: Boolean;
  56.     posIniSO: Integer;
  57.     posFinSO: Integer;
  58.     StreamDes: TMemoryStream;
  59.     bleer: Byte;
  60.   begin
  62.     candidato := False;
  63.     StreamDes := TMemoryStream.Create;
  64.     posIniSO := StreamOri.Position;
  66.     cadenaBus := '';
  68.     while ( not candidato ) and ( StreamOri.Position < StreamOri.Size ) do begin
  70.       StreamOri.Read( bleer, 1 );
  72.       if ( bleer = 13 ) then begin
  74.         StreamOri.Read( bleer, 1 );
  76.         if ( bleer = 10 ) then  begin
  78.           candidato := True;
  79.           posFinSO := StreamOri.Position;
  80.           StreamOri.Position := posIniSO;
  82.           if ( posFinSO - 2 - posIniSO > 0 ) then begin
  84.             StreamDes.CopyFrom( StreamOri, posFinSO - 2 - posIniSO );
  86.             StreamDes.Position := 0;
  88.             cadenaBus := IdGlobalProtocols.ReadStringAsCharset( StreamDes, char_set );
  90.           end;
  92.           StreamOri.Position := posFinSO;
  94.         end;
  96.       end;
  98.     end;
  100.     StreamDes.Free;
  101.     Result := candidato;
  103.   end;
  104. begin
  105.   {$IFDEF STRING_IS_ANSI}
  106.   LBytes := nil;
  107.   {$ENDIF}
  109.   if ( ExtractHeaderItem( FRequestInfo.RawHeaders.Values[ 'Content-Type' ] ) <> 'multipart/form-data' ) then
  110.     Exit;
  112.   cabeceras := TIdHeaderList.Create( TIdHeaderQuotingType.QuoteHTTP );
  114.   delimi := FRequestInfo.RawHeaders.Params['Content-Type', 'boundary'];
  116.   FBoundary := delimi;
  118.   FRequestContentType := sContentTypeFormData + FBoundary;
  120.   FRequestInfo.PostStream.Position := 0;
  122.   if ( ReadStringLn( FRequestInfo.PostStream, cadenaOri, FRequestInfo.CharSet ) ) then begin
  124.     while ( cadenaOri = '--' + delimi )  and
  125.           ( FRequestInfo.PostStream.Position < FRequestInfo.PostStream.Size ) do begin
  127.       if ( ReadStringLn( FRequestInfo.PostStream, cadenaOri, FRequestInfo.CharSet ) ) then begin
  129.         while ( cadenaOri <> '' ) and
  130.           ( FRequestInfo.PostStream.Position < FRequestInfo.PostStream.Size ) do begin
  132.           cabeceras.Add( cadenaOri );
  133.           ReadStringLn( FRequestInfo.PostStream, cadenaOri, FRequestInfo.CharSet );
  135.         end;
  137.         fieldName := cabeceras.Params[ 'Content-Disposition', 'name' ];
  138.         fieldFileName := cabeceras.Params[ 'Content-Disposition', 'filename' ];
  140.         contentType := ExtractHeaderItem( cabeceras.Values[ 'Content-Type' ] );
  141.         charSet := cabeceras.Params[ 'Content-Type', 'charset' ];
  143.         transferEnconding := cabeceras.Values[ 'Content-Transfer-Encoding' ];
  145.         stInfo := TMemoryStream.Create;
  146.         posIniPost := FRequestInfo.PostStream.Position;
  147.         posFinPost := posIniPost;
  149.         ReadStringLn( FRequestInfo.PostStream, cadenaOri, FRequestInfo.CharSet );
  151.         while ( cadenaOri <> '--' + delimi ) and ( cadenaOri <> '--' + delimi + '--' )  and
  152.           ( FRequestInfo.PostStream.Position < FRequestInfo.PostStream.Size ) do begin
  154.           posFinPost := FRequestInfo.PostStream.Position;
  155.           ReadStringLn( FRequestInfo.PostStream, cadenaOri, FRequestInfo.CharSet );
  157.         end;
  159.         posIniRetorno := FRequestInfo.PostStream.Position;
  161.         FRequestInfo.PostStream.Position := posIniPost;
  163.         if ( posFinPost - 2 - posIniPost > 0 ) then begin
  165.           if ( fieldFileName <> '' ) then begin
  167.             stInfo.CopyFrom( FRequestInfo.PostStream, posFinPost - 2 - posIniPost );
  169.             if ( LowerCase( transferEnconding ) = 'quoted-printable' ) then begin
  171.               stInfo.Position := 0;
  173.               cadStream := ReadStringFromStream( stInfo );
  175.               stInfo.Clear;
  176.               stInfo.Position := 0;
  178.               TIdDecoderQuotedPrintable.DecodeStream( cadStream, stInfo );
  180.             end else if ( LowerCase( transferEnconding ) = 'base64' ) then begin
  182.               stInfo.Position := 0;
  184.               cadStream := ReadStringFromStream( stInfo );
  186.               stInfo.Clear;
  187.               stInfo.Position := 0;
  189.               TIdDecoderMIME.DecodeStream( cadStream, stInfo );
  191.             end;
  193.             stInfo.Position := 0;
  195.             AddFormField( fieldName, contentType, charSet, stInfo, fieldFileName );
  197.           end else begin
  199.             stInfo.CopyFrom( FRequestInfo.PostStream, posFinPost - 2 - posIniPost );
  201.             cadStream := '';
  203.             stInfo.Position := 0;
  205.             {$IFDEF STRING_IS_ANSI}
  207.             ReadTIdBytesFromStream( stInfo, LBytes, stInfo.Size );
  209.             {$ENDIF}
  211.             if ( LowerCase( transferEnconding ) = '7bit' ) then begin
  213.               {$IFDEF STRING_IS_UNICODE}
  215.               cadStream := ReadStringFromStream( stInfo, -1, IndyTextEncoding_ASCII );
  217.               {$ELSE}
  219.               CheckByteEncoding( LBytes, IndyTextEncoding_ASCII, CharsetToEncoding( charSet ) );
  221.               {$ENDIF}
  223.             end else if ( LowerCase( transferEnconding ) = 'quoted-printable' ) then begin
  225.               {$IFDEF STRING_IS_UNICODE}
  227.               cadStream := ReadStringFromStream( stInfo );
  229.               cadStream := TIdDecoderQuotedPrintable.DecodeString( cadStream, CharsetToEncoding( charSet ) );
  231.               {$ELSE}
  233.               BytesToRaw( LBytes, cadStream, Length( LBytes ) );
  235.               LBytes := TIdDecoderQuotedPrintable.DecodeBytes( cadStream );
  237.               {$ENDIF}
  239.             end else if ( LowerCase( transferEnconding ) = 'base64' ) then begin
  241.               {$IFDEF STRING_IS_UNICODE}
  243.               cadStream := ReadStringFromStream( stInfo );
  245.               cadStream := TIdDecoderMIME.DecodeString( cadStream, CharsetToEncoding( charSet ) );
  247.               {$ELSE}
  249.               BytesToRaw( LBytes, cadStream, Length( LBytes ) );
  251.               LBytes := TIdDecoderMIME.DecodeBytes( cadStream );
  253.               {$ENDIF}
  255.             end else if ( LowerCase( transferEnconding ) = '8bit' ) or ( LowerCase( transferEnconding ) = 'binary' ) then begin
  257.               {$IFDEF STRING_IS_UNICODE}
  259.               cadStream := ReadStringAsCharset( stInfo, charSet );
  261.               {$ENDIF}
  263.             end;
  265.             {$IFDEF STRING_IS_ANSI}
  267.             BytesToRaw( LBytes, cadStream, Length( LBytes ) );
  269.             {$ENDIF}
  271.             AddFormField( fieldName, cadStream, charSet, contentType );
  273.             stInfo.Free;
  275.           end;
  277.         end;
  279.         FRequestInfo.PostStream.Position := posIniRetorno;
  281.         cabeceras.Clear;
  283.       end;
  285.     end;
  287.   end;
  289. end;
  291. end.

字符串
项目在https://github.com/enriquecerda/TIdMultiPartFormDataStreamReader中

展开查看全部
赞(0）分享  回复(0）举报  2024-01-07
我来回答

相关问题

    查看更多

    热门标签

    更多
    JavaquerypythonNode开发语言requestUtil数据库Table后端算法LoggerMessageElementParser

    最新问答

    更多
    • 蜀ICP备13028337号-1 大数据知识库 https://www.saoniuhuo.com © All rights reserved
    • 本站内容来源互联网,如果侵犯您的权益请联系我们删除, 联系方式：448109455@qq.com