Blockread Problem

[henrik]

hallo,

ich habe folgendes Problem mit Blockread

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var dat : FILE;
    t: integer;
    buffer : array of byte;
begin

assignfile(dat,'G:\test.dat');
reset(dat,1);

setlength(buffer,80000); // Datei ist ca. 80000 Bytes groß
blockread(dat,buffer,70000,t);
closefile(dat);

end;

Hier bringt Windows den Fehler

...E/A Fehler 998..." Bei einer kleineren "Anfrage" zB "blockread(dat,buffer,2000,t);" kommt kein Fehler.

wisst ihr woran das liegt ?

mfg

Henrik

[Christian Seehase]

Moin Henrik,

probier mal den Anfang des Arrays als Startadresse anzugeben

Code:

blockread(dat,buffer[color=red][0][/color],70000,t);

[henrik]

DANKE !!!


so funktionierts !

Komisch nur dass es mit 2000 Byte auch ohne die explizite Angabe der Startadresse geht !


mfg
Henrik

[Christian Seehase]

Moin Henrik,

Zitat von Platform SDK:

998 Invalid access to memory location. ERROR_NOACCESS

sprich: Bei dem kleineren Wert hast Du nur Glück gehabt, dass nicht in einen Speicherbereich geschrieben wurde, auf den so nicht zugegriffen werden kann.