TXT online abrufen

Übersicht BlitzBasic Beginners-Corner

Neue Antwort erstellen

 

Metamorphose

Betreff: TXT online abrufen

 BeitragSo, Dez 17, 2006 13:17
Antworten mit Zitat
Benutzer-Profile anzeigen
Ja hallo miteinander.
Ich würde gerne in Blitz3D eine txt datei anzeigen, jetzt ist die aber im internet, nicht lokal gespeichert. Da ich bei Openfile nur für's lokale was gefunden hab, ist die frage ob ich des machen kann? Und kann man auch formatierten text öffnen? (wär nur sone zusatzfrage)

danke im voraus und grüsse aus der schweiz

Pdd

 BeitragSo, Dez 17, 2006 13:18
Antworten mit Zitat
Benutzer-Profile anzeigen
Du musst die Datei erst von einem Server runterladen. Dafür gibts fertige Functionen oder du must es einfach selbst machen.
Lieber Apfel als Birne.

Blitzcoder

Newsposter

BeitragSo, Dez 17, 2006 13:27
Antworten mit Zitat
Benutzer-Profile anzeigen
Wer suchen kann ist klar im Vorteil. Dieses Thema hatten wir schon zig mal:

https://www.blitzforum.de/foru...t=download
https://www.blitzforum.de/foru...t=download
https://www.blitzforum.de/foru...t=download
https://www.blitzforum.de/foru...t=download
https://www.blitzforum.de/foru...t=download
https://www.blitzforum.de/foru...t=download
https://www.blitzforum.de/foru...t=download
https://www.blitzforum.de/foru...t=download
https://www.blitzforum.de/foru...t=download

Um nur mal ein paar Beispiele zu nennen.
P4 3 Ghz@3,55Ghz|GF 6600GT 256MB|Samsung 80GB | 2x Samsung 160GB|2048MB DDR-400 RAM|6 Mbit Flatrate | Logitech G15 | Samsung 225BW-TFT | Ubuntu Gutsy Linux | Windows Vista | Desktop | Blog | CollIDE | Worklog
________________
|°°°°°°°°°°°°°°||'""|""\__,_
|______________ ||__ |__|__ |)
|(@) |(@)"""**|(@)(@)****|(@)
 

Metamorphose

 BeitragSo, Dez 17, 2006 13:38
Antworten mit Zitat
Benutzer-Profile anzeigen
gehts auch dass es temporär gespeichert bzw nur angezeigt wird? so dass der user die txt's nicht aufm pc hat?

sry habs vorher nich gefunden :/

Blitzcoder

Newsposter

BeitragSo, Dez 17, 2006 13:50
Antworten mit Zitat
Benutzer-Profile anzeigen
Du speicherst es z.B. in einem Temp Ordner. Ausserdem , wenn du dir mal die Mühe machen würdest, die Codes anzusehen, er läd jede Zeile einzeln und speichert sie. Du kannst sie auch nur in ein DIM Feld laden und nicht als Datei speichern.

MfG Blitzcoder
P4 3 Ghz@3,55Ghz|GF 6600GT 256MB|Samsung 80GB | 2x Samsung 160GB|2048MB DDR-400 RAM|6 Mbit Flatrate | Logitech G15 | Samsung 225BW-TFT | Ubuntu Gutsy Linux | Windows Vista | Desktop | Blog | CollIDE | Worklog
________________
|°°°°°°°°°°°°°°||'""|""\__,_
|______________ ||__ |__|__ |)
|(@) |(@)"""**|(@)(@)****|(@)
 

Metamorphose

 BeitragSo, Dez 17, 2006 14:54
Antworten mit Zitat
Benutzer-Profile anzeigen
Warum geht dass da nu nich? Nichmal des dllen geht Sad

Code: [AUSKLAPPEN]
Global file

HTTPGet "www.nefas-vexatori.ch", "readme.txt", "c:\readme.txt"
file = OpenFile("c:\readme.txt")
TXTAuslesen()

WaitKey()


Function TXTAuslesen()

If Not file RuntimeError "Konnte nicht geöffnet werden"
While Not Eof(file)
Print ReadLine$(file)
Wend
End Function


Function HTTPGet(Server$,download_file$,File_s$)
bank = CreateBank(2048)
www=OpenTCPStream( "Server$",80 )
If Not www
; Failed To connect
Print "error!"
WaitKey()
End
EndIf
SENDHEADER$ = "GET /" + download_file$ + " HTTP/1.0" + Chr$(13)+Chr$(10)
SENDHEADER$ = SENDHEADER$ + "Accept: *.*, */*" + Chr$(13)+Chr$(10)
SENDHEADER$ = SENDHEADER$ + "Connection: close" + Chr$(13)+Chr$(10)
SENDHEADER$ = SENDHEADER$ + "Range: bytes=0-" + Chr$(13)+Chr$(10)
SENDHEADER$ = SENDHEADER$ + "Host: www.next-dimension.org" + Chr$(13)+Chr$(10)
SENDHEADER$ = SENDHEADER$ + "Referer: www.next-dimension.org/" + download_file$ Chr$(13)+Chr$(10)
SENDHEADER$ = SENDHEADER$ + "User-Agent: BlitzBasic" + Chr$(13)+Chr$(10)
SENDHEADER$ = SENDHEADER$ + Chr$(13) + Chr$(10)

WriteLine www, SENDHEADER$

Repeat
temphead$ = ReadLine(www)
If Lower(Left(temphead$,Len("content-range: "))) = "content-range: " Then
temphead$ = Replace(temphead$," ","")
temphead$ = Replace(temphead$," ","")
tempstr$ = Right(temphead$,Len(temphead$)-Instr(temphead$,":"))
bytesToRead# = Right(tempstr$,Len(tempstr$)-Instr(tempstr$,"/"))
EndIf
If Lower(Left(temphead$,Len("content-length: "))) = "content-length: " Then
bytesToRead# = Right(temphead$,Len(temphead$)-Len("content-length: "))
EndIf
Until temphead$ = "" Or (Eof(www))

