_
Privates geteiltes Funktion tira_get_captured_data (ByRef Daten als IntPtr, ByRef Größe als ganze Zahl) als ganze Zahl
Enden-Funktion
_
Privates geteiltes Funktion tira_delete (ByVal PTR als IntPtr) als ganze Zahl
Enden-Funktion
VorTira ()
Schwache Daten als IntPtr = IntPtr.Zero
Schwach als ganze Zahl dataSize = 0
Res als ganze Zahl verdunkeln = 0
Res = tira_get_captured_data (Daten, dataSize)
'//TODO: Arbeit mit (Daten) Zeiger.
Wenn data.ToInt32 <> 0 dann
'freies Haufengedächtnis
Res = tira_delete (Daten)
Beenden wenn
Unterseeboot beenden
|