XProfan

Français

Beschreibung:

WriteFile écrit données ab qui aktuellen Position des Dateizeigers dans un Dossier.

Deklaration:

DEF @WriteFile(5) !kernel32,WriteFile

paramètre:

1.paramètre: Handle qui Dossier, dans qui on écrivons veux.

2.paramètre: Adresse einer Variablen avec données ou bien Bereichsvariable avec données, qui geschrieben volonté devoir.

3.paramètre: Nombre de Bytes, qui geschrieben volonté devoir comme LongInt.

4.paramètre: Bereichsvariable, qui le nombre qui wirklich geschriebenen Bytes aufnimmt.

5.paramètre: Struktur ou bien 20 Byte Bereichsvariable pour überlappendes Lesen et écrivons. peux zéro son, si cela Handle des Files pas avec $40000000 (chez CreateFile paramètre 6) ouvert wurde.
-Byte 0-3 = Pour Systemgebrauch reserviert.
-Byte 4-7 = Pour Systemgebrauch reserviert.
-Byte 8-11 = qui unteren 32 Bit qui Startadresse pour cela écrivons.
-Byte 12-15 = qui oberen 32 Bit qui Startadresse pour cela écrivons.
-Byte 16-19 = Handle des Ereignisses, cela un Signal angibt, si le Übertragung finissez ist.

Rückgabewert:

0 chez Misserfolg, 1 chez Erfolg.

Beispiele:

Kompilieren Marque Séparation

DEF @CreateFile(7) !"kernel32","CreateFileA"
Def @CloseHandle(1) !"kernel32","CloseHandle"
DEF @WriteFile(5) !"kernel32","WriteFile"
Declare Dateiname$,Text$,Written#,DateiHandle&
Declare Button&
LET TEXT$="Hallo Welt!"
LET DATEINAME$="C:TEST.TXT"
LET DateiHandle&=@CreateFile(@ADDR(Dateiname$),$80000000+$40000000,0,0,4,$80,0)
Dim Written#,4
@WriteFile(DateiHandle&,@ADDR(TEXT$),@len(Text$),Written#,0)
Dispose Written#
@CloseHandle(DateiHandle&)
WINDOWSTYLE 31
Windowtitle "Datei erzeugen"
WINDOW 0,0-640,440
Let Button&=@Createbutton(%HWND,"Datei löschen",20,200,200,30)

While 0=0

    Waitinput

    IF @GetFocus(Button&)

        ASSIGN #1,Dateiname$
        Erase #1
        Enablewindow Button&,0
        Beep 1

    Endif

WEND