Webhost , -, Bilder anzeigen lassen

Übersicht

BlitzBasic

Allgemein

	Mathias-Kwiatkowski Betreff: Webhost , -, Bilder anzeigen lassen	Sa, Jan 14, 2006 16:41 Antworten mit Zitat
ich habe mal ne frage, wenn man eine png oder eine bmp auf dem webhost hat, wie kann ich diese bmp dnn in bb anzeigen lassen? oder wie kann ich diese bmp runterladen? ich habe schon ausprobiert mit readline, und davor der ganze tcp müll ^^ also so Code: [AUSKLAPPEN] [EINKLAPPEN] tcp=OpenTCPStream("meine url",80) WriteLine(tcp, "GET meine url+bild.bmp HTML/2.0") WriteLine(tcp, "HOST meine url") WriteLine(tcp, "") While Not Eof(tcp) x$=ReadLine(tcp) ... das bild in einer txt speichern nur halt mit der endung BMP wend und dann diese anzeigen also loadimage usw... aber das geht leider nicht so richtig, wie mache ich es das es richtig funtzt hat da jemand eine idee? oder hat da jemand einen code, bitte posten! danke!

Mathias-Kwiatkowski

Betreff: Webhost , -, Bilder anzeigen lassen

Sa, Jan 14, 2006 16:41
Antworten mit Zitat

ich habe mal ne frage, wenn man eine png oder eine bmp auf dem webhost hat, wie kann ich diese bmp dnn in bb anzeigen lassen?

oder wie kann ich diese bmp runterladen?

ich habe schon ausprobiert mit readline, und davor der ganze tcp müll ^^

also so
Code: [AUSKLAPPEN]

tcp=OpenTCPStream("meine url",80)
WriteLine(tcp, "GET meine url+bild.bmp HTML/2.0")
WriteLine(tcp, "HOST meine url")
WriteLine(tcp, "")

While Not Eof(tcp)
x$=ReadLine(tcp)

... das bild in einer txt speichern nur halt mit der endung BMP

wend

und dann diese anzeigen also loadimage usw...

aber das geht leider nicht so richtig, wie mache ich es das es richtig funtzt hat da jemand eine idee? oder hat da jemand einen code, bitte posten! danke!

	BtbN	Sa, Jan 14, 2006 17:20 Antworten mit Zitat
1. Es gibt schon HTTP/2.0? 2. Wenn schon "Host:" 3. https://www.blitzforum.de/view...p+download Du kannst die Funktion da verwenden.

BtbN

Sa, Jan 14, 2006 17:20
Antworten mit Zitat

1. Es gibt schon HTTP/2.0? Laughing

2. Wenn schon "Host:"
3. https://www.blitzforum.de/view...p+download

Du kannst die Funktion da verwenden.

	Florian	Sa, Jan 14, 2006 18:50 Antworten mit Zitat
