Loading ...
PS: А у нас сегодня первое 1 сентября 
Дочка в первый раз пошла в садик …
(1 оценка : 4.00 из 4)
Loading ...RSS и Подписка по Email
Вот и наступила осень !
(1 оценка : 4.00 из 4) Loading ...Большие мыльные пузыри, делаем сами…
а вот тут обсуждается как сделать самим, выходит правда хуже, но всё равно здорово.
надо будет обязательно попробовать, зачетная тема
(Нет оценки) Loading ...Лучшая иллюзия которую я видел.обман зрения….
3D световое шоу с использованием технологии video mapping.
Начало скучновато, но дальше очень интересно
похожие видео -
http://www.youtube.com/results?search_query=projection%20show&search=tag
(Нет оценки) Loading ...Программиста судят за защиту своего ПО
Всё таки у нас странное общество, общество крайностей, то сажают за пиратство, то «пираты» судятся с авторами.
(Нет оценки) Loading ...1 из багов ZEOSDBO
Сегодня занимался обработкой вызовом хранимых процедур из MySQL. Как оказалось, ZEOS не корректно освобождал память при закрытии Датасета. Решение проблемы нашел здесь:
http://zeosbugs.firmos.at/view.php?id=235
В общем, вместо кода:
</p> <p>procedure TZMySQLResultSet.Close;</p> <p>begin</p> <p>if FQueryHandle <> nil then</p> <p>FPlainDriver.FreeResult(FQueryHandle);</p> <p>FQueryHandle := nil;</p> <p>FRowHandle := nil;</p> <p>inherited Close;</p> <p>end
в юните ZDbcMySqlResultSet нужно поставить:
</p>
<p>procedure TZMySQLResultSet.Close; {Shkil}</p>
<p>var QueryHandle: pointer;</p>
<p>begin if FQueryHandle<> nil then</p>
<p>begin while(FPlainDriver.RetrieveNextRowset(FHandle) = 0) do</p>
<p>begin</p>
<p>QueryHandle := FPlainDriver.StoreResult(FHandle);</p>
<p>if QueryHandle nil then</p>
<p>begin FPlainDriver.FreeResult(QueryHandle);</p>
<p>end;</p>
<p>end;</p>
<p>FPlainDriver.FreeResult(FQueryHandle);</p>
<p>end;</p>
<p>FQueryHandle := nil;</p>
<p>FRowHandle := nil;</p>
<p>inherited Close;</p>
<p>end;
(Нет оценки) Loading ...Яндекс жжёт или почему я дура …
(5 оценка : 2.20 из 4) Loading ...