Пара вопросов..Очень нужно..

[exp.]

меня интересует пара вопросов..
1.как извлечь только 1файл при помощи zlibwapi.dll?
если имя заранее известно..
2.можно ли выгрузить компонент, во время
работы..напримерCommonDialog..если да, то как??
3.почему VB приложения заимают так много оперативной памяти??
и как уменьшить..

ЗЫ прочел не один десяток статей..поиском пользовался..
найдя тем самым решения на большиство проблем..
буду очень вам благодарен, если получу и на эти ответы..

[Хакер]

меня интересует пара вопросов..
1.как извлечь только 1файл при помощи zlibwapi.dll?
если имя заранее известно..

В документации по zlib разве не написано?

2.можно ли выгрузить компонент, во время
работы..напримерCommonDialog..если да, то как??

Какой компонент? Зачем выгружать? Ради экономии памяти?

3.почему VB приложения заимают так много оперативной памяти??
и как уменьшить..

Много? 0,7 Гб чтоли?

[exp.]

Хакер
спасибо за столь вразумительные ответы
это как раз то,что я искал

В документации по zlib разве не написано?

я не нашел..
смотрел http://www.zlib.net/manual.html

Какой компонент? Зачем выгружать? Ради экономии памяти?
Много? 0,7 Гб чтоли?

в моем случае это критично..
тольчко не советуйте переходить на C[/url]

[Konst_One]

контролировать объем выделяемой для работы памяти в программе на VB нельзя.

[exp.]

контролировать объем выделяемой для работы памяти в программе на VB нельзя.

ну это я уже понял, а по хитрому никак нельзя??
хотя ответ уже предугадываю..

вот бы с zlib помогли..

[exp.]

ну хотя бы ответьте как запихнуть программу в cmd или пуск выпольнить(хотя это одно и тоже..)
не меняя ее места...

например моя прога находится %program files%\myprog\run.exe

чтобы, если в cmd написать run , запускалась моя программа..

и заодно.. как узнать,куда установлен winrar..

[alibek]

Автор, переведи свой поток сознания в русские слова.
Тогда будет ясно, поможет ли тебе установка переменной PATH, или вопрос заключается в другом.

[|kerish|]

ну хотя бы ответьте как запихнуть программу в cmd или пуск выпольнить(хотя это одно и тоже..)
не меняя ее места...

например моя прога находится %program files%\myprog\run.exe

чтобы, если в cmd написать run , запускалась моя программа..

Скопировать ее в папку Windows.

и заодно.. как узнать,куда установлен winrar..

Думаю через реестр.

[exp.]

ReDim MindStream as myMind
Set MindStream = New RussianLanguage

-вопрос в том, что написав в коммандной строке
например notepad, то загружаетя блокнот..
-меня интересует куда и что добавить, чтобы таким же способом запустить мою программу..

[exp.]

Скопировать ее в папку Windows.

а еще можно в system32 и еще в %Documents and Settings%\username"
но некоторые приложения, например тотже WinRAR можно запустить командой winrar в CMD..
значит где-то в рестре это записанно..

PS извиняюсь, WinRAR можно запустить командой winrar в Пуск>Выполнить..

еще больше запутался..

[GSerg]

HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths ?

[exp.]

GSerg
спасибо! то.что нужно..

пожалуйста ответьте еще на пару вопросов:
1.можно ли хранить dll библиотеки в systm32??
по эспериментам оказалось,что можно..но всегдали это будет работать и на всех версиях windows??
2.я так и не понял механизмработы zlib..как воспользоватся
мануал раз 5 перчитал..не нашел доступного примера CyberCript
слишком сложен для меня..
мне нужна лишь функция

Код: Выделить всё

Private Declare Function uncompress Lib "ZLibWAPI.dll" (ByRef dest As Any, ByRef destLen As Long, ByRef source As Any, ByVal sourceLen As Long) As Long

и если можно..как разорхивировать только нжные фалы..

PS обещаю написать FAQ о полученном опыте в стиле By Dummy for Dummies. или то,что нужно новичку..

[GSerg]

1. С целью чего?
2. Не читал.

[exp.]

смотрел на http://www.zlib.net/manual.html
там,правда все для C..
но на VB перевести не очень слоржно..
и все же как правильно..

[exp.]

Код: Выделить всё

Private Declare Function compress Lib "ZLibWAPI.dll" (ByRef dest As Any, ByRef destLen As Long, ByRef source As Any, ByVal sourceLen As Long) As Long
Private Declare Function compressBound Lib "ZLibWAPI.dll" (ByVal sourceLen As Long) As Long
Private Declare Function uncompress Lib "ZLibWAPI.dll" (ByRef dest As Any, ByRef destLen As Long, ByRef source As Any, ByVal sourceLen As Long) As Long

Private Const Z_OK As Long = &H0

