client:
=========================================================
MyFStream := TFileStream.Create('tempf', fmReadWrite);
try
NMStrm1.PostIt(MyFStream);
finally
MyFStream.Free;
end;
====================================================================
server:
====================================================================
procedure TForm1.NMStrmServ1MSG(Sender: TComponent; const sFrom: String;
strm: TStream);
var
MyFileStream: TFileStream;
begin
try
If FileExists('temps') then DeleteFile('temps');
MyFileStream := TFileStream.Create('temps', fmCreate);
MyFileStream.CopyFrom(strm, strm.size);
finally
MYFileStream.Free;
end;
end;
此外就是对NMStrm的事件的处理