Monthly Archives: June 2016

Как избавиться от зависимости от глобальных переменных при разработке компонента?

Posted on 24.06.2016 by Stanislav_Panteleev

Столкнулся с тем, что при разработке компонентов есть published свойства, в которые заносится некоторая информация. И вот вопрос – как передать эту информацию во внутренний модуль компонента? Подробно проблему описал на 2 форумах –How to avoid using GlobalVars in components … Continue reading →

Posted in Delphi | Comments Off

Delphi.Ribbons. Пример программного добавления вкладки

Posted on 19.06.2016 by Stanislav_Panteleev

Сохраняю здесь, так как может понадобиться в будущем

//----------------------Пример программного создания вкладки--------------------

procedure TMainForm.sbMainBottomStatusBarClick(Sender: TObject);
var 
  RibbonPage:TRibbonPage;
begin
 RibbonPage:=TRibbonPage.Create(Self);
 RibbonPage.Parent:=MainRibbon;
 RibbonPage.Caption:='Новая вкладка Риббона';
 MainRibbon.AddTab(RibbonPage);
 RibbonPage.Show;
end;

//------------------------------------------------------------------------------

//----------------------Пример программного создания вкладки--------------------

procedure TMainForm.sbMainBottomStatusBarClick(Sender: TObject);

var

RibbonPage:TRibbonPage;

begin

RibbonPage:=TRibbonPage.Create(Self);

RibbonPage.Parent:=MainRibbon;

RibbonPage.Caption:='Новая вкладка Риббона';

MainRibbon.AddTab(RibbonPage);

RibbonPage.Show;

end;

//------------------------------------------------------------------------------

Результат

Posted in Delphi, Ribbons | Comments Off

В чем разница между identifying and non-identifying relationships?

Posted on 15.06.2016 by Stanislav_Panteleev

Теперь, собственно попробуем наладить взаимосвязи! Но прежде, разберемся с пунктирными и непунктирными линиями во взаимосвязях Классные объяснения на английском находятся здесь. Больше всего мне понравилось вот это объяснение A book belongs to an owner, and an owner can own … Continue reading →

Posted in MySQL | Comments Off

MySQL. InnoSetup. “Тихая установка”. Добавляем Uninstall MySQL сервера при деинсталляции основной программы

Posted on 07.06.2016 by Stanislav_Panteleev

Чтобы добавить возможность деинсталляции MySQL сервера при деинсталляции основной программы, нужно в код InnoSetup добавить следующую инструкцию

[UninstallRun]
Filename: msiexec; Parameters: "/i ""{app}\mysql-5.5.23-winx64.msi "" "

1 2	[UninstallRun] Filename: msiexec; Parameters: "/i ""{app}\mysql-5.5.23-winx64.msi "" "

Код целиком, будет выглядеть следующим образом, он включает в себя инсталляцию основной программы, инсталляцию сервера базы данных и его конфигурирование, и его … Continue reading →

Posted in InnoSetup, MySQL | Comments Off

MySQL. InnoSetup. “Тихая установка”. Загрузка своей базы данных при инсталляции

Posted on 06.06.2016 by Stanislav_Panteleev

Продолжаю прошлую тему – устанавливать “тихо” MySQL сервер мы научились. Что дальше? В данном посте посмотрим как при инсталляции сервера MySQL добавить в него свою базу данных. Для этого нам нужен собственно дамп базы, далее нужно дать команду серверу, после … Continue reading →

Posted in InnoSetup, MySQL | Comments Off

MySQL. “Тихая” установка при помощи InnoSetup

Posted on 06.06.2016 by Stanislav_Panteleev

Когда нужна тихая установка? Например, при установке своей программы, которая опирается на базу данных, например, на mysql. Разберем пример тихой установки 64 битного сервера MySQL в директорию C:\mysql. Импорт базы данных разберем в следующем посте. Работать в основном будем с … Continue reading →

Posted in Delphi, InnoSetup, MySQL | Comments Off

Delphi. TRichView. Как вставить картинку и программно изменить её размеры в документе?

Posted on 05.06.2016 by Stanislav_Panteleev

На примере SrichViewEdit (ScaleRichViewEdit)

uses ... RVGrHandler ...
...
    gr:=TGraphic.Create;
    gr := RVGraphicHandler.LoadFromFile(fMediaLoader_Inherited.LastUploaded.FilePath);
...

    SRichViewEdit1.ConvertToPixels;// Измерять будем в пикселях

    with SRichViewEdit1.ActiveEditor do
      begin
      BeginUpdate;

       TopLevelEditor.BeginUndoGroup(rvutInsert);
       TopLevelEditor.SetUndoGroupMode(True);

        if  InsertPicture('', gr, rvvaBaseline)
          then begin
          SetCurrentItemExtraIntProperty(rvepImageWidth, 200, True);
          SetCurrentItemExtraIntProperty(rvepImageHeight, 300, True);
          end;

          TopLevelEditor.SetUndoGroupMode(False);
          EndUpdate;

      end;
...

uses ... RVGrHandler ...

...

gr:=TGraphic.Create;

