IdHTTPServer服务接收文件

最新推荐文章于 2024-08-08 07:13:11 发布

zjm12343

最新推荐文章于 2024-08-08 07:13:11 发布

阅读量2.1k

点赞数 3

本文链接：https://blog.csdn.net/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;