TOPIC:

async method _Connect( cHostName as string, cUserName as string, cPassword as string ) as Task<logic>
local lReturn			as logic
local oTask				as Task

_oClient := AsyncFtpClient{ cHostName, cUserName, cPassword }
oTask := _oClient:Connect()
await oTask
lReturn := _oClient:IsConnected

return lReturn

public method Connect( cHostName as string, cUserName as string, cPassword as string ) as logic
local lReturn as logic

self:_Connect( cHostName, cUserName, cPassword )
lReturn					:= _oClient:IsConnected

return lReturn

warning XS4014: Because this call is not awaited, execution of the current method continues before the call is completed. Consider applying the 'await' operator to the result of the call.

error XS1983: The return type of an async method must be void, Task, Task<T>, a task-like type, IAsyncEnumerable<T>, or IAsyncEnumerator<T>

method _Connect( cHostName as string, cUserName as string, cPassword as string ) as logic
local lReturn			as logic
local oTask				as Task

_oClient := AsyncFtpClient{ cHostName, cUserName, cPassword }
oTask := _oClient:Connect()
oTask:Wait()
lReturn := _oClient:IsConnected
return lReturn

RunSynchronously kann nicht für eine Aufgabe aufgerufen werden, die nicht an einen Delegat gebunden ist, wie beispielsweise eine Aufgabe, die von einer asynchronen Methode zurückgegeben wird.

USING System
USING System.Collections.Generic
USING System.Linq
USING System.Text
using System.Threading.Tasks

FUNCTION Start() AS VOID STRICT
    
    Console.WriteLine("Hello World!")

    LOCAL t AS Test
    t := Test{}
    t:Connect()
    
    Console.ReadKey()

CLASS Test

ASYNC METHOD _Connect() AS Task<LOGIC>

AWAIT Task.Delay(1000)

RETURN TRUE

METHOD Connect AS LOGIC

LOCAL lReturn AS LOGIC 

lReturn := SELF:_Connect():Result

RETURN lReturn

END CLASS

self:_ListDirectory( cPath )
while _lSuccess == false
	System.Diagnostics.Debug.WriteLine( "Waiting on ListDirectory" )
	System.Threading.Thread.Sleep( 100 )
end
if _lSuccess
	oReturn				:= _oEntryList
endif

_lSuccess := false
System.Diagnostics.Debug.WriteLine( "creating task" )
oTask := _oClient:GetListing( cSearch, FtpListOption.AllFiles )
System.Diagnostics.Debug.WriteLine( "awaiting task" )
await oTask
System.Diagnostics.Debug.WriteLine( "task finished" )
_lSuccess := true

_oClient := AsyncFtpClient{ cHostName, cUserName, cPassword }
oTask := _oClient:Connect()
await oTask
PostMessage(SomeWndHandle, WM_USER + ..., IIF(_oClient:IsConnected, 1, 0), 0)