procedure TMainFrm.SaveToDB(AFileName:string);
begin
with InsertQuery do
begin
if Active then Close;
SQL.Clear;
SQL.Text := 'INSERT INTO TABLE_TTEST(PK_ID,TESTBLOB) VALUES(''TestBlob'',EMPTY_BLOB())';
ExecSQL;
end;
with TblView do
begin
if not Active then Open;
Locate('PK_ID','TestBlob',[loPartialKey]);
//FieldByName('PK_ID').Value := 'TestBlob';
Edit;
//TBlobField(FieldByName('TESTBLOB')).BlobType := ftOraBlob;
TBlobField(FieldByName('TESTBLOB')).LoadFromFile(AFileName);
Post;
end;
end;