Пропали некоторые последние комментарии и один пост, про то, что блог теперь уже не dofollow, но все комментарии, сделанные до того поста, остались dofollow.

Плюс хочу выразить благодарность пользователю Alex, который обратил внимание на мелочность и ненужность некоторых заметок. Исправимся

Вполне может оказаться необходимым контролировать перемещение формы пользователем – будь то некоторая стыковка к границам экрана или необходимость запретить перемещать форму.

Мы сперва лезем в Events, видим, что события OnMove нету.

Итак, существует два события: WM_MOVING и WM_MOVE. Первое передаётся окну, когда его перетаскивают, а второе, когда уже переместили. В принципе, в windows xp и выше (а может ещё и чуть раньше) при перемещении окна курсором оно сразу меняет позицию (в отличие от windows 95, например, там мы перемещали контур окна), WM_MOVE возникает достаточно много раз, поэтому не вижу особого смысла его использовать.

Для примера поставим Label1 на форму. Теперь в раздел private типа TForm1 напишем:

procedure WMMoving (var msg: TWMMoving); message WM_MOVING;

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

procedure TForm1.WMMoving (var msg: TWMMoving);
begin
  Label1.Caption:=IntToStr(msg.DragRect.Left)+';'+IntToStr(msg.DragRect.Top);
end;

Можно проверить, при перемещении формы в Label1 меняются её координаты.

Хочу добавить, что это заметка, которая не претендует на журнальную статью, но я решил об этом написать, так как передо мной встал вопрос, отражённый в заголовке. Буду и дальше писать конкретно и по теме блога

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

Вопрос восстановления файлов – важный вопрос. Если бы всё было так просто, я не потерял бы бд блога, которая сгорела вместе с хостингом (к слову, похоже на то, что каталог с базами специально отформатировали). Программ есть много (та же Recuva), но они не всегда могут помочь.

Похожие записи

• Работаем с окнами. AnimateWindow и FlashWindow. (0)
• Работаем с окнами и объектами. Часть 4. Функции и процедуры. (0)
• Работаем с окнами и объектами. Часть 3. Поиск объектов. (0)
• Работаем с окнами и объектами. Часть 2 (0)
• Работаем с окнами и объектами. Delphi. Api. Часть 1 (0)

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

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

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

Похожие записи

• Сороковая симфония Моцарта из внутреннего динамика. (15)
• Моцарт из внутреннего динамика. Сороковая симфония и delphi. Часть 2. (0)
• Моцарт из внутреннего динамика. Сороковая симфония и delphi. Часть 1. (0)

Открываем, редактируем список из строк и оставляем поверх всех окон. Изначально выделена первая строчка, она находится уже в буфере обмена. Нажимая 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, спасибо, что обратили на неё внимание

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

Похожие записи

• Построчный парсинг (23)
• Парсим csv и tsv файлы в delphi (4)
• Количество подстрок в строке. (3)

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

Похожие записи

• Обходимся без SysUtils. Строка <-> число (5)

Действительно, учёба навалилась, время отнимает. Да и мотивация писать тоже страдает. Сегодня хочу поговорить о том, что я запланировал, и оглянуться назад, посмотреть на то, что уже было сделано.

Итак, 25 декабря я сменил дизайн блога. Взял одну тему из буржунета, перевёл, изменил под себя многие мелочи. Во многом помогли читатели, я вами очень дорожу, спасибо!
Если есть еще адекватные мысли (а не те, что только ради ссылки) по поводу дизайна, буду очень рад выслушать

Теперь конкретно по тематике блога, что же запланировано? Оглашаю весь список:

1. Написать про свой метод парсинга кое-чего, пока не расскажу В том числе очень хочется обсудить его
2. Модуль pagerank – сделать версии для delphi 2009 и 2010, и, может быть, даже под сам linux
3. Модуль pagerank – сделать dll. Сделать-то сделал, да опять какие-то непонятки с delphi 2010, будем решать эту проблему
4. Написать маленький пост в продолжение серии as-is-sender в delphi. Это я точно напишу, скоро
5. Обязательно затрону асинхронные сокеты! Уже начал писать, спасибо читателям за мотивацию
6. Сделать некий индекс самых интересных тематических постов на отдельной странице

Как видишь, план есть. «Всё идёт по плану», – пою я каждый раз, когда пишу очередной пост на delphi блог. Ну и на гитарке подыгрываю

А вот сейчас, когда я уже раскрыл все свои коварные замыслы, хочу обратить твой взор к старым статьям, написанным тогда, когда у блога было три с половиной читателя.

1. Вот таким образом моя программа решает судоку. Статейке скоро год исполнится. Это, можно сказать, первое, что я конкретно так расписал, что принесло большую пользу блогу.
2. А таким образом я на обычном TImage нарисовал объёмный тор (читай бублик). Помни, математика – сила!
3. А ещё мою программу когда-то опубликовали в журнале хакер. Откопали где-то и опубликовали. Программу считаю не очень удачной, поэтому это совсем другая история, зато очень мотивирует

По поводу этих двух статей – этично ли их в соцсети типа грабра отправлять? Как-никак, годовалой давности, зато, думаю, заинтересуют кого-нибудь

Как ты знаешь, самый лучший постовой – тематический, поэтому не обойди вниманием и заметки Web-программиста

Я дал знать о себе, я тут, я не уходил, я не переставал писать! А так, просто немного отдохнул…
– crystalbit

Похожие записи

• Я здесь! (1)
• Как я делал свой блог dofollow блогом (86)

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

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

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

Похожие записи

• Модуль crt для delphi. (0)
• Модуль crt для delphi (2)

Структура 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, также выложу один интересный модуль, над которым сейчас работаю. И, конечно, отчётно-обзорный пост про то, что было сделано, и про то, что планируется. Скучно не будет

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

Похожие записи

• WinSock: HTTP-запрос с помощью блокирующего сокета (15)

Итак, как же чаще всего фильтруют? Этот способ я даже встречал в каких-то официальных исходниках-примерах от 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

Похожие записи

• Нет похожих записей.