file = WriteFile(File_s$)
Repeat
If i# Mod (2048) = 0 Then
ReadBytes(bank,www,0,2048)
WriteBytes(bank,file,0,2048)
EndIf
i# = i# + 1
Until Eof(www)
CloseTCPStream www
End Function

BladeRunner

Moderator

BeitragSo, Dez 17, 2006 14:58
Antworten mit Zitat
Benutzer-Profile anzeigen
Du öffnest "server$". Dass kann nicht gehen.
Du solltest es mal ohne die Anführungszeichen versuchen (und noch vielmehr verstehen warum die da fehl am Platze sind)
Zu Diensten, Bürger.
Intel T2300, 2.5GB DDR 533, Mobility Radeon X1600 Win XP Home SP3
Intel T8400, 4GB DDR3, Nvidia GF9700M GTS Win 7/64
B3D BMax MaxGUI
Stolzer Gewinner des BAC#48, #52 & #92
 

Metamorphose

 BeitragSo, Dez 17, 2006 14:59
Antworten mit Zitat
Benutzer-Profile anzeigen
den code hab ich übernommen vonner seite Wink danke ich probiers grad

BtbN

 BeitragSo, Dez 17, 2006 19:34
Antworten mit Zitat
Benutzer-Profile anzeigen
Diese funktion habe ich vor ner ganzen weile ebenfalls mal falsch kopiert.
Irgendwo müste darüber auch noch ein trhead zu finden sein.
Sollte man eventl. mal korregieren.
 

Metamorphose

 BeitragSo, Dez 17, 2006 19:44
Antworten mit Zitat
Benutzer-Profile anzeigen
So ich hab n bissl mit dem Code herumgespielt und s funzt nicht alles wie es sollte, bzw es funzt eigentlich nix Wink

Die Date wird vom Server geholt, das funzt also judihui... doch schmeisst er in die erzeugte lokale Textdatei mehrere Leerzeichen, keine Ahnung wieso.

Dann das die Datei angezeigt wird... das sollte doch funktionieren, den ohne der filerunterhol-funktion so als einzelne bb funzt es super bei lokalen dateien, da die datei ja auch lokal is, sollte des doch gehn.. oder mach ichnen denkfehler?

desweiteren löscht er die datei schlussendlich nicht... was ich auch nicht weiss warum, den in der bb hilfe isses ja genau so angegeben.

Hier mal der Code

Code: [AUSKLAPPEN]
Graphics 800, 600, 32, 0

Global file

HTTPGet("www.nefas-vexatori.ch", "readme.txt", "readme.txt")

file = OpenFile("readme.txt")
filename$="readme.txt"

If FileType(filename$)=1 Then Print "The file exists!"
If FileType(filename$)=0 Then Print "File not found!"



TXTAuslesen()

Print ""
Print "Ende"
DeleteFile "readme.txt"
Delay 1000

Function HTTPGet(Server$,download_file$,File_s$)
bank = CreateBank(2048)
www=OpenTCPStream(Server$,80 )
If Not www
; Failed To connect
Print "error!"
WaitKey()
End
EndIf
SENDHEADER$ = "GET /" + download_file$ + " HTTP/1.0" + Chr$(13)+Chr$(10)
SENDHEADER$ = SENDHEADER$ + "Accept: *.*, */*" + Chr$(13)+Chr$(10)
SENDHEADER$ = SENDHEADER$ + "Connection: close" + Chr$(13)+Chr$(10)
SENDHEADER$ = SENDHEADER$ + "Range: bytes=0-" + Chr$(13)+Chr$(10)
SENDHEADER$ = SENDHEADER$ + "Host: www.nefas-vexatori.ch" + Chr$(13)+Chr$(10)
SENDHEADER$ = SENDHEADER$ + "Referer: www.nefas-vexatori.ch/" + download_file$ Chr$(13)+Chr$(10)
SENDHEADER$ = SENDHEADER$ + "User-Agent: BlitzBasic" + Chr$(13)+Chr$(10)
SENDHEADER$ = SENDHEADER$ + Chr$(13) + Chr$(10)

WriteLine www, SENDHEADER$

Repeat
temphead$ = ReadLine(www)
If Lower(Left(temphead$,Len("content-range: "))) = "content-range: " Then
temphead$ = Replace(temphead$," ","")
temphead$ = Replace(temphead$," ","")
tempstr$ = Right(temphead$,Len(temphead$)-Instr(temphead$,":"))
bytesToRead# = Right(tempstr$,Len(tempstr$)-Instr(tempstr$,"/"))
EndIf
If Lower(Left(temphead$,Len("content-length: "))) = "content-length: " Then
bytesToRead# = Right(temphead$,Len(temphead$)-Len("content-length: "))
EndIf
Until temphead$ = "" Or (Eof(www))

file = WriteFile(File_s$)
Repeat
If i# Mod (2048) = 0 Then
ReadBytes(bank,www,0,2048)
WriteBytes(bank,file,0,2048)
EndIf
i# = i# + 1
Until Eof(www)
CloseTCPStream www
End Function


Function TXTAuslesen()

If Not file RuntimeError "Konnte nicht geöffnet werden"

While Not Eof(file)
   Print ReadLine$(file)
Wend

End Function


Ich danke im voraus Smile

Neue Antwort erstellen


Übersicht BlitzBasic Beginners-Corner

Nach Oben

Gehe zu:

Powered by phpBB © 2001 - 2006, phpBB Group