Commit: 5 - unzipdivpdf (svn)

圧縮フォルダを解凍する。画像が複数含まれるので分割する。フォルダごとにpdfに変換

Commit MetaInfo

• Revision: 5 (tree)
• Zeit: 2017-09-10 11:43:03
• Autor: bellyoshi

Log Message

とりあえず完成

Ändern Zusammenfassung

• modified: WindowsApp1/WindowsApp1/AppTempDir.vb
• modified: WindowsApp1/WindowsApp1/Form1.Designer.vb
• modified: WindowsApp1/WindowsApp1/Form1.vb

Diff

--- WindowsApp1/WindowsApp1/AppTempDir.vb	(revision 4)
+++ WindowsApp1/WindowsApp1/AppTempDir.vb	(revision 5)
@@ -17,7 +17,7 @@
     End Sub
 
     Private Sub IDisposable_Dispose() Implements IDisposable.Dispose
-        ' IfExistDirDelete(Path)
+        'todo:後片付け  IfExistDirDelete(Path)
     End Sub
 
     ''' <summary>

--- WindowsApp1/WindowsApp1/Form1.Designer.vb	(revision 4)
+++ WindowsApp1/WindowsApp1/Form1.Designer.vb	(revision 5)
@@ -29,9 +29,10 @@
         '
         'btnExecute
         '
-        Me.btnExecute.Location = New System.Drawing.Point(41, 81)
+        Me.btnExecute.Location = New System.Drawing.Point(55, 101)
+        Me.btnExecute.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
         Me.btnExecute.Name = "btnExecute"
-        Me.btnExecute.Size = New System.Drawing.Size(75, 23)
+        Me.btnExecute.Size = New System.Drawing.Size(100, 29)
         Me.btnExecute.TabIndex = 0
         Me.btnExecute.Text = "実行"
         Me.btnExecute.UseVisualStyleBackColor = True
@@ -38,9 +39,10 @@
         '
         'TextBox1
         '
-        Me.TextBox1.Location = New System.Drawing.Point(41, 40)
+        Me.TextBox1.Location = New System.Drawing.Point(55, 50)
+        Me.TextBox1.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
         Me.TextBox1.Name = "TextBox1"
-        Me.TextBox1.Size = New System.Drawing.Size(483, 19)
+        Me.TextBox1.Size = New System.Drawing.Size(643, 22)
         Me.TextBox1.TabIndex = 1
         Me.TextBox1.Text = "D:\ZIP\(一般コミック) [横山光輝] 三国志 全60巻"
         '
@@ -47,20 +49,23 @@
         'lstLog
         '
         Me.lstLog.FormattingEnabled = True
-        Me.lstLog.ItemHeight = 12
-        Me.lstLog.Location = New System.Drawing.Point(41, 128)
+        Me.lstLog.ItemHeight = 15
+        Me.lstLog.Location = New System.Drawing.Point(25, 156)
+        Me.lstLog.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
         Me.lstLog.Name = "lstLog"
-        Me.lstLog.Size = New System.Drawing.Size(120, 88)
+        Me.lstLog.ScrollAlwaysVisible = True
+        Me.lstLog.Size = New System.Drawing.Size(696, 349)
         Me.lstLog.TabIndex = 2
         '
         'Form1
         '
-        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 12.0!)
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(8.0!, 15.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.ClientSize = New System.Drawing.Size(600, 261)
+        Me.ClientSize = New System.Drawing.Size(800, 567)
         Me.Controls.Add(Me.lstLog)
         Me.Controls.Add(Me.TextBox1)
         Me.Controls.Add(Me.btnExecute)
+        Me.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
         Me.Name = "Form1"
         Me.Text = "Form1"
         Me.ResumeLayout(False)

--- WindowsApp1/WindowsApp1/Form1.vb	(revision 4)
+++ WindowsApp1/WindowsApp1/Form1.vb	(revision 5)
@@ -24,10 +24,10 @@
         Dim allPath = TextBox1.Text '全冊フォルダ
         '全冊フォルダのzipファイルを列挙するし以下を繰り返す。
         Dim files As String() = System.IO.Directory.GetFiles(allPath, "*.zip", System.IO.SearchOption.AllDirectories)
-        If 0 < files.Count Then
-            Dim zipFilePath = files(0) 'todo:test用とりあえず一個だけ試す。
+        For Each zipFilePath In files
+            log.Info(zipFilePath)
             zipToPdf(zipFilePath)
-        End If
+        Next
 
         log.Info("処理終了")
     End Sub
@@ -52,7 +52,8 @@
 
         '解凍処理
         System.IO.Compression.ZipFile.ExtractToDirectory(zipFilePath, srcFiles.Path)
-
+        Dim width As Integer
+        Dim height As Integer
         filename_count = 1
         'tempフォルダのjpegファイルを列挙し以下を繰り返す
         Dim files As String() = System.IO.Directory.GetFiles(srcFiles.Path, "*.jpg", System.IO.SearchOption.AllDirectories)
@@ -65,8 +66,8 @@
                 '左側画像を保存する。
             Else
                 Dim image As New Bitmap(filepath)
-                Dim width As Integer = image.Width / 2
-                Dim height As Integer = image.Height
+                width = image.Width / 2
+                height = image.Height
                 Dim desRect As New Drawing.Rectangle(0, 0, width, height)
                 Dim destImage As New Bitmap(width, height)
                 Dim g = Graphics.FromImage(destImage)
@@ -86,7 +87,8 @@
         '2つに分割し右側をfilename_count.jpeg,左側をfilename_count+1.jpegとして保存する
         'tempフォルダをpdf化する
         'A4サイズを横向きで
-        Dim pdfDocument = New Document(PageSize.A4.Rotate(), 0, 0, 0, 0)
+        Dim psize As New iTextSharp.text.Rectangle(Width, Height)
+        Dim pdfDocument = New Document(psize, 0, 0, 0, 0)
         '出力先のファイル名
         Dim makePdfFilePath = zipFilePath.Replace(".zip", "pdf")
         Dim fileStream = New FileStream(makePdfFilePath, FileMode.Create)
@@ -93,7 +95,11 @@
         Dim writer = PdfWriter.GetInstance(pdfDocument, fileStream)
         'PDFドキュメントを開く
         pdfDocument.Open()
-        pdfDocument.Add(New Paragraph("test"))
+        files = System.IO.Directory.GetFiles(tempFiles.Path, "*.jpg", System.IO.SearchOption.AllDirectories)
+        For Each filepath As String In files
+            Dim img = iTextSharp.text.Image.GetInstance(New Uri(filepath))
+            pdfDocument.Add(img)
+        Next
         'PDFドキュメントを閉じる
         pdfDocument.Close()