图片保存到库中
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;