none
vb6.0 코드입니다 vb.net 에서도 작동하게 변환좀 부탁드립니다 .. RRS feed

  • 질문



  •  Open imgPath For Binary Access Read As #1
                     ReDim ImageBinary(LOF(1))
                     Get #1, , ImageBinary
                Close #1


                Size1 = UBound(wHeader1)
                Size2 = UBound(ImageBinary)
                Size3 = UBound(wHeader2)
                ReDim pBody(Size1 + Size2 + Size3 + 2)
                CopyMemory pBody(0), wHeader1(0), Size1 + 1
                CopyMemory pBody(Size1 + 1), ImageBinary(0), Size2 + 1
                CopyMemory pBody(Size1 + Size2 + 2), wHeader2(0), Size3 + 1

     
    2016년 1월 5일 화요일 오전 10:42

답변



  •  Open imgPath For Binary Access Read As #1
                     ReDim ImageBinary(LOF(1))
                     Get #1, , ImageBinary
                Close #1


                Size1 = UBound(wHeader1)
                Size2 = UBound(ImageBinary)
                Size3 = UBound(wHeader2)
                ReDim pBody(Size1 + Size2 + Size3 + 2)
                CopyMemory pBody(0), wHeader1(0), Size1 + 1
                CopyMemory pBody(Size1 + 1), ImageBinary(0), Size2 + 1
                CopyMemory pBody(Size1 + Size2 + 2), wHeader2(0), Size3 + 1

     

    위의 정보만 가지고는 아무것도 도움드릴수가 없습니다.

    방법: Visual Basic에서 이진 파일 읽기

    위의 링크를 한번 참고해보세요.


    프로그램 개발에는 정답이 없다.

    2016년 1월 8일 금요일 오전 5:15