create or alter procedure GetBackup (
    ADatabase varchar(512) character set utf8 = null, -- путь к базе; если пусто, то текущая
    ABlockSize bigint = 0, -- разбивать результат на блоки по ABlockSize байт; если 0, то вернуть всё одной записью
    RestoreIt boolean = false, -- восстановить бэкап
    ArchiveIt boolean = false -- упаковать архиватором (7-zip)
) returns (Data blob)
external name 'BackupHelper!getbackup' engine udr

select Data from GetBackup; -- сделать бэкап текущей базы и вернуть содержимое бэкапа одним блобом
select Data from GetBackup(null, 1000000, true, true); -- сделать бэкап текущей базы, потом рестор, потом упаковать и вернуть упакованное записями по 1000000 байт.

execute ibeblock
as
begin
  ibec_SaveToFile('D:\Data.7z', '', __stfOverwrite);
  for select Data from GetBackup(null, 1000000, true, true) into :Data do
  begin
    ibec_SaveToFile('D:\Data.7z', :Data, __stfAppend);
  end
end

execute ibeblock
as
begin
  ibec_SaveToFile('D:\Data.fbk', '', __stfOverwrite);
  for select Data from GetBackup(null, 1000000, false, false) into :Data do
  begin
    ibec_SaveToFile('D:\Data.fbk', :Data, __stfAppend);
  end
end

execute ibeblock
as
begin
  ibec_SaveToFile('D:\Data.fdb', '', __stfOverwrite);
  for select Data from GetBackup(null, 1000000, true, false) into :Data do
  begin
    ibec_SaveToFile('D:\Data.fdb', :Data, __stfAppend);
  end
end

  BlobParameterBlock := AnsiChar(isc_bpb_version1) + AnsiChar(isc_bpb_storage) + AnsiChar(1) + AnsiChar(isc_bpb_storage_temp);
  OutBlob := Attachment.createBlob(Status, Transaction, @FOutMessage.Data, Length(BlobParameterBlock), Pointer(PAnsiChar(BlobParameterBlock)));

backup-cgi-bin.sh

gbak db stdout | 7z stdin stdout

execute ibeblock
as
begin
  ibec_SaveToFile('D:\Data.7z', '', __stfOverwrite);
  for select Data from GetBackup(null, 1000000, true, true) into :Data do
  begin
    ibec_SaveToFile('D:\Data.7z', :Data, __stfAppend);
  end
end