Siguiendo con el tema
en el ejemplo viene el siguiente evento
¿ Alguien Sabe como implementar lo mismo pero con un IBQuery (update) con parametros en vez de IBDataSet?
procedure TForm1
.Button1Click
(Sender
: TObject
);var m
, f
: TStream
; s
: string;begin if OpenPictureDialog1
.Execute
then begin IBDataSet1
.Edit
; //tendria que dar error sin esto m
:= IBDataSet1
.CreateBlobStream
(IBDataSet1FOTO
, bmWrite
); f
:= TFileStream
.Create
(OpenPictureDialog1
.filename
, fmOpenRead
); m
.CopyFrom
(f
, f
.Size
); s
:= AnsiUpperCase
(ExtractFileExt
(OpenPictureDialog1
.FileName
)); //Siempre en mayusculas if s
='.JPEG' then s
:= '.JPG'; //un caso especial IBDataSet1FORMATO_FOTO
.AsString
:= Copy
(s
,2,3); //elimino el punto IBDataSet1
.Post
; f
.Free
; m
.Free
; end