Hilfe beim herunterladen einer Bilddatei

Übersicht

BlitzBasic

Allgemein

	Cyderic Betreff: Hilfe beim herunterladen einer Bilddatei	Fr, Jan 14, 2011 12:47 Antworten mit Zitat
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] [EINKLAPPEN] 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 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

Cyderic

Betreff: Hilfe beim herunterladen einer Bilddatei

Fr, Jan 14, 2011 12:47
Antworten mit Zitat

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	Fr, Jan 14, 2011 13:03 Antworten mit Zitat
Wenn ich mich recht erinnere, müssen die angeforderten Dateipfade relativ zum Server sein, also etwa so: BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] [...] 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

Eingeproggt

Fr, Jan 14, 2011 13:03
Antworten mit Zitat

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	Fr, Jan 14, 2011 14:31 Antworten mit Zitat
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
Native ITler

Cyderic

Fr, Jan 14, 2011 14:31
Antworten mit Zitat

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

Übersicht

BlitzBasic

Allgemein

Nach Oben

BlitzBasic Portal

Hilfe beim herunterladen einer Bilddatei

Cyderic

Betreff: Hilfe beim herunterladen einer Bilddatei

Eingeproggt

Cyderic