1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41
| Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
channelFactory = New DuplexChannelFactory(Of MMTP_Contrats.IMarketWatchServer)(Me, "configResume")
channelFactory.Open()
CallResumeServer = channelFactory.CreateChannel()
Dim MyIntradayList As New List(Of Intraday_DTO)
Dim stream As MemoryStream = CallResumeServer.GetIntraday()
Dim formatter As BinaryFormatter = New BinaryFormatter()
Dim n As Long = stream.Seek(0, SeekOrigin.Begin)
MyIntradayList = CType(formatter.Deserialize(stream), List(Of Intraday_DTO))
MyIntradayDataSet.Tables(0).PrimaryKey = New DataColumn() {MyIntradayDataSet.Tables(0).Columns("ISIN_Code")}
For Each Intraday In MyIntradayList
InsertDataFromObject(Intraday)
Next
DataGridView1.DataSource = MyDataTable
DataGridView1.DataBind()
Try
CallResumeServer.DemarrerSessionResume()
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
Public Sub ReceptionUpdate(ByVal p As MMTP_DTO.UpdateIntraday_DTO) Implements MMTP_Contrats.IMarketWatchClient.ReceptionUpdate
Try
Dim MyFoundedRow As DataRow = MyDataTable.Rows.Find(p.ISIN_Code)
UpdateDataFromObject(MyFoundedRow, p)
Catch
End Try
End Sub |
Partager