Последние комментарии
Для меня эта страница - это удобный способ смотреть, что нового происходит в комментариях и сразу находить заметку, не заходя в админку. Думаю, она будет полезна и тебе.
rustam
да это опять дешевая реклама пиндосов,смотрите мол вот какие благородные аpple,не дали себя взломать,забота о безопасности и бла бла бла,но постой с начал раструбили на весь мир,что требуется взломать телефон,как будто террорист такой тупой и не уничтожит улики...история для домохозяек,это история 100500 что бы поднять утихающий ажиотаж вокруг продукции апле.Очень дешевый в любых смыслах америкосовский трюк,это как бедных латышей пугают российской агрессией,и собирают с них денешки за воздух...Потом мы себя спрашиваем почему пиндосы такой тупой народ
-_-
"Нельзя требовать от другим соблюдение норм безопасности, если сам их нарушаешь." Михаил, это уже давно не работает. Особенно с США. Они давно, лет эдак 60 уже требуют от всех соблюдения того, на что сами с**ли с высокой колокольни.
Kastor
Да, нереально крутая машина! Поздравляю с приобретением!
Антон
Может это просто рекламный ход?:) Тут есть такое мнение http://oper.ru/news/read.php?t=1051616906
С. Наделла
А что это за чувак один и тот же на картинках хакингТим?
Vladimir
Может кому-то из сторонников Delphi будет полезно!
==================================================
Наконец-то готов мой пример подключения видеоакселератора (GPU) через универсальный язык OpenCL к Delphi под 64bit-компиляцию (OpenCL работает а отличие от CUDA и на NVidia, и на Radeon).
==================================================
Вот ссылка для скачивания: http://gofile.me/2Zesj/C0f3wb1o
---
Там в папке:
1) Полезная утилита GPU_Caps_Viewer_Setup_v1.25.0.0.exe для контроля состояния видеокарты, особенно, если нажать кнопку "More GPU Info".
2) OpenCL1_2_Delphi.zip - файл с примером от чехов (Университет Брно, насколько помню) использования OpenCL в Delphi, 2013год. У меня этот пример не всегда корректно работал (уже писал здесь выше) при компиляции под Win64 (не на всех видео-картах). Но там хороший заголовочный файл CL.pas - его можно чуть доработать, и использовать вместо моего "укороченного" MyOpenCL.pas - см.ниже.
---
3) Вложенная папка с моим вариантом программы-теста. Она самодостаточна: больше ничего не надо, ну разве что последние версии видео-драйверов установить. Тест сделан под Delphi XE2 (работает и под XE6). Причём работает, по крайней мере у меня, при компиляции под Win32, и что более важно- под Win64. Всего 2 файла:
--> MyOpenCL.pas: заголовочный; я его урезал - убрал ненужные мне функции, которые в принципе можно взять из файла чехов CL.pas;
--> FMain.pas : тестовая программа. Выделяет на GPU память (создаёт буферы) под 16 массивов (квадратных матриц из cl_Float, размер стороны которых задаётся на основной форме, по умолчанию 1200) и под ещё один массив, того же размера, куда пишется результат несложных вычислений на GPU. Потом запускается итерационный цикл (количество итераций - для проверки времени работы - задаётся тоже на форме, по умолчанию - 12). Внутри каждой итерации 16 массивов заполняются данными, затем запускается ещё и внутренний цикл: 30 проходов вызова расчётного ядра на GPU. Такая структура тестовой программы больше всего подходит под наши научные задачи (вычислит. гидродинамика), но пока это лишь тест. В тесте есть несложная проверка правильности вычислений - для одного из элементов матрицы-результата, поскольку НЕ все драйверы видеокарт (особенно старые) могут диагностировать Kernel Error.
--> программа на С для ядра - текстовый файл ProgramGPU.CL (должен лежать рядом с MyFirstOpenCL.exe !!): там можно глянуть, что делается с одномерными массивами на GPU. Она прямо передаётся в виде строки на GPU, там копилируется и линкуется - ну как обычно в OpenCL.
Нужная DLL для OpenCL - под Win64 или Win32 - подключится из системных папок Windows автоматически, в зависимости от компиляции.
----
4) Можете на своём сетапе запустить прямо готовый MyFirstOpenCL.exe (это версия 64bit !!) с параметрами:
--> размер стороны матрицы = 3200; лезут 17 таких матриц на видеокарту от 1Gb и выше; если не влезут (часть видео-памяти уже занята чем-то) - возможны ошибки, которые диагностируются НЕ всем драйверами видеокарт, а только новыми;
--> количество итераций (внешний цикл) = 12.
Рядом с EXE-шником должен "лежать" файл Kernel-программки для видеодрайвера - *.CL или файлы *cpp для второго моего теста!
---
5) У меня для указанного примера время счёта вышло:
NVIDIA GT-430 (1Gb, 96core, 700MHz core) - 3мин 37сек;
NVIDIA GTS-450 (1Gb, 192core, 810MHz core) - 1мин 36сек;
NVIDIA GTX-570 (1.28Gb, 480core, 732MHz core) - 42.5сек;
AMD Radeon R9 M275X (2Gb, 640core, 925MHz core) - 1мин 27сек - настольный моноблок ASUS 2702.
NVIDIA GTX-980ti (6Gb, 2816core, 1150MHz core) - 22.0сек;
----
Может кто-то попробовать MyFirstOpenCL.exe на своих видеокартах???
Запустить, нажать верхнюю кнопку на форме, установить размер матрицы 3200 (если 1200 отработает корректно), выбрать платформу-девайс, нажать нижнюю кнопку на форме. Записать время счёта: оно выдаётся в итоговом окне.
---
PS. Пример сделал с месяц назад. Сейчас уже подключил OpenCL через Delphi к реальной научной программе. Увеличил быстродействие в 4 раза (гидродинамика - считается обычно сутками). Пример моих Kernel (программок на языке C99 для видеодрайвера) тоже есть в папке для скачивания - в отдельной под-папке. И ещё там есть более новая версия тестовой программы - тоже со всеми исходниками.
====================
Delphi - сила!!
Всем успехов в освоении новых горизонтов!
Michail
Впечатляет. Особенно когда жена за рулем этого монстра.
Overdrive
Он серцифицирован ФСТЭК, и живее всех живых, где конфедициалка в гос органах его ставят точно. Среди обычных пользователей не распространён.
Михаил Фленов
Блин, я смотрел на www.altlinux.com, который явно забросили. Ну хорошо, что живы.
О блоге
Программист, автор нескольких книг серии глазами хакера и просто блогер. Интересуюсь безопасностью, хотя хакером себя не считаю
Copyright © 2026 Михаил Флёнов. Тираж 1 штука. Отпечатано на ноутбуке. А за права отвечаю, или постараюсь.
А здесь еще и копирайт поставлю: Professional Web Development.
На сайте используются Cookie. Если вы из ЕС или Калифорнии США, то вы должны согласиться с их использованием - Согласен. Если вы из нормальной страны, то вам пох.
rustam
миша дай в долг 7 тыс.долларов,приеду отдам...может быть,но я добрый,еврей по национальности и вообще честный человек.Мой киви 89657564432