Так вот, уже позже, 23 ноября того года, я написал статью (пост, заметку) с алгоритмом работы программы. Но, мало чего понимая в нотной грамоте, допустил пару ошибок.

Сейчас исправил, кое-чем дополнил и заново привлекаю внимание к той статье.
Моцарт из внутреннего динамика. Сороковая симфония и delphi. Часть 1.
Моцарт из внутреннего динамика. Сороковая симфония и delphi. Часть 2.

Спасибо за внимание

Открываем, редактируем список из строк и оставляем поверх всех окон. Изначально выделена первая строчка, она находится уже в буфере обмена. Нажимая Shift-Insert, мы можем это, очевидно, куда-либо вставить.

Программа перехватывает нажатие Shift-Insert и, когды ты уже отпустил, копирует в буфер следующее значение.

То есть, с достаточной подготовкой, можно быстро заполнять формы, нажимая Shift-Ins, Tab, …

При закрытии программы ClipFill список сохраняется.

Под катом программа, исходник и вопрос к читателям.Программа ClipFill достаточно сырая, писал на коленке для одного сайта (lockerz, заказал с помощью неё термос ).

Вопрос: какие комбинации клавиш сделать для того, чтобы вернуть в буфер предыдущее значение и вернуться к первому?

Автор crystalbit, http://parsers.info

При копировании поста прямую ссылку оставлять обязательно.

Скачать ClipFill: программа, исходник

А что если, например, у нас на форме штук 20 TPanel, и нам нужно у пяти из них поменять высоту?
Передо мной сейчас как раз и встала такая задача.

Всё очень просто:

• Выделяем нужные компоненты (в данном случае TPanel).
• Ставим свойство Tag отличное от нуля – по нему мы поймём, что этот компонент – нам нужный
• И вот мой код:

  var
    i: integer;
  begin
    for i:=0 to ComponentCount-1 do
      if Components[i].Tag=1 then
        (Components[i] as TControl).Height:=Panel3.Height div 6;
  end;
  

В общем, всё аналогично той статье, но теперь мы используем свойство Tag компонента, чтобы отделить его от общей массы, а не тип.

Между делом замечу, что у меня последние два апа тиц держится на уровне полтинника, а я на него не потратил ни копейки (не считая кое-каких услуг после последнего апдейта). Можно вручную пытаться получить ссылки, а можно и заказать seo оптимизацию.

Три даты. Чтож, ТЗ есть.

Теперь смотрим исходный код фрагмента:

<p><span class="blue">G</span><span class="red">o</span><span class="yellow">o</span><span class="blue">g</span><span class="red">le</span> <span class="lar">PR</span><span class="date"><acronym title="11 д. назад">03.04.2010</acronym></span></p>

<p><span class="red">Я</span><b>ндекс</b> <span class="ar">тИЦ</span><span class="date"><acronym title="6 д. назад">08.04.2010</acronym></span></p>
<p class="p-last"><span class="ar">выдача</span><span class="date"><b>13.04.2010</b></span></p>

Достаточно примечательный фрагмент.

Итак, создадим новую программу, поставим кнопку и надпись (Button1 и Label1).
Для получения страницы мы будем использовать библиотеку Synapse, поэтому подключим модуль httpsend.

В процедуре-обработчике нажания на кнопку пропишем:

procedure TForm1.Button1Click(Sender: TObject);
var
  vres: TStringList;
begin
  vres:=TStringList.Create;
  if HttpGetText('http://pr-cy.ru', vres) then begin
    // мы успешно получили код страницы pr-cy, дальше будем писать сюда
  end else begin
    ShowMessage('error getting pr-cy!');
  end;
  vres.Free;
end;

Теперь введём переменные scy, spr, syv: string; и константу cpr = ‘<span class=»lar»>PR</span>’; – по ней мы будем ориентироваться.

Строки с датами найдём так:

    i:=0;
    Repeat
      if Pos(cpr, vres.Strings[i])<>0 then break;
      i:=i+1;
    until 1=0;
    spr:=vres.Strings[i];
    scy:=vres.Strings[i+1];
    syv:=vres.Strings[i+2];

Выделим в каждой строке span с помощью функций delete, pos и posex (strutils):

    i:=Pos('<span class="date">', spr);
    Delete(spr, 1, PosEx('">', spr, i+1)+1);
    i:=Pos('<span class="date">', scy);
    Delete(scy, 1, PosEx('">', scy, i+1)+1);
    i:=Pos('<span class="date">', syv);
    Delete(syv, 1, PosEx('">', syv, i+1)+1);

