Kite Streaming data to AMIBROKER

balasoft80
Hello,
is there any possibility to push the kite streaming data to Amibroker?

Thanks
Bala
  • Kailash
    Theoretically, of course, it's possible. I'm not familiar with Amibroker, so I'm unable to comment on the details.
  • balasoft80
    Than you. Anyone please any thoughts?
  • gautam_s60
    gautam_s60 edited July 2016
    I m doing it. Just use websocket webpage on localhost, and get tick data.

    My sample foxpro code is here.
    I am not professional developer. Kaam chal jata hai...... ;/ :/

    appIE = Createobject("InternetExplorer.Application")
    appIE.Visible=.T.
    appie.Width=150
    appie.Height=250
    appie.Left=250
    appie.Top=0
    appIE.Navigate("http://localhost/dashboard/stream_kite.php")
    Do While appIE.Busy
    Loop
    ENDDO
    WAIT TIMEOUT 5
    ElementCol = appIE.Document.getElementById("LTP").innerHTML
    tt=1
    objAmibroker = CreateObject("Broker.Application")
    objAmibroker.visible=.t.
    Do While tt36000

    *ElementCol1 = appIE.Document.DocumentElement.Document.All
    LTP=appIE.Document.getElementById("LTP").innerHTML
    LTQ=appIE.Document.getElementById("LTQ").innerHTML
    ?appIE.Document.getElementById("LTP").innerHTML

    objOutFSO = CreateObject("Scripting.FileSystemObject")
    objOutFile = objOutFSO.CreateTextFile("D:\KITE_AMIBROKER_LIVE_FEED\OutPutFile.txt",.t.)
    ?"CRUDE" + "," + ALLTRIM(STR(MONTH(DATE())))+"/"+ALLTRIM(STR(DAY(DATE())))+"/"+ALLTRIM(STR(YEAR(DATE()))) + "," + ALLTRIM(STR(HOUR(DATETIME())))+":"+ALLTRIM(STR(MINUT(DATETIME())))+":"+ALLTRIM(STR(SEC(DATETIME()))) + "," +LTP + ","+LTQ
    objOutFile.WriteLine ("CRUDE" + "," + ALLTRIM(STR(MONTH(DATE())))+"-"+ALLTRIM(STR(DAY(DATE())))+"-"+ALLTRIM(STR(YEAR(DATE()))) + "," + ALLTRIM(STR(HOUR(DATETIME())))+":"+ALLTRIM(STR(MINUT(DATETIME())))+":"+ALLTRIM(STR(SEC(DATETIME()))) + "," +LTP + ","+LTQ )
    objOutFile =.f.
    objOutFSO = .f.
    boolUpdate = objAmibroker.Import(0, "D:\KITE_AMIBROKER_LIVE_FEED\OutPutFile.txt", "custom1.format")
    boolUpdate = objAmibroker.RefreshAll()
    ELSE
    IF VAL(SYS(2))> 84671
    tt=3
    application.StatusBar="Market closed"
    WAIT TIMEOUT 10
    appIE.quit
    quit
    ENDIF
    ENDIF
    LOOP
    Enddo
  • balasoft80
    Thank you
  • satishvasu
    Hi gautam_s60,

    Can you give a few more details on how to integrate amibroker with kite connect APIs
  • kuvi
    is it working?
    pushing the kite streaming data to Amibroker
  • pranit0405
    ANY VIEWS ON WEB SOCKET DATA TO AMIBROKER ?
Sign In or Register to comment.