Курсовой проект по дисциплине “Теория Разработки Программных Продуктов” Тема: «Аудио проигрыватель»

{$R *.res}
const

MailslotName = '\\.\mailslot\DBolidAmp_FileCommand';

EventName = 'BolidAmp_CHECKEXIST';
var

ClientMailslotHandle: THandle;

Letter: string;

BytesWritten: DWORD;
begin

// Пытаемся создать почтовый ящик

try

ServerMailslotHandle := CreateMailSlot(MailslotName, 0, MAILSLOT_WAIT_FOREVER, nil);

finally

if ServerMailslotHandle = INVALID_HANDLE_VALUE then

begin

if GetLastError = ERROR_ALREADY_EXISTS then

begin

// Если такой ящик уже есть, подключаемся к нему как клиент

ClientMailslotHandle := CreateFile(MailslotName, GENERIC_WRITE,

FILE_SHARE_READ, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);

Letter:='';

if ParamCount > 0 then

letter:=readStartParam;

// Отправляем команду в почтовый ящик

WriteFile(ClientMailslotHandle, Letter[1], SizeOf(string)*Length(Letter),

BytesWritten, nil);

// Сигнализируем об отправке данных через специальное событие

CommandEvent := OpenEvent(EVENT_MODIFY_STATE, False, EventName);

SetEvent(CommandEvent);

// Закрываем все дескрипторы

CloseHandle(CommandEvent);

CloseHandle(ClientMailslotHandle);

end

end

else

begin

// Создаём событие для сигнализирования о поступлении данных

CommandEvent := CreateEvent(nil, False, False, EventName);

// Выполняем обычный для VCL-приложений цикл

Application.Initialize;

Application.MainFormOnTaskbar := true;

Application.CreateForm(TDM, DM);

Application.CreateForm(Tface, face);

Application.Run;

// Закрываем все дескрипторы

CloseHandle(ServerMailslotHandle);

CloseHandle(CommandEvent);

end;

end;

end.

unit main;
interface
uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,

Dialogs, ComCtrls, ExtCtrls, StdCtrls, ACS_Classes, ShellAPI, Buttons, ToolWin,

Jpeg, PNGImage, ActnMan, ActnCtrls, LCDScreen, RzTrkBar, RzTabs, RzGroupBar,

RzStatus, RzPanel, RzSpnEdt, regftyp, BMLPlaylist, PathUtils,

RzRadGrp, finder, tech_unit, EventWaitThread;
type

Tface = class(TForm)

private

apClose: Boolean;

newfind: TFinder;

PlayingCount: Integer;

PlayingID: Integer;

PlayingIndex: Integer;

Playingprevios: Integer;

StopPlaying: Boolean;

function GetSelectedItem: Integer;

procedure readOptions;

function ReadStringFromMailslot: string;

procedure saveOptions;

procedure WMCommandArrived(var Message: TMessage); message

WM_CommandArrived;

procedure WMDropFiles(var Msg: TWMDropFiles); message WM_DROPFILES;

public

procedure appClose;

procedure finderdest;

function getPlayingID: Integer;

function getPlayingIndex: Integer;

procedure PlayItem(index: integer);

procedure readBML(pach:string);

procedure resetPlStatus(index: integer);

procedure saveBML(pach: string;play:boolean);

end;

var

face: Tface;

ServerMailslotHandle: THandle;
implementation

uses controlls_comp, IniFiles;
{$R *.dfm}
{

************************************ Tface *************************************

}

procedure Tface.addDirClick(Sender: TObject);

begin

if dm.SelectFolder.Execute then

dm.scanfile(dm.SelectFolder.SelectedPathName);

end;
procedure Tface.appClose;

begin

apClose:=true;

close;

end;
procedure Tface.AssTrueClick(Sender: TObject);

var

icon: string;

plIcon: string;

begin

icon := ExtractFileDir(application.ExeName)+'\image\type\Audio.ico';

