其实,注册csdn的帐号有很久了,只是由于各种原因,一直很少来。去年12月份的时候,工作中碰到了难题,来csdn提问,得到了很大的帮助,在此感谢comanche(太可怕)、 ytwxw(wxw) 、del_c_sharp(摩托~◎~◎~◎、 eastliangliang(青苹果)、 ihihonline(小小->简单些再简单些,平淡些再平淡些)等人的提点帮助。以后就常来csdn了,在这里看看高手们的回复,答一些单的问题,别有一种乐趣。

解决方案 »

  1.   

    TOMWLD (笑天)  ,真厉害啊,真快,向你学习!!!!!
    我来这里,你是第一个回复我的,同样感谢你了
      

  2.   

    procedure TFormReportDef.BitBtn2Click(Sender: TObject);
    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
      

  3.   

    我也是得到CSDN上的朋友的帮助, 同时学到了很多东西, 所以有事没事都会来一下。 
    有空就到CSDN水园灌一下水
      

  4.   

    恭喜楼主,贺喜楼主!
    CSDN是我们共同的家!
      

  5.   

    Frend(一刀) 5000分就可以了
      

  6.   

    to ghyghost(著名关心CSDN结贴率爱国主义人士代表) 嘻嘻,到时候就结了
      

  7.   

    我只有绿色的角角,唉~~向大家学习啊。
    介绍一些好的ASP.NET的电子书啊。