Содержание Help Update 3 :

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

Для установки запустите -  Help_Setup /upgrade

Readme к нему можно прочитать тут.

зы: интересно, а когда-нибудь будет справка на русском языке

© 13-ый 8 комментариев |
Post tags: C++Builder, delphi, Help Update 3, RAD Studio 2010

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

Что ж, поздравим их с 10 летием (кстати, у нас тоже недавно было 10 лет с открытия сайта – www.delphi.chertenok.ru, он правда тогда не имел домена и жил на народе) и пожелаем им успехов – они делают нужное и полезное дело !

В этом номере:

Интро

IT-News
Hard-News

VrIP Персона
– Программисты за бугром. М. Фленов

Кодинг
Delphi. Точки восстановления
C#. Как отправить E-mail из Flash
Delphi. Когда выгодно использовать record вместо class
CSS. Наложение изображений
Delphi. Делаем стеклянный эффект
Хакерский кодинг на 1С:Предприятие 8.x
15 регулярных выражений для WEB-разработчиков
Delphi. Tips and Tricks #1
Delphi. KOL’ьная диета для дельфийца. Часть 3
Delphi. Google API в Delphi. Аутентификация пользователя

Без рамки
Чужое или свое?
10 поисковых трюков Google
Обзор мобильных ОС. Что выбрать, на чем кодить?
Знакомьтесь, штриховой код
Фриланс вне закона

Меня тошнит

Безопасность
Исследование утечек за 2009 год: виды, каналы распространения, защита
Вардрайвинг по-взрослому

Я прусь

Админинг
FireBird. Знакомство с огненной птицей
Как определить свой IP. Фундаментальное руководство

Графика
Photoshop: Быстрая коррекция фотографий
Photoshop: Управление рабочим пространством
Inkscape: Создаем обои для рабочего стола. Часть 1

Обзоры от VR
– Рецензия книги Drupal
– Рецензия книги Библия C#
– Рецензия книги Большая книга CSS
– Умный будильник

Креатив
Не забивайте гвозди плоскогубцами!
Песнь легиона. Часть 1

Психо
Взаимоотношение полов. Полная версия
Как работать с «тупыми» людьми

Мнение VR
VR-Online сегодня

Школа
– Как посчитать количество файлов в unix-like OS
– Охлаждаем по-гиковски!
– Учимся рисовать. Эффект абстрактной волны
– Учимся рисовать. Лого Volkswagen
– Учимся рисовать. Полярное сияние
– Учимся рисовать. Планета в каркасной модели

ссылка на журнал

© 13-ый 3 комментариев |
Post tags: delphi, vr-online, журнал, Программирование

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

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

Подробнее у первоисточника.

Будьте осторожны со скачиваемыми dcu и программами на delphi, поглядывайте за датой изменения SysConst.pas и SysConst.dcu.

© 13-ый Нет комментариев |
Post tags: dcu, delphi, pas, SysConst, Win32.Induc.a, вирус

История написания этой функции такова – однажды  у админов возникла необходимость сменить пароль локального пользователя Administrator на всех компах.  Проблема – обойти все 300 с лишним компов. Тогда и была написана эта функция и к ней агент выполняющий её на конечных компьютерах. Потом были добавлены и другие функции -  копирование/удаление файлов, модификация реестра, запуск программ, включение/отключение служб…

unit modChangePass;

interface

uses
  Windows, SysUtils;

function SetUserPassword(UserName, NewPassword: string; var ErrMsg: string;
  var UserNotFound: boolean): boolean;

implementation

const
  NetApi32 = 'netapi32.dll';

  NERR_Success      = 0;
  NERR_BASE         = 2100;
  NERR_UserNotFound = NERR_BASE + 121; // The user name could not be found.

type
  USER_INFO_1 = record
    usri1_name: PWideChar;
    usri1_password: PWideChar;
    usri1_password_age: DWORD;
    usri1_priv: DWORD;
    usri1_home_dir: PWideChar;
    usri1_comment: PWideChar;
    usri1_flags: DWORD;
    usri1_script_path: PWideChar;
  end;
  PUSER_INFO_1 = ^USER_INFO_1;

function NetUserGetInfo(servername, username: PWideChar;
  level: DWORD; var bufptr: PByte): DWORD; stdcall;
external netapi32 name 'NetUserGetInfo';

function NetUserSetInfo(servername, username: PWideChar;
  level: DWORD; buf: PByte; parm_err: PDWORD): DWORD; stdcall;
external netapi32 name 'NetUserSetInfo';

function NetApiBufferFree(Buffer: Pointer): DWORD; stdcall;
external netapi32 name 'NetApiBufferFree';

function Str2Wide(lpStr: String):PWideChar;
var
  dwStrlen : Cardinal;
