Komprimátor – Delphi – Fórum – Programujte.com

Dobrý den, před pár dny sme dostali na střední škole domácí práci. Udělat si vlastní komprimátor.. V delphi umíme mírn pokročilý základy a s tímhle si nevím rady. komprimační algoritmy bych tak nějak zvládl ( nemusí zmenšovat ale prostě fungovat). začal sem s tímhle soubor : file of byte;
a_byte: byte;
dál
if openDialog1.Execute
then begin
assignfile(soubor,openDialog1.FileName);
reset(soubor);
ShowMessage(\'Soubor : \'+openDialog1.FileName+\' byl načten!\');
ShowMessage(inttostr());
end;

a dál nevím jak s tím souborem pracovat , potřeboval bych si to bud někam vypsat nebo převíst, žádný readbyte mi nefunguje nebo třeba byteto něco .. Děkuju za jakoukoliv radu.

Zajedno doporučuji použít streamy (filestream pro větší soubory, pokud je to jenom na menší kousky tak klidně memorystream a celej si načíst do paměti, ale to už je na tobě). Se streamem už si můžeš dělat co libo (metody Read, ReadBuffer, Write, WriteBuffer - viz. nápověda). Pokud ten komprimační algoritmus nemusíte vytvářet sami, tak já bych na komprimaci použil jednoduše zlib (je součástí delphi tuším od verze 7).