//Image1.Picture.Bitmap.LoadFromStream(TempStream); TBlobField(FieldByName('ImageField')).LoadFromStream; Finally TempStream.Free; end; end; var aStream1 : TStream; jpg : tjpegimage; //在uses 加入 jpeg,db 单元 插入 jpg := tjpegimage.Create(); try dm.Query_image.open; dm.query_im...
MyBitmap.LoadFromFile('c:\windows\desktop\aa.BMP'); // Load the Bitmap from a file MyJpeg.Assign(MyBitmap); // Assign the BitMap to MyJpeg object // MyJpeg.Canvas.StretchDraw(TRect(0,0, nImageWidth, nImageHeight), MyBitmap); MyJpeg.CompressionQuality:=StrToInt('75'); MyJpeg.Comp...
tryimage Picture Graphic SaveToStream(strm);adotable Edit ;strm Position := ; tblobfield(adotable FieldByName( myimage )) LoadFromStream(strm);//如需直接由文件保存可采用如下注释行//TBlobField(adotable FieldByName( myimage )) LoadFromFile(OpenPictureDialog FileName);//以下记录保存...
sql.Text :='Update users set headimg=:headimg where userid=1';//:headimg是占位符ParamByName('headimg').LoadFromStream(FMemoryStream, ftBlob);//填充:headimg占位符,从内存流中上传ExecSQL; labInfo.Caption :='头像已更新到数据库'end;end; 第三个问题: procedureTForm1.SetImgClick(Sender: T...
打开图片（.jpg和.bmp都可以）var bmp:TBitmap;jpg:TJpegImage;temp:string;sum:string;i,j:integer;jj,bb:boolean;begin if openpicturedialog1.Execute then begin edit1.Text:=openpicturedialog1.FileName;bmp:=TBitmap.create;jj:= AnsiEndsText('.jpg',edit1.Text);//看看是jpg文件还是bmp...
2.)LoadFromStream(Stream: TStream);作用:从当前位置读入Stream里的数据 实际使用时我们基本上只要使用上面两个函数就可以了。 二、所遇到的问题及相应的解决方法 为了节省图像的存储空间和使用更加方便,决定采用JPEG这种图像格式。 (一)所遇到的问题 第一、在Delphi 5中进行画图所用到的组件是TImage,所生成的图...
DBImage1.dataField :=''; //dbimage只能显示BMP,否则myimage由BMP变为jpeg时会出错 tblobfield(adotable1.FieldByName('myimage')).LoadFromStream(strm); //如需直接由文件保存 TBlobField(adotable1.FieldByName('myimage')).LoadFromFile(OpenPictureDialog1.FileName); ...
Jpg:=TjpegImage.Create ; TBlobField(FieldByName('picture')).SaveToStream(Stream); // 显示的转换为BlobField并保存到内存流 Stream.Position :=0; jpg.LoadFromStream(Stream); // 加载图片 img1.Picture.Assign(Jpg); Stream.Free; Jpg.Free; ...
jpg:TJPEGImage;begin if not qry2.FieldByName('PPHOTO').IsNull then begin ms:=TMemoryStream.Create;jpg:=TJPEGImage.Create;TBlobField(qry2.FieldByName('PPHOTO')).SaveToStream(ms);ms.Position:=0;jpg.LoadFromStream(ms);img2.Picture.Assign(jpg);end;end;procedure TForm1.dbnvgr1...
delphi 中怎样打开jpg图片,保存到数据库中并要打印 打开图片(.jpg和.bmp都可以) var bmp:TBitmap; jpg:TJpegImage; temp:string; sum:string; i,j:integer; jj,bb:boolean; begin if openpicturedialog1.Execute then begin edit1.Text:=openpicturedialog1.FileNa