Последние записи
- Преобразовать массив байт в вещественное число (single)
- TChromium (CEF3), сохранение изображений
- Как в Delphi XE обнулить таймер?
- Изменить цвет шрифта TextBox на форме
- Ресайз PNG без потери прозрачности
- Вывод на печать графического файла
- Взаимодействие через командную строку
- Перенести программу из Delphi в Lazarus
- Определить текущую ОС
- Автоматическая смена языка (раскладки клавиатуры)
Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk
Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw
2nd
Фев
Как скачать значок (иконку) с сайта?
99 способов как сохранить иконку сайта. Советы программистов (читать всё…)
2nd
Ультразвуковой свисток — имитация
В общих чертах так — квартирой выше живут «люди» с полутораметровой собакой. Каждый день они уходят куда-то , а псину запирают в квартире. Она весь день и половину ночи лает не затыкаясь. Как только поздно ночью они возвращается — то её затыкают. (читать всё…)
2nd
Как определить когда курсор мыши над формой?
Хочу как-то словить событие, когда курсор мыши уходит с формы.
(читать всё…)
2nd
Брутфорс (полный перебор)
Tronix:
Нужен алгоритм переборки набора букв с заданным алфавитом и заданным максимальным размером пароля. Ну, например алфавит: «abc», максимальный размер пароля — 5 букв. При этом, начинаются генерироваться пароли с одного символа, потом два, потом 3 и так до 5 символьных.
Если брать вышеупомянутые данные то мы должны получить такой набор паролей примерно:
a
b
c
aa
ba
ca
ab
bb
ну и так далее.
Alphabet : String = ‘abcdefghijklmnopqrstuvwxyz’; // задаем алфавит
Var
szAlphabet : Array [0..255] of Char;
szPassword : Array [0..255] of Char; // текущий паpоль
bAlphabet : Array [0..255] of Char; // таблица
i,k : Byte;
Begin
// пpеабазуем в массив байт
For i := 1 to Length(Alphabet) do szAlphabet[i-1] := Alphabet[i];
// сгенеpим таблицу
i := 0;
k := 0;
repeat
bAlphabet[k] := szAlphabet[i];
if szAlphabet[i] = chr(0) then
break;
k := Ord(szAlphabet[i]);
Inc(i);
until false;
// главный цикл
repeat
asm
pushad
mov edi,offset szPassword
mov ebx,offset bAlphabet
@L1: movzx eax,byte ptr [edi]
xlat
cmp al,0
je @L3
mov [edi],al
jmp @L5
@L3: xlat
stosb
jmp @L1
@L5: popad
end;
// печать каждого паpоля
i := 0;
repeat
write(szPassword[i]);
inc(i);
until Ord(szPassword[i]) = 0;
writeln;
until false;
End.
1st
Фев
Книга о физико-техническом моделировании
Alex Cones:
Хочу поделиться книгой о физико-техническом моделировании. 83 год, но объяснение материала очень хорошее, программа 8-10 класса, несколько занятных схем, типа «машина, сама объезжающяя препятствия» и «робот, идущмй на свет». Много других моделей, все издоступных материалов (позволяющих все сделать в школьной мастерской СССР-вского образца).
1st
Искусственный интеллект
Revival001:
Допустим есть техническая возможность сделать полную копию человеческой нейронной сети на компьютере. Появиться ли тогда у него разум? А сознание? Как вы считаете, возможно ли появление сознания у машин?
1st
Интерактивная карта на сайте
Как-то мне понадобилось сделать интерактивную карту районов моего города, так, что бы при наведении на заданный район он подсвечивался (и выполнялись кое-какие действия, но в данном случае это не важно).
Это было сделано при помощи тэгов map и area. Тэг map — это векторная карта, который содержит теги area, которые представляют полигоны, прямоугольники или эллипсы. Тонкости работы с ними описывать не буду, т.к. найти их будет не сложно, а лучше у меня не получится ).
Лучше опишу, как я делал карту.
- Сначала я нарисовал растровую картинку нужного размера с изображением районов.
- В CorelDraw создал документ, по размером точно совпадающий с полученным изображением и обвёл контуры районов.
- Преобразовал все фигуры в полигоны (многоугольники без скруглённых углов). Это надо затем, что бы Корел сохранял данные в тэги polygon, с указанием абсолютных значений координат.
- Дал уникальное название каждому полигону, что бы можно было их отличить друг от друга.
- Сохранил нарисованный файл с границами областей в формат SVG.
В итоге получился SVG-файл, который можно открыть в любом текстовом редакторе, где каждому району соответствует свой тэг polygon. И у каждого тэга есть аттрибут points, который содержит точки почти в нужном формате.
Отличия заключаются в том, что в SVG после каждой X-координаты идёт запятая, а после Y-координаты пробел, тогда как в HTML (
) все значения разделены запятыми. Поэтому мне пришлось побыстрому накатать программку, которая преобразует строку с SVG-координатами в HTML-координаты.Естественно, для рисования не обязательно использовать CorelDraw, а взять любой другой подходящий SVG-редактор (напр. Incscape).
Пример работы с html-картами:
<area id="studgorodok" href="#" title="Студгородок" alt="Студгородок" shape="poly"
class="{strokeColor:’000000′, strokeWidth:1, fillColor:’ff0000′, fillOpacity:0.6}"
coords="99, 135, 95, 131, 95, 130, 92, 125, 88, 117, 87, 115, 92, 113, 94, 110, 97, 114, 108, 105, 109, 104, 114, 100, 115, 101, 117, 98, 116, 97, 131, 85, 139, 86, 140, 88, 141, 89, 144, 91, 151, 94, 154, 95, 154, 96, 155, 97, 156, 97, 156, 98, 155, 98, 155, 99, 156, 100, 156, 101, 156, 101, 157, 103, 157, 104, 158, 105, 160, 107, 163, 112, 163, 115, 163, 118, 162, 120, 160, 123, 159, 126, 157, 127, 154, 129, 145, 134, 142, 135, 139, 136, 137, 136, 130, 137, 116, 139, 109, 139, 106, 138, 103, 136, 102, 135, 102, 135, 100, 135"></area>
<area id="mirny" href="#" title="Мирный" alt="Мирный" shape="poly"
class="{strokeColor:’000000′, strokeWidth:1, fillColor:’ff0000′, fillOpacity:0.6}"
coords="82, 85, 80, 82, 80, 81, 79, 81, 79, 81, 79, 80, 78, 80, 78, 80, 77, 80, 77, 80, 74, 77, 72, 74, 72, 74, 72, 71, 72, 70, 72, 68, 71, 68, 70, 66, 70, 66, 70, 66, 70, 66, 71, 66, 71, 65, 84, 58, 84, 58, 83, 56, 82, 52, 83, 51, 84, 50, 85, 50, 87, 48, 87, 48, 88, 49, 89, 50, 90, 51, 91, 52, 92, 51, 96, 55, 99, 59, 105, 65, 104, 66, 127, 88, 116, 97, 117, 98, 115, 101, 114, 100, 112, 101, 110, 103, 109, 104, 108, 105, 104, 108, 97, 114, 94, 110, 92, 113, 87, 115, 86, 113, 80, 107, 78, 105, 81, 102, 84, 99, 86, 93, 85, 92, 84, 90, 85, 89, 83, 87, 83, 87, 83, 86"></area>
<area id="promzona" href="#" title="Промзона" alt="Промзона" shape="poly"
class="{strokeColor:’000000′, strokeWidth:1, fillColor:’ff0000′, fillOpacity:0.6}"
coords="99, 59, 96, 55, 92, 51, 95, 49, 96, 48, 99, 46, 102, 39, 105, 31, 112, 34, 115, 34, 116, 31, 120, 31, 124, 36, 123, 37, 124, 38, 125, 39, 125, 40, 125, 41, 132, 44, 134, 44, 136, 45, 135, 50, 136, 58, 144, 58, 154, 58, 158, 59, 160, 60, 162, 63, 163, 64, 165, 73, 165, 73, 166, 75, 166, 76, 166, 77, 166, 77, 166, 79, 165, 82, 165, 83, 165, 83, 165, 84, 166, 84, 166, 85, 166, 86, 167, 87, 167, 88, 166, 90, 165, 90, 165, 90, 165, 91, 165, 91, 164, 92, 163, 93, 163, 93, 162, 94, 161, 95, 161, 95, 160, 95, 159, 95, 158, 96, 158, 96, 157, 96, 156, 97, 156, 97, 155, 97, 154, 96, 154, 95, 151, 94, 144, 91, 141, 89, 140, 88, 139, 86, 131, 85, 127, 88, 126, 88, 115, 77, 109, 71, 104, 66, 105, 65"></area>
…
</map>
27th
Добавление веб-камеры на сайт
Здравствуйте форумчане !
Появилась задача .. Установить на сайте веб камеру .. (читать всё…)
Облако меток
css реестр ассемблер timer SaveToFile ShellExecute программы массив советы word MySQL SQL ListView pos random компоненты дата LoadFromFile form база данных сеть html php RichEdit indy строки Win Api tstringlist Image мысли макросы Edit ListBox office C/C++ memo графика StringGrid canvas поиск файл Pascal форма Файлы интернет Microsoft Office Excel excel winapi журнал ПРОграммист DelphiКупить рекламу на сайте за 1000 руб
пишите сюда - alarforum@yandex.ru
Да и по любым другим вопросам пишите на почту
пеллетные котлы
Пеллетный котел Emtas
Наши форумы по программированию:
- Форум Web программирование (веб)
- Delphi форумы
- Форумы C (Си)
- Форум .NET Frameworks (точка нет фреймворки)
- Форум Java (джава)
- Форум низкоуровневое программирование
- Форум VBA (вба)
- Форум OpenGL
- Форум DirectX
- Форум CAD проектирование
- Форум по операционным системам
- Форум Software (Софт)
- Форум Hardware (Компьютерное железо)