READFILE der kernel32.dll funktioniert nicht

[Kampi4]

So guten Tag erst mal,
habe ein Problem in VARPG.
Und zwar will ich aus einer txt Datei, die auf meiner Festplatte liegt den Inhalt auslesen und dann in ein Mehrzeiliges Eingabefeld laden.
Dazu benutze ich APIs aus der kernel32.dll.
Das Problem ist nun, daß das "CreateFile" und das "CloseFile" funktioniert, nur das "ReadFile" funktioniert nicht.
Im Debugger sieht das folgerndermaßen aus:
Nach "CreateFile" - "BRC" = 272
Nach "GetLastError" - "Error" = 0
Nach "ReadFile" - "RET2" = 0 ---> wenns funzt müsste es 1 sein
Nach "GetLastError" - "Error" = 6 ---> heisst das der Handle falsch ist
und "OVERLAP" ist 259 ---> warum auch immer
Nach "CloseFile" - "RET3" = 1 ---> hat also funktioniert

Was ich jetzt nicht verstehe ist, das er den Handle beim "ReadFile" nicht annehmen will, direkt danach den gleichen Handle beim "CloseFile" aber akzeptiert.
Das gleiche Problem habe ich wenn ich einen Com-Port öffne, da funzt auch alles, sogar ein "WriteFile", nur das "ReadFile" nicht.

Das komische ist auch, das beides schon mal so funktioniert hat. Aber als ich dann mein Programm erweitert habe, mit Sachen die eigentlich nichts damit zu tun haben, hat es auf einmal nicht mehr funktioniert.
Kann es was geben, was dem ins Gehege kommt, obwohl es eigentlich nichts damit zu tun hat?!?

Hier noch Quellcode-Auszüge (wollte nicht allen reinpacken, da das Programm knappe 4000 Zeilen hat):

     D CRTFILE         PR     10U 0 ExtProc('CreateFileA') 
     D                                     DLL('Kernel32.dll') 
     D                                     Linkage(*StdCall)
     D                                 * VALUE OPTIONS(*STRING)
     D                             10I 0 Value
     D                             10I 0 Value
     D $SEC                                LIKE(secattr)
     D                             10I 0 Value
     D                             10I 0 Value
     D                             10I 0 Value
 
     D GETLASTERROR PR     10U 0 EXTProc('GetLastError')     
     D                                     DLL('Kernel32.dll')     
     D                                     Linkage(*StdCall)
 
     D READFILE        PR     10U 0 ExtProc('ReadFile')     
     D                                        DLL('Kernel32.dll') 
     D                                        Linkage(*StdCall)
     D                             10I 0 Value
     D                                 *    VALUE OPTIONS(*STRING)
     D                             10I 0 Value
     D $WRITE                             LIKE(WRITE)
     D $OVER                             LIKE(OVERLAP)
 
     D CLOSEFILE     PR     10U 0 ExtProc('CloseHandle')     
     D                                        DLL('Kernel32.dll') 
     D                                        Linkage(*StdCall)
     D                             10I 0 Value
 
     D secattr         DS
     D LENGTH                        10I 0 INZ(80) 
     D SECDESC                     10I 0 INZ(0)
     D BOOL                         10I 0 INZ(0)
     D name            S             10A
     D access         S             10U 0 INZ(3221225472)
     D share         S             10U 0 INZ(0)
     D create         S             10I 0 INZ(3)
     D attr            S             10U 0 INZ(128)
     D template        S             10I 0 INZ(0)
     DBRC             S             10U 0 
     DRET             S             10U 0 
     DRET2             S             10U 0     
     DRET3             S             10U 0    
     DRET4             S             10U 0
     DWRITE            S             10U 0     
     DOVERLAP         S             10U 0
     DENT1             S             10A 
     DENT2             S             18A 
     DENT3             S            350A 
     DENT4             S             18A
     DENT5             S         2000A
     DENTERR         S             80A         
     DaENT1            S             * inz(%addr(ENT1)) 
     DaENT2            S             * inz(%addr(ENT2)) 
     DaENT3            S             * inz(%addr(ENT3))     
     DaENT4            S             * inz(%addr(ENT4))
     DaENT5            S             * inz(%addr(ENT5))     
     DaENTERR         S             * inz(%addr(ENTERR) 

EVAL     ENT4 = 'c:\rdc\hilfe_1.txt' + X'00'
     C*
     C                 EVAL     BRC = CRTFILE(aENT4:ACCESS:share:
     C                             secattr:create:attr:template)
     C*
     C                 EVAL     error = getlasterror
     C*
     C                 EVAL     length = 2000
     C                 EVAL     RET2 = READFILE(BRC:aENT5:Length:WRITE
     C                             :OVERLAP)
     C                 EVAL     error = getlasterror
     C*
     C                 EVAL     RET3 = Closefile(brc) 

Ich hoffe ihr könnt mir weiterhelfen, weil es das letzte ist, was der Vollendung des Programms im Wege steht.
Schon mal vielen Dank für eure Mühen und allen ein schönes WE!

Mfg KAMPI

[Fuerchau]

Die Deklaration von ReadFile ist falsch:

BOOL ReadFile(
HANDLE hFile, // handle of file to read
LPVOID lpBuffer, // pointer to buffer that receives data
DWORD nNumberOfBytesToRead, // number of bytes to read
LPDWORD lpNumberOfBytesRead, // pointer to number of bytes read
LPOVERLAPPED lpOverlapped // pointer to structure for data
);

also:

D READFILE PR 10U 0 ExtProc('ReadFile')
D DLL('Kernel32.dll')
D Linkage(*StdCall)
D 10I 0 Value
D * Value <= Adresse eines Puffers
D 10I 0 Value
D 10I 0 <= Adresse eines Long für Rückgabe
D $OVER * Value <= Adresse der OVERLAP-Struktur

Um Adressen zu übergeben verwendest du %addr(MyVar).

[Kampi4]

Ich danke dir für die schnelle Antwort!
Jetzt gehts, lag zusätzlich noch an der Overlapp-Struktur, in der was falsches stand. Die muss komplett mit "0"en gefüllt sein, wenn man die eigentlich nicht braucht, weil man keinen gleichzeitigen Lese-/Schreibzugriff hat. Habe das noch auf ner VBA Seite gelesen.

Jetzt ist das WE gerettet.

Mfg KAMPI
P.S. Trotzdem komisch, weil es auf jeden Fall schon mal lief so wie ich es hatte. Naja egal!