Ещё немного попарсим:

    i:=Pos('<span class="date">', spr);
    Delete(spr, 1, PosEx('">', spr, i+1)+1);
    i:=Pos('<span class="date">', scy);
    Delete(scy, 1, PosEx('">', scy, i+1)+1);
    i:=Pos('<span class="date">', syv);
    Delete(syv, 1, PosEx('">', syv, i+1)+1);
    repeat
      i:=Pos('<', spr);
      if i=0 then break;
      Delete(spr, i, PosEx('>', spr, i));
    until 1=0;
    repeat
      i:=Pos('<', scy);
      if i=0 then break;
      Delete(scy, i, PosEx('>', scy, i));
    until 1=0;
    repeat
      i:=Pos('<', syv);
      if i=0 then break;
      Delete(syv, i, PosEx('>', syv, i));
    until 1=0;
    spr:=StringReplace(spr, '>', '', [rfReplaceAll]);
    scy:=StringReplace(scy, '>', '', [rfReplaceAll]);
    syv:=StringReplace(syv, '>', '', [rfReplaceAll]);
    spr:=StringReplace(spr, ' ', '', [rfReplaceAll]);
    scy:=StringReplace(scy, ' ', '', [rfReplaceAll]);
    syv:=StringReplace(syv, ' ', '', [rfReplaceAll]);

И можно вывести результат:

    Label1.Caption:='pr: '+spr+#13#10+'тИЦ: '+scy+#13#10+'Выдача: '+syv;

Вот и вся арифметика. Скачать проект с парсингом дат можно по этой ссылке.
Также советую готовую программу от Борисова Сергея – Search Monitor, спасибо, что обратили на неё внимание

Давно я не появлялся Меня просто очень сильно мотивировали написать пост обои для рабочего стола. Они бесплатные

procedure TForm1.Button1Click(Sender: TObject);
begin
  if Sender is TButton then
    TButton(Sender).Caption:='pressed';
end;

Такое приведение Sender к TButton считается стандартным. Однако многие люди считают это плохим тоном, перешедшим из C. Напомню, в C мы пишем (тип) переменная.

И ещё напомню, в прошлых постах мы рассматривали (Sender as TButton).Caption. Так в чём же разница?

Оператор as

Поговорим сначала про него. Такой способ применим только к объектам, да и к интерфейсам. Разрешено приведение к классу-родителю, проверка происходит в runtime, а в случае неверной подборки типов происходит исключение invalid class typecast. Впрочем, если мы вооружимся проверкой с помощью оператора is, это не будет для нас проблемой.

Стандартное, жёсткое приведение

Здесь в runtime ничего не проверяется, исключений типа «invalid class typecast» не возникает. Всё происходит уже при компилировании.

    TEdit(Button1).Text:='pressed';

Это ужасно, но это сработает. Можно сказать, что в этом случае мы твёрдо говорим компилятору, что уверены, что это за тип, не стоит проверять. В то время как в операторе as, как сказано выше, предусмотрена такая проверка. Но мы же всё равно проверяем тип с помощью оператора is, зачем нам лишние действия?
Поэтому я склоняюсь к использованию таких конструкций:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if Sender is TButton then
    TButton(Button1).Caption:='pressed';
end;

Мы говорим компилятору, что объект типа TButton, мы уверены, так как только что проверили.

Ну и напоследок добавлю, что такое приведение типов работает и с обычными переменными, в отличие от оператора as. Но это уже совсем другая история

– crystalbit

Теперь по поводу обмена постовыми. C радостью обменяюсь с блогом, так или иначе связанным с программированием, с адекватными интересными постами. Вчера один человек стучал в аську, я не успел ему ответить, а теперь найти номер не могу. В общем, если напишешь пост, связанный с программированием, то с радостью обменяюсь, а так нет желания.

PS Картинка к посту из msdn

В модуле всего две функции:

