|
Visual Basic Syntax Dim nFileHandle As Integer Dim arBuffer() As Byte Dim nImageID As Long nFileHandle = FreeFile Open "c:\test.pdf" For Binary As #nFileHandle ReDim arBuffer((LOF(nFileHandle))) Get #nFileHandle, , arBuffer Close #nFileHandle ImageViewer1.PDFLoadFromByteArray arBuffer, 1 Erase arBuffer
|