Кроссплатформенный открытый движок на Java, позволяющий создавать 2D и 3D игры под различные платформы, среди которых: Android, HTML5, Windows, Linux, iOS.
DSP Base Component Delphi Core Component for ASIO and VST. This has to be installed first. All Components rely on this basic routines. Within this package all necessary data types are defined. There are also several optimised math routines.
VST Host Component Delphi Component for easy access to VST-Plugins. For example Tobybear’s MiniHost was build around this component. Also he has done a lot of development on this piece. So please visit his homepage.
ASIO Host Component Delphi Component for easy access to ASIO-Soundcards. It is well tested over the years and thus work with any soundcard with ASIO drivers.
VST Plugin Wizard Delphi Wizard for easiest development of VST Plugins. There are several demos included in the package ranging from filters over dynamics to synths and other utilities. The Electri-Q is probably one of the famous examples of what can be done with it.
Допустим, у вас появилась идея создать свой собственный синтезатор с оригинальной архитектурой синтеза. Конечно, задумку можно воплотить в "железе", но для этого требуются очень глубокие специальные знания, богатый опыт и очень много свободного от основной работы времени. Более легкий путь - реализовать синтезатор в виртуальном виде, например, как плагин VSTi. Сделать это можно по-разному. В статье описан самый простой способ.
В примере показано для случая урлов заключенных в апострофы. Для случая с кавычками используйте Chr(34)
Define subject.s = "<a href='http://site1.ru'>Site 1</a> Any text <a href='http://site2.ru/?a=f&b=5'>Site 2</a>"
Define pattern.s = "http://[^\']{2,}"
If CreateRegularExpression(0, pattern)
Dim Result$(0)
NbFound = ExtractRegularExpression(0, subject, Result$())
For k = 0 To NbFound-1
Debug Result$(k)
Next
Else
Debug RegularExpressionError()
EndIf
Пример использования регулярного выражения, извлекающего все адреса электронной почты с доменом любого уровня из произвольной строки, даже если они обрамлены любыми служебными знаками.
Define subject.s = "'Vasiliy Ivanovitch' y@mail.org.kol.ru (*ColdplayC*) 'l@mbr.uk.com' kol@kol.com serjio k <orba@kimori.org.ua>, serjio k <orba1@kimori.org.ua>"
Define pattern.s = "[\.\-_A-Za-z0-9]+?@[\.\-A-Za-z0-9]+?[\.A-Za-z0-9]{2,}"
If CreateRegularExpression(0, pattern)
Dim Result$(0)
NbFound = ExtractRegularExpression(0, subject, Result$())
For k = 0 To NbFound-1
Debug Result$(k)
Next
Else
Debug RegularExpressionError()
EndIf
