PureBoard

Verfasst: **01.05.2005 12:47**

Ich habe hier eine Prozedure die eine Website in den Speicher lädt, die funzt einwandfrei!!! Die war damals von Dige, super sache

Code: Alles auswählen

Procedure.l DownloadToMem ( url.s, *lpRam, ramsize.l ) 
  Protected agent.s, hINet.l, hData.l, bytes.l 

  
  ;  #INTERNET_OPEN_TYPE_DIRECT    = 1 
  ;  #INTERNET_DEFAULT_HTTP_PORT   = 80 
  ;  #INTERNET_SERVICE_HTTP        = 3 
  ;  #INTERNET_FLAG_NO_CACHE_WRITE = $4000000 
  ;  #INTERNET_FLAG_RELOAD         = $8000000 
  

  agent.s = "Mozilla/4.0 (compatible; ST)" 
  hINet.l = InternetOpen_ ( @agent.s,0,0,0,0 ) 
  hData.l = InternetOpenUrl_ ( hINet, @url.s, "", 0, $4000000, 0 ) 
  
  If hData > 0 : InternetReadFile_ ( hData, *lpRam, ramsize.l, @bytes.l ) : Else : bytes = -1 : EndIf 
  
  InternetCloseHandle_ (hINet) 
  InternetCloseHandle_ (hFile) 
  InternetCloseHandle_ (hData) 
  ProcedureReturn bytes.l 
EndProcedure

Da rufst du einfach dein PHP skript mit auf und erhälst das was dein PHP Skript ausgibst, wenns mehrere Dinge sind musst du halt das zurück gegebene extra untersuchen.

Verfasst: **04.05.2005 16:22**

gibt es da auch die möglichkeit die seite nur aufzurufen aber nicht runterzuladen?

Verfasst: **04.05.2005 16:32**

zigapeda hat geschrieben:gibt es da auch die möglichkeit die seite nur aufzurufen aber nicht runterzuladen?

Code: Alles auswählen

Procedure HTTPRequest(Server$, URL$)
  
  InitNetwork()
  
  ServerID=OpenNetworkConnection(Server$,80)
  
  If ServerID
    
    SendNetworkString(ServerID,"GET "+URL$+" HTTP/1.0"+#CRLF$)
    SendNetworkString(ServerID,"User-Agent: PB/3.93"+#CRLF$)
    SendNetworkString(ServerID,#CRLF$)
    
    CloseNetworkConnection(ServerID)
    
  EndIf
  
EndProcedure

Aufruf mit

Code: Alles auswählen

HTTPRequest(DeineIP, DeinPfad+DeineAction)

Grüße ... Kiffi

Verfasst: **04.05.2005 16:34**

Mit meine IP meinst du aber die Internetseite (z.B. zigapeda.de) oder?

Verfasst: **04.05.2005 16:40**

zigapeda hat geschrieben:Mit meine IP meinst du aber die Internetseite (z.B. zigapeda.de) oder?

ja

PureBoard

Internetseite text auslesen