src/texsourc/lib/libhpdf/if/vb.net/demo/RawImageDemo.vb

   1 Imports HPdf
   2
   3 Module RawImageDemo
   4
   5     Sub Main()
   6         Console.WriteLine("libhpdf-" + HPdfDoc.HPdfGetVersion())
   7
   8         Dim raw_image_data() As Byte = { _
   9            &HFF, &HFF, &HFF, &HFE, &HFF, &HFF, &HFF, &HFC, _
  10            &HFF, &HFF, &HFF, &HF8, &HFF, &HFF, &HFF, &HF0, _
  11            &HF3, &HF3, &HFF, &HE0, &HF3, &HF3, &HFF, &HC0, _
  12            &HF3, &HF3, &HFF, &H80, &HF3, &H33, &HFF, &H0, _
  13            &HF3, &H33, &HFE, &H0, &HF3, &H33, &HFC, &H0, _
  14            &HF8, &H7, &HF8, &H0, &HF8, &H7, &HF0, &H0, _
  15            &HFC, &HCF, &HE0, &H0, &HFC, &HCF, &HC0, &H0, _
  16            &HFF, &HFF, &H80, &H0, &HFF, &HFF, &H0, &H0, _
  17            &HFF, &HFE, &H0, &H0, &HFF, &HFC, &H0, &H0, _
  18            &HFF, &HF8, &HF, &HE0, &HFF, &HF0, &HF, &HE0, _
  19            &HFF, &HE0, &HC, &H30, &HFF, &HC0, &HC, &H30, _
  20            &HFF, &H80, &HF, &HE0, &HFF, &H0, &HF, &HE0, _
  21            &HFE, &H0, &HC, &H30, &HFC, &H0, &HC, &H30, _
  22            &HF8, &H0, &HF, &HE0, &HF0, &H0, &HF, &HE0, _
  23            &HE0, &H0, &H0, &H0, &HC0, &H0, &H0, &H0, _
  24            &H80, &H0, &H0, &H0, &H0, &H0, &H0, &H0 _
  25        }
  26
  27         Try
  28             Dim pdf As HPdfDoc = New HPdfDoc()
  29
  30             pdf.SetCompressionMode(HPdfDoc.HPDF_COMP_ALL)
  31
  32             ' create default-font
  33             Dim font As HPdfFont = pdf.GetFont("Helvetica", Nothing)
  34
  35             ' add a new page object.
  36             Dim page As HPdfPage = pdf.AddPage()
  37
  38             page.SetWidth(172)
  39             page.SetHeight(80)
  40
  41             page.BeginText()
  42             page.SetFontAndSize(font, 20)
  43             page.MoveTextPos(220, page.GetHeight() - 70)
  44             page.ShowText("RawImageDemo")
  45             page.EndText()
  46
  47             ' load RGB raw-image file.
  48             Dim image As HPdfImage = pdf.LoadRawImageFromFile("demo\\rawimage\\32_32_rgb.dat", 32, 32, HPdfColorSpace.HPDF_CS_DEVICE_RGB)
  49
  50             Dim x As Single = 20
  51             Dim y As Single = 20
  52
  53             ' Draw image to the canvas. (normal-mode with actual size.)
  54             page.DrawImage(image, x, y, 32, 32)
  55
  56             ' load GrayScale raw-image file.
  57             image = pdf.LoadRawImageFromFile("demo\\rawimage\\32_32_gray.dat", 32, 32, HPdfColorSpace.HPDF_CS_DEVICE_GRAY)
  58
  59             x = 70
  60             y = 20
  61
  62             ' Draw image to the canvas. (normal-mode with actual size.)
  63             page.DrawImage(image, x, y, 32, 32)
  64
  65             ' load GrayScale raw-image (1bit) file from memory.
  66             image = pdf.LoadRawImageFromMem(raw_image_data, 32, 32, HPdfColorSpace.HPDF_CS_DEVICE_GRAY, 1)
  67
  68             x = 120
  69             y = 20
  70
  71             ' Draw image to the canvas. (normal-mode with actual size.)
  72             page.DrawImage(image, x, y, 32, 32)
  73
  74             ' save the document to a file
  75             pdf.SaveToFile("RawImageDemo.pdf")
  76
  77         Catch ex As Exception
  78             Console.Error.WriteLine(ex.Message)
  79         End Try
  80     End Sub
  81 End Module