Code: [AUSKLAPPEN] [EINKLAPPEN] Function LoadWebFile( srcFile$) Local TCPStream, tmpPos, dataSize, tmpBank Local Host$ = "", HTTPHeader$ = "" Local Buffer = BUFFER_SIZE If ( Left( srcFile$, 7 ) = "http://" ) srcFile$ = Right( srcFile$, Len( srcFile$ ) - 7 ) tmpPos = Instr( srcFile$, "/" ) If ( tmpPos ) Then Host$ = Left( srcFile$, tmpPos - 1 ) srcFile = Right( srcFile$, Len( srcFile ) - tmpPos + 1 ) Else Host$ = srcFile$ srcFile$ = "/" End If LenS=Len(srcFile$) For Pos=LenS To 1 Step -1 If Mid$(srcFile$,Pos,1)="/" Then dstFile$=Mid$(srcFile$,Pos+1) Exit End If Next TCPStream = OpenTCPStream( Host$, 80 ) If ( Not TCPStream ) Then RuntimeError( "Fehler beim verbinden zu: " + Host$ ) End If WriteLine( TCPStream, "GET " + srcFile$ + " HTTP/1.1" ) WriteLine( TCPStream, "Host: " + Host$ ) WriteLine( TCPStream, "Accept: /" ) WriteLine( TCPStream, Chr$( 10 ) ) dstFile$=Replace(dstFile$,"=","") dstFile$=Replace(dstFile$,"?","") Repeat HTTPHeader$ = ReadLine( TCPStream ) If ( Left( HTTPHeader$, 16 ) = "Content-Length: " ) Then dataSize = Right( HTTPHeader$, Len( HTTPHeader$ ) - 16 ) End If Until HTTPHeader$ = "" Or Eof( TCPStream ) If ( dataSize > 0 ) file = WriteFile( dstFile$ ) tmpBank = CreateBank( Buffer ) If ( Not file ) Then RuntimeError( "Fehler beim erstellen der Downloaddatei" ) End If bytesReaded = 0 Repeat bytesRemaind = dataSize - bytesReaded If ( bytesRemaind < BUFFER_SIZE ) Then Buffer = bytesRemaind End If s = ReadBytes( tmpBank, TCPStream, 0, Buffer ) WriteBytes( tmpBank, file, 0, s ) bytesReaded = bytesReaded + s Until s <> BUFFER_SIZE CloseFile( file ) CloseTCPStream( TCPStream ) FreeBank( tmpBank ) Return LoadImage(dstFile$) End If End Function

Florian

Sa, Jan 14, 2006 18:50
Antworten mit Zitat

Code: [AUSKLAPPEN]

Function LoadWebFile( srcFile$)
Local TCPStream, tmpPos, dataSize, tmpBank
Local Host$ = "", HTTPHeader$ = ""
Local Buffer = BUFFER_SIZE

If ( Left( srcFile$, 7 ) = "http://" ) srcFile$ = Right( srcFile$, Len( srcFile$ ) - 7 )

tmpPos = Instr( srcFile$, "/" )

If ( tmpPos ) Then
Host$ = Left( srcFile$, tmpPos - 1 )
srcFile = Right( srcFile$, Len( srcFile ) - tmpPos + 1 )
Else
Host$ = srcFile$
srcFile$ = "/"
End If

LenS=Len(srcFile$)
For Pos=LenS To 1 Step -1
If Mid$(srcFile$,Pos,1)="/" Then
dstFile$=Mid$(srcFile$,Pos+1)
Exit
End If
Next

TCPStream = OpenTCPStream( Host$, 80 )

If ( Not TCPStream ) Then
RuntimeError( "Fehler beim verbinden zu: " + Host$ )
End If

WriteLine( TCPStream, "GET " + srcFile$ + " HTTP/1.1" )
WriteLine( TCPStream, "Host: " + Host$ )
WriteLine( TCPStream, "Accept: */*" )
WriteLine( TCPStream, Chr$( 10 ) )

dstFile$=Replace(dstFile$,"=","")
dstFile$=Replace(dstFile$,"?","")

Repeat
HTTPHeader$ = ReadLine( TCPStream )

If ( Left( HTTPHeader$, 16 ) = "Content-Length: " ) Then
dataSize = Right( HTTPHeader$, Len( HTTPHeader$ ) - 16 )
End If
Until HTTPHeader$ = "" Or Eof( TCPStream )

If ( dataSize > 0 )
file = WriteFile( dstFile$ )
tmpBank = CreateBank( Buffer )
If ( Not file ) Then
RuntimeError( "Fehler beim erstellen der Downloaddatei" )
End If

bytesReaded = 0

Repeat
bytesRemaind = dataSize - bytesReaded

If ( bytesRemaind < BUFFER_SIZE ) Then
Buffer = bytesRemaind
End If

s = ReadBytes( tmpBank, TCPStream, 0, Buffer )
WriteBytes( tmpBank, file, 0, s )
bytesReaded = bytesReaded + s
Until s <> BUFFER_SIZE

CloseFile( file )
CloseTCPStream( TCPStream )
FreeBank( tmpBank )
Return LoadImage(dstFile$)
End If
End Function