其实,注册csdn的帐号有很久了,只是由于各种原因,一直很少来。去年12月份的时候,工作中碰到了难题,来csdn提问,得到了很大的帮助,在此感谢comanche(太可怕)、 ytwxw(wxw) 、del_c_sharp(摩托~◎~◎~◎、 eastliangliang(青苹果)、 ihihonline(小小->简单些再简单些,平淡些再平淡些)等人的提点帮助。以后就常来csdn了,在这里看看高手们的回复,答一些单的问题,别有一种乐趣。
调试欢乐多
我来这里,你是第一个回复我的,同样感谢你了
var
OLEStream: TFileStream;begin
if OpenDialog1.FileName <> '' then
begin
OleContainer1.Close;
OLEStream := TFileStream.Create(OpenDialog1.FileName, fmOpenRead);
ADODataSet1.Insert;
ADODataSet1['Name'] := Edit1.Text;
ADODataSet1['Memo'] := Memo1.Text;
(ADODataSet1.FieldByName('TemplateFormat') as
TBlobField).LoadFromStream(OLEStream);
ADODataSet1['Ext'] := RightStr(OpenDialog1.FileName, 3);
ADODataSet1.Post;
FreeAndNil(OleStream);
end;
end;
procedure TFormReportDef.BitBtn4Click(Sender: TObject);
var
sFileName: string;
OLEStream: TMemoryStream;
begin
sFileName := ExtractFilePath(Application.ExeName) + 'tempBlob' + '.' +
RightStr(ADODataSet1.FieldByName('Ext').AsString, 3);
OLEStream := TMemoryStream.Create;
OLEStream.LoadFromStream(ADODataSet1.CreateBlobStream(ADODataSet1.FieldByName('TemplateFormat'), bmRead));
OLEStream.SaveToFile(sFileName);
OleContainer1.CreateObjectFromFile(sFileName, false);
end;前两天写的一个存取blob数据的代码,测试通过,数据库是sql server 2000,blob字段类型是image,不能是text
有空就到CSDN水园灌一下水
CSDN是我们共同的家!
介绍一些好的ASP.NET的电子书啊。