下载一个1stclass控件包,里面有个jpg格式的dbimage,它可以存任何文件

解决方案 »

  1.   

    用TBlobStream,搜索一下以前的帖子吧,例子太多了
      

  2.   

    给你一个存储.swf,.jpg格式的文件到数据库的例子procedure TForm7.Button2Click(Sender: TObject);
    var str:Tmemorystream;
    Filestring:string;
    Fileext:string;
    begin
    IF OpenDialog1.Execute Then
    str:=Tmemorystream.Create;
    str.LoadFromFile(OpenDialog1.FileName);
    str.Position:=0;    adoquery3.Append;                               //图片
        Tblobfield(adoquery3.FieldByName('jpg')).loadfromstream(str);
        try
        adoquery3.Post;
        finally
        str.Free;
        end;
    end;
      

  3.   

    Tblobfield(adoquery3.FieldByName('jpg'))    ????能运行????