IdHTTPServer1 收到POST 文件和参数

最新推荐文章于 2024-04-28 09:01:03 发布
最新推荐文章于 2024-04-28 09:01:03 发布
阅读量1.1w 收藏 4
点赞数
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/gj333/article/details/51404283
版权

使用INDY 10 ，不然有些单元可能无法找到编译。

目前发现的问题有：对于#$0A 会自动转变成 #$0D#$0A，在传输文件时最好是进行编码传输。网上搜索这类信息很少，好像是Decoder.ReadBody 问题，传文本文件之类的一切正常。留着以前再改进吧。

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
  System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, IdContext, IdCustomHTTPServer,
  IdBaseComponent, IdComponent, IdCustomTCPServer, IdHTTPServer, IdHeaderList,
  idGlobal,
  IdIntercept, IdMessage, IdMessageCoderMIME, IdMessageCoder, IdGlobalProtocols;


procedure TForm1.IdHTTPServer1CommandGet(AContext: TIdContext;

  ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);
Var
  ms: TMemoryStream;
  newdecoder, Decoder: TIdMessageDecoder;
  boundary, startboundary: String;
  msgEnd: Boolean;
  tmp: String;
  I: Integer;
  fname: String;
  tsValues: TStringList;


begin
  I := 0;

  if pos('upload', lowercase(ARequestInfo.Document)) > 0 then
  begin
    If ARequestInfo.PostStream = nil then

      AResponseInfo.ContentText := '<HTML><BODY>unparsed:' +
        ARequestInfo.UnparsedParams + '<br>Encoding:' +
        ARequestInfo.ContentEncoding + ARequestInfo.RawHeaders.Values
        ['Content-Type'] + '<br>HashCode:' + IntToStr(ARequestInfo.GetHashCode)
        + '<br>Params:' + ARequestInfo.Params.Text +
        ' -->stream nullo<br></BODY><HTML>'
    Else
      ARequestInfo.PostStream.Position := 0;
    msgEnd := False;


    boundary := ExtractHeaderSubItem(ARequestInfo.ContentType, 'boundary',
      QuoteHTTP);
    startboundary := '--' + boundary;
    repeat
      tmp := ReadLnFromStream(ARequestInfo.PostStream, -1, True);
    until tmp = startboundary;


    Decoder := TIdMessageDecoderMIME.Create(nil);
    TIdMessageDecoderMIME(Decoder).MIMEBoundary := boundary;
    tsValues := TStringList.Create;


    try
      repeat
        Decoder.SourceStream := ARequestInfo.PostStream;
        Decoder.FreeSourceStream := False;
        Decoder.ReadHeader;
        inc(I);
        case Decoder.PartType of
          mcptAttachment, mcptText:
            begin
              ms := TMemoryStream.Create;
              ms.Position := 0;
              newdecoder := Decoder.ReadBody(ms, msgEnd);
              tmp := Decoder.Headers.Text;
              fname := Decoder.Filename;
              Decoder.Free;
              Decoder := newdecoder;
              if Decoder <> nil then
                TIdMessageDecoderMIME(Decoder).MIMEBoundary := boundary;
              sleep(100);
              if fname <> '' then
              begin
                ms.SaveToFile(fname);
                // msgEnd := true;
              end
              else
              begin
                ms.SaveToFile(IntToStr(I) + '.txt');
              end;
              ms.Free;
            end;
          mcptIgnore:
            Begin
              try
                FreeAndNil(Decoder);
                Decoder := TIdMessageDecoderMIME.Create(nil);
                TIdMessageDecoderMIME(Decoder).MIMEBoundary := boundary;
              finally
                ms.Free;
              end;
            End;
          mcptEOF:
            begin
              FreeAndNil(Decoder);
              msgEnd := True
            end;
        end;


      until (Decoder = nil) or (msgEnd);
    finally
      if Decoder <> nil then
        Decoder.Free;


    end;


    AResponseInfo.ContentText := AResponseInfo.ContentText + '</BODY><HTML>';

    AResponseInfo.ContentText := '<HTML><BODY>unparsed:' +
      ARequestInfo.UnparsedParams + '<br>Encoding:' +
      ARequestInfo.ContentEncoding + '<br>Conte' +
      ARequestInfo.RawHeaders.Values['Content-Type'] + '<br>HashCode:' +
      IntToStr(ARequestInfo.GetHashCode) + '<br>Params:' +
      ARequestInfo.Params.Text + ' -->stream nullo<br></BODY><HTML>';
  end
  Else
  Begin              //
    AResponseInfo.ContentText :=
      '<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">   '
      + #10#13 +
      '<html xmlns="http://www.w3.org/1999/xhtml">                                                                                 '
      + #10#13 +
      '<head>                                                                                                                      '
      + #10#13 +
      '<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />                                                       '
      + #10#13 +
      '<title>上传测试</title>                                                                                               '
      + #10#13 +
      '</head>                                                                                                                     '
      + #10#13 +
      '                                                                                                                            '
      + #10#13 +
      '<body>                                                                                                                      '
      + #10#13 +
      '<h1>测试多字段提交 </h1> <BR><BR>                                                        '
      + #10#13 +
      '<form action="upload" method="post"  enctype="multipart/form-data">                                                                                               '
      + #10#13 +
      '<p>key                                                                                                                      '
      + #10#13 +
      '  <input type="text" name="key" id="key" />                                                                                 '
      + #10#13 +
      '</p>                                                                                                                        '
      + #10#13 +
      '<p>group                                                                                                                      '
      + #10#13 +
      '  <input type="text" name="group" id="key" />                                                                                 '
      + #10#13 +
      '</p>                                                                                                                        '
      + #10#13 +
      '                                                                                                                            '
      + #10#13 +
      '<label for="file">文件:</label>                                                                                         '
      + #10#13 + '<label for="file">' + ARequestInfo.Document +
      '</label>                                                                                         '
      + #10#13 +
      '<input type="file" name="file" id="file" />                                                                                 '
      + #10#13 +
      '<br />                                                                                                                      '
      + #10#13 +
      '<input type="submit" name="submit" value="Submit" />                                                                        '
      + #10#13 +
      '</form></p>                                                                                                                  '
      + #10#13 +
      '</body>                                                                                                                     '
      + #10#13 +
      '</html>                                                                                                                     ';
  End;