begin
  dwStrLen := lstrlen(PChar(lpStr));
  GetMem(Result,(dwStrLen+1)*2);
  StringToWideChar(lpStr,Result,dwStrLen+1);
end;

function SetUserPassword(UserName, NewPassword: string; var ErrMsg: string; var UserNotFound: boolean): boolean;
var
  wname: PWideChar;
  parm_err: DWORD;
  ecode: integer;
  buf: PByte;
  u1: USER_INFO_1;
begin
  wname:=Str2Wide(UserName);

  try
    try
      ecode:=NetUserGetInfo(nil, wname, 1, buf);
      try
        result:=(ecode=NERR_SUCCESS);
        UserNotFound:=(ecode=NERR_UserNotFound);
        if not result then begin
          ErrMsg:=SysErrorMessage(ecode);
          exit;
        end;

        u1:=PUSER_INFO_1(buf)^;

        u1.usri1_password:=Str2Wide(NewPassword);
        try
          ecode:=NetUserSetInfo(nil, u1.usri1_name, 1, @u1, @parm_err);
          result:=(ecode=NERR_SUCCESS);
          if not result then
            ErrMsg:=SysErrorMessage(ecode);
        finally
          FreeMem(u1.usri1_password);
          u1.usri1_password:=nil;
        end;

      finally
        NetApiBufferFree(buf);
      end;
    finally
      FreeMem(wname);
    end;
  except
    on E:Exception do begin
      ErrMsg:=E.ClassName+': '+E.Message;
      Result:=false;
    end;
  end;
end;

end.

Note: There is a poll embedded within this post, please visit the site to participate in this post's poll.

© Ktf 3 комментариев |
Post tags: delphi, winaip, windows, пароль пользователя, программно

К примеру я в своих проектах себя приучил хранить такие константы в таком виде (если кому не понравилось сильно не пинать, ну можете положительно оценить задумку , ниже описанное привожу скорее для новичков может кому навеет свежие мысли):
1. Храню константы (да и переменные) программы в древовидной структуре созданной с помощью Record;
2. Создаю отдельный юнит в котором описываются все типы и больше ничего:

пример

unit Unit_MyClass;

interface
uses Classes, SysUtils;
type
// куски записей основной записи настроек
TMessageRec = record        // параметры системных межпрограмных сообщений
WM_LogUpdate: Integer;
end;
//
TDB_one = record                // параметры подключаемых баз данных
DBType,
Path,
UserName,
Pass,
Note    : String;           // описание базы
end;
//
TDB_many = record                // параметры подключаемых баз данных
Num        : Integer;     // к-во подключаемых БД
Settings   : array of TDB_one;
end;

TAutoCallSettings = record      // параметры отзвона
ServerEnable    : boolean;
ServerPort      : integer;
URLBack         : string;
Retry_Count,
Retry_Timeout,
LifeTime,
Msg_NoCar,
Msg_CarWaiting  : integer;    // код сообщения
end;

/////////////////////

TSettingsRec = record
FTerminal  : record         // параметры формы терминала
Active   : boolean;
Left,
Top      : integer;
end;
AutoCallSet  : TAutoCallSettings;
DB_Orders    : TDB_many;      // параметры удаленной БД
DB_CC        : TDB_one;          // параметры локальной БД
DB_Log       : TDB_one;          // параметры локального лога
end;

implementation

end.

Обычно сначала описываю подтипы которые могут использоваться для передачи параметров процедурам и объектам (TMessageRec, TDB_one, TDB_many) а потом описываю основную запись которая хранит в себе все параметры программы TSettingsRec.
Чем удобно: а)описание типов и констант сведено в одном месте,б) при добавлении изменении констант все делается в одном юните с) «маленькие» собственные типы (н-р TDB_one) очень легко используются в процедурах функциях как параметры д) быстрое написание кода т.к. необязательно помнить дословно название переменных достаточно начать вводить и делфя сама будет показывать какие переменные у тебя есть и т.д. и т.п. для себя нашел неоспоримое преимущество такой организации хранения констант и переменных.
3. Объявляю в проге в одном месте (обычно var PS : TSettingsRec) от слова програм сетингс т.е. достаточно ввести PS. и интерпретатор вывалит что у тебя там есть.

Но это так лирическое отступление.

Программа уже давно выросла из пеленок и уверенно лопатит кучу баз данных и хочется хранить все константы программы не в ини файле а БД. У этого тоже есть ряд плюсов. Один из них это изменение констант в реальном времени без останова программы. Вот и начал я размышлять как бы это сделать чтобы было очень удобно и код проги значительно не менять.

Вариант первый.

Идея следующая (а вот тут жду жесткой критики или рац предложений ) :
В бд параметры хранятся в след виде:
FNAME FVALUE FTYPE
ServerEnable 0 b
ServerPort 80 i
URLBack http://forum.chertenok.ru s
LifeTime 10 i
Msg_NoCar 10 i
Msg_CarWaiting 10 i

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

