Proč nefunguje BlockRead? – Delphi – Fórum – Programujte.com

Mám následující kód

procedure TForm1.FormCreate(Sender: TObject);

var a,f:file; ar:array of char; s:longint;

begin

  AssignFile(f,'bla.MP3');

  Reset(f,1);

  s:=FileSize(f);

  SetLength(ar,s);

  AssignFile(a,'neco.n');

  Rewrite(a,1);

  BlockRead(f,ar,s);

  BlockWrite(a,ar,s);

  CloseFile(a);

  CloseFile(f);

end;

Rewrite(f,1) si zmeň na Rewrite(a,1) - zmažeš si súbor a potom sa z neho snažíš čítať ;)

Aha, to jsem si nevšiml :-), ale tohle byla stejně jen kopie, i když to spravím a napíšu to co tam má být (rewrite(a,1);), hlásí to chybu. Nemaže to teda ten původní, ale nepřekopíruje to. Zahlásí to 'I/O error 998' na tom blockreadu. Pokud to nenačítám do dynamického pole, ale mám cyklus while not(eof(f)) a překopírovávám to po bytech, jede to v pořádku, ale trvá to příšerně dlouho. Jen tak pro upřesnění, první soubor má asi 20 MB.

Mohol by si vyskúšať toto?

procedure TForm1.FormCreate(Sender: TObject);

var

  a,f:file;

  buffer:pbyte;

  s:longint;

begin

  AssignFile(f,'bla.MP3');

  Reset(f,1);

  s:=FileSize(f);

  buffer := getmem(s);

  AssignFile(a,'neco.n');

  Rewrite(a,1);

  BlockRead(f,buffer^,s);

  BlockWrite(a,buffer^,s);

  CloseFile(a);

  CloseFile(f);

  freemem(buffer);

end;

Píše to "Incompatible types" na tom alokování paměti pro buffer.

Mimochodem, pbyte je ^byte? Jsem zvyklý používat new(p); a dispose(p);, takovyhle novoty jsou na mě moc :-).

Delphi očividne nie je freepascal :) Takže

getmem(buffer, s);

Zdravím,

pokud ti jde pouze o kopírování a nepotřebuješ nijak dále s tím souborem pracovat, tak se nabizí využití Win API fce CopyFile.
http://msdn.microsoft.com/en-us/library/aa363851(VS.85).aspx

Dobře, abych' upřesnil, co přesně s tím chci dělat, tady je výsledek, program, kde jsem to řešil pomocí cyklu a četl (zapisoval) to po jednom bytu http://sourceforge.net/projects/stickncut.

no po bytech to musi byt uzasne rychly... blockread bych radsi pouzil treba jen po usecich 64kB ... nebo podobne..
nemusis se pak starat ani o to dynamicky alokovani.. 64kB v programu nikoho nezabije :D pripadne jeste nejaky vetsi jednotky

Vyskúšal si tú obmenu getmem s dvoma parametrami? To ti musí fungovať aj v Delphi.
KIIV: Nie je dôvod používať blockread po takých malých častiach.

To imcold : Ano, přidělení paměti fungovalo, ale mělo to stejný účinek, jako to SetLength();. Pořád to píše naprosto zhovadilou chybu, našel jsem o tom na netu ještě víc, ale žádny řešení. Nemám důvod používat blockread po konstantnéch částech, když stejně vím, jak je onen soubor velký (co do počtu znaků).

To Garret Raziel : jenze jakou chybu to haze?

tak sem jen provizorne zkousel a taky mi to padlo ... ale je to proto ze to haze spatnou velikost souboru...
pomohlo dat typ file of char;

procedure TForm1.Button1Click(Sender: TObject);

begin

  if ( OpenDialog1.Execute ) then begin

    Edit1.Text := OpenDialog1.FileName;

  end;

end;



procedure TForm1.Button2Click(Sender: TObject);

var f1, f2: file of Char;

    buf: PChar;

    velikost: Integer;

begin

  if ( SaveDialog1.Execute ) then begin

    AssignFile(f1, Edit1.Text );

    Reset(f1);

    AssignFile(f2, SaveDialog1.FileName);

    Rewrite(f2);



    try

      velikost := filesize(f1) ;

      Memo1.Lines.Append('Velikost souboru: ' + IntToStr(velikost));

      GetMem(buf,velikost);

      try

        Blockread(f1, buf^, velikost);

        BlockWrite(f2,buf^,velikost);

      finally

        FreeMem(buf);

      end;

    finally

      CloseFile(f1);

      CloseFile(f2);

    end;

  end;

end;

To je zvláštne, v D7 ten kus kódu funguje bez problémov: http://imcold.evilhosting.org/files/copy_file.zip .

Už to začalo fungovat, funguje to

BlockRead(f,buffer^,s);

BlockWrite(a,buffer^,s);