Модераторы: Poseidon

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> [Delphi] Перечисление всех bmp-файлов папки, и загрузка в ImageList 
:(
    Опции темы
svarogik
Дата 3.10.2006, 19:07 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 159
Регистрация: 20.3.2006

Репутация: нет
Всего: нет
можно ли проверить ТУ ПАПКУ где находится екзешник программы на наличие *.bmp и потом загрузить их все в имэйдж лист,а названия файлов в массив стрингов? другой вопрос как это сделать но пока только можно ли...
PM MAIL   Вверх
Albinos_x
Дата 3.10.2006, 19:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Evil Skynet
****


Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

Репутация: 2
Всего: 108
можно... как осуществлять посик ффайлов не раз обсуждалось, пользуемся поиском или смотрим в DRKB (Delphi Russian Knowledge Base) или в FAQ


--------------------
"Кто владеет информацией, тот владеет миром"    
Уинстон Черчилль
PM MAIL ICQ   Вверх
Marriage
Дата 3.10.2006, 19:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 842
Регистрация: 4.5.2004
Где: Таганрог

Репутация: нет
Всего: 2
Можно.
Application.ExeName - путь к фале ЕХЕ, проверить папку, и если есть, тогда методом ADD добавить.


--------------------
Praemonitus, praemunitus
PM MAIL ICQ   Вверх
Romikgy
Дата 3.10.2006, 20:24 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Любитель-программер
****


Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 9
Всего: 146
http://forum.vingrad.ru/index.php?showtopi...amp;hl=findfile


--------------------
Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности. 
smile
PM   Вверх
svarogik
Дата 4.10.2006, 22:00 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 159
Регистрация: 20.3.2006

Репутация: нет
Всего: нет
вот пытаюсь разобраться, 
Код


 Procedure FindFile(Dir:string, FileMask: string); 
var SearchRec:TSearchRec; 
begin 
 if Dir<>'' then if Dir[length(Dir)]<>'\' then Dir:=Dir+'\';  
 if FindFirst(Dir+FileMask, faAnyFile, SearchRec)=0 then repeat  
   if (SearchRec.name='.') or (SearchRec.name='..') then continue;  
   if (SearchRec.Attr and faDirectory)<>0 then  
     ScanDir(Dir+SearchRec.name) 
   else  
     Делай_с_найденным_файлом _фсё_что_хочеш(Dir+SearchRec.name); 
 until FindNext(SearchRec)<>0;  
 FindClose(SearchRec);
end; 

FindFile('c:\','*.mp3');

 


что такое
Код

if FindFirst(Dir+FileMask, faAnyFile, SearchRec)=0 then repeat  
   if (SearchRec.name='.') or (SearchRec.name='..') then continue;  
   if (SearchRec.Attr and faDirectory)<>0 then  
     ScanDir(Dir+SearchRec.name) 



Добавлено @ 22:02 
с помощью этой процедуры несколько файлов найти можно будет?
PM MAIL   Вверх
Romikgy
Дата 4.10.2006, 22:40 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Любитель-программер
****


Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 9
Всего: 146
здесь находятся все файлы по маске!
как те надо получить список файлов , в каком виде?


--------------------
Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности. 
smile
PM   Вверх
Albinos_x
Дата 4.10.2006, 22:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Evil Skynet
****


Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

Репутация: 2
Всего: 108
Цитата(svarogik @  4.10.2006,  22:00 Найти цитируемый пост)
с помощью этой процедуры несколько файлов найти можно будет

угу...


--------------------
"Кто владеет информацией, тот владеет миром"    
Уинстон Черчилль
PM MAIL ICQ   Вверх
svarogik
Дата 5.10.2006, 07:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 159
Регистрация: 20.3.2006

Репутация: нет
Всего: нет
ну тоесть я должен просканировать папку, где екхзешник, потом картинки запихнуть в имэйж лист, а их названия в массив, потом построить drawgrid по этим картинкам, с подписанными названиями,
я понял что это поиск файлов, но там непонятные процедуры, которые я выделил
PM MAIL   Вверх
Akella
Дата 5.10.2006, 08:20 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Творец
****


Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 3
Всего: 329
Код

var
  Im1: TBitmap; 
...

Im1 := TBitmap.Create; 


else  //по мере поиска добаваляем имена файлов в StringList
     if AnsiUpperCase(ExtractFileExt(SearchRec.name)) = '.BMP' then begin
       StringList1.Add(Dir+SearchRec.name); //полный путь и имя файла
       Im1.LoadFromFile(Dir+SearchRec.name);
       ImageList1.GetBitmap(0,Im1);
      или попробуй ещё несколько примеров
     //ImageList1.FileLoad(rtBitmap, Dir+SearchRec.name, clFuchsia);
    //ImageList1.FileLoad(rtBitmap, Dir+SearchRec.name, clBtnFace);
    //ImageList1.GetResource(rtIcon,PAnsiChar('Dir+SearchRec.name'),24,[lrTransparent],clAqua);
    //ImageList1.GetResource(rtBitmap,'d:\myres.bmp',24,[lrFromFile,lrTransparent],clAqua); 
или
     StringList1.Add(SearchRec.name); //только имя файла
     
     end;//if
PM MAIL   Вверх
svarogik
Дата 5.10.2006, 09:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 159
Регистрация: 20.3.2006

Репутация: нет
Всего: нет
а в имэйж лист точно добавляется? там же вроде метод адд а тут его нет или fileload и getresource как раз добавляет? что такое ImageList1.GetBitmap(0,Im1);?
. И еще если можно расскажите как работает процедура поиска,  построчно, не только последний пункт, а то что я раньше добавил

Добавлено @ 09:34 
Код

Procedure FindFile(Dir:string, FileMask: string); 
var SearchRec:TSearchRec; Im1: TBitmap; 
begin 

Im1 := TBitmap.Create;  

if Dir<>'' then if Dir[length(Dir)]<>'\' then Dir:=Dir+'\';  
 if FindFirst(Dir+FileMask, faAnyFile, SearchRec)=0 then repeat  
   if (SearchRec.name='.') or (SearchRec.name='..') then continue;  
   if (SearchRec.Attr and faDirectory)<>0 then  
     ScanDir(Dir+SearchRec.name) 
   else  
     if AnsiUpperCase(ExtractFileExt(SearchRec.name)) = '.BMP' then begin
       StringList1.Add(Dir+SearchRec.name); //полный путь и имя файла
       Im1.LoadFromFile(Dir+SearchRec.name);
       ImageList1.GetBitmap(0,Im1);
           StringList1.Add(SearchRec.name);
     
     end;//if
 
 until FindNext(SearchRec)<>0;  
 FindClose(SearchRec);
end; 


а нет заметил, тоесть примерно так?

Добавлено @ 09:35 
а вообще маска это расширение?

Добавлено @ 09:36 
куча новых процедур ничерта не понятно
PM MAIL   Вверх
Romikgy
Дата 5.10.2006, 09:42 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Любитель-программер
****


Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 9
Всего: 146
Бросаешь листбокс
Код

SendMessage(ListBox1.Handle,LB_DIR,DDL_READWRITE,LongInt(PChar('*.bmp')));

в лист боксе список бмп-шек в твоей рабочей папке
далее показывать как имагелист их пихать?


--------------------
Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности. 
smile
PM   Вверх
svarogik
Дата 5.10.2006, 10:11 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 159
Регистрация: 20.3.2006

Репутация: нет
Всего: нет
ага, только я эту процедурку прописываю, а он мне матерится что scandir это ундекларайтед идентифир
PM MAIL   Вверх
Romikgy
Дата 5.10.2006, 10:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Любитель-программер
****


Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 9
Всего: 146
код в студию!
Цитата(Romikgy @  5.10.2006,  08:42 Найти цитируемый пост)
SendMessage(ListBox1.Handle,LB_DIR,DDL_READWRITE,LongInt(PChar('*.bmp')));

это заменяет
Цитата(svarogik @  5.10.2006,  08:31 Найти цитируемый пост)
Procedure FindFile(Dir:string, FileMask: string); 
var SearchRec:TSearchRec; Im1: TBitmap; 
begin 
Im1 := TBitmap.Create;  
if Dir<>'' then if Dir[length(Dir)]<>'\' then Dir:=Dir+'\';  
 if FindFirst(Dir+FileMask, faAnyFile, SearchRec)=0 then repeat  
   if (SearchRec.name='.') or (SearchRec.name='..') then continue;  
   if (SearchRec.Attr and faDirectory)<>0 then  
     ScanDir(Dir+SearchRec.name) 
   else  
     if AnsiUpperCase(ExtractFileExt(SearchRec.name)) = '.BMP' then begin
       StringList1.Add(Dir+SearchRec.name); //полный путь и имя файла

это 


--------------------
Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности. 
smile
PM   Вверх
svarogik
Дата 5.10.2006, 10:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 159
Регистрация: 20.3.2006

Репутация: нет
Всего: нет
кот в студии, 4 сообщения вверх, тоесть как заменяет? что это делает
 SendMessage(ListBox1.Handle,LB_DIR,DDL_READWRITE,LongInt(PChar('*.bmp'))); 
PM MAIL   Вверх
Romikgy
Дата 5.10.2006, 10:48 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Любитель-программер
****


Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 9
Всего: 146
Цитата(svarogik @  5.10.2006,  09:37 Найти цитируемый пост)
 SendMessage(ListBox1.Handle,LB_DIR,DDL_READWRITE,LongInt(PChar('*.bmp'))); 

это саганяет список файлов имеющих расширение bmp в листбокс
PS имхо попробовал бы вопросов не возникло бы!


--------------------
Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности. 
smile
PM   Вверх
Страницы: (3) Все [1] 2 3 
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Центр помощи"

ВНИМАНИЕ! Прежде чем создавать темы, или писать сообщения в данный раздел, ознакомьтесь, пожалуйста, с Правилами форума и конкретно этого раздела.
Несоблюдение правил может повлечь за собой самые строгие меры от закрытия/удаления темы до бана пользователя!


  • Название темы должно отражать её суть! (Не следует добавлять туда слова "помогите", "срочно" и т.п.)
  • При создании темы, первым делом в квадратных скобках укажите область, из которой исходит вопрос (язык, дисциплина, диплом). Пример: [C++].
  • В названии темы не нужно указывать происхождение задачи (например "школьная задача", "задача из учебника" и т.п.), не нужно указывать ее сложность ("простая задача", "легкий вопрос" и т.п.). Все это можно писать в тексте самой задачи.
  • Если Вы ошиблись при вводе названия темы, отправьте письмо любому из модераторов раздела (через личные сообщения или report).
  • Для подсветки кода пользуйтесь тегами [code][/code] (выделяйте код и нажимаете на кнопку "Код"). Не забывайте выбирать при этом соответствующий язык.
  • Помните: один топик - один вопрос!
  • В данном разделе запрещено поднимать темы, т.е. при отсутствии ответов на Ваш вопрос добавлять новые ответы к теме, тем самым поднимая тему на верх списка.
  • Если вы хотите, чтобы вашу проблему решили при помощи определенного алгоритма, то не забудьте описать его!
  • Если вопрос решён, то воспользуйтесь ссылкой "Пометить как решённый", которая находится под кнопками создания темы или специальным флажком при ответе.

Более подробно с правилами данного раздела Вы можете ознакомится в этой теме.

Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Poseidon, Rodman
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Центр помощи | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.1432 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.