通过Remobject组件存储图片

应用环境:服务端:TROBinMessage,TROIndyHTTPServer

　　       提供服务接口:　　　　    

 IBinaryMidService = interface

　　　　        ['{51904085-6D27-4EDA-A55D-A9EE21686894}']

　　             function Add(Const ANum:AnsiString; const AType: AnsiString; const AValue: Binary): Integer;

end;

　　 客户端:TROBinMessage,TROWinInetHTTPChannel,TRORemoteService

　 　数据库:Oracle10,图片字段类型为BLOB

 

简单介绍:客户端把图片读入到流中并通过IBinaryMidService服务传输到服务器,然后有服务器存入到数据库中.

 

一:客户端生成流通过服务传输到服务器

procedure SavePic;
var
  tmpStream:TROBinaryMemoryStream;
  VBinaryMidService:IBinaryMidService;
begin
  tmpStream:=TROBinaryMemoryStream.Create;
  VBinaryMidService:=TBinaryMidService_Proxy.Create(ROMessage,ROChannel);
  Image1.Picture.Graphic.SaveToStream(tmpStream) ;

 9   VBinaryMidService.Add('0001',PicType,tmpStream);
end;

二:服务端接收流增加到数据库

function TBinaryMidService.Add(Const ANum: AnsiString; const AType: AnsiString; const AValue: Binary): Integer;
var
   tmpSQLStr:string;
begin
   tmpSQLStr:=format('insert into test(num,AType,pic) values (%s,%s,:0)',[quotedstr(ANum),quotedstr(AType)]);
   DBOrder.AddPic(tmpSQLStr,AValue);
end;

//--------------ucDBOrder----------------------
function DBOrder.AddPic(ASQLStr:string;AValue)
var
    QryTDB:TADOQuery;
begin
    QryTDB:= TADOQuery.Create(nil);
    QryTDB.Close;
    QryTDB.SQL.Clear;  
    QryTDB.Connection:=Conn;
    QryTDB.SQL.Add(SQLStr);
    QryTDB.Parameters.ParamByName('1').LoadFromStream(AValue,ftBlob);
    QryTDB.ExecSQL;
    FreeAndNil(QryTDB);
end;

三:客户端得到数据并显示图片

procedure showPic;
var
  Data:Variant;
  VBinaryMidService:IBinaryMidService;
  PicFile:TGraphic;
begin   
  //得到数据赋值给
  VBinaryMidService:=TBinaryMidService_Proxy.Create   (ROMessage,ROChannel);
  VBinaryMidService.GetPic('00001',Data);
  ClientDataSet.Data:=Data;
  //显示图片
  if not ClientDataSet1.FieldByName('Pic').IsNull then
  begin
    if ClientDataSet1.FieldByName('PicType').AsString='BMP' then
      //显示bmp文件
      PicFile:=TBitmap.Create;
    else
    if ClientDataSet1.FieldByName('PicType').AsString='JPG' then
    begin
      //显示JPG文件
      PicFile:=TJPEGImage.Create;
    end else
    if ClientDataSet1.FieldByName('PicType').AsString='ICO' then
    begin
      //显示ICO文件
      //IcoFile:=TIcon.Create;    //      IcoFile.Free;
      PicFile:=TIcon.Create;
    end else
    if ClientDataSet1.FieldByName('PicType').AsString='PNG' then
    begin
      //显示PNG文件
      PicFile:=TPNGObject.Create;
    end else
    if ClientDataSet1.FieldByName('PicType').AsString='GIF' then
    begin
      //显示PNG文件
      PicFile:=TGIFImage.Create;
    end;
   mStream:=TMemoryStream.Create ;
   TBlobField(ClientDataSet1.FieldByName('Pic')).SaveToStream(mStream);
    mStream.Position :=0;
    PicFile.LoadFromStream(MStream);

   image1.Picture.Assign(PicFile);
    PicFile.Free;  
    mStream.Free;
end;
end;

注:需下载gifimage.pas,pngimage插件(机器如果装了fastReport4，引用frxpngimage单元)，Image控件才能支持PNG,GIF