jpegscreen := Tjpegimage.Create;
jpegscreen.Assign(image1.Picture.Bitmap);//截屏得到的图片
jpegscreen.CompressionQuality := 40;
jpegStream.Create;
jpegscreen.SaveToStream(jpegStream);
imgSize := jpegStream.Size;
jpegStream.SaveToFile('F:\My Document\test.jpg')
这个时候会出错,提示内存某地址有错。
jpegscreen.Assign(image1.Picture.Bitmap);//截屏得到的图片
jpegscreen.CompressionQuality := 40;
jpegStream.Create;
jpegscreen.SaveToStream(jpegStream);
imgSize := jpegStream.Size;
jpegStream.SaveToFile('F:\My Document\test.jpg')
这个时候会出错,提示内存某地址有错。
解决方案 »
- 求军旗游戏 开局随机分配棋子的算法
- 两个不同的库。想连接查询他们各自的一张表。有弄过吗?急啊。在线求救啊呀。分不够可以继续开贴啊!
- 不显示删除回复显示所有回复显示星级回复显示得分回复 想在sql server中存储一个超链接,并显示在listview上 大家看看我写的对吗?
- 悬赏啊,一个极难又极为可笑的问题啊,
- 怎样用delphi做断点续传啊
- ▲★★★★▲如何让MediaPlayer循环播放呀!!急
- 当mouse在TStringGrid外单击时,TStringGrid如何得到通知?
- DELPHI6中的INDY组件中的TIdAntiFreeze,TIdMessage 在DELPHI7是放在哪里?或相当哪个控件?
- ★★ 为何用XLSReadWriteII写入的中文为乱码! ★★
- 我用delphi写了一个activeform,但是它在IE中不能正常的显示出来,请问这该怎么办??
- stack overflow
- 再问DbGrid按列标题排序问题
jpegscreen.Assign(image1.Picture.Bitmap);//截屏得到的图片
jpegscreen.CompressionQuality := 40;
//jpegStream.Create;
//jpegscreen.SaveToStream(jpegStream);
//imgSize := jpegStream.Size;
jpegscreen.SaveToFile('F:\My Document\test.jpg')这个时候就没错,本来想测试完这段代码之后就存进数据库的,所以,要用流的方式。但是,一用流就出错了。请各位帮忙,我是菜鸟,问题白痴的话请见谅
jpegStream.Position := 0;//加這句
jpegStream.SaveToFile('F:\My Document\test.jpg')
jpegStream := TjpegStream.Create;
var Ms:TmemoryStream;
jpg : Tjpegimage;
begin
jpg := Tjpegimage.Create;
ms:=TmemoryStream.Create;
Jpg.Assign(Image1.Picture.Graphic);
Jpg.SaveToStream(Ms) ;
Ms.Position :=0;
ADOquery1.append;
TBlobField(ADOquery1.FieldByName('img')).LoadFromStream(Ms);
ADOquery1.Post;
Ms.Free ;
jpg.free;
end;