Private Sub Main()
    Dim FileData() As Byte, FileSize As Long
    Dim CompressBuf() As Byte, CompressLen As Long
    Dim DecompressBuf() As Byte, DecompressLen As Long
    Dim RetVal As Long
    Dim FileName As String
   
    FileName = "X:\Path\File.xyz"
   
    FileSize = FileToBuf(FileName, FileData())
    If (FileSize > 0) Then
   
        CompressLen = compressBound(FileSize)
        ReDim CompressBuf(0 To (CompressLen - 1)) As Byte
       
        RetVal = compress(CompressBuf(0), CompressLen, FileData(0), FileSize)
        If (RetVal = Z_OK) Then
            Debug.Print "Compression succeeded"
            DecompressLen = FileSize
            ReDim DecompressBuf(0 To (DecompressLen - 1)) As Byte
           
            RetVal = uncompress(DecompressBuf(0), DecompressLen, CompressBuf(0), CompressLen)
            If (RetVal = Z_OK) Then
                Debug.Print "Decompression succeeded, result size: " & DecompressLen & " bytes"
            Else
                Debug.Print "Decompress failed.."
            End If
        Else
            Debug.Print "Compression failed.."
        End If
    End If
End Sub

Private Function FileToBuf(ByRef inFile As String, ByRef outBuf() As Byte) As Long
    Dim FNum As Integer
    Dim RetBuf() As Byte
   
    If (Not FileExist(inFile)) Then Exit Function
   
    FNum = FreeFile()
    Open inFile For Binary Access Read Lock Write As #FNum
        ReDim RetBuf(0 To (LOF(FNum) - 1)) As Byte
        Get #FNum, , RetBuf()
    Close #FNum
   
    outBuf = RetBuf
    FileToBuf = UBound(RetBuf) + 1
End Function

Private Function FileExist(ByRef inFile As String) As Boolean
    On Error Resume Next
    FileExist = CBool(FileLen(inFile) + 1)
End Function

ну помогие... что не так?
если убрать compress, то и uncompress не работает..
и куда это все сохраняется чтото никак не пойму..

[AiLEX]

ну помогие... что не так?
если убрать compress, то и uncompress не работает..
и куда это все сохраняется чтото никак не пойму..

А в чем проблема? Код рабочий. В CompressBuf хранится сжатый файл, а в DecompressBuf разжатый после сжатия. Может DLL левая какая-нибудь, они вроде бы как разные бывают, можно у яндекса, например, спросить "ZLibWAPI.dll".
А чтобы извлечь конкретный(е) файл(ы) из zip, тут помоему нужно просто знать структуру ZIP файла, сама dll этого не умеет.

[exp.]

я знаю, что код работает.. и dll рабочая

помогите доработать код..
в дальнейшем будет примером..для таких же,как я..

1.почему decompress не работает без compress?
2.как потом сохранить все это в виде файлов?..
понятно, если файл один, а если их много..

[CodeName33]

как потом сохранить все это в виде файлов?..
понятно, если файл один, а если их много..

Либо придумать свой формат хранения нескольких файлов, либо использовать существующий (zip, tar...) - прочитав документацию по интересующим форматам.

почему decompress не работает без compress?

О чём идёт речь? Как можно распаковать то, что не запаковано? Откуда берёшь данные для uncompress?

[exp.]

О чём идёт речь? Как можно распаковать то, что не запаковано? Откуда берёшь данные для uncompress?

данные для uncompress в моем примере это FileName = "X:\Path\File.xyz" и изначально является архивом zip
получается так..

Код: Выделить всё

Private Declare Function compress Lib "ZLibWAPI.dll" (ByRef dest As Any, ByRef destLen As Long, ByRef source As Any, ByVal sourceLen As Long) As Long
Private Declare Function compressBound Lib "ZLibWAPI.dll" (ByVal sourceLen As Long) As Long
Private Declare Function uncompress Lib "ZLibWAPI.dll" (ByRef dest As Any, ByRef destLen As Long, ByRef source As Any, ByVal sourceLen As Long) As Long

Private Const Z_OK As Long = &H0

Private Sub Main()
    Dim FileData() As Byte, FileSize As Long
    Dim CompressBuf() As Byte, CompressLen As Long
    Dim DecompressBuf() As Byte, DecompressLen As Long
    Dim RetVal As Long
    Dim FileName As String
   
    FileName = "X:\Path\File.xyz"
   
    FileSize = FileToBuf(FileName, FileData())
    If (FileSize > 0) Then
   
        CompressLen = compressBound(FileSize)
        ReDim CompressBuf(0 To (CompressLen - 1)) As Byte
       
        DecompressLen = FileSize
        ReDim DecompressBuf(0 To (DecompressLen - 1)) As Byte
           
        RetVal = uncompress(DecompressBuf(0), DecompressLen, CompressBuf(0), CompressLen)
        If (RetVal = Z_OK) Then
                Debug.Print "Decompression succeeded, result size: " & DecompressLen & " bytes"
        Else
                Debug.Print "Decompress failed.."
        End If
     End If
End Sub

Private Function FileToBuf(ByRef inFile As String, ByRef outBuf() As Byte) As Long
    Dim FNum As Integer
    Dim RetBuf() As Byte
   
    If (Not FileExist(inFile)) Then Exit Function
   
    FNum = FreeFile()
    Open inFile For Binary Access Read Lock Write As #FNum
        ReDim RetBuf(0 To (LOF(FNum) - 1)) As Byte
        Get #FNum, , RetBuf()
    Close #FNum
   
    outBuf = RetBuf
    FileToBuf = UBound(RetBuf) + 1
End Function

Private Function FileExist(ByRef inFile As String) As Boolean
    On Error Resume Next
    FileExist = CBool(FileLen(inFile) + 1)
End Function

[exp.]

подскожите pkunzip 2.06
умеет работать с длинными именами,
если нет, то чем это грозит??