IdHTTPServer1 收到POST 文件和参数

最新推荐文章于 2024-07-13 22:07:32 发布

gj333

最新推荐文章于 2024-07-13 22:07:32 发布

阅读量1.1w

点赞数

本文链接：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;