哪位空闲的朋友帮我画2个流程图，我懒得自己整理了；越详尽、规范越好！ (300分)

依据如下的2个过程，画2个流程图，最好详尽、规范一些；谢谢。
***************************************************************************
mail : forevertyn@sina.com

压缩图像

procedure CompressBitmap(var CompressedStream: TMemoryStream;const CompressionLevel: TCompressionLevel);
var
SourceStream: TCompressionStream;
DestStream: TMemoryStream;
Count: Integer;
Begin
//获得图像流的原始尺寸
Count := CompressedStream.Size;
DestStream := TMemoryStream.Create;
SourceStream:=TCompressionStream.Create(CompressionLevel, DestStream);
Try
//SourceStream中保存着原始的图像流
CompressedStream.SaveToStream(SourceStream);
//将原始图像流进行压缩， DestStream中保存着压缩后的图像流
SourceStream.Free;
CompressedStream.Clear;
//写入原始图像的尺寸
CompressedStream.WriteBuffer(Count, SizeOf(Count));
//写入经过压缩的图像流
CompressedStream.CopyFrom(DestStream, 0);
finally
DestStream.Free;
end;

end;

还原被压缩图像

procedure UnCompressBitmap(const CompressedStream: TFileStream; var Bmp: TBitmap);
var
SourceStream: TDecompressionStream;
DestStream: TMemoryStream;
Buffer: PChar;
Count: Integer;
Begin
//从被压缩的图像流中读出原始图像的尺寸
CompressedStream.ReadBuffer(Count, SizeOf(Count));
//根据图像尺寸大小为将要读入的原始图像流分配内存块
GetMem(Buffer, Count);
DestStream := TMemoryStream.Create;
SourceStream := TDecompressionStream.Create(CompressedStream);
Try
//将被压缩的图像流解压缩，然后存入 Buffer内存块中
SourceStream.ReadBuffer(Buffer^, Count);
//将原始图像流保存至 DestStream流中
DestStream.WriteBuffer(Buffer^, Count);
DestStream.Position := 0;//复位流指针
//从 DestStream流中载入原始图像流
Bmp.LoadFromStream(DestStream);
finally
FreeMem(Buffer);
DestStream.Free;
end;

end;

偷懒的孩子应该受罚！打PP[!]

我有不知道你的流程如何！不会就是想鬼跳一样------ 一条线吧！ :>

如果没人领这600元，记得还有我。 :>

要发分就直说嘛。看你那么有钱，发点又有什么关系呢？

[8D]

无数次打开邮箱，空空如也；
难道偷懒不成了？

天上掉馅饼，please .

一不小心，撑破肚皮~~ []

发明一种软件：
可以对麦克风说[我要馅饼]，于是天上掉馅饼了。

卷卷好懒，以后肯定不是好老公，

呵呵,用visio 不到三分钟就能出来,自己动手吧,我才不干没意思的事.

楼上兄弟说得对。用visio实在方便。画好后粘贴到word中，千万别用word画什么流程图。

因为流程很简单，所以想用word画画算了；
楼上的诸位用visio画好，粘贴到word中，发给我也可以哦～～～～

300分竟然送不出去？

l

懒惰！该打！

[]

hehe

你好，我是程诚，你把这个详细要求发给我，我用CDraw给你做一个，转换为jpg格式发给你
要不要，tkggai@sina.com

好久不见;

没有什么特殊要求,只要按照我上面的流程画出来就可以;
当然要画的详尽/正规一些了.

Delphi里好象没有TCompressionStream和TDecompressionStream这两个类！