介绍几个好群给大家, 顶者有分!!!(100分)

  • 主题发起人 jackylo2008
  • 开始时间
怎么样,我试试
 
已经开始学习JAVA了,也顶下
 
支持,从明天开始学JAVA了.
颇有感触。
当时是多么的豪情。
三月五号是我刚学java的第一天,
短短几个月,已经是第二个公司了。
可以老在生存线上徘徊。
唠叨两句,搂住莫怪。
 
我都存过19M
if OpenDialog1.Execute then
begin
if OpenDialog1.FileName = '' then
Exit;
FileName := OpenDialog1.FileName;
Mem := TMemoryStream.Create;
Mem.LoadFromFile(FileName);
Mem.Seek(0,soFrombegin
ning);
Query1.Close;
Query1.DatabaseName := 'D:/BLOB';
Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Add('INSERT INTO BLOBNAME(NAME,FILENAMES) VALUES:)NAME,:FILENAMES)');
Query1.ParamByName('Name').AsString := FileName;
Query1.ParamByName('FileNAMES').LoadFromStream(Mem,ftBlob);
Query1.ExecSQL;
Mem.Free;
end;
如何取出blob字段內容并保存一個新的文件???
 
一起学习,共同进步。
 

Similar threads

D
回复
0
查看
2K
DelphiTeacher的专栏
D
D
回复
0
查看
1K
DelphiTeacher的专栏
D
D
回复
0
查看
873
DelphiTeacher的专栏
D
D
回复
0
查看
773
DelphiTeacher的专栏
D
D
回复
0
查看
919
DelphiTeacher的专栏
D
顶部