Да, и такое бывает. Программа весит 33Кб и не имеет окон, то есть музыка пойдёт сразу после запуска.
Если у Вас нет внутреннего динамика, что встречается, то ничего не произойдёт.
Язык написания как обычно, delphi 7, используется только модуль windows.

скачать

Немного информации:
используется api функция Beep из библиотеки kernel32, синтаксис:
function Beep(dwFreq, dwDuration: DWORD): BOOL;
dwFreq – частота в герцах, dwDuration – длина в миллисекундах.

Подпишись на rss-ленту, и когда я напишу про это статью, ты узнаешь первым.

(c) crystalbit, http://parsers.info

P. S. если потребуется другая мелодия, свистни

#!/usr/bin/python
#header scan
#http://sql.parsers.info/
#faza02[at]gmail[dot]com

import urllib
def  scan():
	print '     ____________________________  '
	print '    /                           /\ '
	print '   /                          _/ /\ '
	print '  /         by faza02         / \/ '
	print ' /                           /\   '
	print '/___________________________/ / '
	print '\___________________________\/ '
	print ' \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ '

	good = [100, 101, 200, 201,202, 203,204,205, 206, 300, 301, 302, 303, 304, 305]

	site = raw_input(u'\nsite: ')
	dirlist = raw_input(u'dirs: ')

	fileopen = open(dirlist, 'a+').readlines()
	for i in range(len(fileopen)):
	 	state = urllib.urlopen('http://' + site + fileopen[i][:-1]).getcode()
	 	if state in good:
	 	 print fileopen[i][:-1] + ' - ' + str(state)
	 	open('c:/'+site+'_log.txt', 'a+').write(fileopen[i][:-1] + ' - ' + str(state) + '\n')

scan()
print '\nok!'

by faza02.
http://sql.parsers.info
http://parsers.info

Делаем из последовательности картинок полноценное видео.

Как ни странно, данный пост не касается ни delphi, ни программирования в целом, но очень хочется рассказать, как склеить много отдельных кадров-картинок в видео. В предыдущем посту, где мы на 401 картинке ставили одну и ту же надпись, ты наверняка и не догадывался, зачем мне на столько картинок ставить одно и то же, а вот зачем: мой друг, goldriver, неким образом, заставил вебкамеру делать снимок из окна каждую минуту. И так 401 минуту, получилось 401 картинка. Если первую открыть в проводнике и зажать вправо, получится клёвая анимация.
Но её никуда не выложишь, да и кому нужна 401 отдельная картинка?

Итак, нам понадобится Apple QuickTime, а точнее Pro версия. На оф. сайте она стоит 30$.
Всё делается очень просто:
1. Открываем QuickTime Player
2. Жмём Файл – Открыть последовательность изображений (Ctrl – Shift – O), и выбираем первый файл, только первую картинку. Если картинок много, то программа позволит себе немного повисеть, ждём.
3. Открылось? Отлично! Если сейчас нажать на Play, то мы увидим то, что нам нужно, жмём Файл – Экспорт (Ctrl – E) и сохраняем, предварительно выбрав нужный формат из их изобилия. Процесс экспорта может идти несколько минут, но результат стоит того.

В качестве бонуса скачай результат, получилось очень красиво, надеюсь в скором времени goldriver еще что-нибудь такое заснимет, подписавшись на rss-ленту, ты узнаешь это первым.

Вот и само видео на YouTube:

К сожалению, качество оставляет желать лучшего, можешь скачать avi в архиве: скачать

(c) goldriver, http://d.parsers.info
(c)crystalbit, http://parsers.info

Сегодня встала такая задача – отредактировать картинки. Дописать текст в верхний левый угол, проставить некие копирайты на каждую картинку.

Всё бы ничего, если бы не количество изображений – более 400. Брррр, вручную конечно можно, но долго и неинтересно. Можно поискать готовое решение, но небезопасно и тоже неинтересно.
Итак, будем писать на дельфи. Оформлять как готовую программу не буду, так как писал только для добавления копирайта, релиз делать не собирался.
Ну что, мне друг прислал 401 картинку типа Windows Bitmap (BMP), мне нужно, как я уже сказал, поместить текст на каждую, отредактировать все сразу.

1. Основа программы.

Создаём новый проект, убираем форму, Project – View source, кодить будем здесь. Использовать будем следующие модули: windows, sysutils, graphics. Можно и без SysUtils, тогда нам придётся использовать свой вариант функции IntToStr (Обходимся без SysUtils. Строка <-> число), а для подручной программы это делать долго. Что у нас на данном этапе:

program Project1;

uses
  windows,
  graphics,
  sysutils;

begin

end.

2. Переменные.

Объявим следующее:
b: TBitmap – сюда будем загружать очередную картинку,
i: integer – это счётчик, он будет меняться от нуля до 401,
s: string – сюда записываем имя файла

3. Штампуем)

