Delphi - IndyHttpServer接收上传文件
procedure TForm1.IdHTTPServerCommandGet(AContext: TIdContext; ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);
var
FileStream: TFileStream;
begin
if ARequestInfo.PostStream <> nil then
begin
ARequestInfo.PostStream.Position := 0;
FileStream := TFileStream.Create(‘1.jpg‘, fmCreate);
FileStream.CopyFrom(ARequestInfo.PostStream, ARequestInfo.PostStream.Size); { Copy 流 }
FileStream.Free;
end;
end;
参考：
原文：https://www.cnblogs.com/sunylat/p/14415103.html