H
hcbride
Unregistered / Unconfirmed
GUEST, unregistred user!
我想将一个文件一数据流的形式写入数据库的一个字段中，该怎么做呢？我这样做：
procedure TForm1.Button1Click(Sender: TObject);
var Word_FileStream:TFileStream;
begin
word_filestream:=nil;
try
word_FileStream:=TFileStream.Create(edit1.Text,fmCreate);
word_filestream.Position:=0; ~~~~~~~~~~~
with adoQuery1 do
begin
insert;
fieldbyname('name').asstring:=edit1.Text ;
TBlobField(AdoQuery1.FieldByName('FileStream')).SaveToStream(word_FileStream);
post;
end;
finally
word_filestream.Free ;
end;
end;
能运行，但是为什么什么都没写进去呢？请指教！多谢了~~~~
能写代码给我看吗？
procedure TForm1.Button1Click(Sender: TObject);
var Word_FileStream:TFileStream;
begin
word_filestream:=nil;
try
word_FileStream:=TFileStream.Create(edit1.Text,fmCreate);
word_filestream.Position:=0; ~~~~~~~~~~~
with adoQuery1 do
begin
insert;
fieldbyname('name').asstring:=edit1.Text ;
TBlobField(AdoQuery1.FieldByName('FileStream')).SaveToStream(word_FileStream);
post;
end;
finally
word_filestream.Free ;
end;
end;
能运行，但是为什么什么都没写进去呢？请指教！多谢了~~~~
能写代码给我看吗？