function pp(name:string):variant;
begin
// здесь правда придется все время пробегаться циклом по єтому двумерному массиву в поисках имени а потом из соседнего столбца присваивать result значение
//красивее внутренностей процедуры не придумал, смущает этот цикл поиска т.к. констант может быть 30-40 штук и все время их лопапить как то не то, дырку в память протереть можно :--D
end

Второй вариант.
Не париться не создавать проблем себе и не забивать и так больные головы форумчанам и выгруженные константы из базы присвоить уже существующим переменным в проге. Склоняюсь к этому варианту.

Итого: Хочется услышать ваши варианты хранения констант программ в БД в реальных проектах … и услыхать критику первого варианта, он вообще жизнеспособен?

© Artyom-Ace 20 комментариев |
Post tags: delphi, константы, хранение настроек программы

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

Правда стабильной версии с русским языком пока нет, но есть Preview версия с поддержкой русского языка. Вышла первая стабильная версия с русским языком.

В виде бонуса получите RSS новости с сайта DelphiFreeds.ru (RSS русских блогов о Delphi) внизу страницы -

Впрочем, если Вам не нравится сайт DelphiFeeds, то никто Вас неволить не будет – можно снять галочки этих каналов и настроить н-р Анекдот.ру или БашОгр. Там же можно настроить период обновления сообщений и самого RSS.

сайт

скачать можно тут

Обсуждение Delphi экспертов на форуме

© 13-ый 2 комментариев |
Post tags: CnPack, CnWizard, delphi, Expert, IDE, RSS

Продукт: Embarcadero RAD Studio; Delphi; C++Builder
Версия: 2010 Update 4 / Update 5 (Database Pack)
Редакции: Professional, Enterprise, Architect
Языки: English, German, French, Japanese

Описание:

Internal Tracking Number(s): 274215

This fix restores Type Library options for «SafeCall function mapping» and «Source Refreshing» in the Delphi Options dialog.
Install instructions:
1.  Rename \\Program Files\Embarcadero\RAD Studio\7.0\bin\delphicompro14.bpl to delphicompro14.bak.

2.  Place the new bin\delphicompro14.bpl in the \\Program Files\Embarcadero\RAD Studio\7.0\bin directory.

3.  Rename \\Program Files\Embarcadero\RAD Studio\7.0\bin\delphicompro14.jdbg to delphicompro14.jbak.

4.  Place the new bin\delphicompro14.jdbg in the \\Program Files\Embarcadero\RAD Studio\7.0\bin directory.

5.  If your language is German, French or Japanese, also copy the appropriate following file into the \\Program Files\Embarcadero\RAD Studio\7.0\bin directory:

bin\delphicompro140.de

bin\delphicompro140.fr

bin\delphicompro140.ja

Internal Tracking Number(s): 275149

This fixes an issue in CPP32.EXE when the C++ source file that is printed in the pre-processed file is always lowercased if the drive that CPP32.EXE is located on has a volume name of drive longer than 9 characters.  With this fix, the original case will be preserved.

Install instructions:

1.  Rename \\Program Files\Embarcadero\RAD Studio\7.0\bin\cpp32.exe to cpp32.bak.

2.  Place the new bin\cpp32.exe in the \\Program Files\Embarcadero\RAD Studio\7.0\bin directory.

Internal Tracking Number(s): 275253

This fix is for an issue in DataSnap communication when using filters.

Install instructions:

1.  Rename \\Program Files\Embarcadero\RAD Studio\7.0\source\database\DBXTransportFilter.pas to DBXTransportFilter.bak.

2.  Place the new source\DBXTransportFilter.pas in the \\Program Files\Embarcadero\RAD Studio\7.0\source\database directory.

3.  Rename \\Program Files\Embarcadero\RAD Studio\7.0\lib\DBXTransportFilter.dcu to DBXTransportFilter.bak.

4.  Place the new lib\DBXTransportFilter.dcu in the \\Program Files\Embarcadero\RAD Studio\7.0\lib directory.

5.  Rename \\Program Files\Embarcadero\RAD Studio\7.0\lib\debug\DBXTransportFilter.dcu to DBXTransportFilter.bak.

6.  Place the new lib\debug\DBXTransportFilter.dcu in the \\Program Files\Embarcadero\RAD Studio\7.0\lib\debug directory.

7.  If your language is German, also copy source\database\de\DBXTransportFilter.pas into the \\Program Files\Embarcadero\RAD Studio\7.0\source\database\de directory.

Place the new lib\de\DBXTransportFilter.dcu in the \\Program Files\Embarcadero\RAD Studio\7.0\lib\de directory.

