Оптимизация работы с Excel-файлами в приложениях на Delphi: чтение и запись данных без доступа к файлам клиента

Delphi , Базы данных , База данных

Оптимизация работы с Excel-файлами в приложениях на Delphi: чтение и запись данных без доступа к файлам клиента

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

Шаг 1: Подготовка компонентов

Для начала работы с Excel-файлами в базе данных на Delphi, вам потребуется подключить компоненты TOleContainer и TOleContainerFileIO. Эти компоненты позволяют работать с Excel-файлами как с объектами OLE, не обращаясь напрямую к файлам на диске.

Шаг 2: Загрузка файла из базы данных

Используйте класс TOleContainerFileIO для загрузки Excel-файла из базы данных в TOleContainer. Код загрузки файла следующий:

fOleContainerFileIO.LoadFileFromDB(tExcelDB, 'XLSFile');

Шаг 3: Модификация данных

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

Шаг 4: Сохранение изменений в базе данных

После внесения изменений в файл, сохраните его обратно в базу данных с помощью метода SaveFileToDb класса TOleContainerFileIO.

fOleContainerFileIO.SaveFileToDb;

Пример кода для TOleContainerFileIO:

unit uOleContainerFileIO;

// ... (используемые модули, типы, реализация)

constructor TOleContainerFileIO.create(AOwner: TComponent; AContainer: TOleContainer);
begin
  inherited create(AOwner);
  fContainer := AContainer;
end;

function TOleContainerFileIO.Active: boolean;
begin
  result := ((fDataset.Active) and (fContainer <> nil));
end;

procedure TOleContainerFileIO.LoadFileFromDB(ADataset: TDataSet; const ABlobFieldname: string);
var
  fs: TFileStream;
  bs: TStream;
begin
  // ... (код загрузки файла из BLOB поля)
end;

procedure TOleContainerFileIO.SaveFileToDb;
var
  fs: TFileStream;
  bs: TStream;
begin
  // ... (код сохранения файла в BLOB поле)
  fContainer.OldStreamFormat := true;
  fContainer.SaveAsDocument(fTempfilename);
  // ... (код записи файла обратно в BLOB поле базы данных)
end;

end.

Важно: Не забудьте обработать возможные исключения в процессе работы с TOleContainerFileIO.

Пример формы с использованием TOleContainerFileIO:

unit uMainForm;

// ... (используемые модули, тип формы)

type
  TForm1 = class(TForm)
  // ... (компоненты формы)
  private
    fOleContainerFileIO: TOleContainerFileIO;
  public
  end;

// ... (реализация формы)

procedure TForm1.FormShow(Sender: TObject);
begin
  tExcelDB.open;
  fOleContainerFileIO := TOleContainerFileIO.create(self, OleContainer1);
end;

procedure TForm1.LoadWorksheetfromDB1Click(Sender: TObject);
begin
  fOleContainerFileIO.LoadFileFromDB(tExcelDB, 'XLSFile');
end;

procedure TForm1.SaveWorksheettoDB1Click(Sender: TObject);
begin
  fOleContainerFileIO.SaveFileToDb;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  fOleContainerFileIO.free;
end;

end.

Обратите внимание: Для использования примера кода вам потребуется подключить соответствующие компоненты и изменить настройки подключения к базе данных в файле .DFM.

Выводы:

Использование TOleContainer и TOleContainerFileIO позволяет работать с Excel-файлами, хранящимися в базе данных, без необходимости сохранения их на клиентских машинах. Это повышает безопасность и удобство использования приложения, так как клиенты не имеют доступа к файлам напрямую.

Создано по материалам из источника по ссылке.

Описание контекста: Необходимо реализовать чтение и запись данных в Excel-файлы, расположенные на сервере, без доступа к ним со стороны клиента, используя приложение на Delphi.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: База данных ::