流合并 和流解析

procedure TForm1.btn1Click(Sender: TObject); var S:TMemoryStream; T:TMemoryStream; M:TMemoryStream; P:Pinteger; PSize:Pinteger; begin T:=TMemoryStream.Create; S:=TMemoryStream.Create; M:=TMemoryStream.Create; GetMem(P,Sizeof(Integer)); GetMem(PSize,2*Sizeof(Integer)); Img1.Picture.Bitmap.SaveToStream(S); Img2.Picture.Bitmap.SaveToStream(T); S.Position:=0; T.Position:=0; PSize^:=S.Size; Inc(PSize); PSize^:=T.Size; P^:=2; Dec(PSize); M.Write(P^,SizeOf(Integer)); M.Write(PSize^,2*SizeOf(Integer)); M.CopyFrom(S,S.Size); M.CopyFrom(T,T.Size); M.Position:=0; M.SaveToFile('D:/333.MD'); S.Free; T.Free; M.Free; end; procedure TForm1.btn2Click(Sender: TObject); var FM:TFileStream; P:Pinteger; i:Integer; PSize:Pinteger; Size:Integer; Mm:TMemoryStream; T1,T2:PPointer; Ms:TMemoryStream; begin Mm:=TMemoryStream.Create; Ms:=TMemoryStream.Create; FM:=TFileStream.Create('D:/333.MD',0); FM.Position:=0; GetMem(P,Sizeof(Integer)); FM.ReadBuffer(P^,SizeOf(Integer));; GetMem(PSize,2*Sizeof(Integer)); FM.ReadBuffer(PSize^,P^*SizeOf(Integer)); GetMem(T1,PSize^); FM.ReadBuffer(T1^,PSize^); Mm.WriteBuffer(T1^,PSize^); MM.Position:=0; Img3.Picture.Bitmap.LoadFromStream(Mm); Inc(PSize); GetMem(T2,PSize^); FM.ReadBuffer(T2^,PSize^); Ms.WriteBuffer(T2^,PSize^); Ms.Position:=0; Img4.Picture.Bitmap.LoadFromStream(Ms); FM.Free; end;

 

 

自己写的