공략 게시판

> 커뮤니티 > 공략 게시판

FFMPEG으로 JPEG 를 MP4 로 만드는 방법

  • 칡흙신
  • 2017-09-22 11:56
  • https://heroes.nexon.com/common/postview?b=63&n=2250



//

JPG 압축변환저장 및 뷰어.exe

http://heroes.nexon.com/Community/tipbbs/view?page=1&category=0&postno=2120



//------------------------------------------------- FFMPEG 무손실이 잘 안됨 ㅇ_ㅇ;;



무손실 스크린샷 압축 FFMPEG
ffmpeg -i 2018_01_01_0000.jpg -c:v mjpeg -qscale:v 1 jpgmjpeg.jpg
ffmpeg -i 2018_01_01_0000.jpg -c:v mjpeg -qscale:v 2 jpgmjpeg2.jpg

http://heroes.nexon.com/Community/userbbs/View?Postno=429676&bbsno=60


//무손실 이미지 압축 방법
여러 JPG 이미지 파일을 .bat 배치파일에서 변환하는 방법 (한줄)+ 부연 설명

http://1drv.ms/w/s!ApTyVmRLm3sznUku_A-28P0zH91Q





//JPEG 여러장을 H264 (MP4) 1장으로 압축하면. 압축 품질이 떨어져서.

JPEG 1장을 H264 (MP4) 1장씩 변환해야 품질이 좋으면서도. 압축이 잘됩니다.


//근데. 지금 해보니. H264 일부 이미지에서 품질이 그리 좋지가 않네요... 포기... ㅠ_ㅠ...


주의사항.

한번에 100개 정도에 JPEG 파일을 변환하시기 바랍니다.

한번에 너무 많이 하면. 컴퓨터가 메모리가 없어서. 멈춥니다. ㅇ_ㅇ;;


대신. 폴더에 파일이 많으면. 속도가 느려지는 문제가 있습니다.

그래서. 유튜브'나 슬라이드 쇼'들에 올리면 좋은데... 이제 서비스 안한다고 하네요. ㅇ_ㅇ;;

역시. 1TB 하드가 짱인가... DVD 나 Blue-Ray 를 사야 하는건가... ㅠ_ㅠ...

캠타시아와 어도비 프리미어'로 JPEG 을 MP4 (H264) 로 만드는 방법도 있습니다.


여러번 하려면. 불편하니. VBScript 로 만들었습니다.

C 로 bat 배치 파일을 자동으로 생성하는 방법도 편할것 같습니다. ㅇ_ㅇ;;

잘 모르시는분은. 컴퓨터나 프로그램. 잘 아시는분에 도움을 받으시기 바랍니다.


원본 - 블로그. 웹하드

고품질 - 윈도우 그림판 (페인트). GDI Plus. 유튜브 고화질. 유튜브 슬라이드쇼(편한데... 서비스 정지 예정)

캠타시아. Adobe Premiere 어도비 프리미어.

품질 - 페이스북. 구글 사진.


1MB JPEG 를 200KB MP4 (H264) 정도로 압축됩니다.

http://ffmpeg.zeranoe.com/builds/


//

strFolder 는 이미지가 있는 폴더 경로

Wshshell.Run 에는 FFMPEG 이 있는 폴더 경로



//VBScript 파일

On Error Resume Next

set Wshshell = WScript.CreateObject("WScript.Shell")

strFolder = "d:/image"
saveFile = strFolder & "/FileList.txt"
ForWriting = 2

Set objShell = CreateObject ("Shell.Application")
Set objFolder = objShell.Namespace(strFolder)

For Each objItem in objFolder.Items
If objItem.isFolder Then
strFolds = strFolds & "[" & objItem.Name & "]" & vbCrLf
Else
Wshshell.Run "D:/ffmpeg-20170827-ef0c6d9-win64-static/bin/ffmpeg.exe " & "-i " & strFolder & "/" & objItem.Name & " -vcodec h264 " & objItem.Name & ".mp4"
strFiles = strFiles & objItem.Name & vbCrLf
End If
Next

strLists = strFolds & vbCrLf & strFiles
Set fs = CreateObject (Scripting.FileSystemObject)
Set ts = fs.OpenTextFile (saveFile, ForWriting, True)
ts.Write strLists: ts.Close

Set WshShell=Nothing
WScript.Quit




//

게시판에서 "" 따옴표나 / 역슬래시 소스코드' 내용이 사라지니. 파일도 함께 첨부합니다.

바이러스 표시가 보일 수 있는데. txt 파일로 다운받아서. vbs 파일로 변환할 수 있습니다.

403 Forbidden 보이면. URL 주소. 한번 더 엔터 치면. 파일 다운이 됩니다.


vb.vbs


vb.txt


premier칡흙신

Lv.110 이비

에르그 만드는

댓글 9

로그인 후 이용하실 수 있습니다

글을 등록하실 때는 타인을 존중해 주시기 바랍니다. 타인을 비방하거나 개인 정보를 유출할 경우,
운영 정책에 의하여 제재를 받거나 관련 법에 의하여 처벌을 받을 수 있습니다.