X7ROOT File Manager
Current Path:
/opt/alt/libharu/usr/share/libharu/bindings/vb.net/demo
opt
/
alt
/
libharu
/
usr
/
share
/
libharu
/
bindings
/
vb.net
/
demo
/
??
..
??
Encryption.vb
(1.17 KB)
??
FontDemo.vb
(2.75 KB)
??
ImageDemo.vb
(5.03 KB)
??
LineDemo.vb
(8.86 KB)
??
OutlineDemo.vb
(2.45 KB)
??
Permission.vb
(1.35 KB)
??
RawImageDemo.vb
(2.92 KB)
??
SlideShowDemo.vb
(5.13 KB)
??
TextDemo.vb
(9.46 KB)
Editing: RawImageDemo.vb
Imports HPdf Module RawImageDemo Sub Main() Console.WriteLine("libhpdf-" + HPdfDoc.HPdfGetVersion()) Dim raw_image_data() As Byte = { _ &HFF, &HFF, &HFF, &HFE, &HFF, &HFF, &HFF, &HFC, _ &HFF, &HFF, &HFF, &HF8, &HFF, &HFF, &HFF, &HF0, _ &HF3, &HF3, &HFF, &HE0, &HF3, &HF3, &HFF, &HC0, _ &HF3, &HF3, &HFF, &H80, &HF3, &H33, &HFF, &H0, _ &HF3, &H33, &HFE, &H0, &HF3, &H33, &HFC, &H0, _ &HF8, &H7, &HF8, &H0, &HF8, &H7, &HF0, &H0, _ &HFC, &HCF, &HE0, &H0, &HFC, &HCF, &HC0, &H0, _ &HFF, &HFF, &H80, &H0, &HFF, &HFF, &H0, &H0, _ &HFF, &HFE, &H0, &H0, &HFF, &HFC, &H0, &H0, _ &HFF, &HF8, &HF, &HE0, &HFF, &HF0, &HF, &HE0, _ &HFF, &HE0, &HC, &H30, &HFF, &HC0, &HC, &H30, _ &HFF, &H80, &HF, &HE0, &HFF, &H0, &HF, &HE0, _ &HFE, &H0, &HC, &H30, &HFC, &H0, &HC, &H30, _ &HF8, &H0, &HF, &HE0, &HF0, &H0, &HF, &HE0, _ &HE0, &H0, &H0, &H0, &HC0, &H0, &H0, &H0, _ &H80, &H0, &H0, &H0, &H0, &H0, &H0, &H0 _ } Try Dim pdf As HPdfDoc = New HPdfDoc() pdf.SetCompressionMode(HPdfDoc.HPDF_COMP_ALL) ' create default-font Dim font As HPdfFont = pdf.GetFont("Helvetica", Nothing) ' add a new page object. Dim page As HPdfPage = pdf.AddPage() page.SetWidth(172) page.SetHeight(80) page.BeginText() page.SetFontAndSize(font, 20) page.MoveTextPos(220, page.GetHeight() - 70) page.ShowText("RawImageDemo") page.EndText() ' load RGB raw-image file. Dim image As HPdfImage = pdf.LoadRawImageFromFile("demo\\rawimage\\32_32_rgb.dat", 32, 32, HPdfColorSpace.HPDF_CS_DEVICE_RGB) Dim x As Single = 20 Dim y As Single = 20 ' Draw image to the canvas. (normal-mode with actual size.) page.DrawImage(image, x, y, 32, 32) ' load GrayScale raw-image file. image = pdf.LoadRawImageFromFile("demo\\rawimage\\32_32_gray.dat", 32, 32, HPdfColorSpace.HPDF_CS_DEVICE_GRAY) x = 70 y = 20 ' Draw image to the canvas. (normal-mode with actual size.) page.DrawImage(image, x, y, 32, 32) ' load GrayScale raw-image (1bit) file from memory. image = pdf.LoadRawImageFromMem(raw_image_data, 32, 32, HPdfColorSpace.HPDF_CS_DEVICE_GRAY, 1) x = 120 y = 20 ' Draw image to the canvas. (normal-mode with actual size.) page.DrawImage(image, x, y, 32, 32) ' save the document to a file pdf.SaveToFile("RawImageDemo.pdf") Catch ex As Exception Console.Error.WriteLine(ex.Message) End Try End Sub End Module
Upload File
Create Folder