Hello Marco.
Place to form the next components:
btnButton1, OracleDataSet1, OracleLogon1 and OracleSession1.
Replace "any_table_with_blob" with real table name with BLOB in your base.
Create event for button:
procedure TfrmMain.btnButton1Click(Sender: TObject);
begin
OracleLogon1.Execute;
OracleDataSet1.Session := OracleSession1;
OracleDataSet1.SQL.Text := 'select * from any_table_with_blob where rownum < 2';
OracleDataSet1.Close;
OracleDataSet1.Open;
OracleSession1.Connected := False;
end;
Push the button, logon and close the form...
You should receive "Access violation..."
If you need demo project i can send it.
With best regards,
Spit
Place to form the next components:
btnButton1, OracleDataSet1, OracleLogon1 and OracleSession1.
Replace "any_table_with_blob" with real table name with BLOB in your base.
Create event for button:
procedure TfrmMain.btnButton1Click(Sender: TObject);
begin
OracleLogon1.Execute;
OracleDataSet1.Session := OracleSession1;
OracleDataSet1.SQL.Text := 'select * from any_table_with_blob where rownum < 2';
OracleDataSet1.Close;
OracleDataSet1.Open;
OracleSession1.Connected := False;
end;
Push the button, logon and close the form...
You should receive "Access violation..."
If you need demo project i can send it.
With best regards,
Spit