The StimulReport GUI No Response...

[timtc]

When I use the Asynchronous call to Get Dataset ..like this..

Dim oMethod As Delegate_GetProcessDate = New Delegate_GetProcessDate(AddressOf GetProcessData)
Dim oCBMethod As AsyncCallback = New AsyncCallback(AddressOf CallBackAynscGetProcessData)
oMethod.BeginInvoke(moTagSL, msDataKind, msReportKind, moParamHT, oCBMethod, moValueScreenHT)

I write a stimulreport related code in the callback function like this

Dim oReport As StiReport = New StiReport
oReport.Load(msPath_Rpt)
oReport.Compile()
oReport.RegData(moSQLData)
oReport.Show()


I can see the stimulreport design gui but always showing no response...
I try a lot of method including creating a new class and raise event in callback function and got the same result.

because the data is large, it's slow when getting it. I have to use Asynchronous call to get the data and show the prograssbar smooth ...
Could anyone help me ? thanks a lot..

[Vital]

We will examine this problem and will inform you about progress in this topic.

Thank you.

[timtc]

Thanks a lot ..

Hope It's not a no-answer problem...



timtc

[Vital]

I'm check following code and it work fine:

С#:

Code: Select all

private void button1_Click(object sender, EventArgs e)
        {
            AsyncCallback processReport = new AsyncCallback(ProcessReport);
            this.BeginInvoke(processReport, new object[] { null });
        }

        private void ProcessReport(IAsyncResult result)
        {
            DataSet data = new DataSet();
            data.ReadXmlSchema("D:\\demo.xsd");
            data.ReadXml("D:\\demo.xml");

            StiReport report = new StiReport();
            report.Load("d:\\master-detail.mrt");
            report.Compile();
            report.RegData(data);
            report.Show();
        }

Vb.Net:

Code: Select all

Private Sub button1_Click(ByVal sender As Object, ByVal e As EventArgs)
    Dim processReport As AsyncCallback = New AsyncCallback(AddressOf Me.ProcessReport)
    MyBase.BeginInvoke(processReport, New Object(1  - 1) {})
End Sub


Private Sub ProcessReport(ByVal result As IAsyncResult)
    Dim data As New DataSet
    data.ReadXmlSchema("D:\demo.xsd")
    data.ReadXml("D:\demo.xml")
    Dim report As New StiReport
    report.Load("d:\master-detail.mrt")
    report.Compile
    report.RegData(data)
    report.Show
End Sub

[timtc]

yes..the problem was solved...(just use the MyBase.BeginInvoke)
thanks a lot..

timtc