plIcon:= ExtractFileDir(application.ExeName)+'\image\type\PlayList.ico';

registerfiletype('.bml','BolidAmp PlayList','PlayList',plIcon,application.ExeName);

if AssCheck.ItemChecked[0] then registerfiletype('.ogg','oggfile','Audio',icon,application.ExeName);

if AssCheck.ItemChecked[1] then registerfiletype('.mp3','mp3file','Audio',icon,application.ExeName);

if AssCheck.ItemChecked[2] then registerfiletype('.wav','wavfile','Audio',icon,application.ExeName);

if AssCheck.ItemChecked[3] then registerfiletype('.wma','wmafile','Audio',icon,application.ExeName);

if AssCheck.ItemChecked[4] then registerfiletype('.ape','apefile','Audio',icon,application.ExeName);

if AssCheck.ItemChecked[5] then registerfiletype('.flac','flacfile','Audio',icon,application.ExeName);

end;
procedure Tface.edSearchChange(Sender: TObject);

begin

if edSearch.Text<>'' then

begin

edSearch.RightButton.Visible:=true;

play_list.Visible:=false;

SearchList.Visible:=true;

SearchProgress.Visible:=true;

//dm.t5.Enabled:=true;

dm.new_search:=true;

if newfind=nil then begin newfind:=TFinder.Create(false); newfind.Priority:=tpLowest; end;

end

else

edSearchRightButtonClick(nil);

end;
procedure Tface.edSearchRightButtonClick(Sender: TObject);

begin

edSearch.RightButton.Visible:=false;

SearchProgress.Visible:=false;

SearchProgress.Position:=0;

//dm.t5.Enabled:=false;

finderdest;

SearchList.Visible:=false;

play_list.Visible:=true;

SearchList.Clear;

edSearch.Clear;

dm.search_index:=0;

end;
procedure Tface.finderdest;

begin

if (newfind<>nil) then newfind.Terminate;

newfind:=nil;

end;
procedure Tface.FormClose(Sender: TObject; var Action: TCloseAction);

begin

if apClose then

begin

Action := caFree;

end

else

begin

Action := caNone;

face.Visible:=false;

memFree;

end;

end;
procedure Tface.FormCreate(Sender: TObject);

begin

TEventWaitThread.Create(False);

//Tfinder.Create(false);

apClose:=false;

DragAcceptFiles(Handle,True);

PlayingID:=-1;

PlayingCount:=-1;

Playingprevios:=-2;

PlayingIndex:=-1;

with dm do

begin

plPlay.ImageIndex :=img_state_play;

plNext.ImageIndex :=img_state_next;

plPrev.ImageIndex :=img_state_prev;

addFile.ImageIndex :=img_state_fileOpen;

addDir.ImageIndex :=img_state_dirrOpen;

plRepeat.ImageIndex :=img_state_Repeat;

plRandom.ImageIndex :=img_state_random;

plOpen.ImageIndex :=img_state_plOpen;

plSave.ImageIndex :=img_state_plSave;

plStop.ImageIndex :=img_state_Stop;

plClear.ImageIndex :=img_state_plClear;

edSearch.LeftButton.ImageIndex :=img_state_find;

edSearch.RightButton.ImageIndex :=img_state_close;

end;

readOptions;

if face.Left < 0 then face.Left:=100;

if face.Top < 0 then face.Top:=100;
imgAlbum.Picture.LoadFromFile(ExtractFilePath(Application.ExeName)+'image\def_audio.png');
if ParamCount > 0 then

dm.scanfile(readStartParam)

else

face.readBML(ExtractFilePath(Application.ExeName)+'data\plData.bml');
end;
procedure Tface.FormDestroy(Sender: TObject);

var

i: Byte;

begin

DragAcceptFiles(Handle, False);

with dm do

begin

for I := 1 to 4 do

TTimer(FindComponent('T'+inttostr(i))).Enabled:=false;

if DXAudioOut.Status <> tosIdle then