top-image

Архивы: Май, 2009

Сороковая симфония Моцарта из внутреннего динамика.
Да, и такое бывает. Программа весит 33Кб и не имеет окон, то есть музыка пойдёт сразу после запуска. Если у Вас нет внутреннего динамика, что встречается, то ничего не произойдёт. Язык написания как обычно, delphi 7, используется только модуль windows. скачать Немного информации: используется api функция Beep из библиотеки kernel32, синтаксис: function Beep(dwFreq, dwDuration: DWORD): BOOL; dwFreq - частота в герцах, dwDuration - длина в миллисекундах. Звуки ...more»
DirSearcher
DirSearcher - это сканер директорий. Логи сайта ведет в c:/сайт_log.txt #!/usr/bin/python #header scan #http://sql.parsers.info/ #faza02gmailcom import urllib def scan(): print ' ____________________________ ' print ' / /\ ' print ' / ...more»
Делаем из последовательности картинок полноценное видео. QuickTime помогает
Как ни странно, данный пост не касается ни delphi, ни программирования в целом, но очень хочется рассказать, как склеить много отдельных кадров-картинок в видео. В предыдущем посту, где мы на 401 картинке ставили одну и ту же надпись, ты наверняка и не догадывался, зачем мне на столько картинок ставить одно и то же, а вот зачем: мой друг, goldriver, неким ...more»
Массовое редактирование картинок — проставляем надписи
Сегодня встала такая задача - отредактировать картинки. Дописать текст в верхний левый угол, проставить некие копирайты на каждую картинку. Всё бы ничего, если бы не количество изображений - более 400. Брррр, вручную конечно можно, но долго и неинтересно. Можно поискать готовое решение, но небезопасно и тоже неинтересно. Итак, будем писать на дельфи. Оформлять как готовую программу не буду, так как писал только ...more»
Количество подстрок в строке.
Выкладываю просто функцию *_* function PosCount(substr, str: string): integer; var p, i: integer; begin i:=-1; p:=0; repeat i:=i+1; p:=PosEx(substr, str, p + Length(substr)); until p=0; Result:=i; end; Количество подстрок определяет на ура, писал для просто символов. (c) crystalbit, http://parsers.info Функции, функции, как мило. А сейчас весна, между прочим. Помимо функций думаю купить кое-кому цветы, даже ...more»
mr.gen v01 with symbol filter
Небольшое изменение, как отдельная версия, добавлен один интересный фильтр. Суть вот в чем: указываем символ и указываем количество - от и до. В файл будут записаны все пароли, в которых количество таких символов входит в указанный диапазон. Для конкретного количества указываем одинаковые значения от и до. скачать (c) crystalbit, http://parsers.info если не требуется такой фильтр, рекомендую обычную версию - mr.gen v01. А если, к ...more»
Немного статистики
В марте поставил код google analytics, с тех пор достаточно много интересной статистики, например, браузеры, с которых заходили. Браузеры. Топ браузеров, с которых посещали http://parsers.info: БраузерПосещенийПроцент Opera44246.34% Firefox29827.15% Internet Explorer13513.21% Chrome598.94% Opera Mini362.83% Safari80.90% Остальные60.62% Как мы видим, опера рулит) Про операционки всё как всегда: 93% - windows, 4% - not set (скорее всего тоже windows *_*), 2% - Линукс, остальное - мак и симбиан. Это был своеобразный анализ посетителей моего сайта, также ...more»
Обходимся без SysUtils. FileExists
В комментарии к IntToStr, StrToInt, TryStrToInt без использования SysUtils пользователь с ником fry предложил мне функцию FileExists. Я позволил себе её немного сократить, но смысл остался - мы пытаемся открыть файл, если возвращается ошибка (HFILE_ERROR, что есть -1), то скорее всего это из-за того, что файла нет. Если не ошибка, то возвращается handle открытого файла - для дальнейшей с ним работы. Итак, function ...more»
mr.gen v01
mr.gen v0 - если кто не видел. В той теме оставил сообщение человек, которому нужно сгенерировать большой список. Программа вылетала с ошибкой out of memory, что неудивительно - все комбинации записывались в массив. Это моя оплошность, следовало предвидеть такую необходимость, даже учитывая то, что данный генератор призван работать с большими списками. Я, как очень крутой и отзывчивый чел, исправил свою ужасающую и ...more»
Обходимся без SysUtils. Строка <-> число
Многие пользуются функциями StrToInt, TryStrToInt и IntToStr из модуля SysUtils для преобразования типов. Это удобно, но когда встает вопрос об отключении лишних модулей (когда пишем на api), непрактично. Для таких же целей есть стандартные функции val и str из pascal, которые перекочевали в delphi, но о наличии которых в нём многие не подозревают. Писал я как-то одну консольную программу, вот и ...more»
Я придурок. Диверсия. Глава 1. QIP. Смайлики. Кто здесь?
Меня часто спрашивают: как отомстить человеку, какую программу ему переслать, чтобы как-то что-то? Некоторые люди доходят до того, что посылают вирусы, которые чуть ли не сносят систему, форматируют диски... Я противник таких действий, поэтому я буду описывать невинные шутки, которые ничего не удаляют и не воруют. Пройдёмте. Итак. У жертвы стоит qip. Наша задача: написать простую программу-шутку, которая не навредит пользователю, ...more»
bottom-img