PureBoard

Code: Alles auswählen

Procedure.s DownloadToString(URL$, TimeOut=500)
  Protected Event, Time, Size, String$
  Protected BufferSize = $1000
  Protected *Buffer = AllocateMemory(BufferSize)
  Protected ServerName$ = GetURLPart(URL$, #PB_URL_Site) 
  Protected ConnectionID = OpenNetworkConnection(ServerName$, 80) 
  Protected Inhalt.i
  If ConnectionID 
    SendNetworkString(ConnectionID, "GET "+URL$+" HTTP/1.0"+#LFCR$+#LFCR$) 
    Time = ElapsedMilliseconds()
    Repeat 
      Delay(10)
      Event = NetworkClientEvent(ConnectionID)
    Until Event Or ElapsedMilliseconds()-Time > TimeOut
    If Event
      Repeat
        Size = ReceiveNetworkData(ConnectionID, *Buffer, BufferSize) 
        String$ + PeekS(*Buffer, Size, #PB_Ascii) 
      Until Not Size
      Inhalt = FindString(String$, #LFCR$, 1)
      If Inhalt
        ProcedureReturn Mid(String$,Inhalt+3)
      Else
        ProcedureReturn String$
      EndIf
    EndIf
  EndIf 
EndProcedure