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

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

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

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

вторник, 5 июля 2011 г.

Fast Dial 3.4 Mozilla 5.0


После обновления Mozill'ы до  5 версии, я обнаружил то к чему очень привык, великолепный аддон Fast Dial перестал работать в 5 версии. Уныло, досадно, но ладно. Решил немного подождать, ну мало ли не успел может переписать под новый браузер....
Прошло около 2 дней и вышла новая версия Fast Dial 3.4, установил, но не успел даже обрадоваться, как увидел, что он тоже не работает((. Поискал, что в инете пишут, поиски оказались тщетны. Потом вновь решил поискать и наткнулся на ветку в форуме мозилы в которой говорилось о том, что другой разработчик исправил Fast Dial 3.4 и теперь, он работает, но через попу (не стал рисковать, мало ли...) и зашел на офф сайт автора компонента и обнаружил там бета версию компонента Fast Dial 3.5b1, установил и все прекрасно работает без всяких танцев.

Так что у кого такая же проблема решение тут.

ps. Я использую Fast Dial потому, что в нем нет ни чего лишнего.

среда, 6 апреля 2011 г.

Бета тестирование Delphi с 64-битным компилятором.

Ура товарищи, УРА!!!!!! Открыта регистрация на бета тестирование Delphi  с 64-битным компилятором.
Регистрируемся тут

пятница, 1 апреля 2011 г.

Прогресс бар в стиле Vista. VistaProBar 1.5 (Delphi)

Прогресс бар, как в Vist'e
  • Возможность регулировки размытости
  • Возможность регулировки скорости
  • Вставка суффикса
  • Вставка префикса
  • Отображение прогресса текстом
  • Показ процентов
Проверял в Delphi 2010 все нормально устанавливается, но для работы компонента необходим другой компонент этого же автора. На сайте у него скачал последнюю версию необходимого компонента rkSmartPath23, но архив битый пришлось скачать на одну версию по младше rkSmartPath22.

Распространяется по лицензии MPL 1.1

Блог автора компонента
Klever on Delphi

Скачать компонент VistaProBar 1.5+rkSmartPath22  можно отсюда Download 
Запаковал их вместе для удобства

SmartPath v2.3 (Delphi)

От автора компонента:
Компонент позволяющий перемещаться по файловой системе компьютера, как в проводнике Vista.
Путь к папке представляется, как кнопки и стрелки. Нажатие на кнопку позволит вам установить этот путь, нажатие на стрелку позволит вам выбрать папки в этой папке.

Дополнительные возможности 
  • Отключение редактирования пути
  • Добавлено событие  draw
  • Использование отображаемого имени для папок
  • Добавлен поиск событий.
  • Тонкие настройки и исправления
  • Стрелка отображается если в папке есть еще папки
Скриншот SmartPath версии 2


Добавлено новое свойство NetDiskWait проверять готовность сетевых дисков или нет по дефолту значение False. Просто иногда на этом этапе тратиться много времени особенно когда сетевой диск недоступен.

SmartPath версия 2.2
  • Теперь можно перемещаться по каталогам используя только клавиатуру
  • У Ownerdraw теперь есть свое собственное свойство, установите его при использовании ownerdraw события.
  • Добавлен ParentFont
  • Новое свойство ClickSetPath установит путь автоматически, когда кнопка на пути будет нажата так не нужно теперь использовать событие OnClickEvent.
  • Изменен AllowEdit теперь по дефолту True
  • OnMouseLeaveEvent
  • Тонкие настройки и исправления
Блог автора компонента
Klever on Delphi

Скачать компонент можно отсюда Download

четверг, 31 марта 2011 г.

Стеклянная кнопка rkGlassButton (Delphi)

Компонент стеклянная кнопка для Delphi (устанавливал в Delphi XE версию 2 при перемещении бывают глюки, но это не беда компонент идет в исходниках в виде одного pas файла. Так что если есть желание и время можно это глюк пофиксить)

Скрин  rkGlassButton 2



История развития компонента rkGlassButton 1.5
  • Стал лучше рендеринг
  • Теперь компонент может отбрасывать тени
  • Можно изменить цвет тени
  • Регулируется уровень глянцевости
  • Изменение позиции изображения и разрыва текста
  • Работает как кнопки в Windows 7
История развития компонента rkGlassButton 1.75
  • Добавлена обработка клавиатуры
  • Добавлена стрелочка при нажатии которой появляется Pop up Menu
  • Новый фокус рендеринга
  • Добавлено состояние нажата
  • Пофиксены некоторые ошибки

История развития компонента rkGlassButton 2
  • Добавлено позиционирование текста (слева, по центру, справа)
  • Кнопка может быть плоской (Flat)
  • Альтернативный рендеринг стиль
  • Появилась возможность отключения кнопки

Распространяется по лицензии MPL 1.1

Блог автора компонента
Klever on Delphi

Скачать компонент можно отсюда Download

среда, 30 марта 2011 г.

DSpack 2.3.3 (Delphi)

Компонент для написания мультимедиа приложений использующих MS Direct Show и DirectX технологии. С DSpack вы можете создать все, что вы хотите: DVD, захвата, сжатие, фильтры, ТВ, веб-камера, DV... 
Корректно работает в Delphi XE, для работы примеров необходимо переименовать в uses DSUtil.pas на DSUtils.pas (в Delphi 2009 появился другой модуль с таким именем)
Запустил пример который поток видео с веб-камеры сохраняет на диск в формате avi, после чего открыл файл и в нем было действительно видео с веб-камеры, а не просто пустой файл. 


Установка

Добавляем в переменные среды Delphi
       - (DSPackDir)\src\Directx9
       - (DSPackDir)\src\DSPack
Компилируем DirectX 9 Package (DirectX9_Dx.dpk) из папки packagesD2010.
Компилируем  DSPack Package (DSPack_Dx.dpk) из папки packagesD2010.
Устанавливаем Design Package (DSPackDesign_Dx.dpk) из папки packagesD2010.

И не забываем в примерах в случае если возникает ошибка
[DCC Error] main.pas(34): E2003 Undeclared identifier: 'TSysDevEnum'
переименовывать модуль DSUtil.pas на DSUtils.pas

Скачать DSpack можно отсюда Download

вторник, 29 марта 2011 г.

JSON – SuperObject (Delphi)

 JSON – SuperObject библиотека для работы с JSON в Delphi, данная библиотека была проверена в Delphi 2010, всё прекрасно работает! Недавно был пост посвященный подобной библиотеке, но по функционалу и стабильности работы, она не показала себя с хорошей стороны в отличие от этой библиотеки.

Особенности:
  • Быстрота анализа
  • XML в JSON
  • Простота использования
  • Проверка валидности JSON
  • JSON-RPC (Remote Procedure Call (вызов удалённых процедур)).
  • Возможность написания JSON в удобной для человека форме.
Лицензия:
MPL или LGPL

Сайт автора компонента:
Delphi & Free Pascal ressources by Henri Gourvest


SVN:
http://superobject.googlecode.com/svn/trunk/


Скачать архив от 29.03.2010 отсюда Download

вторник, 15 марта 2011 г.

WordUnit 1.0 Программа для сбора поисковой выдачи


Утилита для поиска сайтов по ключевым словам в поисковых системах GOOGLE, YANDEX, RAMBLER (хотя последним даже и не пользуюсь ни когда)) ну и бог с ним) и сохранения их в таблицу, из таблицы в файл, а дальше куда душа пожелает!
Программа получает выдачу поисковиков по запросам, которые можно сделать в конструкторе, форма конструктора идентична их онлайн версиям, так, что проблем возникнуть не должно с построением запроса.

