16 lines
460 B
Text
16 lines
460 B
Text
#include "crt.bi"
|
|
|
|
Extern "C"
|
|
Function Query (Byval dato As zstring Ptr, Byval longitud As size_t Ptr) As Integer Export
|
|
Dim As String message = "Here am I"
|
|
Dim As size_t message_length = Len(message)
|
|
|
|
If *longitud < message_length Then
|
|
Return 0
|
|
Else
|
|
memcpy(dato, Strptr(message), message_length)
|
|
*longitud = message_length
|
|
Return 1
|
|
End If
|
|
End Function
|
|
End Extern
|