NMDSOFT

SKYPE4COMLib

2015-06-12T10:01:00.003-07:00

Исключительная ситуация возникающая при подключении SKYPE4COMLib, хотя COM библиотека была зарегистрирована.

An unhandled exception of type 'System.Runtime.InteropServices.COMException' occurred in mscorlib.dll

Additional information: Не удалось получить фабрику класса COM для компонента с CLSID {830690FC-BF2F-47A6-AC2D-330BCB402664} из-за следующей ошибки: 80040154 Класс не зарегистрирован (Исключение из HRESULT: 0x80040154 (REGDB_E_CLASSNOTREG)).

Решение:
Целевую платформу устанавливаем у проекта x86.

Locate32 делаем поисковиком по умолчанию в Windows 7

2014-12-06T14:11:00.003-08:00

Заходим в настройки программы Locate32
Утилиты-Настройки-Горячие клавиши-F3
Нажимаем кнопку "Еще" (Комбинации клавиш).
В открывшемся окне в поле "Место нажатия - Класс:" в самое начало добавляем WorkerW и |
Получаем: WorkerW|ExploreWClass|CabinetWClass|Progman

Делаем скрин элемента в WebBrowser на C#

2014-10-01T08:42:00.003-07:00

Делаем скрин элемента в WebBrowser с помощью GDI.
При использовании стандартного метода бывают лаги в работе, данный класс работает отлично.
Сделал очень маленький допил:
Добавил, что если элемент во фрейме добавляем смещения полученные функциями getXoffset и getYoffset к смещению элемента.

using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.Runtime.InteropServices;
using System.Drawing;
using System.Windows.Forms;
using System.Threading;


namespace WebBrowserGetImage
{
    class HTMLImageCap
    {
           [StructLayout(LayoutKind.Sequential)]
    private struct RECT
    {
        public int left;
        public int top;
        public int right;
        public int bottom;
    }
    //use win32 api
    private class Gdi32
    {
        [DllImport("gdi32.dll")]
        public static extern bool BitBlt(IntPtr hObject, int nXDest, int nYDest, int nWidth, int nHeight, IntPtr hObjectSource, int nXSrc, int nYSrc, int dwRop);
        [DllImport("gdi32.dll")]
        public static extern IntPtr CreateCompatibleBitmap(IntPtr hDC, int nWidth, int nHeight);
        [DllImport("gdi32.dll")]
        public static extern IntPtr CreateCompatibleDC(IntPtr hDC);
        [DllImport("gdi32.dll")]
        public static extern bool DeleteDC(IntPtr hDC);
        [DllImport("gdi32.dll")]
        public static extern bool DeleteObject(IntPtr hObject);
        [DllImport("gdi32.dll")]
        public static extern IntPtr SelectObject(IntPtr hDC, IntPtr hObject);
    }

    private static class User32
    {
        [DllImport("user32.dll")]
        public static extern IntPtr GetDesktopWindow();
        [DllImport("user32.dll")]
        public static extern IntPtr GetWindowDC(IntPtr hWnd);
        [DllImport("user32.dll")]
        public static extern IntPtr GetWindowRect(IntPtr hWnd, ref RECT rect);
        [DllImport("user32.dll")]
        public static extern IntPtr ReleaseDC(IntPtr hWnd, IntPtr hDC);
    }

    //define constants
    private const int SRCCOPY = 13369376;
    private const int LOOPTIMES = 40;
    private const int SLEEPTIME = 100;

    /*private*/ public static int getXoffset(HtmlElement he)
    {
        //get element pos
        int xPos = he.OffsetRectangle.Left;

        //get the parents pos
        HtmlElement tempEl = he.OffsetParent;
        while (tempEl != null)
        {
            xPos += tempEl.OffsetRectangle.Left;
            tempEl = tempEl.OffsetParent;
        }

        return xPos;
    }

    /*private */public static int getYoffset(HtmlElement he)
    {
        //get element pos
        int yPos = he.OffsetRectangle.Top;

        //get the parents pos
        HtmlElement tempEl = he.OffsetParent;
        while (tempEl != null)
        {
            yPos += tempEl.OffsetRectangle.Top;
            tempEl = tempEl.OffsetParent;
        }

        return yPos;
    }

