有没有功能好点的做网络图的控件and流问题 (300分)

1。有没有网络图的控件，能实现节点之间有箭头，能任意移动节点，节点上能有
caption属性，没个节点可以有上下两部分，可一分别控制长度（比如：计划和实际完成
节点，它们属于一个节点但可能完成时间不一样）
2。自己做了个intrcptu来截断数据流进行压缩和加密，老是报错，高手帮我看看
procedure TDataCompressor.DataIn(const Data: IDataBlock);
var
Size: Integer;
InStream, OutStream: TMemoryStream;
ZStream: TZDecompressionStream;
p: Pointer;
begin
InStream := TMemoryStream.Create;
try { Skip BytesReserved bytes of data }
p := Pointer(Integer(Data.Memory) + Data.BytesReserved);
Size := PInteger(p)^;
if Size = 0 then
Exit;
p := Pointer(Integer(p) + SizeOf(Size));
InStream.Write(p^, Data.Size - SizeOf(Size));
OutStream := TMemoryStream.Create;
try
InStream.Position :=0;
EncryptAESStreamECB(instream, 0, Key, OutStream);
//先解密再解压
OutStream.Position:=0;
ZStream := TZDecompressionStream.Create(OutStream);
try
OutStream.CopyFrom(ZStream, Size);
finally
ZStream.Free;
end;
Data.Clear;
Data.Write(OutStream.Memory^, OutStream.Size);
finally
OutStream.Free;
end;
finally
InStream.Free;
end;
end;
procedure TDataCompressor.DataOut(const Data: IDataBlock);
var
InStream, OutStream: TMemoryStream;
ZStream: TZCompressionStream;
Size: Integer;
begin
InStream := TMemoryStream.Create;
try { Skip BytesReserved bytes of data }
InStream.Write(Pointer(Integer(Data.Memory) + Data.BytesReserved)^, Data.Size);
Size := InStream.Size;
if Size = 0 then
Exit;
OutStream := TMemoryStream.Create;
try
ZStream := TZCompressionStream.Create(OutStream,zcFastest );
try
ZStream.CopyFrom(InStream, 0);
finally
ZStream.Free;
end;
DecryptAESStreamECB(outstream, outstream.Size - outstream.Position, Key, InStream);
Data.Clear;
Data.Write(Size, SizeOf(Integer));
Data.Write(InStream.Memory^, InStream.Size);
finally
OutStream.Free;
end;
finally
InStream.Free;
end;
end;

Delphi的Demos就有它的例子，至于加密、解密就的靠你自己了。

有兴趣听课

幫頂

Dev express Flow Chart 是一个很好的实现各种数据流图的空间包，
你上面这个程序包什么错？ 哪里包错总要说出来吧，
不然怎么看呢？

Dev express Flow Chart 好象没有关于时间的横坐标啊，是不是还要找时间的控件
我那个程序是写成dll文件的，报错的地方肯定是流+密部门，因为不+是很正常的，是delphi带的demo