Runtime error 216 at 77D18C2C

[Pseudemys Nelsoni]

hallo,

woher kommt obiger fehler? auf jedenfall wird dieser durch folgendes ausgelöst:

Delphi-Quellcode:

  hFile := CreateFile(PChar(pfad),
           GENERIC_READ or GENERIC_WRITE,
           FILE_SHARE_READ or FILE_SHARE_WRITE,
           nil,
           OPEN_EXISTING,
           0,
           0
  );

    ReadFile(hFile, buf, SizeOf(buf), NumberOfBytesRead, nil);
  MessageBox(0, PChar(string(NumberOfBytesRead)), 'hi', 0);

[r_kerber]

Ist buf in der erforderlichen Größe bereitgestellt??

[teebee]

Ein Runtime Error 216 ist eine Zugriffsverletzung. Hast u für Deinen Buffer genug Speicher reserviert?

Gruß, teebee

[Pseudemys Nelsoni]

hallo,

der buffer sah so aus:

Delphi-Quellcode:

buf: Array[0..4095] of Char;

aber selbst wenn ich " buf: Array[0..1000000000] of Char;" nehme (was ziemlich lagt :D) kommt der fehler..

[r_kerber]

Hast Du schon mal überprüft, ob handle <> NIL ist? Vielleicht solltest Du auch noch ein Typecast auf die Winapi32-Typen machen.

[Pseudemys Nelsoni]

Code:

  if (hFile <> 0) then messagebox(0, 'hi', 'hi', 0);

die message wird ausgegeben, also existiert das handle.

was meinst du mit api typen?

[r_kerber]

[equote="In den MS Win32 Developer's References steht geschrieben"]HANDLE CreateFile(

LPCTSTR lpFileName, // pointer to name of the file
DWORD dwDesiredAccess, // access (read-write) mode
DWORD dwShareMode, // share mode
LPSECURITY_ATTRIBUTES lpSecurityAttributes, // pointer to security attributes
DWORD dwCreationDistribution, // how to create
DWORD dwFlagsAndAttributes, // file attributes
HANDLE hTemplateFile // handle to file with attributes to copy
);[/equote]

[APP]

Hallo Pseudemys Nelsoni,

CreateFile gibt bei einem fehlerhaften Handle

Zitat:

INVALID_HANDLE_VALUE = DWORD(-1);

zurück, daher mußt Du auf

Delphi-Quellcode:

  IF hFile = INVALID_HANDLE_VALUE THEN
  // Fehler

oder auf -1 und nicht auf 0 prüfen.

[Pseudemys Nelsoni]

und wie zeig ich das als string an r_kerber?

btw:

Delphi-Quellcode:

if (hFile <> INVALID_HANDLE_VALUE) then messagebox(0, 'hi', 'hi', 0);

´


zeigt ebenfalls die messagebox

will nur solch nen doofen string in einer dll ersetzen, man ist das schwer

[APP]

Zitat:

Zitat von Pseudemys Nelsoni

...und wie zeig ich das als string an r_kerber?

Luckie hat Dir hier http://www.delphipraxis.net/internal...light=readfile schon die Antwort gegeben.
Stichwort: NumberOfBytesRead (=Gelesen von Luckie) ist vom Typ ...)