三层结构，图片问题！！！

Question

三层结构中，在客户端是否可以发送文件流格式（将图片转换成文件流）？在中间件是否可以读取由客户端发送过来的文件流，若可以，请问接收的类型？是否可以通过存储过程放到数据库里面？做上述的东西，是因为在客户端把图片发送到数据服务器里面，数据表中存放的图片（格式是image）。请各位大侠附上源码，问题一解决，分数马上到！！！

Answer 1

给你两个函数，可以将文件打包成OleVariant，并且解包。通过OleVariant，可以用方法传递。
function FileToVariant(FileName: String): OleVariant; 
var 
  AStream: TFileStream; 
  MyBuffer: Pointer; 
begin 
  AStream:=TFileStream.create(FileName,fmOpenRead); 
  try 
    aStream.Seek(0, soFromBeginning); 
    Result:=VarArraycreate([0, AStream.size-1], VarByte); 
    MyBuffer:=VarArrayLock(Result); 
    AStream.ReadBuffer(MyBuffer^, AStream.Size); 
    VarArrayUnlock(Result); 
  finally 
    AStream.Free; 
  end; 
end; 
procedure VariantToFile(FileName: String; var AVariant: OleVariant); 
var 
  AStream: TFileStream; 
  MyBuffer: Pointer; 
  Size: Integer; 
begin 
  AStream:=TFileStream.create(FileName,fmCreate); 
  try 
    aStream.Seek(0, soFromBeginning); 
    Size:=VarArrayHighBound(AVariant,1)-VarArrayLowBound(AVariant,1)+1; 
    MyBuffer:=VarArrayLock(AVariant); 
    AStream.WriteBuffer(MyBuffer^, Size); 
    VarArrayUnlock(AVariant); 
  finally 
    AStream.Free; 
  end; 
end; 

Answer 2

to ：chechy(简简单单的活)老兄：
   有没有不打包，直接在客户端将图片转换成文件流发过去中间件，那中间件的接收类型是什么？
其他人有没有更好的想法？？？

Answer 3

只有COM支持的类型才可以。没有现成的文件流可以使用，OleVariant最方便。
要不理自己写个IFileStream，倒也是可以得。

Answer 4

再问chechy(简简单单的活)老兄：
    存储过程能否将图片存入数据库？代码如下（要用存储过程组件TStoredProc)。若可以，问以下代码为何不能插入数据库面？（注明：用table组件可以正确插入）。
procedure TForm1.Button2Click(Sender: TObject);
var
  strm:Tmemorystream;
begin
  strm:=tmemorystream.Create;
  if not OPD_pic.Execute then exit;
  image1.Picture.Bitmap.LoadFromFile(OPD_pic.filename);
  image1.Picture.Bitmap.SaveToStream(strm);
  SP_1.Close;
  SP_1.Params[1].ParamType:=ptinput;
  SP_1.Params[1].AsInteger:=StrToInt(Edit1.Text);
  SP_1.Params[2].ParamType:=ptinput;
  SP_1.Params[2].AsString:=Edit2.Text;
  SP_1.Params[3].ParamType:=ptinput;
  SP_1.Params[3].LoadFromStream(strm,ftblob);
  SP_1.ExecProc;
end;