[es] - Čitanje i pisanje fajlova

borovac
127.0.0.1

Član broj: 29278
Poruke: 220
*.dlp113.bih.net.ba.

Profil

^{25.06.2005. u 17:00 - pre 229 meseci}

ovako,
imam jedan fajl i trebam ga pročitati, svaki znak posebno, i pisati izmjenjene znakove u novi fajl.

Code:
Čitaj(fajl1,znak)
Enkiptuj(znak)
Piši(fajl2,znak)

Radim enkripciju i dekripciju.

pokušao sam ovako ali radi samo za textualne datoteke

Code:
AssignFile(file1,FileName);
Reset(file1);
AssignFile(file2,EncryptionFileName);
Rewrite(file2);
while not eof(file1) do
  begin
    Readln(file1,FileLine);
    LengthOfLine:=Length(FileLine);
    for i:=1 to LengthOfLine do
      begin
        writeln(file2,enkriptuj(FileLine[i]));
      end;
    writeln(file2);
  end;
CloseFile(file1);
CloseFile(file2);

Odgovor na temu

Passwd

Član broj: 54624
Poruke: 640
*.adsl.net.t-com.hr.

Profil

Re: Čitanje i pisanje fajlova

^{25.06.2005. u 17:12 - pre 229 meseci}

A kakve bi ti datoteke jos???

Odgovor na temu

borovac
127.0.0.1

Član broj: 29278
Poruke: 220
*.dlp78.bih.net.ba.

Profil

Re: Čitanje i pisanje fajlova

^{25.06.2005. u 20:16 - pre 229 meseci}

Kažem ticsamo txt rade, dok svi drugi fajlovi ne rade.
Možda treba nešto sa stream-om, nisam siguran.
Dajte pomozite.

Odgovor na temu

Nemanja Avramović
Engineering Manager
MENU Technologies
Beograd, Srbija

Član broj: 32202
Poruke: 4391
*.yu1.net.

Sajt: https://avramovic.info

+46 Profil

Re: Čitanje i pisanje fajlova

^{25.06.2005. u 21:44 - pre 229 meseci}

binarne fajlove moras sa stream-om, a ne znam kakva ti je to enkripcija (da li ce raditi)

Laravel Srbija.

_{[NE PRUŽAM PODRŠKU ZA PHP PREKO PRIVATNIH PORUKA!]}

Odgovor na temu

Toyo

Član broj: 45193
Poruke: 227
*.kovnet.co.yu.

+1 Profil

Re: Čitanje i pisanje fajlova

^{26.06.2005. u 00:31 - pre 229 meseci}

Code:

function uradinesto(b:byte): byte;
begin
  result := b blablabla...
end;

var
f1,f2:file of byte;
b:byte;
begin
assignfile(f1,'ulaz.zip');
assignfile(f2, izlaz.doc');
reset(f1);
rewrite(f2);
while not eof(f1) do
   begin
     read(f1,b);
     write(f2, uradinesto(b));
   end;
  closefile(f1);
  closefile(f2);
end;

Odgovor na temu

borovac
127.0.0.1

Član broj: 29278
Poruke: 220
*.dlp413.bih.net.ba.

Profil

Re: Čitanje i pisanje fajlova

^{26.06.2005. u 12:17 - pre 229 meseci}

Možda treba nešto ovako.

Code:

procedure EncodeFile(const Key: string; const FileName: string);
var
  Stream: TFileStream;
begin
  Stream := TFileStream.Create(FileName, fmOpenReadWrite or fmShareExclusive);
  try
    EncodeStream(Key, Stream);
  finally
    Stream.Free;
  end;
end;

procedure EncodeStream(const Key: string; Stream: TStream);
var
  MemStream: TMemoryStream;
  Count: Cardinal;
  Pos: Int64;
begin
  MemStream := TMemoryStream.Create;
  try
    Pos := Stream.Position;
    Count := Cardinal(Stream.Size - Pos);
    MemStream.SetSize(Count);
    if Count <> 0 then
    begin
      Stream.ReadBuffer(MemStream.Memory^, Count);
      Encode(Key, MemStream.Memory, Count);
      Stream.Position := Pos;
      Stream.WriteBuffer(MemStream.Memory^, Count);
    end;
  finally
    MemStream.Free;
  end;
end;

ne kontam ovaj dio

Code:

Stream.ReadBuffer(MemStream.Memory^, Count);
Stream.WriteBuffer(MemStream.Memory^, Count);

Odgovor na temu