Блог по программированию в среде Delphi

Поиск по блогу

Есть идея по созданию интересной программы?

Опиши тут и я по возможности постараюсь это реализовать специально для тебя! Без $ ))

воскресенье, 29 августа 2010 г.

Компонент Clipper версия 2.35 (Delphi)

Компонент Clipper выполняет логические операции отсечения (пересечение, объединение, разность и XOR) на 2D полигонах. Он с легкостью справляется со сложными (само пересекающимися ) полигонами, полигонами с отверстиями и полигонами с перекрытием совместного линейного края. Данный компонент быстрее остальных выполняет эти сложные операции.

Компонент TDirwatch (Delphi)

Не визуальных компонент, который уведомляет, когда файлы (или подкаталоги) в выбранном каталоге изменились.Этот компонент инкапсулирует функцию FindFirstChangeNotification WinAPI в просмотре потока.

Версия Delphi: 3-7
Freeware с полным исходным кодом, а также Demo.

Компонент TDirwatch можно скачать отсюда download

Компонент TDiff версии 4.1 (Delphi)

Не визуальных компонент используется в основном для сравнения изменения в файле.
Freeware с исходными кодами и включает в себя две простые demo программы.



Версия Delphi: 7, 2009


Компонент TDiff версии 4.1 можно скачать отсюда download

Компонент TZipFix - Версия 1.1 (Delphi)

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


Версия Delphi: 3-7
Freeware с полным исходным кодом, файл справки и примеры.
Последнее обновление: 6 апреля 2003 


Компонент TZipFix можно скачать отсюда download

суббота, 28 августа 2010 г.

Компонент GLibWMI 1.8beta All (Delphi)

Данная библиотека позволяется получить полную информацию о
  • Bios
  • Аудио карта
  • Жесткий диск
  • Принтер
  • Дисплей
  • Клавиатура
  • Процессор
  • CD-Rom
  • Батарея (если есть)
  • ОС
  • "Мышь"
  • Оперативная память
  • Процессы ПК
  • Службы ОС
  • Рабочий стол
  • Автозапуск
  • Сетевое оборудование
  • Аккаунты в ОС
  • Расшаренные папки
  • Задания на принтере
  • USB
  • Разделы жесткого диска
  • Переменные среды ОС
и все это вы можете использовать в вашем приложении.

четверг, 26 августа 2010 г.

Remote Registry (Удаленное редактирование реестра) Delphi

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

procedure TForm1.Button2Click(Sender: TObject);
var
  UserName,Password,DomainName:PAnsiChar;
  tolken:THandle;
  vReg: TRegistry;
begin
  UserName:='Логин';
  Password:='Пароль';
  DomainName:='Домен к которому принадлежит ПК';
  //коннектимся к компу
  try
    if LogonUser(UserName,DomainName,Password,LOGON32_LOGON_INTERACTIVE,LOGON32_PROVIDER_DEFAULT,tolken) then
    begin
      Beep;
      ImpersonateLoggedOnUser(tolken);
      vReg := TRegistry.Create(KEY_ALL_ACCESS);
      try
        vReg.RootKey := HKEY_CURRENT_USER;
        if vReg.RegistryConnect('\\noname') then //если не указать имя пк то редактирование будет происходить на локальном ПК будьте бдительны
        begin
          vReg.OpenKey('Control Panel\Mouse',False);
          Memo1.Lines.add('До: '+vReg.ReadString('MouseSensitivity'));

          vReg.WriteString('MouseSensitivity','20');
          Memo1.Lines.add('После: '+vReg.ReadString('MouseSensitivity'));

          vReg.CloseKey;
        end;
      finally
        vReg.Free;
      end;
    end;
  finally
    CloseHandle(tolken);
  end;
end;

В целом код не сложный если прочитать msdn, но вот только я по началу не заметил того что редактирование реестра HKEY_CURRENT_USER происходит у админа ПК под которым я залогинился, а не под логином моего друга)), но в ветке HKEY_USERS я нашел все учетки и друга и админа да и вообще всех пользователей пк которые можно изменять без проблем.

Утилита для проверки файлов которые еще живы на Turbobit (TurbobitLinkChecker)

