Здравствуйте, у меня такая вот проблема, как сделать так чтобы с Label текста можно было его использовать как название потока. Ну например :
Форма1
Код:
var
h1: HSTREAM;
procedure TForm1.Button1Click(Sender: TObject);
begin
Form2.Show;
Form2.Label1.Caption:= h1;
end;
Форма2
Код:
var
h1: HSTREAM;
procedure TForm1.Button1Click(Sender: TObject);
var
s: AnsiString;
begin
BASS_Init(-1, 44100, 0, Handle, nil);
s := 'C:\Music\Композиция 1.mp3';
h1 := BASS_StreamCreateFile(False, Pointer(s), 0, 0, 0);
if Label1.Caption <> 0 then BASS_ChannelPlay(Label1.Caption, False);
end;
Админ: Пользуемся тегами для оформления кода, иначе последуют санкции!
Ну и вот хочу чтобы Label1(в тексте название потока) использовался как обычный поток как такой BASS_ChannelPlay(h1, False); а надо так BASS_ChannelPlay(Label1.Caption, False);