воскресенье, 6 марта 2011 г.

"Липкая" форма (Delphi)

Как заставить форму приложения "прилипать" к краям экрана?

Оказывается очень просто))
Необходимо в  свойствах формы ScreenSnap сделать равным True и SnapBuffer числу пикселей между краем формы и краем экрана (по дефолту 10) после чего форма должна "прилипать" к краю экрана.
 ScreenSnap:=True;
 SnapBuffer:=10;

воскресенье, 27 февраля 2011 г.

Функция получения PageRank (Delphi)


Ни так давно захотел определить PR блога без SEO сервисов с помощью Delphi.
Все оказалось ни так просто, как на Yandex'e при определении ТИЦ'а. Чтобы получить ТИЦ для тех, кто не знает или просто ни когда об этом, ни задумывался, необходимо выполнить запрос такого вида:
http://search.yaca.yandex.ru/yca/cy/ch/[URL сайта без http:\\]/

Пример:
http://search.yaca.yandex.ru/yca/cy/ch/nmdsoft.blogspot.com/
 

и немного распарсить страницу и получим искомый нами ТИЦ

четверг, 24 февраля 2011 г.

Класс для работы с JSON в Delphi


JSON (англ. JavaScript Object Notation) — текстовый формат обмена данными, основанный на JavaScript и обычно используемый именно с этим языком. Как и многие другие текстовые форматы, JSON легко читается людьми.

Класс lkJSON для работы с  универсальными структурами данных (JSON ) в среде Delphi. Проверял на работоспособность в среде Delphi 2010, все прекрасно работает, в комплекте с классом идут примеры, посмотрев которые можно легко понять, что к чему, так же класс идет в исходном коде и  его можно доработать для своих целей.

вторник, 1 февраля 2011 г.

Бот для Haddan

Новая версия бота с исправленными недочетами предыдущей версии, выявленными в результате бета-тестирования 2 игроками (ники и имена в секрете).

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

Вкладка "Главная"

  1. Время  до  завершения  поиска руды.
  2. Сколько  раз  копали  в  шахте.
  3. Количество  ресурсов  в  инвентаре.
  4. Количество  добытых  ботом  ресурсов  за  одну  сессию.

суббота, 8 января 2011 г.

Бот для Haddan

