ZLib을 이용한 데이터 압축
가온
Private Declare Function compress Lib ZLib.dll (ByRef Dest As Any, ByRef destLen As Any, ByRef src As Any, ByVal srcLen As Long) As Long
Private Declare Function uncompress Lib ZLib.dll (ByRef Dest As Any, ByRef destLen As Any, ByRef src As Any, ByVal srcLen As Long) As Long
이 API를 통해 데이터를 압축하려고해요.
테스트용으로 대충
Private Sub Form_Load()
Dim Buf1() As Byte
Dim Buf2() As Byte
Dim CmpSize As Long
Open App.Path & \Project1.exe For Binary Access Read As #1
ReDim Buf1(LOF(1) - 1) As Byte
ReDim Buf2(LOF(1) - 1) As Byte
Get #1, , Buf1
Close #1
Call compress(Buf2(0), CmpSize, Buf1(0), UBound(Buf1) + 1)
ReDim Preserve Buf2(CmpSize - 1) As Byte
Open App.Path & \Project1.exe.bin For Binary Access Write As #1
Put #1, , Buf2
Close #1
End Sub
이렇게 코딩후 했는데
ReDim Preserve Buf2(CmpSize - 1) As Byte
부분에서 아래첨자 오류가 나는군요.
그래서 디버그를 눌러서 CmpSize의 크기를 봤더니
0
헐.
압축이 실패한것같아요.
어떻게 해야하나요?
-
꽃내음
오오! 감사해요!
-
가장
간단 명료.
번호 | 제 목 | 글쓴이 | 날짜 |
---|---|---|---|
2701725 | Shell 문 질문이요 ! 고수님들 부탁드려요 | 유미 | 2025-07-16 |
2701671 | txt내용 변경하기좀 질문합니다.. (2) | 봄여우 | 2025-07-16 |
2701620 | 비베 폼크기 단위 (1) | UniQue | 2025-07-15 |
2701591 | 비베로 웹에있는 파일을 FTP로 다운받지 않고... (1) | 미즈 | 2025-07-15 |
2701512 | 딜어떻게 만들어요 ? (1) | 도손 | 2025-07-14 |
2701484 | 체크박스(아이콘) 관련.. | 새콤이 | 2025-07-14 |
2701454 | 계산기 수식 질문이요 (2) | 슬기 | 2025-07-14 |
2701430 | 저희 집 컴퓨터... 셧 다운이... 안 되요... (Windows XP SP3) | 바름 | 2025-07-14 |
2701404 | 최소화 닫기 확대 이거 모양어케바꿔요 디자인할수잇는데. | 또야 | 2025-07-13 |
2701378 | 아무나 비베.iso 토렌트파일로 올려주심 안대나요? | 중독적 | 2025-07-13 |
2701349 | 커맨드박스클릭후 체크 사용? (1) | 지율 | 2025-07-13 |
2701319 | 빠른답변좀 해주세용 ㅠㅠ | 마루나 | 2025-07-13 |
2701292 | 궁금한게있습니다 . | 아잉 | 2025-07-12 |
2701263 | 버튼이나 폼크기 수정할떄 그 드래그 같이 끌리는게 안보여오 (1) | 진솔 | 2025-07-12 |
2701237 | 커맨드박스질문 (1) | 연분홍 | 2025-07-12 |
2701184 | 자동업데이트 다른질문 (1) | 꽃햇님 | 2025-07-11 |
2701160 | 관리프로그렘을 제작하고있는대요 (2) | 똘끼 | 2025-07-11 |
2701131 | 현재 폼이 비활성화인지 활성화인지 확인하는방법 | 동생몬 | 2025-07-11 |
2701099 | 배포한 파일 업데이트 (2) | 블레이 | 2025-07-11 |
2701014 | Text1에 있는 폴더를.. (9) | 들빛 | 2025-07-10 |