end;
gj333
关注
  • 0
    点赞
  • 踩
  • 4
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
asp.net 从POST的数据流中提取参数和文件
10-29
按理，Form提交的数据，无论是application/x-www-form-urlencoded还是multipart/form-data(有附件时)，都可在服务端通过Request.Form["name"]和Request.Files["name"]获取到参数和上传的文件。
Android OkHttp Post上传文件并且携带参数实例详解
01-04
Android OkHttp Post上传文件并且携带参数 这里整理一下 OkHttp 的 post 在上传文件的同时，也要携带请求参数的方法。 使用 OkHttp 版本如下： compile 'com.squareup.okhttp3:okhttp:3.4.1' 代码如下： protected...
idhttpserver接收数据
nextop88的专栏
12-27 2058
idhttpserver的commandget方法是这样写的：      －－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－          if   requestinfo.command   =   post   then                try              coinitialize(nil);              post_d
Delphi 上传下载中文文件总结
最新发布
wangshun77539的博客
04-28 443
上传文件和下载文件如果只是英文和数字构成实现的代码很多，我也照抄了一遍，当出现中文字符的时候就出现各种问题。经过搜索没有找到正确答案，最后是解决了，把自己的方法提供给大家，为Delphi发展出点力。希望对你有用，也希望Delphi 能接着往下走。
解决Delphi的Indy10组件包TIdHttpServer控件解码HTTP请求时参数乱码的问题
weixin_33828101的博客
03-10 867
Delphi6下使用Indy10组件包，其中的TIdHttpServer控件在处理HTTP请求的时候 不能正确解码含有汉字的参数，如： http://127.0.0.1/test?cmd=open&areaname=测试&areadir=D:\test 对于这个Url，Chrome默认按UTF-8编码发送，IE默认按GBK编码发送，而这两种情况，TIdHttpServe...
delphi idhttpserver 服务器
weixin_30449239的博客
05-05 980
【冒泡】lazarus(964489899)10:01:27 哥能复制成字符串吗？ 【冒泡】lazarus(964489899)10:01:44 我想快速输入一下 【传说】CHINY(19730622)10:01:52 LocalDoc:=HtmlDirectory+ARequestInf...
Delphi IdHttpServer解决 Http请求跨域问题
重楼的博客
09-09 1311
//Response 增加允许跨域请求头属性，即可允许跨域访问 procedure TMain.idHttpServerCommandGet(AContext: TIdContext; ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo); begin AResponseInfo.CustomHeaders.Add('Access-Control-Allow-Origin:*'); ARespo.
Delphi 的Websocket Server 控件实现（四、WebSocket Demo程序使用说明）（含源码）
sensor_WU 博客
05-07 5278
Delphi 的Websocket Server 控件实现（四、WebSocket Demo程序使用说明）（含源码）
C#Post带参数请求+WebService接口.zip
05-23
1. **C# 带参数POST请求**： 当需要向服务器发送带有数据的请求时，POST方法通常比GET更合适，因为它可以处理更大的数据量且数据不会显示在URL中。在C#中，我们可以使用HttpClient类来实现POST请求。以下是一个基本...
PHP中Http协议post请求参数
12-19
在PHP中，HTTP协议的POST请求参数主要用于向服务器发送数据，这种请求方式通常用于提交表单数据、上传文件等场景，因为POST请求可以承载大量数据且数据不会显示在URL上，提高了数据的安全性。了解HTTP协议是理解PHP...
Delphi XE开发HTTPSERVER服务+源码+测试可用
03-20
//功能描述：线上订货系统订单提交时检查ERP系统库存 //项目背景：因线上订货系统不支持PTO模式（商品有BOM），ERP系统支持，订单提交时需要检查ERP系统中子件库存是否够 //关键字：Delphi XE8、HTTPSERVER、application/json //服务程序运行了几个月，基本正常，偶尔会出现异步操作异常（因所有连接都是共享同一个ado连接的原因） //以下部分关键代码供参考; TMainForm = class(TForm) IdHTTPServer: TIdHTTPServer; StartServerBtn: TSpeedButton; StopServerBtn: TSpeedButton; Label1: TLabel; IPED: TEdit; Label2: TLabel; PortED: TEdit; Timer1: TTimer; HintLabel: TLabel;
delphi idhttpsever（S）+idhttp（C） 实现简单的JSON API服务
重楼的博客
09-09 1537
http服务器测试代码 procedure TForm1.FormShow(Sender: TObject); begin IdHTTPServer1.Bindings.Clear; IdHTTPServer1.DefaultPort:= 6600; IdHTTPServer1.Bindings.Add.IP := '127.0.0.1'; //启动服务器 IdHTTPServer1.Active := True; end; procedure TForm1.IdHTTPServer1Comma
idhttpserver的使用方法
weixin_30932215的博客
11-08 743
idhttpserver的使用方法 1）CommandGet(AContext: TIdContext; ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);事件 该事件和IDTCPSERVER的EXECUTE()事件一样，都是“线程方法”，即事件是在子线程里面执行的，在其内书写代码要注意“线程保护”。 ...
一个简单的Httpserver以及获取post提交的参数
dieli4192的博客
12-08 1053
以下代码是我从网上找来的，但是一直获取不到post提交的参数，最后经过我的修改，终于可以得到post提交的数据。因为本人在网上找了很久都没有找到相关的资料，特意发出来希望能帮到大家，有什么不足的地方还请大神们指正，小弟不胜感激。 Httpserver代码 1 public void StartListen() 2 { 3 ...
delphi post数据与对应的接收方式
zflybird的专栏
05-05 8327
前几天研究了下post的方式和服务器的接收处理，环境delphi10.1，首先说客户端post数据，采用idhttp，有两种方式，一种是字符串，一种是流如下：1.psot字符串的方式var  s: string;  stm: TStringStream; //接收返回内容  send:TStringList;   //post的内容begin  send:=TStringList.Create; ...
java 发送post请求携带文件和参数
09-11
在 Java 中发送 POST 请求并携带文件和参数，你可以使用 `java.net.HttpURLConnection` 类来实现。下面是一个示例代码： ```java import java.io.*; import java.net.HttpURLConnection; import java.net.URL; ...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值