Редактировалось 1 раз(а), последний 2017-03-03 00:00:58

можно сделать через MemoryStream.

Но не можно этот stream подсунуть в MediaPlayer, например

Можно сохранить во временной директории и играть от туда

Редактировалось 1 раз(а), последний 2017-03-03 00:00:58

Решил новый топик не создавать а написать сюда
Dilma так вот значит как ты проверяеш на чём зделана прога
[code:1]begin if ParamStr(1) = '/i' then
begin
MessageBox(0,'This program made by HiAsm.','HiAsm Info',MB_OK);
Halt;
end;[/code:1]
Хотелось бы узнать от куда hiasm берёт эту строку тоесть в каком файле она содержится.
И ещё одно для чего ко всем классам окон добавляется [b]obj_[/b] obj_Form obj_EDIT и тд.
и можно ли как то самому прописать класс.

Гость,
[code:1]Add(MemoryStream,9963577,196,98) {
Stream=[ZIP1600000078DA2B2AB5BDF0F9E3C7572F5EF272A5E6D9BAE6A5E7641667000093860B76]
}
Add(Button,13369158,147,168)
{
Left=105
Top=150
link(onClick,11097686:doData,[])
}
Add(FileStream,11943773,252,154)
{
FileName="c: ext.txt"
Mode=1
AutoCopy=0
Point(doCopyFromStream)
}
Add(DoData,11097686,196,168)
{
link(onEventData,11943773:doCopyFromStream,[])
link(Data,9963577:Stream,[])
}
[/code:1]

[quote]Хотелось бы узнать от куда hiasm берёт эту строку тоесть в каком файле она содержится.[/quote]
Это секрет.

[quote]И ещё одно для чего ко всем классам окон добавляется[/quote]
Вопрос к автору KOL - т.е. к Владимиру Кладову.

Я видал эту строку в make_service.dpr но при изменение её ничего не вышло так что скорее всего она гдето в dll-ке

[code:1]Add(MainForm,15102282,35,203) {
Left=20
Top=105
Point(Close)
link(onCreate,15218397:doEvent1,[(82,244)(82,244)])
link(Close,16634325:GetData,[])
}
Add(MemoryStream,1835884,179,182)
{
@Hint=#27:Сюда загружай твой Mp3 фаил|
}
Add(FileStream,5728109,245,224)
{
Mode=1
AutoCopy=0
Point(doCopyFromStream)
link(FileName,1582868:Var2,[(251,168)(251,168)])
}
Add(MediaPlayer,2505898,308,273)
{
link(FileName,1582868:Var3,[(314,128)])
}
Add(Hub,15218397,98,238)
{
link(onEvent1,9465981:doData,[(175,244)(175,244)])
link(onEvent2,2505898:doPlay,[(152,251)(152,279)])
}
Add(DoData,9465981,179,238)
{
link(onEventData,5728109:doCopyFromStream,[])
link(Data,1835884:Stream,[(185,226)(185,226)])
}
Add(EventFromData,16634325,35,161)
{
link(onEvent,1363598:doDelete,[])
}
Add(FileTools,1363598,105,147)
{
link(FileName,1582868:Var1,[(111,128)])
}
Add(Memory,12991550,245,70)
{
Default=String(File.mp3)
}
Add(GetDataEx,1582868,238,119)
{
link(Data,12991550:Value,[(251,88)(251,116)])
}
[/code:1]

Скорей всего так и есть . Вопрос был поднят потому, что присутствие этой строки в EXE кого-то смущает?

Да нет всё нормально Dilma, просто самому интересно было

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

мало вероятно конечно(способ все таки несколько старомодный), но ключик поменяем...

Редактировалось 1 раз(а), последний 2017-03-03 00:00:59

Гость, а у меня эта схема работает.

Но я, естественно, в стрим файл загрузил предварительно (там в хинте инструкция такая).
А Вы

Извините, если вопрос не в тему. Всякое бывает.
Просто, на более конкретные вопросы информации не хватает.

Dilma, под FPC это дело просто не линкуется. Это тот же прикол, что и с картинками
Ясный перец, что MP3 меньше метра - это не очень серьезно

Galkov, именно таже. Выяснено, что ресурсы разных типов ограничены разным размером. Возможно что-то еще влияет, но проблема с ограничением имеется. Вот недавно еще одну проблему с ресурсами откопали: ставим StyleXP и ничего кроме WindowsXP.res к проекту больше не линкуется...