Devart Forums

Code: Select all

program Project1;

{$APPTYPE CONSOLE}

uses SysUtils, Uni, SQLiteUniProvider, DB;

var
  UniConnection: TUniConnection;
  UniQuery: TUniQuery;
  BlobField: TBlobField;
begin
  UniConnection := TUniConnection.Create(nil);
  try
    UniConnection.ProviderName := 'SQLite';
    UniConnection.SpecificOptions.Values['SQLite.Direct'] := 'True';
    UniConnection.Database := ':memory:';
    UniConnection.Connect;
    UniConnection.ExecSQL('create table test (id integer, pic blob)');
    UniConnection.ExecSQL('Insert into test(id) values (1)');

    UniQuery := TUniQuery.Create(nil);
    try
      UniQuery.Connection := UniConnection;
      UniQuery.SQL.Text := 'Select * from test';
      UniQuery.Open;
      UniQuery.Edit;
      BlobField := UniQuery.FieldByName('Pic') as TBlobField;
      BlobField.LoadFromFile('d:\test.bmp');
      UniQuery.Post;
    finally
      UniQuery.Free;
    end;
  finally
    UniConnection.Free;
  end;
end.