    private static Image captureWindow(IntPtr handle, int x, int y, int width, int height)
    {

        IntPtr hdcSrc = User32.GetWindowDC(handle);

        RECT windowRect = new RECT();
        User32.GetWindowRect(handle, ref windowRect);
        IntPtr hdcDest = Gdi32.CreateCompatibleDC(hdcSrc);
        IntPtr hBitmap = Gdi32.CreateCompatibleBitmap(hdcSrc, width, height);

        IntPtr hOld = Gdi32.SelectObject(hdcDest, hBitmap);
        Gdi32.BitBlt(hdcDest, 0, 0, width, height, hdcSrc, x, y, SRCCOPY);
        Gdi32.SelectObject(hdcDest, hOld);
        Gdi32.DeleteDC(hdcDest);
        User32.ReleaseDC(handle, hdcSrc);
        Image img = Image.FromHbitmap(hBitmap);
        Gdi32.DeleteObject(hBitmap);
        return img;
    }
  
  //сделал допил, что если элемент во фреме, прибавляем и его смещения
    public static Image getImage(WebBrowser wb, HtmlElement he, int FramesOffsetX, int FramesOffsetY)
    {
        //get original scroll position
        int docY = wb.Document.GetElementsByTagName("HTML")[0].ScrollTop;
        int docX = wb.Document.GetElementsByTagName("HTML")[0].ScrollLeft;

        //scroll to view element
        wb.Document.Window.ScrollTo(getXoffset(he), getYoffset(he));
        int heY = getYoffset(he) - wb.Document.GetElementsByTagName("HTML")[0].ScrollTop;
        int heX = getXoffset(he) - wb.Document.GetElementsByTagName("HTML")[0].ScrollLeft;
        int heWidth = he.OffsetRectangle.Width;
        int heHeight = he.OffsetRectangle.Height;
        heX += FramesOffsetX;
        heY += FramesOffsetY;
        Image img = captureWindow(wb.Handle, heX, heY, heWidth, heHeight);
        //scroll back tooriginal position
        wb.Document.Window.ScrollTo(docX, docY);
        return img;

    }
    }
}

Вызов функции

Image i = HTMLImageCap.getImage(webBrowser1, htmlElement, frOffsetX, frOffsetY);

Первоначальный вариант класса был взят с сайта

Получение изображения из WebBrowser на C#

2014-09-28T05:13:00.001-07:00

Реально рабочий пример получения изображения из WebBrowser на C#.

using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Linq;
using System.Text;
using System.Windows.Forms;
 
namespace WebBrowserGetImage
{
 public partial class Form1 : Form
 {
  public Form1()
  {
    InitializeComponent();
  }

  private void button1_Click(object sender, EventArgs e)
  {
   HtmlDocument htmlDocument = this.webBrowser1.Document;
   HtmlElementCollection htmlElementCollection = htmlDocument.Images;
   foreach (HtmlElement htmlElement in htmlElementCollection)
   {
    string imgUrl = htmlElement.GetAttribute("src");
    if (imgUrl.StartsWith("https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjii4LsueWMRchpnjU2_-GGB05hF0ps3o-FCM0xocku_menSHqhEmDGh07Vr5nzonvZzFt_GmSEkyNEwocFk6R6eq5fvMnZqTyN5qi0HJclMDvcXP2fwYAiolJZDQrXUddlHYyYnd67tVZx/s1600/OpenVPN.png"))
    {
     this.pictureBox1.ImageLocation = imgUrl;
    }
   }
  }

  private void Form1_Load(object sender, EventArgs e)
  {
    webBrowser1.Navigate("http://nmdsoft.blogspot.ru/");
  }
 }
}

Спасибо автору!

Создание локальной сети через интернет между двумя ПК (OpenVPN)

2014-05-28T08:23:00.000-07:00

Качаем OpenVPN
Устанавливаем. (Устанавливал всё)
Заходим в Пуск- OpenVPN-Utilities-Generate a static OpenVPN key (Обязательно с правами администратора, иначе просто не хватит прав на создание файла в папке Program files)

Это мы создали ключ, который будет находиться в папке C:\Program Files\OpenVPN\config
имя ключа по умолчанию key.txt

Копируем файл из папки C:\Program Files\OpenVPN\sample-config\server.ovpn и client.ovpn

в папку C:\Program Files\OpenVPN\config\.

Открываем скопированные файлы блокнотом.

Конфигурация для сервера:
dev tun
proto udp

