[grom4ik7]

Здравствуйте форумчане.

Помогите с проблемой..

Бьюсь головой в такт уже 2 день.. Никакой инфы найти не могу.

Мне нужно в программе (для начала) просто проиграть песню ..

Но не совсем просто , а с url , допустим test1.ru/1.mp3

Качать и проигрывать.. Это не то =)

Пожалуйста , подскажите , чем решить проблему.

[NumLock]

для начала:
shellexecute, 'open', 'http://test1.ru/1.mp3'

[grom4ik7]

Это код для открытия песни плеером ?

Дело в том , что я хочу сделать плеер , который будет проигрывать песни , которые находятся на ftp

[NumLock]

эта функция запускает программу по умолчанию для типа мп3. и передает ей указаный параметр. обычно это всегда какой-нить плеер.

[Bars1992]

Сообщение от NumLock

эта функция запускает программу по умолчанию для типа мп3. и передает ей указаный параметр. обычно это всегда какой-нить плеер.

NumLock я продолжу твою мысль Но ты можешь написать свою прогу и передовать песню ей.

[grom4ik7]

А можно как-то без усложнения себе жизни ?

Нужно просто , чтоб песня не качалась на комп. А проигрывалась...

Вы же слушали интернет радио ?

[Страдалецъ]

Слушали, и странички смотрели и видео в онлайне смотрели. Но это еще не значит, что ничего не качалось. Не скачаешь - не получишь. Контент должен быть сначала получен, а уже потом использован по своему усмотрению и никак иначе.

[NumLock]

ну не знаю как еще проще:

Код:

unit Unit1;

interface

uses
//  ShellAPI,
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
//  ShellExecute(Handle, 'open', PChar('C:\Program Files\Windows Media Player\wmplayer.exe'), PChar('http://grafmoto.narod.ru/temp/tatu.mp3'), nil, SW_SHOW);
  WinExec(PChar('"C:\Program Files\Windows Media Player\wmplayer.exe" http://grafmoto.narod.ru/temp/tatu.mp3'), SW_SHOW);
end;

end.

можно SW_HIDE использовать

[Bars1992]

Сообщение от grom4ik7

А можно как-то без усложнения себе жизни ?

Нужно просто , чтоб песня не качалась на комп. А проигрывалась...

Вы же слушали интернет радио ?

Когда ты смотриш видео в интернете или слушаешь музыку то файли всё равно скачиваються в кеш. есть даже спец проги которые позволяють просматривать кеш браузеров. можешь скачать и убедится.

[grom4ik7]

NumLock - Нужно чтоб эта программа служила плеером.

Без всяких там WMP'ов. Вот в чём проблемка..

[grom4ik7]

NumLock - Твой способ работает.

Но нужно чтоб прога её (песню) сама проигрывала..

[Bars1992]

Сообщение от grom4ik7

NumLock - Твой способ работает.

Но нужно чтоб прога её (песню) сама проигрывала..

Раз тебе такойвариант не нравится есть другой.
Скачиваешь файл с интернета в поток (компонент инди НТТР метод Get). Так же нужно найти какой нибудь компонент который может читать МР3 с потока и всё.

[Rat]

Bass.dll юзайте.

[NumLock]

oops

Код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, MPlayer;

type
  TForm1 = class(TForm)
    MediaPlayer1: TMediaPlayer;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
//  MediaPlayer1.FileName:='http://grafmoto.narod.ru/temp/tatu.mp3';
  MediaPlayer1.FileName:='http://grafmoto.narod.ru/temp/tatu2.mp3';
  MediaPlayer1.Open;
  MediaPlayer1.Play;
end;

end.

[Bars1992]

Сообщение от NumLock

oops

И как всегда всё перед носом лежало