如何将一个压缩文件www.rar保存到Access数据库的Blob中?如何将其以文件的方式返回到桌面来?

解决方案 »

  1.   

    存文件好说:
    http://218.56.11.178:8020/web/index.aspx
    -》下载基地-》例程-数据库/报表-》向数据库中存取文件
      

  2.   

    问问题之前先查找啊
    我你一个存图片的procedure TForm1.Button1Click(Sender: TObject);
    var
        MStr:TMemoryStream;
    beginMStr:=TMemoryStream.Create ;
    Image1.Picture.Graphic.SaveToStream(MStr);
    MStr.Position :=0;
    Table1.Edit;
    TBlobField(Table1.FieldByName('Image')).LoadFromStream(MStr);
    Table1.Post ;
    MStr.Free ;
    Image1.Repaint ;
    end;procedure TForm1.Button2Click(Sender: TObject);
    var
    MS: TStream;
    begin
    //MS:=TStream.Create ;
    with Table1 do
    MS:=CreateBlobStream(FieldbyName('image'),bmRead);
    if MS<>nil then
    begin
        //Image2.Picture.Bitmap.LoadFromStream (MS);
        Image2.Picture.BitMap.LoadFromStream(MS);
        image2.Refresh ;
        MS.Free;
    end
    else
        ShowMessage('Ms is Null');end;
    procedure TForm1.Button3Click(Sender: TObject);
    Var
        MS: TmemoryStream;
    begin
        MS:=TMemoryStream.Create;
        MS.LoadFromFile('D:\土地交易信息管理系统\327443A.bmp');
        MS.Position :=0;
        Table1.Edit;
        TBlobField(Table1.FieldByName('Image')).LoadFromStream(MS);
        Table1.Post ;end;