#ifndef PCH_H
#define PCH_H
extern "C"
{
    #include "libavutil/opt.h"
    #include "libavutil/channel_layout.h"
    #include "libavutil/common.h"
    #include "libavutil/imgutils.h"
    #include "libavutil/mathematics.h"
    #include "libavutil/samplefmt.h"
    #include "libavutil/time.h"
    #include "libavutil/fifo.h
 
"
    #include "libavcodec/avcodec.h"
    #include "libavformat/avformat.h"
    #include "libavformat/avio.h"
    //#include "libavfilter/avfiltergraph.h"
    #include "libavfilter/avfilter.h"
    #include "libavfilter/buffersink.h"
    #include "libavfilter/buffersrc.h"
    #include "libswscale/swscale.h"
    #include 
 
"libswresample/swresample.h"
    #include "libavdevice/avdevice.h"
}
#endif

// CGCameraCatch.cpp : 定義控制檯應用程式的入口點。
//
/* Copyright [c] 2018-202 By www.chungen9.com Allrights Reserved 
   This file give a simple example of getting usb camera video form 
   PC.   Any questions, you can join QQ group for
   help, QQ   Group number:127903734 or 766718184.
 
*/
//#include "stdafx.h"
#include <string>
#include <memory>
#include <thread>
#include <iostream>
#include <iostream>
using namespace std;
#include "pch.h"

class SwsScaleContext
{
public:
    SwsScaleContext()
    {

    }
    void SetSrcResolution(int width, int height)
    {
        srcWidth = width;
        srcHeight = height;
    }

    void SetDstResolution(int width, int height)
    {
        dstWidth = width;
        dstHeight = height;
    }
    void SetFormat(AVPixelFormat iformat, AVPixelFormat oformat)
    {
        this->iformat = iformat;
        this->oformat = oformat;
    }
public:
    int srcWidth;
    int srcHeight;
    int dstWidth;
    int dstHeight;
    AVPixelFormat iformat;
    AVPixelFormat oformat;
};

AVFormatContext *inputContext = nullptr;
AVCodecContext *encodeContext = nullptr;
AVFormatContext * outputContext;
int64_t lastReadPacktTime ;
int64_t packetCount = 0;
struct SwsContext* pSwsContext = nullptr;
uint8_t * pSwpBuffer = nullptr;
static int interrupt_cb(void *ctx)
{
    int  timeout  = 3;
    if(av_gettime() - lastReadPacktTime > timeout *1000 *1000)
    {
        return -1;
    }
    return 0;
}

int OpenInput(string inputUrl)
{
    inputContext = avformat_alloc_context();    
    lastReadPacktTime = av_gettime();
    inputContext->interrupt_callback.callback = interrupt_cb;
    AVInputFormat *ifmt = av_find_input_format("gdigrab");
     AVDictionary *format_opts =  nullptr;
     av_dict_set_int(&format_opts, "rtbufsize", 18432000  , 0);

    int ret = avformat_open_input(&inputContext, inputUrl.c_str(), ifmt,&format_opts);
    if(ret < 0)
    {
        av_log(NULL, AV_LOG_ERROR, "Input file open input failed\n");
        return  ret;
    }
    ret = avformat_find_stream_info(inputContext,nullptr);
    if(ret < 0)
    {
        av_log(NULL, AV_LOG_ERROR, "Find input file stream inform failed\n");
    }
    else
    {
        av_log(NULL, AV_LOG_FATAL, "Open input file  %s success\n",inputUrl.c_str());
    }
    return ret;
}


shared_ptr<AVPacket> ReadPacketFromSource()
{
    shared_ptr<AVPacket> packet(static_cast<AVPacket*>(av_malloc(sizeof(AVPacket))), [&](AVPacket *p) { av_packet_free(&p); av_freep(&p);});
    av_init_packet(packet.get());
    lastReadPacktTime = av_gettime();
    int ret = av_read_frame(inputContext, packet.get());
    if(ret >= 0)
    {
        return packet;
    }
    else
    {
        return nullptr;
    }
}