1. function GetPR(host: string; var res: integer): integer;
   Всё очень просто, передаём нужный нам адрес сайта и числовую переменную. Функция GetPR возвращает значение google pagerank от 0 до 10. В переменную res записывается ответ сервера, 200 в случае успеха. Если в res 0, значит ошибка загрузки, код можно узнать с помощью WSAGetLastError. Сайт можно писать как с http://, так и без. Впрочем, на правильность этот параметр проверяй сам, так как в случае написания в этот параметр какой-нибудь другой строки, функция вернёт 0, а ответ от сервера будет 403.
   Пример использования:

   program prparsers;
   
   uses pagerank, winsock;
   
   {$apptype console}
   
   var
     res, pr: integer;
   
   begin
     pr:=GetPR('parsers.info', res);
     if res=200 then
       writeln('pr: ', pr)
     else if res=0 then
       writeln('socket error #', WSAGetLastError)
     else
       writeln('error, HTTP ', res);
     readln;
   end.
   

2. function GetCheckSum(url: string): string;
   Просто возвращает контрольную сумму. Это если хочешь сам составить запрос и парсить ответ.

Модуль для определения pagerank написан на чистом winapi и занимает меньше 3,5Кб. Сокет синхронный, при желании можно использовать в потоке.

Ссылка:
Скачать модуль pagerank.dcu и прилагающиеся файлы
Буду рад, если тебе пригодится, а также благодарен, если упомянешь старину Димаса
(c) crystalbit, http://parsers.info

И да, буду рад обменяться постовыми с незаброшенными блогами по программированию

Структура addrinfo

Специальная структура для функции getaddrinfo. Объявим так:

  paddrinfo = ^addrinfo;
  addrinfo = packed record
    ai_flags, ai_family, ai_sockettype, ai_protocol: integer;
    ai_addrlen: integer;
    ai_canonname: pchar;
    ai_addr: psockaddr;
    ai_next: paddrinfo;
  end;

И сразу пару переменных:

var
  aiHints: addrinfo;
  aiRes: paddrinfo;

Переменную aiHints заполним и передадим функции, таким образом мы укажем, что хотим получить в переменную aiRes, указатель на которую также передадим.
Теперь по частям:
ai_flags нам не пригодится, есть желание – читай на msdn.
ai_family, ai_sockettype, ai_protocol – это, думаю, знакомо. Семейство адресов (AF_INET мы указываем для IPv4, AF_INET6 для IPv6, также есть константы для netbios, инфракрасного порта и bluetooth адаптера), тип сокета (SOCK_STREAM для TCP протокола) и протокол (IPPROTO_TCP).
ai_addr – надеюсь, знакомая тебе структура типа sockaddr, а точнее указатель на неё. Здесь будет тот ip-адрес, который мы стремимся получить. Указатель именно на такую структуру мы передаём функции Connect, про которую можешь прочитать в предыдущем посте о том, как провести http-запрос на сокетах. ai_addrlen – размер полученной структуры ai_addr.
ai_canonname – «a canonical name for the host». У меня оно оказалось пустым.
Теперь про ai_next. «The getaddrinfo function aggregates all responses if more than one namespace provider returns information,» говорит msdn. То есть, если нам нужны другие варианты, а в данном случае они нам вряд ли нужны, то мы ходим по структурам, использую указатель ai_next, пока не наткнёмся на nil.

Функция getaddrinfo

Вот и нужная нам функция. Получение хоста может быть с помощью DNS (Domain Name System), файла hosts или других механизмов – функция не настолько низкоуровневая, то есть выдерживает все стандартные приоритеты. В стандартном модуле winsock я её не обнаружил, поэтому её нужно объявить:

function getaddrinfo(nodename, servname: PChar; hints: paddrinfo; var res: paddrinfo): integer;
  stdcall; external 'ws2_32.dll';

nodename – сюда пишем ‘parsers.info’, то есть доменное имя. servname – согласно msdn, название сервиса или номер порта. Подойдёт как ’80′, так и nil.
hints – наша структура aiHints. «Наставления» функции, мы указываем то, что желаем получить.
res – указатель на структуру addrinfo, в которой вдруг окажется результат.
Функция getaddrinfo в случае успешного выполнения возвращает 0, иначе – код ошибки. Например, 11001 – host not found.

Практика

