Delphi将图片保存至Sql Server中的小问题？
怎么限制保存图片的大小呢？比如说超过500K的图片就不允许提交。否则数据库太大了，读取也慢。保存图片代码如下，怎么改一下？：
//保存图片
procedure TForm1.btn1Click(Sender: TObject);
begin
if dlgOpen1.Execute then
img1.Picture.LoadfromFile(dlgOpen1.FileName);
qry1.Append;
qry1.Post;
end;
//提前之前将图片转换为数据流
procedure TForm1.qry1BeforePost(DataSet: TDataSet);
var
ms: TMemoryStream;
jpg: TJpegImage;
begin
ms := TMemoryStream.Create;
jpg := TJpegImage.Create;
try
if img1.Picture.Graphic <>nil then
begin
try
img1.Picture.Graphic.SaveToStream(ms);
finally
TBlobField(qry1.FieldByName('pic')).LoadfromStream(ms);
end;
end;
finally
jpg.Free;
ms.Free;
end;
end;
if ms.Size > 500k then
弹一个提示框
简单点改
Delphi(Pascal) code:
procedure TForm1.qry1BeforePost(DataSet: TDataSet);
var
ms: TMe
相关问答：
我有多个表A B C 结构是一样的，都有2个字段name和content,我要搜索所以表所有字段中包含“中国”的内容 这个SQL语句怎么写
如何将多个表的查询结果连成一个表 这个SQL语句怎么写 表的结构是一样的
例如� ......
type Exception report
message
description The server encountered an internal error () that prevented it from fulfilling this request.
exception
org.apache.jas ......
一般都是怎么接活的？
收入怎么样
sohu？soho？
sohu 可能是small office house unit
小办公室，把家变成单位。
去威客网啊,很多个呢,还有外包的网站
学习学习。
现在Delphi做东西不行了,处于淘汰状 ......
我有一个表，结构是这样。
转出 单位 转入单位 笔数 金额
date(主) outid(主) inid(主) num amt
2009 1 2 1 500 为 1 单位 在2009� ......
字段1,字段2.....字段N,Status,ParentID
1,Name1....test1,1,99
1,Name1....test1,3,99
1,Name2....test2,1,101
1,Name2....test2,3,101
1,Name3....test3,2,101
1,Name1....test1,4,101
想要的结果是:
1,Na ......
