经由过程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办事传输到办事器,然后有办事器存入到数据库中.

 

 

 

一:客户端生成流畅过办事传输到办事器

 

 

 1 procedure SavePic;
 2 var
 3   tmpStream:TROBinaryMemoryStream;
 4   VBinaryMidService:IBinaryMidService;
 5 begin
 6   tmpStream:=TROBinaryMemoryStream.Create;
 7   VBinaryMidService:=TBinaryMidService_Proxy.Create(ROMessage,ROChannel);
 8   Image1.Picture.Graphic.SaveToStream(tmpStream) ;

 

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

 

 

 

 

二:办事端接管流增长到数据库

 

 

function TBinaryMidService.Add(Const ANum: AnsiString; const AType: AnsiString; const AValue: Binary): Integer;
var
   tmpSQLStr:string;
begin
   tmpSQLStr:=format("" 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.SQL;
    FreeAndNil(QryTDB);
end;

 

 

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

 

 

View Code

 

 1 procedure showPic;
 2 var
 3   Data:Variant;
 4   VBinaryMidService:IBinaryMidService;
 5   PicFile:TGraphic;
 6 begin  
 7   //获得数据赋值给
 8   VBinaryMidService:=TBinaryMidService_Proxy.Create   (ROMessage,ROChannel);
 9   VBinaryMidService.GetPic(""00001"",Data);
10   ClientDataSet.Data:=Data;
11   //显示图片
12   if not ClientDataSet1.FieldByName(""Pic"").IsNull then
13   begin
14     if ClientDataSet1.FieldByName(""PicType"").AsString=""BMP"" then
15       //显示bmp文件
16       PicFile:=TBitmap.Create;
17     else
18     if ClientDataSet1.FieldByName(""PicType"").AsString=""JPG"" then
19     begin
20       //显示JPG文件
21       PicFile:=TJPEGImage.Create;
22     end else
23     if ClientDataSet1.FieldByName(""PicType"").AsString=""ICO"" then
24     begin
25       //显示ICO文件
26       //IcoFile:=TIcon.Create;    //      IcoFile.Free;
27       PicFile:=TIcon.Create;
28     end else
29     if ClientDataSet1.FieldByName(""PicType"").AsString=""PNG"" then
30     begin
31       //显示PNG文件
32       PicFile:=TPNGObject.Create;
33     end else
34     if ClientDataSet1.FieldByName(""PicType"").AsString=""GIF"" then
35     begin
36       //显示PNG文件
37       PicFile:=TGIFImage.Create;
38     end;
39    mStream:=TMemoryStream.Create ;
40    TBlobField(ClientDataSet1.FieldByName(""Pic"")).SaveToStream(mStream);
41     mStream.Position :=0;
42     PicFile.LoadFromStream(MStream);
43
44    image1.Picture.Assign(PicFile);
45     PicFile.Free; 
46     mStream.Free;
47 end;
48 end;

你可能感兴趣的:(object)