ifconfig 192.168.0.1 192.168.0.2
push "route-gateway 192.168.0.2"
route 192.168.0.0/24 255.255.255.0 <IP адрес роутера> gw

comp-lzo
keepalive 10 120
ping-timer-rem
secret <Имя файла ключа> (пример key.txt должен находиться рядом с файлом конфигурации)

Конфигурация для клиента:

remote <внешний IP сервера или адрес no-ip или аналогичного сервиса > 1194 (1194 - порт по умолчанию, через пробел)
dev tun
proto udp

ifconfig 192.168.0.2 192.168.0.1

comp-lzo
keepalive 10 120
ping-timer-rem

route 192.168.1.0 255.255.255.0
secret <Имя файла ключа> (пример key.txt должен находиться рядом с файлом конфигурации)

Передаем файл ключа и настроенную конфигурацию клиенту(он тоже должен установить OpenVPN в соответствии с его ОС)

Запускаем у себя конфигурацию сервера через OpenVPN GUI, а точнее через иконку в трее.
Клиент запускает свою конфигурацию, в случае если все хорошо, монитор на иконке станет зеленого цвета.

Желаю удачи!

Хранимая процедура и параметры IN и OUT массив и массив записей соотвественно (ORACLE)

2014-04-24T07:13:00.000-07:00

Необходимо было сделать хранимую процедуру для ORACLE.
По началу показалось делов-то, но потом выяснилось, что у Оракла есть несколько типов массивов:

1. VARRAYS - фиксированной длины
2. PL/SQL- таблицы INDEX BY BINARY_INTEGER ( Ассоциативный массив)
3. Nested Tables
Мне необходимо было реализовать процедуру, используя последний тип массива т.е. Nested Tables.

Изначально все было прекрасно, т.к. я использовал в разработке процедуры ассоциативный массив, оказалось у него есть несколько плюшечек, а может и не плюшек, но удобно. Оказалось, что ассоциативные массивы нет необходимости инициализировать и расширять в процессе их использования.
Когда, я познал эту вещь пришлось заменять тип данных используемых в процедуре на необходимый нам Nested Tables. И тут началось)))
Оракл постоянно матерился то на размер, то на то, что переменная не инициализирована, мозг просто взрывался...

Что делать? Извечный вопрос, но тут уже, ни кто кроме нас, не сделает, сработало))

Сел. Подумал. И давай рыть интернет. Информации просто гора, только в основном примеры элементарные.

В общем вот, что у меня получилось!
/*пакет*/
CREATE OR REPLACE PACKAGE test_pack IS

    TYPE T_TestRecord IS RECORD ( v_Test VARCHAR2(20), n_Test number);

    TYPE T_TestRecords IS TABLE OF T_TestRecord INDEX BY BINARY_INTEGER;

    TYPE T_TestRecords2 IS TABLE OF T_TestRecord;

    PROCEDURE TestProcedure(pTest1 IN T_TestRecords, pTest2 out T_TestRecords2);

END test_pack;

/*тело пакета*/
CREATE OR REPLACE PACKAGE BODY test_pack
AS
BEGIN
/*процедура*/
PROCEDURE TestProcedure(pTest1 IN T_TestRecords, pTest2 out T_TestRecords2)
    as
    BEGIN
        if pTest1.count=0 then
            return;
        end if;
        /*инициализировал тут по той причине, что в случае возникновения исключительной
        ситуации необходимо было занести значения в массив по конкретному запросу */
        pTest2:=T_TestRecords2();
        pTest2.extend(pTest1.count);

        for i in 1..pTest1.count loop
            /*тут производятся манипуляции с данными
            в итоге типа вот такого))*/
            if pTest1(i)='hi' then
                pTest2(i).v_Test:='YES';
                pTest2(i).n_Test:=1;
            else
                pTest2(i).v_Test:='NO';
                pTest2(i).n_Test:=0;
            end if;
        end loop;
    END;
END test_pack;

/*вызов хранимой процедуры*/
DECLARE
    testArray test_pack.T_TestRecords := test_pack.T_TestRecords();
    testArray2 test_pack.T_TestRecords2;
begin
    testArray1.extend(2);
    testArray1(1):='hi';
    testArray1(2):='nohi';

    test_pack.Nested Tables(testArray,testArray2);

    for i in 1 ..testArray2.count
    loop
        dbms_output.put_line(testArray2(i).v_Test);
        dbms_output.put_line(TO_CHAR(testArray2(i).n_Test));
    end loop;

