[KOOL]

При запуске программа загружает плагины, и в OpenDialog должны добавляться новые расширения. Проблема вот в чем:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36

const   DefOpenList = <font color="Navy">'MPEG Audio Files(*.mp3;*.mp2;*.mp1)|*.mp3;*.mp2;*.mp1|'</font>+                 <font color="#000080">'Ogg Vorbis Audio (*.ogg)|*.ogg|'</font>+                 <font color="#000080">'Microsoft Wave Audio (*.wav)|*.wav|'</font>+                 <font color="#000080">'MOD Music (*.mo3;*.it;*.xm;*.s3m;*.mtm;*.mod;*.umx)|*.mo3;*.it;*.xm;*.s3m;*.mtm;*.mod;*.umx|'</font>+                 <font color="#000080">'Windows Media Audio (*.wma;*.wm;*.wax;*.asx;*.wn;*.wmx;*.wmd;*.wmz)|*.wma;*.wm;*.wax;*.asx;*.wn;*.wmx;*.wmd;*.wmz|'</font>+                 <font color="#000080">'Midi(*.mid;*.midi;*.rmi)|*.midi;*.mid;*.rmi|'</font>+                 <font color="#000080">'AudioCD(*.cda)|*.cda|'</font>+                 <font color="#000080">'Video(*.avi;*.wmv;*.mpg;*.asf;*.dvr-ms)|*.avi;*.wmv;*.mpg;*.mpeg;*.asf;*.dvr-ms'</font>;  var AllSupFiles : widestring = <font color="#000080">'All Supported Files|*.mp3;*.mp2;*.mp1;*.ogg;*.wav;*.mo3;*.it;*.xm;*.s3m;*.mtm;*.mod;*.umx;*.wm;*.wax;*.asx;*.wn;'+ '*.wmx;*.wmd;*.wmz;*.midi;*.mid;*.rmi;*.cda;*.avi;*.wmv;*.mpg;*.mpeg;*.asf;*.dvr-ms'</font>; <font color="Red">//Это дефолтные значения</font> ... OpenDialog1.Filter := DefOpenList     fh := FindFirstFile(PChar(ExeDir + <font color="#000080">'bass*.dll'</font>), fd);   if (fh <> INVALID_HANDLE_VALUE) then   try     repeat       plug := BASS_PluginLoad(fd.cFileName, 0);       if Plug <> 0 then       begin         Info := pointer(BASS_PluginGetInfo(Plug));         for a := 0 to Info.formatc - 1 do         begin           OpenDialog1.Filter := OpenDialog1.Filter + <font color="Navy">'|'</font> + Info.Formats[a].name + <font color="#000080">'('</font> +             Info.Formats[a].exts + <font color="#000080">')|'</font> + Info.Formats[a].exts;<font color="#ff0000">//добавляем новые расширения в диалог</font>           AllSupFiles := AllSupFiles + <font color="Navy">';' </font>+ Info.Formats[a].exts;<font color="#ff0000">// и в список поддерживаемых форматов</font>         end;       end;     until FindNextFile(fh, fd) = false;   finally     Windows.FindClose(fh);   end;   OpenDialog1.Filter := AllSupFiles + <font color="Navy">'|'</font> + OpenDialog.Filter;

после этого при выборе фильтра All Supported Files показываются ВСЕ файлы
не думаю, что это из-за длины строки. я видел фильтры и подлиннее. Как заставить диалог работать как положено?

[ApplicatiOn]

В каком смысле показываются все файлы? Тоесть всякие *.txt, *.tha и др. ? Если так то попробуй внести еще в сам диалог открытия All Support Files и в фильтре нужные форматы..

если не поможет то напиши в аську

[KOOL]

Если ты не заметил, то я так и делаю

Код:

1	OpenDialog1.Filter := AllSupFiles + '|' + OpenDialog.Filter;

[Thrasher]

На основе твоего кода написал тестовое, но немного по другому (думаю что из-за того, что у меня Delphi 7). Может быть и коряво... Но у меня все работает.

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38

const   DefOpenList = 'MPEG Audio Files(*.mp3;*.mp2;*.mp1)|*.mp3;*.mp2;*.mp1|'+                 'Ogg Vorbis Audio (*.ogg)|*.ogg|'+                 'Microsoft Wave Audio (*.wav)|*.wav|'+                 'MOD Music (*.mo3;*.it;*.xm;*.s3m;*.mtm;*.mod;*.umx)|*.mo3;*.it;*.xm;*.s3m;*.mtm;*.mod;*.umx|'+                 'Windows Media Audio (*.wma;*.wm;*.wax;*.asx;*.wn;*.wmx;*.wmd;*.wmz)|*.wma;*.wm;*.wax;*.asx;*.wn;*.wmx;*.wmd;*.wmz|'+                 'Midi(*.mid;*.midi;*.rmi)|*.midi;*.mid;*.rmi|'+                 'AudioCD(*.cda)|*.cda|'+                 'Video(*.avi;*.wmv;*.mpg;*.asf;*.dvr-ms)|*.avi;*.wmv;*.mpg;*.mpeg;*.asf;*.dvr-ms';  Var    AllSupFiles : widestring;   // так для теста const   name:array [1..3] of string =('Test1','Test2','test4'); Exts:array [1..3] of String =('*.test','*.tstst','*.stst');   Var I:Byte; begin   OpenDialog1.Filter := DefOpenList;   //Это дефолтные значения   AllSupFiles := 'All Supported Files|*.mp3;*.mp2;*.mp1;*.ogg;*.wav;*.mo3;*.it;*.xm;*.s3m;*.mtm;*.mod;*.umx;*.wm;*.wax;*.asx;*.wn;'+ '*.wmx;*.wmd;*.wmz;*.midi;*.mid;*.rmi;*.cda;*.avi;*.wmv;*.mpg;*.mpeg;*.asf;*.dvr-ms';   For I:=1 to 3 do  begin OpenDialog1.Filter := OpenDialog1.Filter + '|' + name[i] + '(' +             exts[i] + ')|' + exts[i];//добавляем новые расширения в диалог           AllSupFiles := AllSupFiles + ';'+ exts[i];// и в список поддерживаемых форматов end; OpenDialog1.Filter := AllSupFiles + '|' + OpenDialog1.Filter; OpenDialog1.Execute;

Ты проследи под отладчиком может быть идет неверное присваивание имен и расширений.

[KOOL]

расширения берутся из плагинов так же как и в твоем коде...ну почти...расширения присваиваются правильно(все пересморел), строка фильтра не урезана...даже компоненты другие юзал...всек та же проблема