Removed outdated 1.1 branch contents

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/branches/1.1@1331 b956fd51-792f-4845-bead-9b4dfca2ff2c

1 files changed, 0 insertions, 233 deletions

diff --git a/Game/Code/lib/SQLite/example/uTestSqlite.pas b/Game/Code/lib/SQLite/example/uTestSqlite.pas
deleted file mode 100644
index 6691fece..00000000
--- a/Game/Code/lib/SQLite/example/uTestSqlite.pas
+++ /dev/null
@@ -1,233 +0,0 @@
-unit uTestSqlite;

-

-interface

-

-uses

-  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

-  Dialogs, StdCtrls,SQLiteTable3, ExtCtrls, jpeg;

-

-type

-  TForm1 = class(TForm)

-    btnTest: TButton;

-    memNotes: TMemo;

-    Label1: TLabel;

-    Label2: TLabel;

-    ebName: TEdit;

-    Label3: TLabel;

-    ebNumber: TEdit;

-    Label4: TLabel;

-    ebID: TEdit;

-    Image1: TImage;

-    btnLoadImage: TButton;

-    btnDisplayImage: TButton;

-    procedure btnTestClick(Sender: TObject);

-    procedure btnLoadImageClick(Sender: TObject);

-    procedure btnDisplayImageClick(Sender: TObject);

-  private

-    { Private declarations }

-  public

-    { Public declarations }

-  end;

-

-var

-  Form1: TForm1;

-

-implementation

-

-{$R *.dfm}

-

-procedure TForm1.btnTestClick(Sender: TObject);

-var

-slDBpath: string;

-sldb: TSQLiteDatabase;

-sltb: TSQLIteTable;

-sSQL: String;

-Notes: String;

-

-begin

-

-slDBPath := ExtractFilepath(application.exename)

-+ 'test.db';

-

-sldb := TSQLiteDatabase.Create(slDBPath);

-try

-

-if sldb.TableExists('testTable') then begin

-sSQL := 'DROP TABLE testtable';

-sldb.execsql(sSQL);

-end;

-

-sSQL := 'CREATE TABLE testtable ([ID] INTEGER PRIMARY KEY,[OtherID] INTEGER NULL,';

-sSQL := sSQL + '[Name] VARCHAR (255),[Number] FLOAT, [notes] BLOB, [picture] BLOB COLLATE NOCASE);';

-

-sldb.execsql(sSQL);

-

-sldb.execsql('CREATE INDEX TestTableName ON [testtable]([Name]);');

-

-//begin a transaction

-sldb.BeginTransaction;

-

-sSQL := 'INSERT INTO testtable(Name,OtherID,Number,Notes) VALUES ("Some Name",4,587.6594,"Here are some notes");';

-//do the insert

-sldb.ExecSQL(sSQL);

-

-sSQL := 'INSERT INTO testtable(Name,OtherID,Number,Notes) VALUES ("Another Name",12,4758.3265,"More notes");';

-//do the insert

-sldb.ExecSQL(sSQL);

-

-//end the transaction

-sldb.Commit;

-

-//query the data

-sltb := slDb.GetTable('SELECT * FROM testtable');

-try

-

-if sltb.Count > 0 then

-begin

-//display first row

-

-ebName.Text := sltb.FieldAsString(sltb.FieldIndex['Name']);

-ebID.Text := inttostr(sltb.FieldAsInteger(sltb.FieldIndex['ID']));

-ebNumber.Text := floattostr( sltb.FieldAsDouble(sltb.FieldIndex['Number']));

-Notes :=  sltb.FieldAsBlobText(sltb.FieldIndex['Notes']);

-memNotes.Text := notes;

-

-end;

-

-finally

-sltb.Free;

-end;

-

-finally

-sldb.Free;

-

-end;

-

-end;

-

-procedure TForm1.btnLoadImageClick(Sender: TObject);

-var

-slDBpath: string;

-sldb: TSQLiteDatabase;

-sltb: TSQLIteTable;

-iID: integer;

-fs: TFileStream;

-

-begin

-

-slDBPath := ExtractFilepath(application.exename)

-+ 'test.db';

-

-if not FileExists(slDBPath) then begin

-MessageDLg('Test.db does not exist. Click Test Sqlite 3 to create it.',mtInformation,[mbOK],0);

-exit;

-end;

-

-sldb := TSQLiteDatabase.Create(slDBPath);

-try

-

-//get an ID

-//query the data

-sltb := slDb.GetTable('SELECT ID FROM testtable');

-try

-

-if sltb.Count = 0 then begin

-MessageDLg('There are no rows in the database. Click Test Sqlite 3 to insert a row.',mtInformation,[mbOK],0);

-exit;

-end;

-

-iID := sltb.FieldAsInteger(sltb.FieldIndex['ID']);

-

-finally

-sltb.Free;

-end;

-

-//load an image

-fs := TFileStream.Create(ExtractFileDir(application.ExeName) + '\sunset.jpg',fmOpenRead);

-try

-

-//insert the image into the db

-sldb.UpdateBlob('UPDATE testtable set picture = ? WHERE ID = ' + inttostr(iID),fs);

-

-finally

-fs.Free;

-end;

-

-finally

-sldb.Free;

-

-end;

-

-end;

-

-procedure TForm1.btnDisplayImageClick(Sender: TObject);

-var

-slDBpath: string;

-sldb: TSQLiteDatabase;

-sltb: TSQLIteTable;

-iID: integer;

-ms: TMemoryStream;

-pic: TJPegImage;

-

-begin

-

-slDBPath := ExtractFilepath(application.exename)

-+ 'test.db';

-

-if not FileExists(slDBPath) then begin

-MessageDLg('Test.db does not exist. Click Test Sqlite 3 to create it, then Load image to load an image.',mtInformation,[mbOK],0);

-exit;

-end;

-

-sldb := TSQLiteDatabase.Create(slDBPath);

-try

-

-//get an ID

-//query the data

-sltb := slDb.GetTable('SELECT ID FROM testtable');

-try

-

-if not sltb.Count = 0 then begin

-MessageDLg('No rows in the test database. Click Test Sqlite 3 to insert a row, then Load image to load an image.',mtInformation,[mbOK],0);

-exit;

-end;

-

-iID := sltb.FieldAsInteger(sltb.FieldIndex['ID']);

-

-finally

-sltb.Free;

-end;

-

-sltb := sldb.GetTable('SELECT picture FROM testtable where ID = ' + inttostr(iID));

-try

-

-ms := sltb.FieldAsBlob(sltb.FieldIndex['picture']);

-//note that the memory stream is freed when the TSqliteTable is destroyed.

-

-if (ms = nil) then begin

-MessageDLg('No image in the test database. Click Load image to load an image.',mtInformation,[mbOK],0);

-exit;

-end;

-

-ms.Position := 0;

-

-pic := TJPEGImage.Create;

-pic.LoadFromStream(ms);

-

-self.Image1.Picture.Graphic := pic;

-

-pic.Free;

-

-finally

-sltb.Free;

-end;

-

-finally

-sldb.Free;

-

-end;

-

-

-end;

-

-end.