здесь был ойтишный блог — @дневники: асоциальная сеть

воскресенье, 16 января 2011

17:01

создаю островки хаоса в пучине порядка

Почему я такой лентяй? Вот нет бы встать в 9 утречка, сделать зарядочку, позавтракать плотно. Ведь я знаю, что после этого и чувствуешь себя замечательно, и времени свободного больше, и вообще голова как-то свежее. Но нет блять, лень. Даже если будильник завожу — я ведь когда просыпаюсь с утра, знаю что мне никуда не надо. Ну и вжопу этот будильник, выключил и дальше спать... Нахрена спрашивается. А вот просто в тот конкретный момент так хотелось. Когда ложился — хотелось иначе, через минуту после просыпания в час дня — тоже хотелось иначе. А вот в именно в тот момент, когда надо, хотелось так.

Вот нет бы встать, сделать всю намеченную работу и отдыхать весь день. Ведь если реально приложиться и ни на что не отвлекаться — это займёт не так много. Но нет. Лень матушка. Надо сесть с чашкой чая за комп, проверить новости в контактике, посмотреть ржачные видосы на ютубе. Потом вспомнить что у кого-то там новый альбом вчера вышел — надо же заценить. И удивительная вещь — вот это занимает действительно много времени. Да. Ржать над видосами и заценять музло, это вам не хуй вертеть :thnk:

Потом (это вообще обязательный пункт) надо сделать вид приступания к работе. В моём случае, обычно — открыть какую-нить IDE. Можно, как вариант, разложить бумажки на столе, достать инструменты из ящика, etc... И пойти за еще одной чашечкой чая/кофя. Вернувшись через пол часа с остывшим чаем вспомнить еще что-то, что, кровь из носу, хотел на днях сделать / доделать / переделать / посмотреть / послушать / etc. Ну и раз уж вспомнил — чо уж там. Не, ну это же недолго!

Через пару часов вспомнить про разложенную работу. Начать (да неужто) её делать. После чего обязательно (по закону Мерфи) вам кто-нибудь напишет в аську / агент / жаббер / ну или чо у вас там. Человек эдак 6. До этого им блять весь день ничо от вас не надо было. А тут всех прорвёт как из говномёта. Я это гарантирую (с)

Через еще пару часов итог — уже стемнело, а работа едва ли сдвинулась с места. Ой, вот ведь незадача, а я хотел сегодня пораньше лечь спать.

Почему я такой лентяй?

@темы: воркинг, мыслинг

URL

вторник, 28 декабря 2010

03:05

создаю островки хаоса в пучине порядка

На первые 90% кода приходятся первые 90% времени разработки. На оставшиеся 10% кода - другие 90% времени. (с) Том Каргилл

URL

пятница, 24 декабря 2010

05:52

создаю островки хаоса в пучине порядка

Вот ведь на какие извраты иногда приходится идти.
Собсна имеем форму Delphi. На ней компонент WebBrowser (ActiveX-компонент). В него подгружается другой ActiveX-компонент: DeepView -- для того, чтобы покрутить 3D-модельку. 3D-моделька тоже, само собой, лежит отдельно в файле в папке с проектом (*.rh). В модели расставлены контрольные точки и если компоненту DeepView говорят перейти в ту или иную точку -- моделька соответсвенно плавненько крутиться, масштабируется и т.п. Вызов этих функций описан во внешних JS-ках. Всё круто. Но возникает вопрос, как компоненты в этой матрёшке будут друг с другом разговаривать? Ибо нужно, к примеру, для каждой контрольной точки в модели создать по кнопке-ссылке. Для этого надо, как минимум, знать их количество. А еще очень неплохо было бы знать их по именам

Схема обращений рисуется следующая: Pascal —> HTML —> JS —> DeepView API (С/С++). Нехило, на мой взгляд. Ну да ладно. Глаза боятся, а руки.. а руки кодят. Во.

Итак, раскапываем майкрософтовский MSDN На предмет API ихнего мастдайного браузера (именно его юзает TWebBrowser). Эта тут. Видим, что можем обращаться к загруженному в браузер документу и к его элементам и видим всё это для сишек и басиков. Ну не страшно, немного гугления и вот страничка, которая в лоб тыкает нас, как обратиться к документу и всем его вкусностям средствами дельфи: Тык. Собственно, строка

WebBrowser1.OleObject.Document.All.Item('name')

даёт нам любой объект типа IHTMLElement. Смотрим в код HTML-ины - хватаем нужное имя и дело в шляпе.

ОК. Что с этим делать дальше? А дальше нам нужно заставить этот объект сказать нам всё о контрольных точках загруженной в него модели. Очень тормозит процесс отсутствие документашек по DeepView API. Но на то воля его девелоперов. В общем, смотрим, как всё это делается в функциях JS (например, для получения количества точек):

scene = document.all.ev3de.scene;
n = scene.steps.Count;

И пробуем прямо в лоб по аналогии:

dvScene := WebBrowser1.OleObject.Document.All.Item('ev3de').scene;
stepCount := dvScene.steps.Count;

dvScene здесь имеет тип OleVariant. stepCount думаю и так понятно какой

И [о чудо]! Оно возвращает число. Причём то самое. Ну теперь уже совсем всё просто. По аналогии получаем имена точек, пробегаясь в цикле по их индексам:

for i := 0 to stepCount-1 do names[i] := dvScene.steps.GetByIndex(i).Name;

И вешаем куда нам надо (у меня это были кнопки) события переводящие 3D-сцену в нужное состояние по его идексу. Я изначально зачем-то это сделал внешним вызовом соответствующей JS-функции примерно так:

procedure CallJSFunc(f: String);
var
  doc: IHTMLDocument2;      // current HTML document
  HTMLWindow: IHTMLWindow2; // parent window of current HTML document
  JSFn: string;             // stores JavaScipt function call
begin
  // Get reference to current document
  Doc := Form1.WebBrowser1.Document as IHTMLDocument2;
  if not Assigned(Doc) then
    Exit;
  // Get parent window of current document
  HTMLWindow := Doc.parentWindow;
  if not Assigned(HTMLWindow) then
    Exit;
  // Run Javasсript
  try
    JSFn := f;  // build function call
    HTMLWindow.execScript(JSFn, 'Javasсript'); // execute function
  except
    // handle exception in case Javasсript fails to run
  end;
end;

Но видимо это были магнитные бури, или 2.40 ночи дали о себе знать

В общем утром дошло, что это лишняя прослойка и можно просто делать так:

dvScene.steps.GetByIndex(i).play();

Погнал рефакторить :duma2:

URL

четверг, 23 декабря 2010