end;

Все работает прекрасно!
Спасибо за внимание!

Gom player ошибка при закрытии программы.

2014-04-20T01:11:00.001-07:00

При закрытии плеера Gom возникает ошибка со следующим текстом:
Эта программа требует flash.ocx, уже не включенное в данную версию windows или
Gom эта программа требует отсутствующий компонент

Причина в отсутствии файла flash.ocx в папке C:\Windows\System32\Macromed\Flash

Решение:
Устанавливаем Flash плеер для браузера IE
http://get.adobe.com/ru/flashplayer/otherversions/

Выбираем версию ОС и браузер IE. (В левом нижнем углу)

После установки появление данной ошибки больше не наблюдалось

Программа установки не может скопировать файл kmk04810.md

2013-08-22T23:12:00.001-07:00

В процессе установки драйвера для Kyocera TaskAlfa 221 возникала следующая ошибка:
Программа установки не может скопировать файл kmk04810.md

Необходимо установить сертификат файла kyomita.cat и все установится нормально.

ADO фильтрация данных с именем столбца содержащим пробелы

2013-07-13T23:47:00.000-07:00

Имеем запрос к таблице следующего вида:
SELECT
ID_Task as 'ID', Text_task as 'Задачи',
Term_task as 'Выполнить до:'
from Task

Необходимо отфильтровать данные, но если написать в фильтре
filter:='Выполнить до: LIKE '+ QuotedStr(DateToStr(Now));
это приведет к возникновению исключительной ситуации, и вызову диалогового окна с описанием, изображенного на рисунке 1.

Рисунок 1 - Скрин диалогового окна с описанием исключительной ситуации

Необходимо взять название столбца в квадратные скобки [ ].

После внесения изменений, получится следующее выражение:
filter:='[Выполнить до:] LIKE '+ QuotedStr(DateToStr(Now));

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

Раскрытие выпадающего списка в cxLookupComboBox

2013-05-21T05:21:00.000-07:00

procedure <FORM_NAME>.cxLookupComboBox1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
cxLookupComboBox1.DroppedDown:=True;
end;

Можно и в другие события вставить.

Exception class EInvalidOperation with message 'Cannot make a visible window modal'.

2013-05-21T04:59:00.000-07:00

В свойствах формы сделайте Visible равным False.

MasterData фиксированное количество строк

2013-05-20T09:38:00.001-07:00

Имеем
MasterData1

Добавляем еще один MasterData (MasterData2), в диспетчере свойств, устанавливаем свойство Visible в False, на случай если строк в MasterData1 и так будет достаточно.

Получаем
MasterData1
MasterData2
В MasterData2 делаем пустую строку нашего MasterData.
В обработчике события OnBeforePrint MasterData2 вставляем код:

procedure MasterData2OnBeforePrint(Sender: TfrxComponent);
var
  EmptyCount: integer;    
begin
  EmptyCount := 10-MasterData1.RowCount; //имеется в виду, что будет 10 строк постоянно
  if EmptyCount > 0 then
  begin
    MasterData2.Visible:=True;                                            
    MasterData2.RowCount := EmptyCount;
  end;
end;

Header в FastReport 4 не отображается перед MasterData

2013-05-20T09:23:00.002-07:00

Имеем:

Header1
MasterData1

Как вариант положите перед этим Header1 еще один MasterData2 в котором будут данные всегда и сделайте его невидимым. Header1 теперь будет виден у вас в независимости от того есть ли данные в MasterData1.

Результат:

Header1
MasterData2
MasterData1

Error Class TfrxCheckboxView not found

2013-05-20T00:23:00.000-07:00

Бросьте в проект компонент frxCheckBoxObject или подключите файл frxChBox.pas к проекту в ручную.

IBExpert приятные моменты))

2013-05-16T11:50:00.000-07:00

Неприятное сообщение в IBExpert:

This operation is not defined for system tables. unsuccessful metadata update. cannot delete

Данное сообщение возникло в процессе попытки удаления поля, и было весьма неприятно и не понятно с чем оно связано. Из внешних ключей удалил, но поле активно сопротивлялось моим действиям. Оказалось, что IBExpert проверяет использование полей не только в связях с другими таблицами, но так же идет проверка в триггерах и процедурах.

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