gr := RVGraphicHandler.LoadFromFile(fMediaLoader_Inherited.LastUploaded.FilePath);

...

SRichViewEdit1.ConvertToPixels;// Измерять будем в пикселях

with SRichViewEdit1.ActiveEditor do

begin

BeginUpdate;

TopLevelEditor.BeginUndoGroup(rvutInsert);

TopLevelEditor.SetUndoGroupMode(True);

if InsertPicture('', gr, rvvaBaseline)

then begin

SetCurrentItemExtraIntProperty(rvepImageWidth, 200, True);

SetCurrentItemExtraIntProperty(rvepImageHeight, 300, True);

end;

TopLevelEditor.SetUndoGroupMode(False);

EndUpdate;

end;

...

Posted in Delphi, TRichView | Comments Off

Delphi. TRichView. Как записать контрол в базу и прочитать его оттуда?

Posted on 04.06.2016 by Stanislav_Panteleev

Код для примера, без обработки ошибок. Предполагается, что подключение у нас уже создано в отдельном модуле и на форме добавлен компонент FDQuery. Также в базе создано BLOB поле. Запись в базу через поток MemoryStream

procedure TMainForm.bTestClick(Sender: TObject);
var

 ms:tmemortStream; 
 wmp: TWindowsMediaPlayer;

begin

ms:=tmemorystream.Create;
ms.position:=0;

FDQuery.Connection:=DBConnection.FDConnection;

//Создаем и вставляем контрол
wmp:=TWindowsMediaPlayer.Create(Self);
RichViewEdit1.InsertControl('',wmp,rvvaBaseline);

//Готовим поток
ms.Clear;
ms.Position:=0;

//Записываем в него
RichViewEdit1.SaveRVFToStream(ms,false);
ms.Position:=0;

//Чистим базу
FDQuery.SQL.Text:='delete from test_db.htmltable where id>1;';
FDQuery.ExecSQL;

FDQuery.SQL.Text:='SELECT * FROM test_db.htmltable;';
FDQuery.Open();

// Вставка в базу
FDQuery.Insert;
TBlobfield(FDQuery.FieldByName('Blobfield')).LoadFromStream(MS);
FDQuery.Post;

Freeandnil(ms);

end;

procedure TMainForm.bTestClick(Sender: TObject);

var

ms:tmemortStream;

wmp: TWindowsMediaPlayer;

begin

ms:=tmemorystream.Create;

ms.position:=0;

FDQuery.Connection:=DBConnection.FDConnection;

//Создаем и вставляем контрол

wmp:=TWindowsMediaPlayer.Create(Self);

RichViewEdit1.InsertControl('',wmp,rvvaBaseline);

//Готовим поток

ms.Clear;

ms.Position:=0;

//Записываем в него

RichViewEdit1.SaveRVFToStream(ms,false);

ms.Position:=0;

//Чистим базу

FDQuery.SQL.Text:='delete from test_db.htmltable where id>1;';

FDQuery.ExecSQL;

FDQuery.SQL.Text:='SELECT * FROM test_db.htmltable;';

FDQuery.Open();

// Вставка в базу

FDQuery.Insert;

TBlobfield(FDQuery.FieldByName('Blobfield')).LoadFromStream(MS);

FDQuery.Post;

Freeandnil(ms);

end;

Чтение из базы через поток … Continue reading →

Posted in Без рубрики | Comments Off

Delphi.TRichView. Как сохранить контрол в поток данных и прочитать его оттуда?

Posted on 04.06.2016 by Stanislav_Panteleev

Рассмотрим на примере TWindowsMediaPlayer. Тут всё достаточно просто. Сохранять будем в поток, в дальнейшем этот поток можно передать в Blobstream и далее в базу, Для корректного чтения из потока нужно выполнить процедуру RegisterClass, чтобы TRichView понимал что это такое. В … Continue reading →

Posted in Delphi, TRichView | Comments Off

Delphi. Как сделать своё самое простое событие?

Posted on 03.06.2016 by Stanislav_Panteleev

Хороший пример создания событий есть на форуме. Попробую повторить, по аналогии, на примере загрузки файла в некоторую директорию. Класс, создающий событие Пусть у нас есть некоторый класс, внутри которого нужно создать событие. Например, класс формы загрузки файлов. Тогда внутри него мы … Continue reading →

Posted in Delphi | Comments Off

Monthly Archives: June 2016

Как избавиться от зависимости от глобальных переменных при разработке компонента?

Delphi.Ribbons. Пример программного добавления вкладки

В чем разница между identifying and non-identifying relationships?

MySQL. InnoSetup. “Тихая установка”. Добавляем Uninstall MySQL сервера при деинсталляции основной программы

MySQL. InnoSetup. “Тихая установка”. Загрузка своей базы данных при инсталляции

MySQL. “Тихая” установка при помощи InnoSetup

Delphi. TRichView. Как вставить картинку и программно изменить её размеры в документе?

Delphi. TRichView. Как записать контрол в базу и прочитать его оттуда?

Delphi.TRichView. Как сохранить контрол в поток данных и прочитать его оттуда?

Delphi. Как сделать своё самое простое событие?

MY PROJECTS

Recent Posts

Categories