Перевести TColor в числовой Cardinal

[Тоба]

Сообщение от min@y™

а mp3 прекрасно проигрывается из программы без всяких кривых TMediaPlayer'ов

Интересссно, через PlaySound('SND', HInstance.... ) или как-то другим способом
.....................
Да с нетом тормоза, WiFi - то пропадёт, то...

[ДралсяСошибками]

Не запускается, ошибка та же)))

[Тоба]

Блин WiFi задолбал - невозможно в нете сидеть
Попробуй, отключил МедиаПлеер
http://rghost.ru/7yJPlQVLX

[min@y™]

Интересссно, через PlaySound('SND', HInstance.... ) или как-то другим способом

Прицепляю компонент. Где взял - не помню. Использовал в своём проекте в 2009 году (см. скриншот). Могу подарить. Проигрывание пускал в побочном треде, чтобы его можно было прервать. Вот это тред:

unit uThreads;

interface

uses
  Windows, Classes, SysUtils, Controls, Contnrs, MMSystem, RyPlayer;

type
  // Класс - проигрыватель звуков
  TSoundThread = class(TThread)
  private
    FSoundFile: string;
    Player: TRyPlayer;
  protected
    procedure Execute; override;
  public
    constructor Create(CreateSuspended: Boolean; const ASoundFile: string); reintroduce;
  end;

implementation

constructor TSoundThread.Create(CreateSuspended: Boolean;
  const ASoundFile: string);
begin
  inherited Create(True);
  FSoundFile:= ASoundFile;

  if not CreateSuspended
    then Resume();
end;

procedure TSoundThread.Execute;
begin
  FreeOnTerminate:= True;
  if not FileExists(FSoundFile)
    then Exit;

  Player:= TRyPlayer.Create(nil);
  try
    Player.FileName:= FSoundFile;
    Player.Open();
    Player.Play();

    repeat
      Windows.Sleep(10);
    until Terminated or (Player.Length <= Player.Position);

    Player.Stop();
    Player.Close();
  finally
    Player.Free();
  end;
end;

end.

[Тоба]

При распаковке: Aрхивы не найдены
Чтож за день такой...

[ДралсяСошибками]

Не поверите, но ошибка прежняя

[min@y™]

При распаковке: Aрхивы не найдены
Чтож за день такой...

У меня прекрасно разжимается тоталкоммандером и винраром.
md5-хэш архива: de6a63b20964eb75c179ba5abe77dc35 *RyPlayer.rar

Аполлон-13, это у ВАС проблемы!

з.ы. ума не разложу, почему до сих пор админ не разрешил прицеплять 7z-архивы... Ну чо за фигня?

[Тоба]

Скачал последюю версию WinRAR - всё распаковалось без проблем
Спасибо, гляну

[Vapaamies]

Кстати, да. У меня Far отказался открывать архив встроенным ArcLite-ом, но внешний WinRAR открыл и распаковал. Дело тут в новой версии RAR, у которой несовместимый формат архива, как предполагаю, ибо дело происходило под 32-разрядной XP.

[Тоба]

У меня WinRAR ещё 2008г. - всё время им пользовался и никогда проблем никаких не наблюдалось, и необходимости не было качать новые версии, а тут бац - не распаковывает, ну вот за 7 лет и пришлось загрузить новую версию.