ReceiveHTTPMemory einfach und Crossplattform

[ts-soft]

@HeX0R
Danke für den Tipp, eingebaut, sowie eine weitere Sicherheitsmaßnahme.

@DarkDragon
Dann mach mal, ich hab doch keine Ahnung von HTTP, dies ist ein zaghafter Versuch.
Wenns denn Sinn macht und einbaubar ist, werde ich es dann nutzen

[Nino]

Der Code (also der im 1. Beitrag hier) funktioniert so nicht immer -- hab's gerade auch getestet.

Je nach Betriebssystem des Servers kann es sein, dass bei der lokalen Pfadangabe die Groß-/Kleinschreibung berücksichtigt wird. Der Code darf die Schreibung der URL also nicht ändern, das LCase() darf nur für den Vergleich benutzt werden. Statt

Code: Alles auswählen

URL = LCase(URL)
If Left(URL, 7) <> "http://" : URL = "http://" + URL : EndIf

muss es daher heißen

Code: Alles auswählen

If LCase(Left(URL, 7)) <> "http://" : URL = "http://" + URL : EndIf

Grüße, Nino

[ts-soft]

Dank Nino, sehr wichtiger Hinweis. Ich bin ja manchmal auch schuselig, liegt am Alter
Sowas sollte nicht passieren.

[Captn. Jinguji]

Sicher eher ein Spezialfall, aber das LCase auf die URL führt bei YouTube Urls zu verfälschten Keys:
richtig : http://www.youtube.com/watch?v=zQQ5sEOhbjQ
falsch : http://www.youtube.com/watch?v=zqq5seohbjq

Kann raus, oder ?
Ansonsten auch von mir ein Dankeschön.

Edith: Mist sehe gerade, dass Nino praktisch das Gleiche in anderen Worten gepostet hat
Sorry

[ts-soft]

Das mit dem LCase ist doch bereits gefixed

Hier noch ein Crossplattform Beispiel:

Code: Alles auswählen

If InitSound() = 0
  MessageRequester("Error", "Can't initialize sound playback !", 0) 
  End
EndIf

If InitNetwork() = 0
  MessageRequester("Error", "Can't initialize network !", 0) 
  End
EndIf

Define *Mem = ReceiveHTTPMemory("http://realsource.de/tmp/popc0rn.xm")
If *Mem
  If CatchModule(0, *Mem, MemorySize(*Mem))
    PlayModule(0)
    MessageRequester("popc0rn.xm", "Press okay to stop!")
  EndIf
  FreeMemory(*Mem)
EndIf

[Kevin]

hab noch einen kleinen fehler gefunden:

Code: Alles auswählen

InitNetwork()
*mem = ReceiveHTTPMemory("http://www.purebasic.fr/blog/")

[Shardik]

Hier noch ein Crossplattform Beispiel:

Code: Alles auswählen

If InitSound() = 0
  MessageRequester("Error", "Can't initialize sound playback !", 0) 
  End
EndIf

If InitNetwork() = 0
  MessageRequester("Error", "Can't initialize network !", 0) 
  End
EndIf

Define *Mem = ReceiveHTTPMemory("http://realsource.de/tmp/popc0rn.xm")
If *Mem
  If CatchModule(0, *Mem, MemorySize(*Mem))
    PlayModule(0)
    MessageRequester("popc0rn.xm", "Press okay to stop!")
  EndIf
  FreeMemory(*Mem)
EndIf

Hallo Thomas,

Dein "Crossplattform"-Beispiel funktioniert bei mir problemlos unter Windows XP SP3 x86,
Windows 7 x86 und andLinux/Kubuntu 9.04 x86. Aber auf meinem iMac mit MacOS X
10.6.6 funktioniert es nicht zufriedenstellend: das Musik-Modul wird zwar geladen und
abgespielt, aber es ertönt ein sehr lautes Rauschen beim Abspielen und die Melodie ist nur
zu "erahnen" . Dies wird ein Fehler in der PlayModule()-Funktion der Mac-Version sein
und ich werde den Fehler nach einer noch zu erfolgenden genaueren Analyse mit Deinem
Beispiel-Code im englischen Mac Bug-Forum melden, damit Fred oder freak sich der Sache
annehmen können...

[Rings]

thx for sharing

[bobobo]

cool .. endlich mal anständiges was mit timeout (was mir in der ReceiveHTTPFile() von Pb eigentlich immer fehlt)

[dige]

... jetzt fehlt eigentlich nur noch die Proxy-Funktionalität..