Procedure Tform1.ButtonClick(Sender: TObject);
Var LOB : TLobLocator;
JPG : TJPEGImage;
MS : TMemoryStream;
Begin
JPG:=TJPEGImage.Create;
JPG.CompressionQuality:=100;
JPG.Grayscale:=False;
JPG.Assign(DBImage1.Picture.Bitmap;
MS :=TMemoryStream.Create;
JPG.SaveToStream(MS);
MS.Position:=0;
With OracleQuery1 Do
Begin
SQl.Clear;
SQL.Add('Insert into imageB values(1, empty_blob()) returning image into :image');
LOB:=TLobLocator.Create(OracleSessionA, otBlob);
DeclareVariable('image', otBlob);
//SetComplexVariable('image', LOB);
SetComplexVariable('image, MS);
Execute;
//LOB.LoadFromFile('c:\test.jpg');
//LOB.Free;
OracleSessionA.commit;
End;
End;