请问richedit、image可以吗? 如果不可以,请问我应该用哪个???谢谢了;))
解决方案 »
- 怎么实现在form1上用鼠标点击下,出现个红点。
- 如何将程序中的非mainform设置为在顶层?而且要半透明窗体
- Fastreport问题我该如何打印!
- 急于解决关于blob字段的问题!请大家多多指教
- 帮忙看看,在线等待,Unsatisfied forward or external declaration,贴出代码!马上给分!
- 数据传输的端口与数据接收???
- RB 速度是不是巨慢,还是我处理方法不对?
- 我要让控件和窗体一起最大化怎么办?
- 急急!大虾请进! 关于串口通讯 接受数据....
- 最新竞猜--中国VS卡塔尔比分预测,答对了给分!!!!!!!!!!!!!!!!!!![Visual C++]
- 我要建立一个字段,里面既可以存放大量的文字,也可以存入图片,请问字段该用什么类型???
- 用ACCESS打开MDB是空的
可以到网上搜索rxlib下载
如果找不到这个控件,发邮件给我[email protected]
y用canvas属性
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;