Естественно, сначала нужно инициализировать winsock, про функцию WSAStartup я писал опять же здесь.

  FillChar(aiHints, sizeOf(aiHints), 0);
  aiHints.ai_family:=AF_INET;
  aiHints.ai_sockettype:=SOCK_STREAM;
  aiHints.ai_protocol:=IPPROTO_TCP;
  if getaddrinfo('parsers.info', nil, @aiHints, aiRes)=0 then
    writeln(ord(aiRes.ai_addr.sin_addr.S_un_b.s_b1),'.',
            ord(aiRes.ai_addr.sin_addr.S_un_b.s_b2),'.',
            ord(aiRes.ai_addr.sin_addr.S_un_b.s_b3),'.',
            ord(aiRes.ai_addr.sin_addr.S_un_b.s_b4))
  else
    writeln('socket error ', WSAGetLastError);

Этот нехитрый код выводит ip-адрес моего блога.

Вроде всё, кроме ссылки на скачивание работающего исходника-примера.

А тем временем Сан Саныч в своем блоге пытается облегчить жизнь программиста.

P.S. По поводу дальнейшего развития блога – планирую еще несколько постов про некоторые теоретические и практические аспекты winsock, также выложу один интересный модуль, над которым сейчас работаю. И, конечно, отчётно-обзорный пост про то, что было сделано, и про то, что планируется. Скучно не будет

Постовой: про запросы в интернет ты узнал, теперь узнай и про заработок в интернет

