package main

import (
	"fmt"
	"image"
	"image/png"
	"io"
	"os"
	"path/filepath"

	"github.com/h2non/filetype"
	"github.com/makiuchi-d/gozxing"
	"github.com/makiuchi-d/gozxing/qrcode"
	"github.com/sunshineplan/imgconv"
	"github.com/sunshineplan/pdf"
)

func check(e error) {
	if e != nil {
		panic(e)
	}
}

func getParams() (inFile, outFile string) {
	params := os.Args[1:]
	if len(params) != 2 {
		fmt.Println("Требутся два параметра!\r Входной файл (картинка) и выходной файл (данные QR).")
		panic("Не хватает параметров!")
		//params = append(params, "qrcode.pdf")
		//params = append(params, "qrcode.jpg")
		//params = append(params, "qrcode.png")
		//params = append(params, "qrcode.txt")
	}
	inFile = params[0]
	outFile = params[1]
	return
}

func matchFileType(inFile string) string {
	buf, _ := os.ReadFile(inFile)
	kind, _ := filetype.Match(buf)
	if kind == filetype.Unknown {
		fmt.Println("Unknown file type")
		//return kind.Extension
	}
	//fmt.Printf("File type: %s. MIME: %s\n", kind.Extension, kind.MIME.Value)
	return kind.Extension
}

func decodeQR(file io.Reader) string {
	img, imgType, err := image.Decode(file)
	check(err)
	fmt.Print("Image type = ")
	fmt.Println(imgType)
	bmp, err := gozxing.NewBinaryBitmapFromImage(img)
	check(err)
	qrReader := qrcode.NewQRCodeReader()
	result, err := qrReader.Decode(bmp, nil)
	check(err)
	return result.String()
}

func decodeQRBySting(inFile string) string {
	file, err := os.Open(inFile)
	check(err)
	result := decodeQR(file)
	return result
}

func convertImageFileToPNG(inFile string, outFile string) {
	src, err := imgconv.Open(inFile)
	check(err)
	err = imgconv.Save(outFile, src, &imgconv.FormatOption{Format: imgconv.PNG})
	check(err)
	fmt.Print("Convert \"")
	fmt.Print(inFile)
	fmt.Print("\" to \"")
	fmt.Println(outFile)
}

func convertPDFtoPNG(inFile string) (fileNames []string) {

	file, err := os.Open(inFile)
	check(err)
	imgs, err := pdf.DecodeAll(file)
	check(err)

	tmpDir, err := os.MkdirTemp(os.TempDir(), "fitz_")
	check(err)

	for n, img := range imgs {
		f, err := os.Create(filepath.Join(tmpDir, fmt.Sprintf("test%03d.png", n)))
		check(err)
		err = png.Encode(f, img)
		check(err)

		fmt.Println(f.Name())
		fileNames = append(fileNames, f.Name())
	}

	return
}

func main() {
	inFile, outFile := getParams()

	f, err := os.Create(outFile)
	check(err)
	defer f.Close()

	var fileNames []string

	mimeType := matchFileType(inFile)
	if mimeType == "png" {
		fileNames = append(fileNames, inFile)
	} else if mimeType == "pdf" {
		fileNames = convertPDFtoPNG(inFile)
	} else {
		tempFile, err := os.CreateTemp("", "img_*.png")
		check(err)
		convertImageFileToPNG(inFile, tempFile.Name())
		fileNames = append(fileNames, tempFile.Name())
	}

	qrcode := ""

	for _, fileName := range fileNames {
		qrcode = decodeQRBySting(fileName)
		fmt.Print("QR = ")
		fmt.Println(qrcode)
		if qrcode != "" {
			break
		}
	}

	_, err = f.WriteString(qrcode)
	check(err)

	for _, fileName := range fileNames {
		os.Remove(fileName)
	}
}

&НаСервере
Функция РаспознатьQRИзКартинкиНаСервере(ИмяФайлаКартинки)
	
	ИмяВременногоКаталога = ПолучитьИмяВременногоФайла();
	Попытка
		СоздатьКаталог(ИмяВременногоКаталога);
	Исключение
		
	КонецПопытки;
	
	ОбработкаОбъект = РеквизитФормыВЗначение("Объект");
	ДвоичныеДанные = ОбработкаОбъект.ПолучитьМакет("gozxing");
	
	ИмяФайлаПриложения = ИмяВременногоКаталога + "\gozxing.exe";
	Попытка
		ДвоичныеДанные.Записать(ИмяФайлаПриложения);
	Исключение
		
	КонецПопытки;
	
	ИмяФайлаШтрихкода = ПолучитьИмяВременногоФайла("txt");
	
	ШаблонКоманды = "%1 %2 %3";
	СтрокаКоманды = СтрШаблон(ШаблонКоманды, ИмяФайлаПриложения, ИмяФайлаКартинки, ИмяФайлаШтрихкода);
	ТекущийКаталог = ИмяВременногоКаталога;
	ДождатьсяЗавершения = Истина;
	КодВозврата = "";
	Попытка
		ЗапуститьПриложение(СтрокаКоманды, ТекущийКаталог, ДождатьсяЗавершения, КодВозврата);
	Исключение
		
	КонецПопытки;
	
	ЧтениеТекста = Новый ЧтениеТекста(ИмяФайлаШтрихкода, КодировкаТекста.UTF8);
	Штрихкод = СокрЛП(ЧтениеТекста.Прочитать());
	ЧтениеТекста.Закрыть();
	ЧтениеТекста = Неопределено;
	
	Попытка
		УдалитьФайлы(ИмяФайлаКартинки);
	Исключение
	КонецПопытки;
	
	Попытка
		УдалитьФайлы(ИмяФайлаПриложения);
	Исключение
	КонецПопытки;
	
	Попытка
		УдалитьФайлы(ИмяВременногоКаталога);
	Исключение
	КонецПопытки;
	
	Попытка
		УдалитьФайлы(ИмяФайлаШтрихкода);
	Исключение
	КонецПопытки;
	
	Возврат Штрихкод;
	
КонецФункции