Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Каким образом прогрессбар ??? / 14 сообщений из 14, страница 1 из 1
09.11.2006, 07:13
    #34114259
mazday
mazday
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Каким образом прогрессбар ???
Привет всем !!!


подскажите пожалуйста каким образом при копировании можно вставить прогрессбар в эту конструкцию, чтоб пользователь мог видеть что ход процесса выполняется а не стоит на месте или не весит вообще ??

lcFolder2Copy ="c:\test" откуда
lcWhere2Copy = "c:\test1" куда
llOverWrite = .T.
loFSO = CREATEOBJECT('Scripting.FileSystemObject')
loFSO.CopyFolder(lcFolder2Copy,lcWhere2Copy,llOverWrite)
RELEASE loFSO
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.11.2006, 07:28
    #34114266
piva
piva
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Каким образом прогрессбар ???
Поиск - он рулез Шмяк
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.11.2006, 07:34
    #34114272
Владимир СА
Владимир СА
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Каким образом прогрессбар ???
mazday...подскажите пожалуйста каким образом при копировании можно вставить прогрессбар в эту конструкцию, чтоб пользователь мог видеть что ход процесса выполняется а не стоит на месте или не весит вообще ??

lcFolder2Copy ="c:\test" откуда
lcWhere2Copy = "c:\test1" куда
llOverWrite = .T.
loFSO = CREATEOBJECT('Scripting.FileSystemObject')
loFSO.CopyFolder(lcFolder2Copy,lcWhere2Copy,llOverWrite)
RELEASE loFSO
А почему ты выбрал этот способ копирования? М.б. использовать команду
Код: plaintext
COPY FILE FileName1 TO FileName2
Ну а если ты хочешь использовать ProgressBar, то тебе надо:
1. открывать файл на низком уровне FOPEN()
2. узнать его длину в байтах или в строках
3. и побайтно или построчно копировать в другой файл, который ты открыл на низком уровне FCREATE(), и тут используй ProgressBar.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.11.2006, 08:14
    #34114300
mazday
mazday
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Каким образом прогрессбар ???
мне б с практической стороны с кодом б ребята а мож поможите
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.11.2006, 10:19
    #34114613
mazday
mazday
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Каким образом прогрессбар ???
ребята помогите горю просто

ссылка от Piva не катит мне нужно полностью копирование каталога с подкаталогами т.е. полность структуру каталога
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.11.2006, 10:26
    #34114650
Shiva Razrushitel
Shiva Razrushitel
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Каким образом прогрессбар ???
apiSHFileOperation - сама показывает прогресс
----------------------------------------------------------
но супер-самурая без бомбы ххх возьмеш, асобено пока я еее свой макинтош © Z.May
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.11.2006, 11:44
    #34115131
mazday
mazday
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Каким образом прогрессбар ???
а можно подробней о apiSHFileOperation
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.11.2006, 11:51
    #34115184
Shiva Razrushitel
Shiva Razrushitel
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Каким образом прогрессбар ???
ну вообщето гугль
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.11.2006, 11:52
    #34115191
AleksMed
AleksMed
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Каким образом прогрессбар ???
mazdayа можно подробней о apiSHFileOperation
Как раз в ссылке от Pivы она и фигурирует
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.11.2006, 05:16
    #34117894
mazday
mazday
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Каким образом прогрессбар ???
блин ну не могу я не понимаю блин,

ссылка от Piva, дает возможность только копировать файлы, но не сами подкаталоги , т.е. есть каталог в нем файлы тогда он копирует, а если в этом каталоге лежит подкаталог с файлами то хрен

т.е. мне нужно примерно так , скопировать каталог с файлами и если в нем есть подкаталог с другими файлами во как это все равно что скопировать папку виндовс со всеми структурами во как
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.11.2006, 05:34
    #34117897
ILL HEAD
ILL HEAD
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Каким образом прогрессбар ???
у меня есть пример использования apiSHFileOperation - копирование файла или каталога (с подкаталогами), но он написан на VB
если вам это поможет я могу его сюда запостить (небольшой код - 225 строк, запускать либо из VBA (из MS Access модуль) либо из VB6)
только что проверил - работает на ура
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.11.2006, 05:40
    #34117899
ILL HEAD
ILL HEAD
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Каким образом прогрессбар ???
144 строки %) (убрал лишнее)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.11.2006, 06:18
    #34117910
ILL HEAD
ILL HEAD
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Каким образом прогрессбар ???
посмотрел пример PIVA
строчка
Код: plaintext
lnFlags=FOF_NOCONFIRMATION+FOF_FILESONLY+FOF_NOCOPYSECURITYATTRIBS
нужно учесть что: FOF_FILESONLY - Performs the operation only on files if a wildcard flename (*.*) is specified.
тоесть FOF_FILESONLY - может ограничивать копирование вложенных подкаталогов если вы указали копировать D:\Your_Folder\*.*
либо уберите эту константу из формирования lnFlags либо укажите источник без *.*
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.11.2006, 07:22
    #34117954
foxwizard
foxwizard
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Каким образом прогрессбар ???
Код: plaintext
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.
LPARAMETERS tSource,tTarget
thisform.label1.Caption='Копирую файл '+tTarget
_screen.Caption=thisform.label1.Caption
*SET STEP ON
lnBufferSize= 1024 
lnLocal=Fopen(tSource)
lnFileLength=FSEEK(lnLocal, 0 , 2 )
FSEEK(lnLocal, 0 , 0 )
mB=FCREATE(tTarget)
*mB=FCREATE(tTarget)

lnUploaded= 0 

  * While there is something to upload
  DO WHILE lnUploaded<lnFileLength
    lcBuffer=FREAD(lnLocal,lnBufferSize)
    lnWritten= 0 
    FWRITE(mB,lcBuffer)
    lnUploaded=lnUploaded+LEN(lcBuffer)
    * Makes use of the Thermo object to show the progress
*	WAIT WINDOW STR(lnUploaded* 100 /lnFileLength) nowait
	thisform.therm1.procent=lnUploaded* 100 /lnFileLength
	thisform.label1.Caption='Копирую файл '+tSource+STR(thisform.therm1.procent)+' %выполнено'
	_screen.Caption=thisform.label1.Caption
*    Thermo(,,lnUploaded* 100 /lnFileLength)

  ENDDO
  thisform.therm1.procent= 0 
SELECT mylog  
REPLACE ok WITH .t.

FCLOSE(lnLocal)
FCLOSE(mB)
thisform.label1.Caption='Готово'
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Каким образом прогрессбар ??? / 14 сообщений из 14, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 520ms
Закрыть
start [/forum/topic.php?fid=41&tablet=1&tid=1590421]:
 0ms
get settings:
 8ms
get forum list:
 16ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 172ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 41ms
get tp. blocked users:
 1ms
others: 266ms
total:  520ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]