|
Платные хостинги
Раскрутка сайта
Книги по программированию
Подскажите по ZipTV
- Стала необходимость распаковать файлы есть и zip и rаr выбор пал на ziptv только вот немогу понять как этим чудом распаковывать архивы Помещаю на форму UnZip1, ну и задаю параметры, а в ответ тишина. Код UnZip1.ArchiveFile:='d:\prize.zip'; UnZip1.FileSpec.Add('*.*'); UnZip1.ExtractDir:='d:\'; UnZip1.Extract;highlightSyntax('delphijg5MWR','delphi');Может кто сталкивался, расскажите.
- andysoft все тоже самое у меня работает К нему есть дэмо, посмотри их ...... но там все тоже самое Забыл:Перед UnZip1.FileSpec.Add('*.*'); поставь UnZip1.FileSpec.Clear; .... а то не хорошо получается Это сообщение отредактировал Monty - 9.10.2003, 11:47
- Попробовал не помогло, может для UnZip1 каккое-то сво-во надо установить.
- andysoft может быть у них есть не замеченный баг? Потому что я сначало как бросил этот компонент на форму полез в его свойства, поизменял их, а потом проверил твой код ...... не заработалоЗакрыл проект открыл дэмо .... дэмо заработало ........ и сново создаю проект, но только в свойства компонента не лезу и использую тот же код ...... все заработало ........ мистика ....... может его лучше каждый раз создавать? Вот так у меня опять же работаетКод UnZip1 := TUnZip.Create(Self); UnZip1.ArchiveFile:='D:\Downloads\software\Win XP Activator.zip'; UnZip1.FileSpecю.Clear; /// просто так ;) UnZip1.FileSpec.Add('*.*'); UnZip1.ExtractDir:='D:\Downloads\'; UnZip1.Extract; UnZip1.Free;highlightSyntax('delphiYmRhZD','delphi');
- Мистика, а у меня не работает только демка, что делать?
- Раз дэмка работает, то это хорошо ........ можно открыть её проект, щелкнуть на компонент UnZip, нажать CTRL+C, а потом уже идти в свой проект, щелкнуть на нужную форму и нажать CTRL+V А можно и такКод .......var UnZip11: TUnZip;.............. UnZip11 := TUnZip.Create(Self);....... // выполняем распаковку. UnZip11.Free;.......highlightSyntax('delphiI2MmJm','delphi');Надеюсь хоть что-то из выше сказаного поможет
Интернет казино
Онлайн игры
Увеличение члена
Купить DVD
|
