寫入blob字段ok,但是取出失敗, 看看那裡錯了?(50分)

var
l_FileStream: TFileStream;
begin
p_s_temp :=formatdatetime('hhmmss',now);
with adoQuery1 do
begin
Close;
SQL.Text := 'SELECT * FROM test_1 ';
Open;
end;

l_FileStream := TFileStream.Create('d:/11.txt', fmOpenWrite or fmCreate);
l_FileStream.Position := 0;
TBlobField(adoQuery1.FieldByName('b_file')).SaveToStream(l_FileStream);
l_FileStream.Free;

end;

blob是否可以保存*.zip 文件, 然后取出*.zip文件,
現在寫入了blob字段,取不出來?那裡有問題?

是否有人做過?
給點建議,

来自：R_Baggio, 时间：2000-7-24 12:57:00, ID：292080
我都存过19M
if OpenDialog1.Execute then
begin
if OpenDialog1.FileName = '' then Exit;
FileName := OpenDialog1.FileName;
Mem := TMemoryStream.Create;
Mem.LoadFromFile(FileName);
Mem.Seek(0,soFromBeginning);
Query1.Close;
Query1.DatabaseName := 'D:/BLOB';
Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Add('INSERT INTO BLOBNAME(NAME,FILENAMES) VALUESNAME,:FILENAMES)');
Query1.ParamByName('Name').AsString := FileName;
Query1.ParamByName('FileNAMES').LoadFromStream(Mem,ftBlob);
Query1.ExecSQL;
Mem.Free;
end;
如何取出blob字段內容并保存一個新的文件???

???
???
???