IdHTTPServer服务接收文件

最新推荐文章于 2025-05-25 16:02:44 发布

zjm12343

最新推荐文章于 2025-05-25 16:02:44 发布

阅读量2.2k

点赞数 3

CC 4.0 BY-SA版权

本文链接：https://blog.youkuaiyun.com/zjm12343/article/details/89667560

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;