狮
狮子王
Unregistered / Unconfirmed
GUEST, unregistred user!
用Query可以做的,把TDatebase中的BLOB SIZE改大点!
然后在用流去做
var
fs:TFileStream;
begin
fs:=TFileStream.Create(Opendialogs1.FileName,fmOpenRead);
Qurey1.Insert;
TBlobField(Query1.FieldByName('picture')).LoadFromStream(fs);
fs.free;
Query1.Post;
end;
然后在用流去做
var
fs:TFileStream;
begin
fs:=TFileStream.Create(Opendialogs1.FileName,fmOpenRead);
Qurey1.Insert;
TBlobField(Query1.FieldByName('picture')).LoadFromStream(fs);
fs.free;
Query1.Post;
end;