Länge einer IncludeBinary bestimmen!

[ts-soft]

@jear
IncludeBinary ist eine Compilerdirektive
PokeL und FileSize werden zur RunTime ausgeführt

Das kann so nicht gehen

[jear]

Bitte mal kompilieren.

Code: Alles auswählen

Procedure Test(*Pointer) 
  FLen.l = PeekL(*Pointer) 
  SStart.l = *Pointer + SizeOf(Long) 
  MessageRequester("Drinnen", "Startadresse : " + Str(SStart)+ #LF$ + "Länge : " + Str(FLen) , #MB_OK|#MB_ICONINFORMATION) 
EndProcedure 

; Länge der IncludeDatei 
FLen.l = ?dateiE - ?datei 
PokeL(?dateiL, FLen) 
MessageRequester("Draußen", "Startadresse : " + Str(?datei)+ #LF$ + "Länge : " + Str(FLen) , #MB_OK|#MB_ICONINFORMATION) 

Test(?dateiL) 

DataSection
  dateiL: Data.l 0  
  datei: IncludeBinary "foto.jpg"
  dateiE: 
EndDataSection

Sorry. Mir ging es um die Parameterübergabe mit einem einzigen Pointer.
Ohne FileSize() geht es aber auch.

[Kaeru Gaman]

denkfehler:

Code: Alles auswählen

FLen.l = FileSize("foto.jpg")

dazu müsste die datei zur laufzeit im verzeichnis sein,
dann muss ich sie auch nicht includieren.

[ts-soft]

Bitte mal kompilieren.

---------------------------
Draußen
---------------------------
Startadresse : 4210776
Länge : -1
---------------------------
OK
---------------------------