Kodowanie pliku szynki sposób ?

Witajcie .

Proboje zakodowac plik z danymi. Mam ich troche ,wiec nie ukrywam ,ze zależy mi na prędkości. robie w ten sposób :
( nie jest wysublimowany :) )
 repeat      application.processmessages;      BlockRead(sPlikZ, Buf, 1, iCzytane);      inc(x);        if x<=100 then begin          intZnak:=ord(buf[1]);          iWYnik:=12 xor intZnak;            chrZnak:=chr(iWynik);            BlockWrite(sPLikDo, chrZnak, iCzytane, iPisane);         end           else    BlockWrite(sPlikDo, Buf, iCzytane, iPisane);
W przypadjku duzego pliku ,np.: 300 MB idzie to jhak krew z nosa.
Zna ktos lepsza ,szybsza metodę ?
Dziekuję i pozdrawiam

---

Idzie wolno, bo odczytujesz po jednym bajcie na pętlę ;)

Możesz tez wykorzystać to http://forum.ks-eksp...ndpost&p=313197 :D

---

Dziekuje za szczere checi pomocy ,ale juz problem rozwiązałem.
Rozwiązaniem stało się TMemoryStream.
W porównaniu z metodą pierwszą jest wiele,wiele szybsza.

Pozdrawiam
Użytkownik Mar3k edytował ten post 10 maj 2005, 10:48
a nie prościej do rara i na hasełko?


a nie prościej do rara i na hasełko?
To zrób tak [delphi/c] ;)


To zrób tak [delphi/c] ;)


? :}
A po co samemu cokolwiek kodzić? Progsy do rarowania przecież są.
Co to za frajda odpalić rar-a? Nie lepiej samemu coś napisać? ^_^


Co to za frajda odpalić rar-a? Nie lepiej samemu coś napisać? ^_^


zreszta moze on potrzebuje szyfrowanie do czego takiego jak moje szyfrowanie w pinerze ;)
Eeee. w czym? :rolleyes:


Eeee. w czym? :rolleyes:

zanotowane.pl

doc.pisz.pl

pdf.pisz.pl

zsf.htw.pl