int OpenOutput(string outUrl,AVCodecContext *encodeCodec)
{

    int ret  = avformat_alloc_output_context2(&outputContext, nullptr, "hls", outUrl.c_str());
    if(ret < 0)
    {
        av_log(NULL, AV_LOG_ERROR, "open output context failed\n");
        goto Error;
    }

    ret = avio_open2(&outputContext->pb, outUrl.c_str(), AVIO_FLAG_WRITE,nullptr, nullptr);    
    if(ret < 0)
    {
        av_log(NULL, AV_LOG_ERROR, "open avio failed");
        goto Error;
    }
    av_opt_set(outputContext->priv_data, "hls_time" ,"1", AV_OPT_SEARCH_CHILDREN);
        av_opt_set(outputContext->priv_data, "hls_list_size" ,"5", AV_OPT_SEARCH_CHILDREN);
        av_opt_set(outputContext->priv_data, "hls_wrap" ,"5" , AV_OPT_SEARCH_CHILDREN);
    for(int i = 0; i < inputContext->nb_streams; i++)
    {
        if(inputContext->streams[i]->codec->codec_type == AVMediaType::AVMEDIA_TYPE_AUDIO)
        {
            continue;
        }
        AVStream * stream = avformat_new_stream(outputContext, encodeCodec->codec);                
        ret = avcodec_copy_context(stream->codec, encodeCodec);    
        if(ret < 0)
        {
            av_log(NULL, AV_LOG_ERROR, "copy coddec context failed");
            goto Error;
        }
    }

    ret = avformat_write_header(outputContext, nullptr);
    if(ret < 0)
    {
        av_log(NULL, AV_LOG_ERROR, "format write header failed");
        goto Error;
    }

    av_log(NULL, AV_LOG_FATAL, " Open output file success %s\n",outUrl.c_str());            
    return ret ;
Error:
    if(outputContext)
    {
        for(int i = 0; i < outputContext->nb_streams; i++)
        {
            avcodec_close(outputContext->streams[i]->codec);
        }
        avformat_close_input(&outputContext);
    }
    return ret ;
}

void Init()
{
    av_register_all();
    avfilter_register_all();
    avformat_network_init();
    avdevice_register_all();
    av_log_set_level(AV_LOG_ERROR);
}

void CloseInput()
{
    if(inputContext != nullptr)
    {
        avformat_close_input(&inputContext);
    }

    if(pSwsContext)
    {
        sws_freeContext(pSwsContext);
    }
}

void CloseOutput()
{
    if(outputContext != nullptr)
    {
        int ret = av_write_trailer(outputContext);        
        avformat_close_input(&outputContext);
    }
}

int WritePacket(shared_ptr<AVPacket> packet)
{
    auto inputStream = inputContext->streams[packet->stream_index];
    auto outputStream = outputContext->streams[packet->stream_index];    
    packet->pts = packet->dts = packetCount * (outputContext->streams[0]->time_base.den) / 
                     outputContext->streams[0]->time_base.num / 30 ;
    //cout <<"pts:"<<packet->pts<<endl;
    packetCount++;
    return av_interleaved_write_frame(outputContext, packet.get());
}

int InitDecodeContext(AVStream *inputStream)
{    
    auto codecId = inputStream->codec->codec_id;
    auto codec = avcodec_find_decoder(codecId);
    if (!codec)
    {
        return -1;
    }

    int ret = avcodec_open2(inputStream->codec, codec, NULL);
    return ret;

}

int initEncoderCodec(AVStream* inputStream,AVCodecContext **encodeContext)
    {
        AVCodec *  picCodec;
        
        picCodec = avcodec_find_encoder(AV_CODEC_ID_H264);        
        (*encodeContext) = avcodec_alloc_context3(picCodec);
    
        (*encodeContext)->codec_id = picCodec->id;
        (*encodeContext)->has_b_frames = 0;
        (*encodeContext)->time_base.num = inputStream->codec->time_base.num;
        (*encodeContext)->time_base.den = inputStream->codec->time_base.den;
        (*encodeContext)->pix_fmt =  *picCodec->pix_fmts;
        (*encodeContext)->width = inputStream->codec->width;
        (*encodeContext)->height =inputStream->codec->height;
        (*encodeContext)->flags |= AV_CODEC_FLAG_GLOBAL_HEADER;
        int ret = avcodec_open2((*encodeContext), picCodec, nullptr);
        if (ret < 0)
        {
            std::cout<<"open video codec failed"<<endl;
            return  ret;
        }
            return 1;
    }

bool Decode(AVStream* inputStream,AVPacket* packet, AVFrame *frame)
{
    int gotFrame = 0;
    auto hr = avcodec_decode_video2(inputStream->codec, frame, &gotFrame, packet);
    if (hr >= 0 && gotFrame != 0)
    {
        return true;
    }
    return false;
}