Так вот, нам нужно сначала создать объект класса TBitmap, а в конце его уничтожить. А посередине сделаем простой цикл. Если писать программу для масс, для тех, кто хочет дорисовать каждую картинку в определенной папке, независимо от имени, надо использовать FindFirst и FindNext, напишу как-нибудь про это вкратце, а сейчас ограничимся простым циклом for.
Для загрузки и сохранения картинки используем LoadFromFile и SaveToFile.
Вывода текста на TCanvas: TCanvas.TextOut(x, y: integer; text: string). С этой процедурой всё понятно.
Так-то оно так, но при таком раскладе текст нарисуется с непрозрачным фоном, это не очень красиво. Используем api функцию SetBKMode.
Остается добавить, что у объекта типа TCanvas есть свойство Font, это у нас шрифт. Ну и для красивого кода нам понадобится оператор with.

3. Код программы.

program Project1;

uses
  windows,
  graphics,
  sysutils;

var
  b: TBitmap;
  i: integer;
  s: string;

begin
  b:=TBitmap.Create;
  for i:=1 to 401 do begin
    s:='c:\w\photo'+inttostr(i)+'.bmp';
    with b do begin
      LoadFromFile(s);
      SetBKMode(Canvas.Handle, windows.TRANSPARENT);
      Canvas.Font.Color:=clGreen;
      Canvas.Font.Style:=[fsBold];
      Canvas.TextOut(10, 10, 'http://parsers.info');
      SaveToFile(s);
    end;
  end;
  b.Free;
end.

c:\w\ это путь к моим файлам, ты уже понял.
И еще небольшая оговорка – константа TRANSPARENT, мы её используем в функции SetBKMode. Догадался, зачем мы обращаемся к ней, как к windows.TRANSPARENT? Мы находимся внутри with, то есть всё написанное может быть связано с объектом b, а у него есть свойство Transparent! Вот мы и указываем, что нам нужно не оно, хоть и приоритет в его пользу.

4. Итог.

Вот мы и набросали программу, которая добавит во все картинки надпись. Проблема решена. А надо что-то другое – отредактировать пару строк и готово.

(c) crystalbit, http://parsers.info

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

скачать

(c) crystalbit, http://parsers.info

если не требуется такой фильтр, рекомендую обычную версию – mr.gen v01

Как мы видим, опера рулит)

Про операционки всё как всегда: 93% – windows, 4% – not set (скорее всего тоже windows *_*), 2% – Линукс, остальное – мак и симбиан.

*_*

В комментарии к IntToStr, StrToInt, TryStrToInt без использования SysUtils пользователь с ником fry предложил мне функцию FileExists.

Я позволил себе её немного сократить, но смысл остался – мы пытаемся открыть файл, если возвращается ошибка (HFILE_ERROR, что есть -1), то скорее всего это из-за того, что файла нет. Если не ошибка, то возвращается handle открытого файла – для дальнейшей с ним работы.

Итак,

function FileExists(param: string): boolean;
begin
  Result:=(_lopen(PChar(param), OF_SHARE_COMPAT) <> HFILE_ERROR);
end;

Если handle файла не HFILE_ERROR, то True, иначе False. Единственное, меня здесь смущает одна вещь – открыли мы файл, если он есть, а закрыть и забыли, закрывать надо аналогичной функцией _lclose.

Вот немного модифицированный вариант, рекомендую его:

function FileExists(param: string): boolean;
var
  h: integer;
begin
  h:=_lopen(PChar(param), OF_SHARE_COMPAT);
  Result:=(h <> HFILE_ERROR);
  if Result then
    _lclose(h);
end;

Еще хочется добавить, что раньше я тоже был в поисках такой функции, и вот мой собственный вариант:

function FileExists(FileName:string):boolean;
var
  FindData: TWin32FindData;
begin
  Result:=(FindFirstFile(PChar(FileName),FindData) <> INVALID_HANDLE_VALUE);
end;

Здесь, в отличие от предыдущих вариантов, мы не открываем файл, мне кажется так оптимальнее.

Все функции рабочие, все используют библиотеку kernel32.

С наилучшими пожеланиями, (c) crystalbit, http://parsers.info
Спасибо саноффке за клёвую картинку.

А еще подпишись на rss, отпишись в комментариях, что думаешь по этому поводу и не хмурься

Дизайн практически не изменился.

скачать

Если использовал старую версию – отпишись, стало ли быстрее или осталось, как и было, – буду благодарен.

crystalbit, http://parsers.info

StrToInt

function StrToInt(s:string):integer;
var
  t:integer;
  c:integer;
begin
  val(s,t,c);
  if c=0 then
    Result:=t
  else
    Result:=0;
end;

TryStrToInt

function TryStrToInt(s:string;var i:integer):boolean;
var
  t:integer;
  c:integer;
begin
  val(s,t,c);
  if c=0 then begin
    i:=t;
    Result:=True;
  end else
    Result:=False;
end;

IntToStr

function IntToStr(i:integer):string;
var
  s:string;
begin
  Str(i,s);
  Result:=s;
end;

http://parsers.info, crystalbit
еще у нас есть rss и это круто