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

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

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

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

среда, 19 сентября 2012 г.

Настройка импульсного или тонового набора на телефоне LG GT-7320

Сам много времени искал мануал и нашел печатный вариант, вот от сканировал для людей у которых возможно возникнет подобная проблема.
Лист из инструкции

понедельник, 10 сентября 2012 г.

Java SE Downloads глюк


Java SE Downloads работает под администратором под учетной записью пользователя ноль)).
Следует просто удалить все что связано с Java SE Downloads, все обновления через установку и удаление программ. После удаления необходим выполнить перезагрузку ПК и потом установить Java SE Downloads необходимой версии.

понедельник, 9 июля 2012 г.

Удаление истории статусов из блога mblogi.qip

После того как случайно наткнулся на историю статусов квипа решил по удалять их, но дело это оказалось весьма муторным в связи с тормозами сайта. Стало лень, а лень-это двигатель прогресса написал вот такую утилиту для этого дела. Программа удаляет все сообщения из блога  mblogi.qip собственно я и не знал, что у меня там блог ведется)) и решил почистить инет от говна))

Исходный код программы представлен ниже:

четверг, 10 мая 2012 г.

Drupal 7 services user.login user.logout (XML-RPC)

user.login
POST
URL Resources(пример):http://localhost/application

<?xml version="1.0"?>
<methodCall>
   <methodName>user.login</methodName>
   <params>
     <param>
        <value><string>test</string></value>
     </param>
    <param>
        <value><string>123</string></value>
     </param>
   </params>
</methodCall>

user.logout
GET
URL: http://localhost/7bots/user/logout

понедельник, 23 апреля 2012 г.

OnClick WebBrowser

Автор: James D. Rofka
 
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, OleCtrls, SHDocVw;

type
  TForm1 = class(TForm)
    WebBrowser1: TWebBrowser;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  protected
    procedure MyMessages(var Msg: TMsg; var Handled: Boolean);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  Application.OnMessage := MyMessages;
end;

procedure TForm1.MyMessages(var Msg: TMsg; var Handled: Boolean);
var
  X, Y: Integer;
  document, E: OleVariant;
begin
  Handled := False;
  if (WebBrowser1 = nil) or (Msg.message <> WM_LBUTTONDOWN) then
    Exit;

  Handled := IsDialogMessage(WebBrowser1.Handle, Msg);

  if (Handled) then
  begin
    case (Msg.message) of
      WM_LBUTTONDOWN:
        begin
          X := LOWORD(Msg.lParam);
          Y := HIWORD(Msg.lParam);
//          document := WebBrowser1.document;
//          E := document.elementFromPoint(X, Y);
          ShowMessage('You clicked on:' + #10);// + E.outerHTML);
        end;
    end;
  end;
end;

пятница, 6 апреля 2012 г.

Ошибка Item not found при запуске Delphi XE

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


Можно полностью отключить отображение раздела библиотек из навигационной панели проводника Windows. Для того чтобы это сделать, выполните следующие действия:
Откройте редактор реестра;
Перейдите в раздел HKEY_CLASSES_ROOT\CLSID\{031E4825-7B94-4dc3-B131-E946B44C8DD5}\ShellFolder;
Нажмите правой кнопкой мыши на названии раздела ShellFolder и в контекстном меню выберите команду «Разрешения»;
В диалоговом окне «Разрешения для группы «ShellFolder»» перейдите на группу Администраторы и дайте ей полный доступ;
Щелкните два раза левой кнопкой мыши на параметре Attributes для изменения значения и измените значение с b080010d на b090010d.
Закройте редактор реестра и перезапустите процесс explorer.exe.

Переустанавливал W и при установке среды Delphi XE возникла ошибка, эта же причиной была не стандартная папка Temp в переменных среды. Необходимо просто открыть доступ пользователя к ней и все нормально работает)))
При изменении значений  с b080010d на b090010d начинает тормозить отладчик!

воскресенье, 22 января 2012 г.

GIF с прозрачным фоном в BMP (Delphi)

var
  gif:TGIFImage;
  i:Integer;
begin
  gif:=TGIFImage.Create;
  gif.Transparent:=True;
  gif.LoadFromFile('c:\1\2.gif');
  for i := 0 to gif.Images.Count-1 do
  begin
    with GIF.Images[i] do
      if (Transparent) then
      begin
        ActiveColorMap[GraphicControlExtension.TransparentColorIndex] := clWhite;
        GIF.Images[i].Bitmap.SaveToFile('c:\1\'+inttostr(i)+'.bmp');
      end;
  end;
  gif.Free;

анимированные изображения разбивает на кадры