Hilfe beim herunterladen einer Bilddatei

Übersicht BlitzBasic Allgemein

Neue Antwort erstellen

 

Cyderic

Betreff: Hilfe beim herunterladen einer Bilddatei

BeitragFr, Jan 14, 2011 12:47
Antworten mit Zitat
Benutzer-Profile anzeigen
Hallo,

bisher habe ich eigentlich nie Probleme gehabt mit BB irgendwas vom Web herunterzuladen. Meistens habe ich es irgendwie heraus gefunden bzw vor kurzem hat mir ja Christian geholfen =)

Jetzt habe ich ein neues Problem...ich möchte eigentlich einfach nur ein Bild herunterladen. Aber ich werde nur umgeleitet zu einem Link der nicht funktioniert. Irgendwie bin ich am verzweifeln...

Also nehmen wir als Beispiel dieses Bild:
http://news.images.technobase..../f_258.jpg

Wie ihr seht, kann der Browser das Bild problemlos öffnen. Also gut, programmieren wir das mal nach (Pseudo Code):

Code: [AUSKLAPPEN]

Global verbindung=1
Global tcp_stream
Local bildlink$="http://news.images.technobase.eu/_9thworld/2009/mai/f_258.jpg", bild
.loadnew
Print "Neue Verbindung.."
tcp_stream=OpenTCPStream("www.technobase.fm",80)
If Not tcp_stream Goto loadnew
   Print "Verbindung hergestellt"
   WriteLine tcp_stream, "GET "+bildlink+" HTTP/1.1"
   WriteLine tcp_stream, "Host: www.technobase.fm"
   WriteLine tcp_stream, Chr$(10)
   serverwait
   secs=MilliSecs()
   If verbindung=0
      Goto loadnew
   Else
      bild=WriteFile("bild.jpg")
      Print "Lade Bild herunter"
      While Not Eof(tcp_stream)
         WriteByte(bild,ReadByte(tcp_stream))
      Wend
      CloseFile bild
      bild=0
      CloseTCPStream tcp_stream
   EndIf
   Print "Bild heruntergeladen in "+(MilliSecs()-secs)+" Millisekunden."
   WaitKey()
   
Function serverwait()
   Local i=0
   While ReadAvail(tcp_stream)=0
      Delay 50
      i=i+1
      If i=100
         verbindung=0
         CloseTCPStream tcp_stream
         Return
      EndIf
   Wend
   verbindung=1
End Function

Ich weiß der Code ist nicht schön...er dient nur zu Testzwecken....spart euch also Kommentare darüber Wink

Jedenfalls...das Ergebnis des Bildes ist kein Bild...es ist eine Datei die man mit einem Editor öffnen kann. Folgendes steht dadrin:
Zitat:

HTTP/1.1 302 Found
Date: Fri, 14 Jan 2011 10:43:51 GMT
Server: Apache
Location: http://www.weareone.fm/_9thwor.../f_258.jpg
Cache-Control: max-age=0
Expires: Fri, 14 Jan 2011 10:43:51 GMT
Vary: Accept-Encoding
Content-Length: 310
Connection: close
Content-Type: text/html; charset=iso-8859-1

<!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML 2.0//EN">
<html><head>
<title>302 Found</title>
</head><body>
<h1>Found</h1>
<p>The document has moved <a href="http://www.weareone.fm/_9thworld/2009/mai/f_258.jpg">here</a>.</p>
<hr>
<address>Apache Server at news.images.technobase.eu Port 80</address>
</body></html>


Nur doof das der Link der da steht garnicht funktioniert.

.....warum kann der Browser das öffnen und ich bekomme eine Weiterleitung ins nichts?

Ich habe auch schon versucht andere Hosts zu nehmen (technobase.eu) aber hier bekomme ich nur eine Verbindung zum Server. Auf meine Requests antwortet er jedoch nicht *schulterzuck*

Ich weiß nicht mehr weiter. Hat jemand von euch eine Idee? Jemand Lust sich damit auseinanderzusetzen?
Native ITler

Eingeproggt

BeitragFr, Jan 14, 2011 13:03
Antworten mit Zitat
Benutzer-Profile anzeigen
Wenn ich mich recht erinnere, müssen die angeforderten Dateipfade relativ zum Server sein, also etwa so:

BlitzBasic: [AUSKLAPPEN]
[...]
Local bildlink$="/_9thworld/2009/mai/f_258.jpg", bild
Local server$="news.images.technobase.eu"
.loadnew
Print "Neue Verbindung.."
tcp_stream=OpenTCPStream(server$,80)
If Not tcp_stream Goto loadnew
Print "Verbindung hergestellt"
WriteLine tcp_stream, "GET "+bildlink+" HTTP/1.1"
WriteLine tcp_stream, "Host: "+server$
[...]


Habs aber jetzt nicht getestet.
mfG, Christoph.
Gewinner des BCC 18, 33 und 65 sowie MiniBCC 9
 

Cyderic

BeitragFr, Jan 14, 2011 14:31
Antworten mit Zitat
Benutzer-Profile anzeigen
Ja..das dachte ich eigentlich auch...aber in diesem Fall antwortet mir der Server nicht mehr. Das ist das phönomen das ich oben beschrieben hab. Verbindung ansich ja. Aber er reagiert nicht auf meine Anfrage Sad
Native ITler

Neue Antwort erstellen


Übersicht BlitzBasic Allgemein

Gehe zu:

Powered by phpBB © 2001 - 2006, phpBB Group