Перейти к собственно контенту

Архив

Метка: delphi

Сегодня занимался обработкой вызовом хранимых процедур из 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;  

delphi_help
Вышел RAD Studio 2010 (Delphi and C++Builder) Help Update 3.

Далее…


Наверно не все знают (как например не знал я), о существовании этого онлайн журнала.

«Сегодня у нас не совсем обычный номер. Мало того, что его объем зашкаливает за две сотни (!) страниц, так он еще является и юбилейным. Сколько нам лет? Год, два? Нет, не угадал, нам уже все 10. Наш проект стал по-настоящему взрослым. Или как еще говорят — проверенным временем. И вот с этой знаменательной датой я хочу поздравить вас в первую очередь! С нашим общим праздником, друзья!»

Далее…

По информации некоторых источников, в сети появилась новая модификация известного вируса для Delphi — Virus.Win32.Induc.a.

На этот  раз в ней имеется деструктивная функция —

«Win32.induc, но уже с деструктивной нагрузкой и, видимо, поддерживающий версии delphi старше 7. Запустил в песочнице, при инициализации модуля добавляет вредоносный код в SysConst.pas, компилит его в SysConst.dcu, содержимое исходного файла затирает, пишет туда «Carpathian Forest CF1.0 LiveUndead». В один прекрасный день (а точнее 13 сентября 2010 года) программа, собранная на заражённой машине, скажет «TODAY IS A GOOD DAY TO DIE» и грохнет систему.»

Далее…

В рамках разработки системы программного удалённого администрирования, написал функцию смены пароля локального пользователя Windows, решил выложить, может кому пригодится.

Далее…

Предисловие:
Любая более менее серьезная программа имеет какие-то внутренние константы необходимые для ее работы. Часто эти константы необходимо изменять без внесения изменений в код программы. Для этого большинство юзают ini или реестр.

Далее…

Я думаю что многие знают IDE пакет экспертов CnWizard для Delphi. Если Вы не знаете или пользуетесь н-р платной Castalia, то посмотрите на бесплатную CnWizard, возможно она Вам весьма понравится :)

Теперь же CnWizard знает и русский язык.

cn

Далее…