Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Рисунки в директории [D7, XP]

XRMiPO © (2007-07-21 12:40:00)
Подскажите, как сделать, чтобы в компоненте ShellListView или подобном, можно было отобразить уменьшенные копии рисунков в директории, как в проводнике.

XRMiPO (2007-07-22 10:56:00) [1]
Вроде все работает, только я же незнаю, как это дело использовать, для того, чтобы отобразить эти эскизы в ShellListView или подобном

Dib@zol (2007-07-21 14:25:00) [2]
Ага.

procedure ReadDBFile(Name:string);
var
F : HFILE;
P : Pointer;
S, K, B : Cardinal;
// ------------------------------------------------------- \\
procedure CopyMem(var Buf; shift, size:Cardinal);
begin
Move(pointer(cardinal(p)+shift)^, Buf, size);
end;
// ------------------------------------------------------- \\
begin
F:=CreateFile(PChar(Name), GENERIC_READ, FILE_SHARE_READ, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);
S:=GetFileSize(F, nil);
GetMem(P, S);
ReadFile(F, P, S, K, nil);
K:=0;

K:=4; // Пример
CopyMem(B, K, SIZEOF(B)); // Пример

FreeMem(P);
CloseHandle(F);
end;

Вот процедура, наспех мною накорябанная. В "K" прописываешь смещение относительно начала файла, в байтах. Вызываешь CopyMem как показано ("B" не обязательно должно быть Cardinal) и читаешь, читаешь... Пока не наступит просветление :)

XRMiPO (2007-07-21 13:04:00) [3]
поподробней можно?)

Dib@zol (2007-07-21 13:01:00) [4]
Ну и чего??? Читай через CreateFile/ReadFile!

XRMiPO (2007-07-21 12:58:00) [5]
нашел, про структуру thumbs.db, правда мне ето неочень понятно)

Вообще это Structured Storage (см. MSDN), в котором есть индексный файл и файлы с маленькими жпегами (эскизами). Формат индексного файла, если не ошибаюсь, следующий: Заголовок: 4 байта - всегда 0x00070010 (номер версии 7.10 скорее всего) 4 байта - число изображений 4 байта - ширина эскиза 4 байта - высота эскиза Для каждого эскиза: 4 байта - длина данной записи включая это поле 4 байта - номер (имя) файла с эскизом 8 байт - дата/время файла (для контроля за изменениями) изображения N байт - имя файла в юникоде.

Dib@zol (2007-07-21 12:52:00) [6]
Хотя в принципе можно проделать следующий финт ушами: В каждой папке где есть рисунки, практически всегда найдётся файл Thumbs.db, и если знать его структуру, то можно открыть уже готовые уменьшенные копии. Только эта самая структура мне неизвестна :(

Dib@zol (2007-07-21 12:48:00) [7]
Уууу... Эт надо сначала загружать все рисунки, потом их уменьшать до нужного размера, желательно при этом ресэмплируя, а уже потом их выводить... С VCL-уровнем быстродействие выше чем 10 рис/сек тебе не светит. Тут АСМ нужен...

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »