关于图像的存储

Question

都可以。我在DELPHI里的用法：
保存:
procedure TForm1.Button2Click(Sender: TObject);
var
  graphic1:TJpegImage;
  MS:TMemoryStream;
  //file_name:string;
begin
  //file_name:=edpicname.Text;
  MS:=TMemoryStream.Create;
  graphic1:=TJpegImage.Create;
  Image1.Picture.LoadFromFile(opendialog1.filename);
  graphic1.LoadFromFile(opendialog1.filename);
  graphic1.SaveToStream(MS);
  MS.Position:=0;
  with  query1 do
  begin
     sql.Clear;
     sql.Add('insert into imagetest(fimage) values(:FIMAGE) ');
     //ParamByName('FIMAGE').LoadFromfile(opendialog1.filename,FtBlob);
     ParamByName('FIMAGE').LoadFromStream(MS,FtBlob);
     ExecSQL;  end;
  graphic1.free;
end;
读出代码：
procedure TForm1.Button3Click(Sender: TObject);
var
  MS:TMEmoryStream;
  JpegImage:TJpegImage;
  f: file of Byte;
begin
  JpegImage:= TJpegImage.Create;
  MS:=TMEmoryStream.Create;
  with Query1 do
  begin
     close;
     sql.Clear;
     sql.add('select  fimage from imagetest');
     open;
     while not EOF do
     begin
        next;
     end;
     try
     TBlobField(FieldByName('fimage')).SaveToFile('tmp.jpg');
     //if GetFileSize('tmp.jpg')>0 then  //文件长度为0装入会出错
     //begin
       AssignFile(f,'tmp.jpg');
       Reset(f);       if  filesize(f)>0 then showmessage('save success');
       closefile(f);
       JpegImage.LoadFromFile('tmp.jpg');
       Image2.Picture.LoadFromFile('tmp.jpg');
     //end;
   finally
     JpegImage.Free;
   end;
  end;
end;

Answer 1

用ASP来写是这样的
//wj 字段是文件内容。lob类型中的任何一种都是可以的。<%@ Language=VBScript %>
<!-- #include file="../check.asp"  -->
<%
if Request("fid")<>"" then
  set rs=server.CreateObject ("adodb.recordset")
  sql="select lx,wj from advicefile where fid='"&Request("fid")&"'"
  call rs.open(sql,application("connectdb"),3,1)
  if not(rs.EOF) then
    Response.Expires=0
    Response.Buffer=True
    call Response.Clear()
    Response.ContentType=rs("lx")
    call Response.BinaryWrite(rs("wj").GetChunk(rs("wj").ActualSize))
  else
%>
<SCRIPT LANGUAGE=javascript>
<!--
window.close();
//-->
</SCRIPT>
<%
  end if
  call rs.Close()
  set rs=nothing
else
%>
<SCRIPT LANGUAGE=javascript>
<!--
window.close();
//-->
</SCRIPT>
<%
end if
%>