Place the new lib\debug\de\DBXTransportFilter.dcu in the \\Program Files\Embarcadero\RAD Studio\7.0\lib\debug\de directory.

8.  If your language is French, also copy source\database\fr\DBXTransportFilter.pas into the \\Program Files\Embarcadero\RAD Studio\7.0\source\database\fr directory.

Place the new lib\fr\DBXTransportFilter.dcu in the \\Program Files\Embarcadero\RAD Studio\7.0\lib\fr directory.

Place the new lib\debug\fr\DBXTransportFilter.dcu in the \\Program Files\Embarcadero\RAD Studio\7.0\lib\debug\fr directory.

9.  If your language is Japanese, also copy source\database\ja\DBXTransportFilter.pas into the \\Program Files\Embarcadero\RAD Studio\7.0\source\database\ja directory.

Place the new lib\ja\DBXTransportFilter.dcu in the \\Program Files\Embarcadero\RAD Studio\7.0\lib\ja directory.

Place the new lib\debug\ja\DBXTransportFilter.dcu in the \\Program Files\Embarcadero\RAD Studio\7.0\lib\debug\ja directory.

ссылка для зарегистрированных пользователей на скачивание.

ссылка на новость

Прямая ссылка

© 13-ый 6 комментариев |
Post tags: delphi, RAD Studio 2010 Hotfix 2, update

Так же появилась первая информация о выходе беты RAD Studio 2011.
Project Fulcrum: Delphi on Linux and Mac in Beta.

Китайцы сообщают, что

- пробная Delphi 2011 будет работать 180 дней.
– размер скомпилированного exe (c пустой формой?) сократиться с 800К (Delphi 2010) до 700К (Delphi 2011).
– интеграция с SVN в IDE.
– появится кросс-платформенная бибилиотека UCL (что-то типа CLX?)
– вообще бета пока довольно сырая, работы еще много, и выйдет ли она в 2010 большой вопрос.

Бета доступна только тем, кто зарегистрировался для тестирования.

© 13-ый 5 комментариев |
Post tags: delphi, delphi 2010, Delphi 2010 HandBook, delphi 2011, Fulcrum

Что же там можно найти интересного ?

1. Цикл статей Delphi 2010. Что нового?
2. Цикл статей посвященных изучению RTTI в delphi 2010
3. Использование Microsoft Bing API в Delphi
4. Ну и ещё несколько статей по различным тематикам

заходите, будет интересно

© 13-ый Нет комментариев |
Post tags: delphi, delphi 2010, блог Александра Божко, ссылка

Напомним, что 3-ий из анонсированных вебинаров «Создание многозвенных приложений с использованием новой DataSnap в Delphi 2010″ пройдет 18 го числа в 12.00 зарегистрироваться на него можно тут

10 причин обновить Delphi 7 до Delphi 2010

Многие разработчики, использующие Delphi 7 как инструмент создания приложений для баз данных с развитым интерфейсом, еще не ощутили новые возможности Delphi 2010. Уже Delphi 2009 значительно повышает эффективность реализации интерфейса и функциональности приложений по сравнению с Delphi 7, а дополнительные нововведения в Delphi 2010 устраняют последние сомнения. Новая IDE, улучшенная VCL, расширенные языковые средства, поддержка Unicode и многое другое. Мы рассмотрим эти причины… причем даже больше, чем именно 10!

Вебинар проводит Всеволод Леонов, менеджер по продуктам Embarcadero Technologies.

СКАЧАТЬ 49 мб

Что нового в RAD Studio 2010

В рамках вебинара будет рассмотрен ряд ключевых возможностей, появившихся в Delphi 2010. Эти новшества касаются библиотеки VCL, встроенной поддержки механизмов естественного ввода, развития языковых возможностей и средств компилятора, а также улучшения в области взаимодействия Delphi-приложений с различными базами данных. Отдельный акцент будет сделан на новой технологии DataSnap и тех преимуществах, которые получат разработчики многозвенных приложений для баз данных в новой Delphi 2010.

Вебинар проводит Всеволод Леонов, менеджер по продуктам Embarcadero Technologies.

СКАЧАТЬ 33 мб

ps от Хантера: кодек

psps: у меня не заработало в лисе, пришлось открыть в эксплорере…

дополнение от IL:

Наконец-то опубликована запись вебинара 18.12.2009
«Создание многозвенных приложений с использованием новой DataSnap в Delphi 2010″ и обещаный перевод :=)
«Delphi 2010 DataSnap: новые возможности в управлении и доступе к данным», Боб Сворт (Bob Swart)

© 13-ый 9 комментариев |
Post tags: 10 причин обновить Delphi 7 до Delphi 2010, delphi, delphi 2010, вебинар, запись вебинара, Что нового в RAD Studio 2010