Отобразить Images по очереди из каталога (С++ Builder 6)
На форме присутствуют - OpenDialog, Image1, ну и соответсвующие button'ы.
С помощью OpenDialog'а надо указать папку из которой отобразить каждый рисунок по очереди (делаю с помощью LoadFromFile) кнопкой Next.
Please, help..
С помощью OpenDialog'а надо указать папку из которой отобразить каждый рисунок по очереди (делаю с помощью LoadFromFile) кнопкой Next.
Please, help..
После указания директории нужно произвести поиск всех картинок в ней.
Это делается с помощью функций FindFirst и FindNext и типа TSearchRec.
Вот код для Delphi, на Builder перевести не составит особого труда. В приведенном ниже коде происходит поиск всех файлов jpg и вывод их имен с помощью сообщений.
[highlight=Delphi]
var
hFindFile: THandle;
SearchRec: TSearchRec;
begin
//Первый параметр называется маской, но в него можно включать и
//путь.
hFindFile := FindFirst('*.jpg', faAnyFile, SearchRec);
if hFindFile <> INVALID_HANDLE_VALUE then
try
repeat
if (SearchRec.Name = '.') or (SearchRec.Name = '..')
or SearchRec.Name = '') then continue;
ShowMessage(SearchRec.Name);
until (FindNext(SearchRec) <> 0);
finally
FindClose(SearchRec);
end;
end;
[/highlight]
Это делается с помощью функций FindFirst и FindNext и типа TSearchRec.
Вот код для Delphi, на Builder перевести не составит особого труда. В приведенном ниже коде происходит поиск всех файлов jpg и вывод их имен с помощью сообщений.
[highlight=Delphi]
var
hFindFile: THandle;
SearchRec: TSearchRec;
begin
//Первый параметр называется маской, но в него можно включать и
//путь.
hFindFile := FindFirst('*.jpg', faAnyFile, SearchRec);
if hFindFile <> INVALID_HANDLE_VALUE then
try
repeat
if (SearchRec.Name = '.') or (SearchRec.Name = '..')
or SearchRec.Name = '') then continue;
ShowMessage(SearchRec.Name);
until (FindNext(SearchRec) <> 0);
finally
FindClose(SearchRec);
end;
end;
[/highlight]
Спасибо, сейчас попробуем-с...