Итак, как же чаще всего фильтруют? Этот способ я даже встречал в каких-то официальных исходниках-примерах от borland.
Суть метода состоит в том, чтобы обрабатывать событие OnKeyPress, проверять параметр Key, передаваемый обработчику. Это char, да. И если этот char – не разрешенный символ для ввода и не #8 (backspace, про него не стоит забывать), то установить тот же Key в #0. Таким образом, некавайные символы не получится ввести.
Вот из из множества возможных вариантов реализации:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if not(Key in ['0'..'9', #8]) then Key:=#0;
end;

Здесь нам помогает оператор in, который проверяет наличие символа в указанном нами массиве (от нуля до девятки и backspace). С другим набором символов это, может быть, и наиболее правильный способ, но фильтрация ввода чисел в самом TEdit уже предусмотрена, нам надо только изменить его стиль, о чём далее.

Константы, начинающиеся на WS_ (от window style) являют собой константы стилей для объектов. Обязательно указываются при создании окон через различные winapi-функции. Наш TEdit WS_CHILD и WS_VISIBLE – дочерний и видимый. Также есть специальные константы только для Edit’ов, они начинаются на ES_. ES_NUMBER – нужный нам стиль. Подробнее про стили напишу когда-нибудь на блоге
Для изменения стилей в 32-хбитных windows была функция SetWindowLong, для совместимости с 64-хбитными была введена api функция SetWindowLongPtr.

  SetWindowLongPtr(Edit1.Handle, GWL_STYLE, WS_CHILD or WS_VISIBLE or ES_NUMBER);

Если приведённый ниже код написать в FormCreate, то пользователь ничего не сможет ввести, кроме цифр, что и требовалось.
Да, функция SetWindowLongPtr, в отличие от SetWindowLong, отсутствует в delphi седьмой версии и ниже, если используешь, то надо импортировать из user32.dll.

Постовой:
dmitko.ru: Блог о python, django, javascript и многом другом.

(c) Всегда ваш crystalbit

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
  if OpenDialog1.Execute then
    Edit1.Text:=OpenDialog1.FileName;
end;

procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
  if SaveDialog1.Execute then
    Edit2.Text:=SaveDialog1.FileName;
end;

Переназывать компоненты не станем.

Теперь нам нужно сделать выбор количества – от 1 до 10 символов (на выбор). Для этого я решил поставить TrackBar и Label так, что при изменении значения TrackBar менялось значение Label (от 1 до 10).

Вот так выглядит моя форма:

Теперь непосредственно парсинг:

procedure TForm1.SpeedButton3Click(Sender: TObject);
var
  f, o: TextFile;
  s: string;
  c: integer;
begin
  c:=TrackBar1.Position;
  if not FileExists(Edit1.Text) then begin
    ShowMessage('file not found');
    Exit;
  end;
  AssignFile(f, Edit1.Text);
  AssignFile(o, Edit1.Text);
  Reset(f); Rewrite(o);
  repeat
    Readln(f, s);
    Delete(s, 1, c);
    Writeln(o, s);
  until Eof(f);
  CloseFile(f); CloseFile(o);
  ShowMessage('ready!');
end;

Как видишь, мы объявили две переменные типа TextFile, строку, которую используем как буфер, и переменную c, в которую записываем количество символов, указанное в TrackBar1.
Теперь теоретическая часть.

Работа с текстовыми файлами

Чтобы связать переменную типа TextFile (или просто text) с конкретным файлом, мы используем процедуру AssignFile (аналог в паскале – assign). Первый параметр – переменная типа TextFile (частный случай file), вторая – адрес файла.
Теперь мы хотим определиться, что же мы собираемся делать с файлом: читать из него, или писать в него? Если читать, надо использовать процедуру Reset с единственным параметром – нашей переменной типа TextFile.
А если мы планируем писать в файл, нам нужна похожая процедура Rewrite. Но учти, что она стирает файл полностью, тем самым мы будем писать с чистого листа. Если файла нет, то она его создаст. Есть также процедура Append, которая открывает на запись, но не стирает, то есть мы можем дописывать в конец файла.
Также следует сказать про функцию Eof, которой мы также передаём TextFile. Она возвращает True только тогда, когда мы своим чтением достигли конца файла. Тем самым для построчного парсинга идеально подходит цикл repeat until.
Построчный ввод и вывод: нет ничего проще! ReadLn – читаем строчку, WriteLn – пишем. Естественно, для соответственно открытых файлов.
Процедура CloseFile закрывает файл, открытый нами с помощью Reset, Rewrite или Append. Однако наша переменная всё еще связано с адресом файла, и мы можем заново открыть на ввод/вывод без использования такого же AssignFile.

Процедура Delete

Процедура Delete удаляет из строки её часть. Синтаксис:

procedure Delete(var S: string; Index, Count: integer);

Передаём процедуре строку, место, с которого начинать удаление (Index), и количество символов для удаления.

Ну вот и всё на сегодня, скачать проект можешь по ссылке.

И, конечно, постовой. Если ты вдруг захотел прочитать про деньги, SEO и раскрутку, то заходи на блог iZombie.ru.

Чтобы поменять его размеры, нужно познакомиться с ним поближе.

Что нам о нём известно?

Его размеры можно получить с помощью api функции GetConsoleScreenBufferInfo, вот её синтаксис:

function GetConsoleScreenBufferInfo(hConsoleOutput: THandle; var lpConsoleScreenBufferInfo: TConsoleScreenBufferInfo): BOOL;

По порядку:
hConsoleOutput: THandle – handle вывода консольного окна, его нам вернёт api функция GetStdHandle с параметром STD_OUTPUT_HANDLE;
lpConsoleScreenBufferInfo: TConsoleScreenBufferInfo – сюда передаём объект типа TConsoleScreenBufferInfo

Структура CONSOLE_SCREEN_BUFFER_INFO, она же TConsoleScreenBufferInfo, она же _CONSOLE_SCREEN_BUFFER_INFO:

  _CONSOLE_SCREEN_BUFFER_INFO = packed record
    dwSize: TCoord;
    dwCursorPosition: TCoord;
    wAttributes: Word;
    srWindow: TSmallRect;
    dwMaximumWindowSize: TCoord;
  end;

Функция GetConsoleScreenBufferInfo её нам заполнила, что мы получили:
dwSize: TCoord – размер буфера, вот он! (по умолчанию 80 на 300 символов)
dwCursorPosition: TCoord – положение курсора, тоже полезно, вполне заменит паскалевские WhereX и WhereY, они также реализованы в моём модуле crt
wAttributes: Word – не экспериментировал с этим, вроде цвета
srWindow: TSmallRect – тоже не экспериментировал, по msdn это координаты окна, уточни какого и напиши в комментарии, ок?
dwMaximumWindowSize: TCoord – максимальный размер буфера, в символах, естественно.

Меняем размер Screen Buffer

Ну и кульминация, функция SetConsoleScreenBufferSize:

SetConsoleScreenBufferSize(hConsoleOutput: THandle; dwSize: TCoord): BOOL;

Передаём тот же handle вывода, и структуру TCoord с нужным нам размером.

Как же без примера?

const
  NewSize: TCoord = (x: 80; y: 10000);

...
  SetConsoleScreenBufferSize(GetStdHandle(STD_OUTPUT_HANDLE), NewSize);

Здесь размер буфера окна стал 80 на 10000.

Постовой:
А тем временем Zdez Bil Ya в своём добром-добром блоге пишет про delphi и пароли в qip.