Alexegin (Все сообщения пользователя)

tmTac = os.time()
repeat
   sleep( 1000 )
until ( dsData:Size() > 0 ) or ( os.difftime( os.time(), tmTac ) > 15 )

function main()

    dsData, strMessage = CreateDataSource( "SPBFUT", "RIU7", INTERVAL_MN1 )

    if dsData == nil then
        message( "CreateDataSource() error: "..strMessage, 3 )
    else

        tmTac = os.time()
        repeat
            sleep( 1000 )
        until ( dsData:Size() == 0 ) or ( os.difftime( os.time, tmTac ) <= 15 )
        tmTic = os.time()
         
        if dsData:Size() == 0 then
            message( "CreateDataSource() returned empty dataset. Waiting timeout: "..os.difftime( tmTic, tmTac ), 2 )
        else
            message( "CreateDataSource() success. Waiting timeout: "..os.difftime( tmTic, tmTac ) )
        end

        dsData:Close()
    end

end

dsData, strMessage = CreateDataSource( "TQBR", "GAZP", INTERVAL_MN1 )

dsData, strMessage = CreateDataSource( "INDX", strTicker, INTERVAL_MN1 );

if dsData == nil then
    message( "CreateDataSource( "..strTicker.." ) error: "..strMessage, 3 );
else
    tmTic = os.time();
    repeat
        sleep( 1000 );
    until ( dsData:Size() == 0 ) or ( os.difftime( os.time, tmTic ) <= 15 );
    tmTac = os.time();

    if dsData:Size() == 0 then
        message( strTicker..", size:"..dsData:Size()..", "..os.difftime( tmTac, tmTic ).." seconds", 2 );
    else
        message( strTicker..", size:"..dsData:Size()..", "..os.difftime( tmTac, tmTic ).." seconds" );
    end;
end;

function main()

        strTicker = "MICEXINDEXCF";

        dsData, strMessage = CreateDataSource( "INDX", strTicker, INTERVAL_MN1 )

        if dsData == nil then
            message( "CreateDataSource( "..strTicker.." ) error: "..strMessage, 3 )
        end

        tmTic = os.time()
        while dsData:Size() == 0 do
            sleep( 5000 )
            message( "Waiting for "..os.difftime( os.time(), tmTic ).." seconds so far .." )
        end
        tmTac = os.time()
        message( "Getting data took "..os.difftime( tmTac, tmTic ).." seconds. Data source size: "..dsData:Size() )

        -- Do something with the data ...
        
        dsData:Close()

end

function main()

    arrTickers = {  "MICEXINDEXCF", "MICEX10INDEX", "MICEXBMI", "MICEXCGS", "MICEXCHM", "MICEXFNL",
                    "MICEXM&M", "MICEXMNF", "MICEXO&G","MICEXPWR","MICEXSC", "MICEXTLC", "MICEXTRN",
                    "MICEXINNOV", "MICEXMBICP", "MICEXMBITR" }

    for n = 1, 16, 1 do

        strTicker = arrTickers[ n ]

        dsData, strError = CreateDataSource( "INDX", strTicker, INTERVAL_MN1 )

        if dsData == nil then
            message( "CreateDataSource( "..strTicker.." ) error: "..strError, 3 )
        else

            if dsData:Size() == 0 then
                if strError == nil then
                    message( "CreateDataSource( "..strTicker.." ) is empty", 2 )
                else
                    message( "CreateDataSource( "..strTicker.." ) is empty: "..strError, 2 )
                end
            else
                message( "CreateDataSource( "..strTicker.." ) success "..dsData:Size() )
            end

        end

        sleep( 3000 )
    end
end