Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Win32/Win64 API (native code) (https://www.delphipraxis.net/17-win32-win64-api-native-code/)
-   -   ReadFile() mit dynamischem buffer (https://www.delphipraxis.net/116175-readfile-mit-dynamischem-buffer.html)

1234588 24. Jun 2008 16:59


ReadFile() mit dynamischem buffer
 
mein quelltext sieht wie folgt aus:
Delphi-Quellcode:
uses
  windows;

var
  a: array of byte;
  hFile: LongWord;
  fSize: LongWord;
  bRead: LongWord;

begin
  hFile := CreateFile('C:\miep.mp3',
                      GENERIC_READ,
                      FILE_SHARE_READ or FILE_SHARE_DELETE or FILE_SHARE_WRITE,
                      nil,
                      OPEN_EXISTING,
                      FILE_ATTRIBUTE_NORMAL,
                      0);

  fSize := GetFileSize(hFile, nil);
  SetLength(a, fSize);

  ReadFile(hFile,
           a,
           fSize,
           bRead,
           nil);
ansich funktioniert alles wie gewuenscht. alerdings nur mit einem array statischer groeße. da aber meine datei aber immer eine unterschiedliche groeße haben wird, klappt das mit einem statischen buffer nicht. also tauschte ich mein statisches gegen ein dynamisches, welches ich mit SetLength() dimensioniere. jetzt bekomme ich aber bei ReadFile() einen fehler.
bRead ( = gelesene bytes) enthaelt dann 0 und GetLastError() liefert mir 998 (Unzulässiger Zugriff auf einen Speicherbereich). auch wenn ich einen pointer nehme und mir dann einfach speicher reserviere, funktioniert das ebenso nicht.
weiß jemand, woran das liegt und wie ich das unterbinde bzw loesen kann? :)

Apollonius 24. Jun 2008 17:00

Re: ReadFile() mit dynamischem buffer
 
Du musst Pointer^ bzw. DynArray[0] nehmen - Delphi nimmt dann implizit die Adresse.

1234588 24. Jun 2008 17:03

Re: ReadFile() mit dynamischem buffer
 
ich bin doch ein idiot :/

vielen dank


Alle Zeitangaben in WEZ +1. Es ist jetzt 19:57 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz