if OPenPictureDialog1.Execute then
begin
with adoquery1 do
begin
//edit;
//insert;
append;
TBlobField(FieldByName('images')).LoadFromFile(OpenPictureDialog1.FileName);
post;
end;
end;
begin
with adoquery1 do
begin
//edit;
//insert;
append;
TBlobField(FieldByName('images')).LoadFromFile(OpenPictureDialog1.FileName);
post;
end;
end;
MS: TMemoryStream;
begin
MS := TMemoryStream.Create;
TBlobField(adoquery1.FieldByName('images')).SaveToStream(MS);
Image1.Picture.Bitmap.LOadFromStream(MS);
MS.Free;
end;