Вверх ↑
Этот топик читают: Гость
Ответов: 12
Рейтинг: 8
#1: 2009-10-14 10:45:10 ЛС | профиль | цитата
Получается разница между иркутским и московским временем 5 часов если в Иркутске 00 то в Москве 19 часов вечера. но показывает -5.

И 2 проблема как создать интернет радио проигрываемое через HiAsm а не через стороннюю программу интегрированную в HiAsm. Bass потоки пробывал не чего не выходит.

Извините вот мои схемы:
1-время
2-Радио



Add(MainForm,2953706,203,189)
{
Width=229
Height=123
}
Add(Label,4070914,539,231)
{
Left=159
Top=41
Width=26
Height=28
Font=[MS Sans Serif,14,1,0,1]
Caption="00"
link(Text,13993111:FormatTime,[])
}
Add(Label,15690397,609,238)
{
Left=189
Top=41
Width=26
Height=28
Font=[MS Sans Serif,14,1,0,1]
Caption="00"
link(Text,1568160:FormatTime,[])
}
Add(Label,11465059,469,245)
{
Left=372
Top=114
Width=26
Height=28
Font=[MS Sans Serif,14,1,0,1]
Visible=1
Caption="00"
link(Text,12550070:FormatTime,[])
}
Add(Label,10837255,539,315)
{
Left=385
Top=140
Visible=1
Caption="5"
}
Add(MathParse,12220429,469,371)
{
MathStr="%1 - %2"
link(X1,11465059:Caption,[])
link(X2,10837255:Caption,[(482,359)(545,359)])
}
Add(Label,1759249,469,441)
{
Left=128
Top=41
Width=26
Height=28
Font=[MS Sans Serif,14,1,0,1]
Caption="00"
link(Text,12220429:Result,[])
}
Add(Time,12550070,469,168)
{
Format="h"
}
Add(Time,13993111,539,168)
{
Format="m"
}
Add(Time,1568160,609,168)
{
Format="s"
}
Add(DatePicker,10742891,203,231)
{
Left=10
Top=10
Width=205
Height=21
}
Add(Timer,430063,266,231)
{
link(onTimer,4348326:doEvent1,[])
}
Add(Hub,4348326,329,231)
{
OutCount=5
link(onEvent1,4070914:doText,[])
link(onEvent2,15690397:doText,[])
link(onEvent3,11465059:doText,[])
link(onEvent4,12220429:doCalc,[(406,258)(406,377)])
link(onEvent5,1759249:doText,[(391,265)(391,447)])
}
Add(Label,15991324,203,280)
{
Left=10
Top=47
Width=105
Height=17
Caption="Московское время:"
}




Add(MainForm,2953706,168,238)
{
Width=229
Height=123
}
Add(BASS_StreamCreateURL,14901965,259,315)
{
link(onCreate,2965104:doCreate,[])
link(URL,14592717:Text,[])
}
Add(Edit,14592717,259,238)
{
Left=255
Top=235
Text="http://sib-portal.ru:8000/play25.m3u"
link(onEnter,14901965:doCreate,[(303,251)(303,286)(247,286)(247,321)])
}
Add(BASS_StreamCreate,2965104,371,315)
{
link(onCreate,5606099:doPlay,[])
}
Add(MediaPlayer,5606099,434,315)
{
}

карма: 1

0
Ответов: 175
Рейтинг: 10
#2: 2009-10-14 16:18:26 ЛС | профиль | цитата
Выкладываю то, что получилось со временем . Делал на скорую руку, так что если что-то не так - подправь...
Но вроде работает...
code_15254.txt
карма: 1

1
файлы: 1code_15254.txt [3.2KB] [136]
Голосовали:JOKER_S_AN
Ответов: 12
Рейтинг: 8
#3: 2009-10-14 17:37:58 ЛС | профиль | цитата
Да спасибо работает, но логику схемы понять не могу, и работает только при значении не 5, а -5 так как мы отнимаем от иркутского времени, а не прибавляем.
------------ Дoбавленo в 17.39:
я не пойму, когда в сравнении только 1 операнд с чем он сравнивает, если операнда нету?
карма: 1

