Await event to complete before continuing code

[Guest WojszaM]

Hi, I have a question. I have a method that sends and receives messengers via serial port as a byte arrays,

 

to SerialPort DataRecived I am adding an event that will read response and assign it to type

 

so basically it should be easy and looks like this:

 

async {

 

let buffer = Array.zeroCreate<byte> port.ReadBufferSize

let response = new Response(buffer)

 

let data_recived =

async{

let! read_buffer = port.AsyncReadLineAsByte()

response.Data <- read_buffer

 

printfn "Response Buffer: %A response type: %A" read_buffer response.Data

}

|> Async.RunSynchronously

 

port.DataReceived.Add(fun _-> data_recived)

 

do! port.AsyncWriteLineAsByte messange

 

//Something to wait for fired event

 

return response.Data

}

 

And type looks like

 

type Response(buffer: byte[]) =

 

let mutable _response = buffer

 

member this.Data

with get() = _response

and set(value) = _response <- value

 

 

Between sending messenge and returning byte array i need something that will wait for event to fire and finish so far i tried:

 

let! args = port.DataReceived |> Async.RunSynchronously

 

But this get stuck, also i tried:

 

while response.Data = buffer

do printfn "Response: %A \r Buffer: %A" response.Data buffer

 

Well this works one time, if I send second message it goes to endless loop like this while is fire before event is fired.

 

Is there any way for this to work?

 

Continue reading...