Спасибо разработчикам IBExpert за их прекрасный инструмент!

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

2012-09-19T01:33:00.002-07:00

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

Лист из инструкции

Java SE Downloads глюк

2012-09-10T02:49:00.000-07:00

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

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

2012-07-09T11:12:00.001-07:00

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

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

unit untMain;

interface

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

type
TfrmMain = class(TForm)
    btnAutorize: TButton;
    edtLogin: TEdit;
    edtPass: TEdit;
    edtCount: TEdit;
    lblLogin: TLabel;
    lblPass: TLabel;
    lblCount: TLabel;
    mmoLog: TMemo;
    lblLog: TLabel;
    edtAutor: TEdit;
    procedure btnAutorizeClick(Sender: TObject);
private
    { Private declarations }
public
    { Public declarations }
end;

const
    sUrl='http://mblogi.qip.ru/api/recv?method=';

var
frmMain: TfrmMain;

implementation
uses
msxml, superobject,IdURI;
{$R *.dfm}

procedure TfrmMain.btnAutorizeClick(Sender: TObject);
var
req: IXMLHttpRequest;
o: ISuperObject;
sSid,sMsgId,sTemp:string;
jsobArray:TSuperArray;
Pairs: TSuperEnumerator;

begin
req := CoXMLHTTP.Create;
try
    //авторизация
    req.open('GET', sUrl+'mblogi.auth.getsid&params={"user":"'+edtLogin.Text+'","password":"'+edtPass.Text+'"}', false, EmptyParam, EmptyParam);
    req.send(EmptyParam);
    sTemp:=req.responseText;
    if AnsiPos('NOT_AUTH_SES_CLOSE',sTemp)<>0 then
    begin
      mmoLog.Lines.Add('Ошибка при авторизации!');
      raise Exception.Create('Не верный логин или пароль!');
    end;
    mmoLog.Lines.Add('Авторизация прошла успешно!');
    o := so(sTemp);
    sSid:=o.S['Sid'];
    //получаем посты
    req.open('GET',TIdURI.URLEncode( sUrl+'mblogi.timeline.user&params={"Sid":"'+ sSid+'","or user":"","count":"'+edtCount.Text+'"}'), false, EmptyParam, EmptyParam);
    req.send(EmptyParam);
    o := so(req.responseText);
    Pairs:=o.GetEnumerator;
    while Pairs.MoveNext do
    begin
      sMsgId:=Pairs.Current.S['msg_id'];
      //удаляем посты
      req.open('GET',TIdURI.URLEncode( sUrl+'mblogi.message.destroy&params={"Sid":"'+ sSid+'","MsgID":"'+sMsgId+'"}'), false, EmptyParam, EmptyParam);
      req.send(EmptyParam);
      mmoLog.Lines.Add('Сообщение №'+Pairs.Current.S['msg_id']+' удалено!');
    end;
finally
    Pairs.Free;
end;
mmoLog.Lines.Add('Задача завершена успешно!');
Application.MessageBox('Сообщения успешнно удалены.', 'Информация', MB_OK +
    MB_ICONINFORMATION);
end;

end.

Для тех кто не программист, можно скопировать готовую программу.
Пароли и логины не ворую можете проверить сниффером. Связь только происходит с сервером mblogi.qip и все.

Контрольные суммы:
MD5:AD8DC7B7C211BB00F950FBBF3B25CDE9
SHA-1:4842EABD7DFD465BF3E2574D5DED8D0CEFA33B6A
SHA-256:6f67bf720348c131db52a76463c8df4b89a9a08082f4004fd997ed032c62bdb9

Отчет Virustotal
Скачать программу можно отсюда Download

Эта операция была прервана из-за ограничений наложенных на данный компьютер. Обратитесь к системному администратору.

2012-06-16T03:07:00.000-07:00

Исправление
http://support.microsoft.com/?kbid=310049

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

2012-05-10T09:04:00.000-07:00

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

OnClick WebBrowser

2012-04-23T08:42:00.000-07:00

Автор: 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;

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

2012-04-06T04:47:00.001-07:00

Ошибка возникает когда изменены переменные среды в 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 начинает тормозить отладчик!

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

2012-01-22T21:36:00.000-08:00

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;

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

Fast Dial 3.4 Mozilla 5.0

2011-07-05T06:58:00.000-07:00

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

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

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

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

2011-04-06T02:09:00.000-07:00

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