Данная утилита написана по просьбе NoSch, который является администратором сайта и тесно связан с этим файлообменником.
Программа написана с использованием библиотеки Indy входящей в комплект поставки Delphi 2010, просто нужно было быстро это сделать, а ни чего другого под рукой не было.
Думаю кому нибудь эта утилита пригодиться и мой труд не пропадет даром.
Внешний вид программы весьма аскетичный, чтобы ни чего не отвлекало.

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

суббота, 21 августа 2010 г.

Создание иконки для компонента Delphi 2010 (Creating an icon for the component Delphi 2010)

Создадим пакет для будущего компонента (если у вас нет компонента (так для эксперимента))

Зайдем File->New->Package


если у вас нет этого пункта то File->New->Other->Package


Получим пустой пакет. После чего его необходимо сохранить в какую нибудь папку


пятница, 20 августа 2010 г.

Проблема с иконками в палитре компонентов Delphi 2010

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

Для того, чтобы задать размер иконки в файле ресурсов необходимо добавить еще иконки только как это сделать ведь имя битмапа должно быть именем класса TMyComponent
Необходимо просто в конце указать размер

TMyComponent  16х16
TMyComponent24 24х24
TMyComponent32 32х32

После чего все должно корректно отображаться.
Так же необходимо,чтобы изображение было 32bit

Было выявлено в процессе создания иконки для своего компонента. Возможно конечно это единичный случай, но следует о нем просто знать

Отличный редактор ресурсов (Resource Editor)

Нашел на просторах интернета интересную бесплатную программу для редактирования ресурсов, аналог Image Editor идущей с Delphi7 по какой то причине она отсутствует во всех последующих версиях Delphi. Автор этой программы решил это исправить, но он не может связать свою программу со средой по причине отсутствия интерфейсов необходимых для этого

Внешний вид программы


понедельник, 2 августа 2010 г.

Blogger robot.txt

Решение проблемы Blogger robot.txt 

URL заблокирован файлом robots.txt Modifying Robots.txt on Blogger possible? Create a robots.txt file

Для обхода robot.txt вашего блога в шаблоне вашего блога необходимо добавить следующую строку


<meta content='INDEX, FOLLOW' name='robots'/>

После чего все ваши страницы будут разрешены к индексации.

Запрещение индексации ссылок

<noindex><a href="http://сайт">ссылка</a></noindex>
и
<a rel="nofollow" href="http://сайт">ссылка</a>

TRegExpr (Delphi)

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


Вы можете проверить синтаксическую корректность e-mail адреса, извлечь номера телефонов из не формализованного текста, найти необходимую информацию в web-странице - возможности ограничены только Вашим воображением. Правила (шаблоны) можно изменять не пере компилируя Вашу программу!

Proxy Parser (Delphi)

Компонент позволяющий получать список прокси серверов с сайтов их раздающих (единственное не все их дают просто так некоторые используют методы защиты от таких вот сборщиков ). Мой самый первый компонент, впервые в нем использовал коллекции и для его работы необходима библиотека indy(на тот момент почему то они меня устраивали глюков по крайней мере не было).


Компонент идет со всеми исходниками, работал на Delphi 7 на Delphi 2010 должен пойти тоже после пере компиляции пакета. Так же идет demo проект в котором показан пример использования компонента на практике.

При публикации данного компонента у себя на сайте или блоге прошу указать ссылку на мой блог думаю это не большая плата за авторство.

Компонент Proxy Parser можно скачать отсюда Download

Color Controls u2300 (Delphi)

Описание компонента Color Controls u2300

Красивый компонент Delphi для организации очень разнообразных таблиц в которых можно разными цветами выделять: поля, текст, цвет выделения. В комплекте идут исходники для delphi 5, delphi 6 и delphi 7 Demo пример в котором вы сможете увидеть все, что можно реализовать с помощью данного компонента (маленькой палитры).

воскресенье, 1 августа 2010 г.

Property XXXX does not exist (Delphi)

Возникает при обращении к свойству которого нет. Оно даже может и есть только имя его изменилось, на это тоже следует обращать внимание.
Причиной может служит использование другой версии компонента, в котором данного свойства нет. Установка нового компонента после некорректного удаления старого.