Зацените мою прогу

[Simply-Art]

Обновление программы уже вышло. Можно скачать здесь. У кого есть предыдущие версии программы могут зайти в настройки и на вкладке обновления проверить какая самая последняя версия программы на сайте. Жду отзывы.

[AVer]

...bass.dll не был найден...

Вот так вот. А вообще разместил бы хоть какое то описание программы, а то скачиваешь и не знаешь что именно...

[Simply-Art]

Посты выше описывают, что скачиваем и там так же написано что bass.dll должна быть в одной папке с плеером! Bass.dll можно скачать из моего же поста на первой странице.

[AVer]

Сорри, я не заметил что это "Страница 2 из 2"

Все же есть одно замечание. Мне кажется плавное отключение звука - это примерно 1.5 - 2 секунды, а у тебя это происходи примерно секунд за 5. Ведь кнопка Mute Создана специально для того, чтобы при необходимочти можно было быстро полностью отключить звук...

[PAVEL315]

Вопрос : когда заработает перемотка? Переход по песне???

[Simply-Art]

Переход по песне???

равно перемотка, правельно?
Никак не могу настроить эту коварную перемотку. Надеюсь, к следующей версии справлюсь с ней

[Virtson]

Сообщение от Simply-Art

У кого есть предыдущие версии программы могут зайти в настройки и на вкладке обновления проверить какая самая последняя версия программы на сайте. Жду отзывы.

Simply-Art, расскажи Please, как у тебя реализовано поиск новой версии и само обновление!

[Simply-Art]

файл на сервере r.txt содержит две строки
1
38

что означает версию 1.38

теперь в программе

function InetIsOffline(Flag: Integer): Boolean;stdcall; external 'URL.DLL';

implementation

const
Version=1.38;//версия программы

function DownloadURL(const aUrl: string): Boolean;
var
hSession: HINTERNET;
hService: HINTERNET;
lpBuffer: array[0..1024 + 1] of Char;
dwBytesRead: DWORD;
begin
Result := False;
// hSession := InternetOpen( 'MyApp', INTERNET_OPEN_TYPE_DIRECT, nil, nil, 0);
hSession := InternetOpen('MyApp', INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);
try
if Assigned(hSession) then
begin
hService := InternetOpenUrl(hSession, PChar(aUrl), nil, 0, 0, 0);
if Assigned(hService) then
try
while True do
begin
dwBytesRead := 1024;
InternetReadFile(hService, @lpBuffer, 1024, dwBytesRead);
if dwBytesRead = 0 then break;
lpBuffer[dwBytesRead] := #0;
Form1.URLMemo.Lines.Add(lpBuffer);
end;
Result := True;
finally
InternetCloseHandle(hService);
end;
end;
finally
InternetCloseHandle(hSession);
end;
end;

procedure TForm1.RefreshBtnClick(Sender: TObject);
begin
if InetIsOffline(0) then MessageDlg('Вы не подключены к интернету!',mtError,[mbOK],0) else
begin
DownloadURL('http://project-sa.by.ru/r.txt');//загрузка файла в URLMemo
Label1.Caption:=URLMemo.Lines[0]+','+URLMemo.Lines[1];
if (Label1.Caption<>'') then
if ((StrToInt(URLMemo.Lines[0])*100)+StrToInt(URLMemo.Lines[1]))<=(Version*100) then MessageDlg('У вас уже самая последняя версия программы.',mtInformation,[mbOK],0) else
if MessageDlg('Доступна более новая версия программы. Скачать?',mtInformation,[mbYes,mbNo],0)=mrYes then //здесь пишем код загрузки проги
end;