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
相关问答：
已知Python 中：
s = unicode("测试", "gb2312")
s = u'\u6d4b\u8bd5'
print s
测试
在Delphi里面如何将\u6d4b\u8bd5这样的还原成Gb2312的汉字呢？
找到个方法
......
就是一个服务端和一个客户端，里边有一些共用单元 ，我在 工程的SEARCH PATH里设置的路径，
里边有个结构体，我在服务端打开，加了成员，但是我在客户端其他单元访问不到我新加的，我在客户端打开那个单元，确实加� ......
从数据库中查询一张表的数据
select 部门,姓名 from tb
如何才能生成下面的xml格式
XML code:
<folder state="unchecked" label="全部">
<folder state="unchecked&qu ......
我是在toad中输入下段sql
declare
TYPE test_rec IS record(
code varchar(10),
name varchar(30)
);
v_book test_rec;
......
