图片保存到数据库及读取到image显示

图片保存到库中

 1 procedure TForm1.Savebmp;
 2 var
 3   MyStm:TMemoryStream;
 4   Jpg:TjpegImage;
 5 begin
 6   MyStm:=TMemoryStream.Create;
 7   jpg:=TJPEGImage.Create;
 8   Jpg.Assign(cxImage1.Picture.Graphic);
 9   Jpg.SaveToStream(MyStm);
10   MyStm.Position:=0;
11   ADOQuery1.Edit;
12   TBlobField(ADOQuery1.FieldByName('photo')).LoadFromStream(MyStm);
13   ADOQuery1.Post;
14    messagebox(getactivewindow(),'图像保存完毕！','保存',mb_ok);
15   Jpg.Free;
16   MyStm.Free;
17 
18 end;

图片的读取及显示

 1 procedure TForm1.Showbmp;
 2 var
 3   MyStm:TMemoryStream;
 4   Jpg:TjpegImage;
 5 begin
 6   if TBlobField(ADOQuery1.FieldByName('photo')).IsNull then
 7   begin
 8     cxImage1.Picture.Bitmap.Assign(nil);
 9     Exit;
10   end;
11   MyStm:=TMemoryStream.Create;
12   TBlobField(ADOQuery1.FieldByName('photo')).SaveToStream(MyStm);
13   MyStm.Position:=0;
14   Edit1.Text:=Format('%d',[mystm.Size]);
15   jpg:=TJPEGImage.Create;
16   Jpg.LoadFromStream(MyStm);
17   cxImage1.Picture.Bitmap.Assign(Jpg);
18   Jpg.Free;
19   MyStm.Free;
20 
21 end;

剪贴板在图片中的应用

uses Clipbrd;

  clipboard :=TClipboard.Create;  //
Image1.Picture.Assign(clipboard);  //从剪贴板读取数据


var gif:TGIFImage;
begin
        gif:=TGIFImage.Create;
        gif.LoadFromFile('38.gif');
        clipboard.Assign(gif);
end;


  clipboard.Free;

 

转载于:https://www.cnblogs.com/jieke/archive/2012/12/23/2829932.html