Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > Мультимедиа
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 12.09.2012, 13:19
alyamus alyamus вне форума
Прохожий
 
Регистрация: 21.05.2012
Сообщения: 28
Репутация: 10
По умолчанию help me :(

hi friends. dragdrop code very run ! no problem . but listbox and mediaplayer no automatic run Pressing the play button after mediaplayer run ...

Код:

procedure TForm1.FormCreate(Sender: TObject);
begin
  DragAcceptFiles(Handle, True);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  DragAcceptFiles(Handle, False);
end;

procedure TForm1.WMDROPFILES(var Msg: TMessage);
var
  l: Integer;
  i: Integer;
  b: array [0..MAX_PATH-1] of Char;
begin
  l:=DragQueryFile(Msg.WParam, $ffffffff, nil, 0);
  for i:=0 to l-1 do
    ListBox1.Items.Add(extractfilename(Copy(b, 1, DragQueryFile(Msg.WParam, i, @b[0], SizeOf(b)))));
  DragFinish(Msg.WParam);
end;

Bargest: use tags [ code ] [ /code ]!

mediaplayer dragdrop listbox automatic play pls ...

Последний раз редактировалось Bargest, 12.09.2012 в 14:39.
Ответить с цитированием
  #2  
Старый 12.09.2012, 13:28
Аватар для poli-smen
poli-smen poli-smen вне форума
Профессионал
 
Регистрация: 06.08.2012
Адрес: Кривой Рог
Сообщения: 1,791
Версия Delphi: Delphi 7, XE2
Репутация: 4415
По умолчанию

Цитата:
Сообщение от alyamus
hi friends. dragdrop code very run ! no problem . but listbox and mediaplayer no automatic run Pressing the play button after mediaplayer run ...
Код:
  ListBox1.Items.Add(extractfilename(Copy(b, 1, DragQueryFile(Msg.WParam, i, @b[0], SizeOf(b)))));
  DragFinish(Msg.WParam);
end;

mediaplayer dragdrop listbox automatic play pls ...
Необходимо предусмотреть сохранение полного пути к файлам. Сейчас в ListBox1 сохраняется только имя файла без пути к нему.
Кроме того, там можно бросить не только файлы, но и папки, поэтому нужно перед добавлением в ListBox1 проверить, является ли элемент файлом или же папкой.
Ответить с цитированием
  #3  
Старый 12.09.2012, 15:33
alyamus alyamus вне форума
Прохожий
 
Регистрация: 21.05.2012
Сообщения: 28
Репутация: 10
По умолчанию

sory I do not understand

Do you have a small project
Ответить с цитированием
  #4  
Старый 12.09.2012, 16:05
Аватар для PhoeniX
PhoeniX PhoeniX вне форума
Always hardcore!
 
Регистрация: 04.03.2009
Адрес: СПб
Сообщения: 3,239
Версия Delphi: GCC/FPC/FASM
Репутация: 62149
По умолчанию

Please, read rules.
Цитата:
3.2. Официальный язык форума – Русский, допускается использование Английского языка при цитировании справочной информации.
Цитата:
Сообщение от translate
3.2. Official forum language is Russian. You can use English for documentation quoting.
Use translater or use forums/services for English
__________________
Оставайтесь хорошими людьми...
VK id2634397, ds [at] phoenix [dot] dj
Ответить с цитированием
Этот пользователь сказал Спасибо PhoeniX за это полезное сообщение:
@Rafa3L (12.09.2012)
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 02:08.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter