Scribd
Upload
172 views2 pages

Blob Compression Delphi Source Code

This document defines a form (TfrmMain) that allows users to view and edit data from a database table (tVenues) containing venue information like name, capacity, map graphic, and remarks. It includes components like a data source (DataSource1), navigator (DBNavigator1), grid (DBGrid1), and fields to display the data. It also defines buttons and options to create a new database with the venue data copied over and compressed for size.

Uploaded by

Paul
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd
172 views2 pages

Blob Compression Delphi Source Code

This document defines a form (TfrmMain) that allows users to view and edit data from a database table (tVenues) containing venue information like name, capacity, map graphic, and remarks. It includes components like a data source (DataSource1), navigator (DBNavigator1), grid (DBGrid1), and fields to display the data. It also defines buttons and options to create a new database with the venue data copied over and compressed for size.

Uploaded by

Paul
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd

unit Main;

interface
{$I [Link]}

uses
{$IFDEF D6H}
Variants,
{$ENDIF}
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Spin, Grids, DBGrids, ExtCtrls, DBCtrls, DB, ABSMain,
ABSTypes;

const
DataBaseFileName: String = '..\..\Data\[Link]';

type
TfrmMain = class(TForm)
dbDemos: TABSDatabase;
tVenues: TABSTable;
tVenuesVenueNo: TAutoIncField;
tVenuesVenue: TStringField;
tVenuesCapacity: TIntegerField;
tVenuesVenue_Map: TGraphicField;
tVenuesRemarks: TMemoField;
DataSource1: TDataSource;
DBNavigator1: TDBNavigator;
DBGrid1: TDBGrid;
GroupBox1: TGroupBox;
Label3: TLabel;
btCreate: TButton;
GroupBox2: TGroupBox;
cbGraphicAlgorithm: TComboBox;
Label2: TLabel;
Label1: TLabel;
seGraphicMode: TSpinEdit;
Label4: TLabel;
GroupBox3: TGroupBox;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
cbMemoalgorithm: TComboBox;
seMemoMode: TSpinEdit;
GroupBox4: TGroupBox;
Label8: TLabel;
lbNewDbFileName: TLabel;
Label9: TLabel;
Label10: TLabel;
Label11: TLabel;
lbVenuesDBSize: TLabel;
VenuesDB: TABSDatabase;
tNewVenues: TABSTable;
DBImage1: TDBImage;
DBMemo1: TDBMemo;
procedure FormCreate(Sender: TObject);
procedure btCreateClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
frmMain: TfrmMain;

implementation

{$R *.dfm}

procedure [Link](Sender: TObject);


begin
[Link] := ExtractFilePath([Link]) +
DataBaseFileName;
[Link];
[Link];
[Link] := 2;
[Link] := 1;
end;

procedure [Link](Sender: TObject);


var
GraphicCompressionAlgorithm: TCompressionAlgorithm;
MemoCompressionAlgorithm: TCompressionAlgorithm;
f: TFileStream;
begin
GraphicCompressionAlgorithm :=
TCompressionAlgorithm([Link]);
MemoCompressionAlgorithm := TCompressionAlgorithm([Link]);
[Link];
[Link] := 512;
[Link] := 20;
[Link];
with tNewVenues do
begin
with AdvFieldDefs do
begin
Clear;
Add('VenueNo', aftAutoinc);
Add('Venue', aftString, 30);
Add('Capacity', aftInteger);
Add('Venue_Map', aftGraphic, 0, False, GraphicCompressionAlgorithm,
[Link]);
Add('Remarks', aftMemo, 0, False, MemoCompressionAlgorithm,
[Link]);
end;
CreateTable;
BatchMove(tVenues, bmtCopy);
end;
[Link];
[Link];
f := [Link]([Link], fmOpenRead or
fmShareDenyNone);
[Link] := IntToStr(Round([Link]/1024))+' Kb';
[Link];
[Link];
end;

end.

You might also like