0
Ответов: 175
Рейтинг: 10
#4: 2009-10-14 19:07:14 ЛС | профиль | цитата
Если не указан операнд, то сравнение происходит с константой, которая указана на правой панели свойств (op2), а если не указана, то с данными из потока (синяя линия связи)
Большинство элементов выдают в поток (на выход) результат своих действий либо то, что попало к ним на вход.
В нашем случае первый операнд - данные красной линии связи, второй - указан в панели свойств.

Если не правильно излагаю, пусть великие Гуру меня поправят.

Я сам не спец, но все-же посоветую тебе больше читать справки и изучать примеры. Там ты получишь ответы на 95% подобных вопросов.
карма: 1

1
Голосовали:JOKER_S_AN
Ответов: 970
Рейтинг: 270
#5: 2009-10-14 19:07:33 ЛС | профиль | цитата
посмотри как делать схему для прослушки интернет радио:



Add(BASS_StreamCreateURL,14901965,224,329)
{
Name="green"
link(onCreate,9406897:doPlay,[])
link(URL,14592717:Text,[])
}
Add(Edit,14592717,224,273)
{
Left=50
Top=35
Width=340
Font=[Arial,12,0,0,204]
Text="http://sib-portal.ru:8000/play25"
}
Add(MainForm,15739648,161,189)
{
Width=445
Height=207
Caption="BASS internet radio"
Point(Handle)
link(onCreate,4252681:doInit,[])
}
Add(BASS_Init,4252681,238,203)
{
link(onInit,10183901:doCheck,[])
link(onError,11232751:doMessage,[(282,216)(282,258)])
link(Handle,15739648:Handle,[(258,191)(212,191)(212,233)(167,233)])
}
Add(BASS_Version,10183901,294,203)
{
link(onCheckFailed,109118:doMessage,[(338,216)(338,258)])
}
Add(Message,11232751,294,252)
{
Message="Error BASS initialization"
Caption="Error"
Icon=1
}
Add(Message,109118,350,252)
{
Message="Incorrect version of BASS library "
Caption="Error"
Icon=1
}
Add(Button,7913818,168,329)
{
Left=140
Top=90
Width=145
Height=35
Caption="Play!!!"
link(onClick,14901965:doCreate,[])
}
Add(BASS_ChannelPlay,9406897,287,329)
{
Channel="green"
}

Прочитай справку и посмотри примеры ([url=file://localhost/C:/Program%20Files/HiAsm/Elements/Delphi/Example]HiAsmelementsdelphiexampleMediaBASS[/url])
карма: 0

1
файлы: 1code_15257.txt [1.1KB] [111]
Голосовали:JOKER_S_AN
Ответов: 12
Рейтинг: 8
#6: 2009-10-15 10:43:59 ЛС | профиль | цитата
Если не указан операнд, то сравнение происходит с константой, которая указана на правой панели свойств (op2), а если не указана, то с данными из потока (синяя линия связи)
Большинство элементов выдают в поток (на выход) результат своих действий либо то, что попало к ним на вход.
В нашем случае первый операнд - данные красной линии связи, второй - указан в панели свойств.

Если не правильно излагаю, пусть великие Гуру меня поправят.

Я сам не спец, но все-же посоветую тебе больше читать справки и изучать примеры. Там ты получишь ответы на 95% подобных вопросов.


Спасибо, это я знал просто сначала не догнал, справку читаю но там разве что описываются точки и свойства. А что именно компонент делает редко пишется.
------------ Дoбавленo в 10.46:
посмотри как делать схему для прослушки интернет радио:

код

Прочитай справку и посмотри примеры (HiAsmelementsdelphiexampleMediaBASS)

УПС! В справке неверная кодировка (или только у меня так)! Дал альтернативные ссылки!

Введение
BASS_StreamCreateURL
BASS_Init
BASS_ChannelPlay


Спасибо сегодня вечерком сяду всё перечитаю.

Спасибо всем огромное за объяснение.
карма: 1

0
6
Сообщение
...
Прикрепленные файлы
(файлы не залиты)