Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  

Название темы: Диалог OpenFile
Показать сообщение отдельно

Аватара для DillerInc

Обратный инженер


Сообщения: 644
Благодарности: 47

Профиль | Отправить PM | Цитировать


Sir Z
Если что,то я объясняю на основе WinAPI,а не VCL.
Цитата:
И даже удалось это побороть
...с помощью флага OFN_EXPLORER .
Итак,мы выставляем в структуре OPENFILENAME флаг OFN_ALLOWMULTISELECT.
При выборе нескольких файлов в принимающем буфере путь директории отделяется от файловой части нулевым байтом.В свою очередь названия файлов также разделяются между собою нулевыми байтами,и всё это дело,в конце концов,завершается двумя нулевыми байтами.
Если же был выбран только один файл,то принимающий буфер не содержит нулевого байта между директорией и файловой частью.
В структуре OPENFILENAME есть поле nFileOffset,которое является смещением относительно начала принимающего буфера до файловой части.Мы его будем использовать.
Теперь код:
Код: Выделить весь код
var
 OpenDlgBox : TOpenFileName;
 s : String;
 cf : PChar;
 pathFile : array[0..4096] of Char = ' ';
begin
// типа заполняем структуру OPENFILENAME
 OpenDlgBox.lStructSize := SizeOf(OpenDlgBox);
 OpenDlgBox.hWndOwner := Handle;
 OpenDlgBox.lpstrFilter := 'Text Files'#0'*.txt'#0#0;
 OpenDlgBox.lpstrFile := pathFile;
 OpenDlgBox.nMaxFile := SizeOf(pathFile);
 OpenDlgBox.Flags := OFN_FILEMUSTEXIST or OFN_PATHMUSTEXIST or
         OFN_ALLOWMULTISELECT or OFN_EXPLORER;

if Length(OpenDlgBox.lpstrFile) < OpenDlgBox.nFileOffset then
{ Если выбрано несколько файлов,
   т.к. в данном случае функция Length читает длину строки до ближайшего нулевого байта,а у нас он будет стоять
   сразу за названием директории,и значение поля nFileOffset,которое характеризует байт начала
   файловой части,будет лежать после этого нулевого байта,т.е. значение поля nFileOffset будет больше длины,
   возвращаемой функцией Length в конкретном случае   }
begin
 cf := pathFile;
 inc(cf, OpenDlgBox.nFileOffset);
 s := 'Выбрано несколько файлов в директории: '+pathFile+#13#10;

repeat
 s := s+cf+#13#10;
 inc(cf, Length(cf) + 1);
until Length(cf) = 0; // а тут мы упрёмся во второй нулевой байт той пары,которая стоит в конце буфера

 end else
begin
 s := 'Выбран только один файл: '+pathFile;
end;
 SendMessage(hMemo, WM_SETTEXT, 0, lParam(s));

-------
То,что неясно,следует выяснить.То,что трудно творить,следует делать с великой настойчивостью. © Конфуций


Отправлено: 19:37, 20-03-2006 | #4

Название темы: Диалог OpenFile