std::shared_ptr<AVPacket> Encode(AVCodecContext *encodeContext,AVFrame * frame)
{
    int gotOutput = 0;
    std::shared_ptr<AVPacket> pkt(static_cast<AVPacket*>(av_malloc(sizeof(AVPacket))), [&](AVPacket *p) { av_packet_free(&p); av_freep(&p); });
    av_init_packet(pkt.get());
    pkt->data = NULL;
    pkt->size = 0;
    int ret = avcodec_encode_video2(encodeContext, pkt.get(), frame, &gotOutput);
    if (ret >= 0 && gotOutput)
    {
        return pkt;
    }
    else
    {
        return nullptr;
    }
}


int initSwsContext(struct SwsContext** pSwsContext, SwsScaleContext *swsScaleContext)
{
    *pSwsContext = sws_getContext(swsScaleContext->srcWidth, swsScaleContext->srcHeight, swsScaleContext->iformat,
        swsScaleContext->dstWidth, swsScaleContext->dstHeight, swsScaleContext->oformat,
        SWS_BICUBIC,
        NULL, NULL, NULL);
    if (pSwsContext == NULL)
    {
        return -1;
    }
    return 0;
}

int initSwsFrame(AVFrame *pSwsFrame, int iWidth, int iHeight)
{
    int numBytes = av_image_get_buffer_size(encodeContext->pix_fmt, iWidth, iHeight, 1);
    /*if(pSwpBuffer)
    {
        av_free(pSwpBuffer);
    }*/
    pSwpBuffer = (uint8_t *)av_malloc(numBytes * sizeof(uint8_t));
    av_image_fill_arrays(pSwsFrame->data, pSwsFrame->linesize, pSwpBuffer, encodeContext->pix_fmt, iWidth, iHeight, 1);             
    pSwsFrame->width = iWidth;
    pSwsFrame->height = iHeight;
    pSwsFrame->format = encodeContext->pix_fmt;
    return 1;
}

int main(int argc, char* argv[])
{
    
    SwsScaleContext swsScaleContext;
    AVFrame *videoFrame = av_frame_alloc();
    AVFrame *pSwsVideoFrame = av_frame_alloc();

    Init();
    int ret = OpenInput("desktop");
    
    if(ret <0) goto Error;
    
    InitDecodeContext(inputContext->streams[0]);
    

    ret = initEncoderCodec(inputContext->streams[0],&encodeContext);

    if(ret >= 0)
    {
        ret = OpenOutput("D:\\test1\\test.m3u8",encodeContext); 
    }
    if(ret <0) goto Error;
    
    
    swsScaleContext.SetSrcResolution(inputContext->streams[0]->codec->width, inputContext->streams[0]->codec->height);

    swsScaleContext.SetDstResolution(encodeContext->width,encodeContext->height);
    swsScaleContext.SetFormat(inputContext->streams[0]->codec->pix_fmt, encodeContext->pix_fmt);
    initSwsContext(&pSwsContext, &swsScaleContext);    
    initSwsFrame(pSwsVideoFrame,encodeContext->width, encodeContext->height);
    int64_t startTime = av_gettime();
     while(true)
     {
        auto packet = ReadPacketFromSource();
        if(av_gettime() - startTime > 30 * 1000 * 1000)
        {
            //break;
        }
        if(packet && packet->stream_index == 0)
        {
            if(Decode(inputContext->streams[0],packet.get(),videoFrame))
            {
                sws_scale(pSwsContext, (const uint8_t *const *)videoFrame->data,
                    videoFrame->linesize, 0, inputContext->streams[0]->codec->height, (uint8_t *const *)pSwsVideoFrame->data, pSwsVideoFrame->linesize);
                auto packetEncode = Encode(encodeContext,pSwsVideoFrame);
                if(packetEncode)
                {
                    ret = WritePacket(packetEncode);
                    //cout <<"ret:" << ret<<endl;
                }

            }
                        
        }
        
     }
     cout <<"Get Picture End "<<endl;
     av_frame_free(&videoFrame);
     avcodec_close(encodeContext);
     av_frame_free(&pSwsVideoFrame);
     
    Error:
    CloseInput();
    CloseOutput();
    
    while(true)
    {
        this_thread::sleep_for(chrono::seconds(100));
    }
    return 0;
}