P2k Multimedia Edit, Редактор медиа содержимого |
Здравствуйте, гость ( Вход | Регистрация ) |
P2k Multimedia Edit, Редактор медиа содержимого |
Vovan_mail |
20.5.2005, 7:52
|
Мастер Группа: Пользователи Сообщений: 166 Регистрация: 20.12.2004 Из: г. Смоленск Пользователь №: 28 543 Модель телефона: Z3 - Z6 Прошивка: R452B_G_08.02.0DR Рейтинг: 26 |
|
Vovan_mail |
16.6.2005, 8:44
|
Мастер Группа: Пользователи Сообщений: 166 Регистрация: 20.12.2004 Из: г. Смоленск Пользователь №: 28 543 Модель телефона: Z3 - Z6 Прошивка: R452B_G_08.02.0DR Рейтинг: 26 |
Цитата(dimichxp @ Четверг, 16 Июня 2005, 8:28) А какие именно проблемы с индикацией процесса? PS с динамичискими буферами поосторожнее, вдруг памяти не хватит. Вот пример кода чуть урезал, но суть оставил procedure TOne.LoadLabClick(Sender: TObject); var Buf: array of Byte; SizeF:integer; f:File of byte; SavePach,OpenFile,Name:String; begin File_Delete(SavePach); AssignFile(f,OpenFile); Reset(f); SizeF:=FileSize(f); SetLength(Buf,SizeF+1); BlockRead(f,Buf[0],SizeF); File_Create(SavePach,4); File_Write(Buf,SizeF-1); CloseFile(f); File_Close; buf:=nil; end; Вот так работает вроде как чётко, но куда тут прогресс впереть? И в этом случае переполнения памяти не будет, мы чётко освобождаем буфер в конце процедуры. Конечно если не взять файл соизмеримый с размером Винта. |
Текстовая версия | Сейчас: 2.6.2024, 9:59 |
Форум живёт: