类型：转载 责任编辑：asp.net 日期：2007/05/23
热门软件下载：
我用它来存了数据到SQLServer后，显示不出来
所以也不知道是我存的方式不对，还是我显示方式不对？
请多指教！！！谢谢
网友回答：
procedure TfrmMainUnit.Button1Click(Sender: TObject);//保存
var mems:TMemoryStream;
zips:TCompressionStream;
begin
mems:=TMemoryStream.Create;
zips:=TCompressionStream.Create(clMax,mems);
mems.Position :=0;
rxFile.Lines.SaveToStream(mems);
// mems.Position :=0;
zips.compress
if aqryTool.Active then aqryTool.Close;
aqryTool.SQL.Clear;
aqryTool.SQL.Add( insert into filecontent(fileid,content) );
aqryTool.SQL.Add( values(1,:cont) );
aqryTool.Parameters[0].LoadFromStream(mems,ftBlob);
aqryTool.ExecSQL ;
mems.Free;
end;
procedure TfrmMainUnit.Button2Click(Sender: TObject);//显示
var mems:TMemoryStream;
begin
mems:=TMemoryStream.Create;
if aqryTool.Active then aqryTool.Close;
aqryTool.SQL.Clear;
aqryTool.SQL.Add( select fileid,content from filecontent );
aqryTool.Open ;
TBlobField(aqryTool.FieldByName(content)).SaveToStream(mems);
mems.Position :=0;
rxFile.Lines.LoadFromStream(mems);
//rxfile.
mems.Free ;
mems:=nil;
end;