Уже сто раз обсуждалось, по-моему даже в теме Данкинг'а.
| Код |
procedure ImageToTable;
var
vlstream : TMemoryStream;
begin
Screen.Cursor := crHourGlass;
vlStream := TMemoryStream.Create();
Image1.Picture.Bitmap.SaveToStream(vlStream);
vlStream.Seek(0, soFromBeginning);
(ADOQuery1.FieldByName('MyPicture') as TBlobField).LoadFromStream(vlStream);
vlStream.Free;
Screen.Cursor := crDefault;
end;
procedure ImageFromTable;
var
vlStream: TMemoryStream;
begin
Screen.Cursor := crHourGlass;
vlStream := TMemoryStream.Create();
(ADOQuery1.FieldByName('MyPicture') as TBlobField).SaveToStream(vlStream);
vlStream.Seek(0, soFromBeginning);
Image1.Picture.Bitmap.LoadFromStream(vlStream);
vlStream.Free;
Screen.Cursor := crDefault;
end;
|
|