Бот для игры Haddan автоматически выполняет все действия при добывании руды (профессия шахтер). Теперь при добыче руды не нужно вводить текст с картинки (капчу), за вас это сделает программа с помощью сервиса http://antigate.com ! Цена одной распознаной картинки, а следовательно одного подхода стоит всего 0,1 цента (3 Русских копейки) ! Бот сэкономит ваше время и деньги (на сайте хаддана эта услуга стоит намного больше !) Бота можно оставить наночь или запустить после включения компьютера и забыть. Через пару дней зайдите в игру и посмотрите свои ресурсы в инвентаре. Вы будете приятно удивлены :-)


пятница, 7 января 2011 г.

Отправка файла Synapse

Код функции по отправке файла
Автор: Eric Paschoalick Chaves

function HttpPostFileForm(const URL, FieldName, FileName: string; const Data: TStream; const FormFields:TStrings; const ResultData:
TStrings): Boolean;
var
  HTTP: THTTPSend;
  Bound, s: AnsiString;//был string, но для России не катит ( ! )
  i:integer;
const
  CRLF=#13#10;
  FIELD_MASK = CRLF + '--%s' + CRLF +'Content-Disposition: form-data; name="%s"' + CRLF + CRLF+'%s';
begin
  Bound := IntToHex(Random(MaxInt), 8) + '_Synapse_boundary';
  HTTP := THTTPSend.Create;
  try
    s := '--' + Bound + CRLF;
    s := s + 'content-disposition: form-data; name="' + FieldName +'";';
    s := s + ' filename="' + FileName +'"' + CRLF;
    s := s + 'Content-Type: Application/octet-string' + CRLF + CRLF;
    HTTP.Document.Write(Pointer(s)^, Length(s));
    HTTP.Document.CopyFrom(Data, 0);
    // Include formfield
    for i:=0 to FormFields.Count-1 do
      begin
        S:= Format(FIELD_MASK,[Bound, FormFields.Names[I],FormFields.Values[FormFields.Names[I]]]);
        HTTP.Document.Write(Pointer(S)^, Length(S));
      end;
    s := CRLF + '--' + Bound + '--' + CRLF;
    HTTP.Document.Write(Pointer(s)^, Length(s));
    HTTP.MimeType := 'multipart/form-data, boundary=' + Bound;
    Result := HTTP.HTTPMethod('POST', URL);
    ResultData.LoadFromStream(HTTP.Document);
  finally
    HTTP.Free;
  end;
end;

четверг, 6 января 2011 г.

TStringList замена переносов строки запятыми

procedure TForm1.Button1Click(Sender: TObject);
var
  st:TStringList;
begin
  st:=TStringList.Create;
  try 
    st.Add('1');
    st.Add('2');
    st.Add('3');
    st.Add('4');
    st.Add('5');
    st.Delimiter:=',';
    Memo1.Text:=st.DelimitedText; //результат 1,2,3,4,5
  finally
    st.Free;
  end;
end;

Хотя можно было использовать StringReplace, но если есть это в классе то зачем))
Обратная задача

procedure TForm1.Button1Click(Sender: TObject);
var
  st:TStringList;
  i:integer;
begin

  st:=TStringList.Create;
  try
      st.Delimiter:=',';
      st.DelimitedText:= Memo1.Text;//текст разделенный запятыми

     //теперь можно обращаться по индексу
     for i := 0 to sTemp.Count - 1 do
     begin
        //переменная string:=st.string[i];

     end;
     //или
     Memo1.Lines:=st;
  finally
    st.Free;
  end;
end;

среда, 5 января 2011 г.

Бот для Тюряги (онлайн игра вконтакте+mail)


Сделал новую версию всех, кто купил старую версию просьба написать номер телефона с которого платили без 2 последних цифр и email для отправки новой версии бота, пишем в комментариях при модерации удалю.


Данный бот может делать автоматически или в ручном режиме следующее:
  1. Собирать сигареты со двора
  2. Звать всех друзей в качалку
  3. Отправлять подогревы (любого уровня (если дыры в игре не закрыли, пока работает))
  4. Получать подогревы
  5. Выполнять движухи на зонах



Теперь и для мейла и вконтакта в одном флаконе



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

Вирусов нет, пароли и логины, мне ваши не нужны.

НОВАЯ ВЕРСИЯ от 4 марта 2011 года.
теперь можно качать, как и говорил раньше, кто купил старую версию пишут в комментариях номер с которого платили без последних двух цифр и адрес электронной почты на который, я отправлю вам новую версию бота.

Скачать отсюда Download

НОВАЯ ВЕРСИЯ от 27 марта 2011 года.
Теперь бот работает и в mail'е достаточно выбрать переключатель нужного вам сервиса

Стоимость бота для тюряги в mail  и вконтакте 50 рублей. (смс теперь не принимаю)
Скачать бот для тюряги с поддержкой mail и вконтакта отсюда Download

Так же можете заказать бота для другой игры, путем отправки комментария в этой теме стоимость от 100 до 1500 руб в зависимости от сложности ))

ПРОИЗОШЛИ изменения на сайте так что все кто купил пишем свои номера без последних двух чисел и получаем исправленную версию (пишите в комментариях).

Для тех кто думает, что обман не качайте ваше право, не нужно меня учить жить... как нибудь сам, а тем кто хочет на халяву да ради бога только не тут))!!!