1

http://www.explainth.at/downloads/huff.zipからハフマンアルゴリズムを使用しようとしています

ユニットには 2 つの機能があります。

function Compress(ASource:TMemoryStream):TMemoryStream;
関数 DeCompress(ASource:TMemoryStream):TMemoryStream;

ファイルの各行を別のファイルに圧縮することに成功しました。

function StreamToString(const stream: TStream) : string;
var
Size: Integer;
begin
  result:='';
  Size := Stream.Size - Stream.Position;
  SetString(result, nil, Size);
  Stream.Read(Pointer(result)^, Size);
end;
procedure TMaster.Button1Click(Sender: TObject);
var
list,list_:TStringlist;
AStream:TMemoryStream;
BStream:TMemoryStream;
s:string;
i,j:integer;
begin
  list := TStringList.Create;
  list_:= TStringList.Create;
  list.LoadFromFile('d:\input.txt');

  for j := 0 to List.Count - 1 do
  begin
    s:=list[j];
    if (Length(s) = 0) then exit;
    {i:=Pos(#13#10,s);
    while (i > 0) do
    begin
      Delete(s,i,2);
      i:=Pos(#13#10,s);
    end;}

    AStream:=TMemoryStream.Create;
    with AStream do WriteBuffer(s[1],Length(s));
    with THuffman.Create do
    try
      BStream:=Compress(AStream);
    finally
      Free;
      AStream.Free;
    end;

  with THuffman.Create do
  try
    AStream:=ProcessToDecrypt (BStream);
    list_.Add(StreamToString(BStream));
  finally
    BStream.Free;
  end
  end; //for j := 0 to List.Count - 1 do

  list_.SaveToFile('d:\output.txt');
  list_.free;
  list.free; 
end;

function THuffman.ProcessToDecrypt(ASource:TMemoryStream):TMemoryStream;
var ASize:Integer;
begin
  ASize:=ReBuildTree(ASource);
  exit;
end;

また、圧縮された各行をファイルから文字列に解凍したいと考えています。

文字列を解凍するために私がしたことは次のとおりです

procedure TMaster.Button2Click(Sender: TObject);
var i:Integer;
    AText:String;
    AStream:TMemoryStream;
    BStream:TMemoryStream;
begin
  AText:='È1ëz-';
  BStream:=TMemoryStream.Create;

  with BStream do WriteBuffer(AText[1],Length(AText));

  with THuffman.Create do
  try
    AStream:=ProcessToDecrypt (BStream);
    AStream:=Decompress(BStream); 
    memoOut.Lines.add.StreamToString(BStream);
  finally
    BStream.Free;
  end;
end;

Button2Click 手順が機能しません。簡単な質問は、圧縮された文字列を解凍するにはどうすればよいですか?

DeCompress のパラメーターは TMemoryStream ですが、パラメーターとして文字列を使用するにはどうすればよいですか?
DeCompress の出力を文字列として作成するには?

4

1 に答える 1

2

上記の私のコメントに加えて、コードを見るだけで、AText の値は圧縮された文字列の正しい表現ではない可能性があります。次の非常に単純なプログラム (あなたのものに基づく) が機能します。

uses Huffman;

procedure TForm1.UncompressButtonClick(Sender: TObject);
var
  AStream:TMemoryStream;
  BStream:TMemoryStream;
begin
  BStream:=TMemoryStream.Create;
  with BStream do LoadFromFile('c:\temp\in.txt');

  with THuffman.Create do
  try
    AStream:=Decompress(BStream);
    AStream.SaveToFile('c:\temp\out.txt');
  finally
    BStream.Free;
  end;
end;

procedure TForm1.CompressButtonClick(Sender: TObject);
var
  AText:String;
  AStream:TMemoryStream;
  BStream:TMemoryStream;
begin
  AText := Edit1.Text;
  BStream:=TMemoryStream.Create;
  with BStream do WriteBuffer(AText[1],Length(AText));
  with THuffman.Create do
  try
    AStream:=Compress(BStream);
    AStream.SaveToFile('c:\temp\in.txt');
  finally
    BStream.Free;
  end;
end;
于 2010-11-26T13:41:10.407 に答える