Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Мультимедиа в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 15.03.2012, 18:38   #1
demiancz
Форумчанин
 
Регистрация: 28.09.2010
Сообщений: 246
По умолчанию Запись радиостанции в файл mp3

Не получается записать радиостанцию. Если использовать такой код:
Код:
procedure TForm1.Button3Click(Sender: TObject);
begin
BASS_Encode_Start(stream, 'lame.exe --alt-preset standard - FileName.mp3', BASS_ENCODE_AUTOFREE {$IFDEF UNICODE} or BASS_UNICODE {$ENDIF}, nil, 0);
end;
то все работает.
Но мне надо реализовать возможность вводить имя файла вручную. Пытаюсь так:
Код:
procedure TForm1.Button3Click(Sender: TObject);
begin
  BASS_Encode_Start(stream, 'lame.exe --alt-preset standard - '+Edit1.Text+'.mp3', BASS_ENCODE_AUTOFREE {$IFDEF UNICODE} or BASS_UNICODE {$ENDIF}, nil, 0);
end;
Выходит ошибка:
[DCC Error] Unit1.pas(83): E2010 Incompatible types: 'PWideChar' and 'string'

Пытаюсь так:
Код:
procedure TForm1.Button3Click(Sender: TObject);
begin
  BASS_Encode_Start(stream, 'lame.exe --alt-preset standard - '+StringToWideChar(Edit1.Text)+'.mp3', BASS_ENCODE_AUTOFREE {$IFDEF UNICODE} or BASS_UNICODE {$ENDIF}, nil, 0);
end;
Выходит ошибка:
[DCC Error] Unit1.pas(83): E2035 Not enough actual parameters

Что делать? Как решить проблему? Помогите.
Смотреть фильмы HD Фильмы для планшетов
demiancz вне форума Ответить с цитированием
Старый 15.03.2012, 19:05   #2
Пепел Феникса
Старожил
 
Аватар для Пепел Феникса
 
Регистрация: 28.01.2009
Сообщений: 21,000
По умолчанию

Код:
procedure TForm1.Button3Click(Sender: TObject);
begin
  BASS_Encode_Start(stream, PChar('lame.exe --alt-preset standard - '+Edit1.Text+'.mp3'), BASS_ENCODE_AUTOFREE {$IFDEF UNICODE} or BASS_UNICODE {$ENDIF}, nil, 0);
end;
ну баян уже...
Хорошо поставленный вопрос это уже половина ответа. | Каков вопрос, таков ответ.
Программа делает то что написал программист, а не то что он хотел.
Функции/утилиты ждут в параметрах то что им надо, а не то что вы хотите.
Пепел Феникса вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Зарубежные радиостанции в интернете. vedro-compota Свободное общение 0 22.11.2011 19:00
как загрузить mp3 файл? goodwen Мультимедиа в Delphi 6 01.02.2010 12:47
Как воспроизвести файл MP3 vitamin.rulez Помощь студентам 13 27.01.2009 20:23
mp3 в исполняемый файл JRcoker Мультимедиа в Delphi 5 01.10.2008 14:42
Внедрение звука WAW/MP3 в файл GAGARIN-NEW Мультимедиа в Delphi 26 02.04.2008 13:52