purebasic.info

PureBasic forum
Текущее время: Ср сен 19, 2018 8:28 am

Часовой пояс: UTC + 3 часа




Начать новую тему Ответить на тему  [ 1 сообщение ] 
Автор Сообщение
 Заголовок сообщения: CreatePack что за ошибка?
СообщениеДобавлено: Ср авг 26, 2009 4:49 pm 
Не в сети
профессор
Аватар пользователя

Зарегистрирован: Чт июн 18, 2009 3:41 am
Сообщений: 1126
Благодарил (а): 86 раз.
Поблагодарили: 11 раз.
Пункты репутации: 0
Код:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
Procedure UpakovkaBazi()
CreatePack("arhiv.pak")
AddPackFile("bazagdk.baz",9)
AddPackFile("pamzam.dat",9)
ClosePack()
DeleteFile("bazagdk.baz")
DeleteFile("pamzam.dat")
EndProcedure
 
Procedure RaspakovkaBazi()
 
If ReadFile(111, "bazagdk.baz") And ReadFile(222, "pamzam.dat")
  CloseFile(111) :  CloseFile(222)
Else
    If OpenPack("arhiv.pak")
        mem1=NextPackFile()
        size1=PackFileSize()  
        mem2=NextPackFile()
        size2=PackFileSize()
        hFile1=CreateFile(#PB_Any,"bazagdk.baz")
        If hFile1                                              
          WriteData(hFile1,mem1,size1)
          CloseFile(hFile1)
        EndIf
        hFile2=CreateFile(#PB_Any,"pamzam.dat")
        If mem2>0
          If hFile2
            WriteData(hFile2,mem2,size2)
            CloseFile(hFile2)
          EndIf
        Else
          CloseFile(hFile2)
        EndIf
        ClosePack()
    EndIf
EndIf
EndProcedure



соответственно в начале программы проходит Procedure RaspakovkaBazi() и дальнейшее использование файлов,
а в конце программы (при нажатии на кнопку закрыть) идет процедура UpakovkaBazi().
Никак не пойму почему когда упаковываю со вторым файлом (он может быть пуст а может содержать текст) то оба файла при распаковке испорчены (у первого ,например, всегда испорчена иероглифами половина первой строки) . и не всегда такое, тоесть раз на раз не приходиться. Все работы с файлами завершил, или может я не правильно в упаковываю несколько файлов???

PS: с одним первым файлом работает все четко, как часы.


Вернуться наверх
 Профиль  
 
Показать сообщения за:  Сортировать по:  
Начать новую тему Ответить на тему  [ 1 сообщение ] 

Часовой пояс: UTC + 3 часа


Кто сейчас на форуме

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 2


Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Найти:
Перейти:  
Создано на основе phpBB® Forum Software © phpBB Group (блог о phpBB)
Сборка создана CMSart Studio
Русская поддержка phpBB