stream problem

Übersicht BlitzBasic Beginners-Corner

Neue Antwort erstellen

Sir Dan

Betreff: stream problem

 BeitragSa, Jun 11, 2005 11:36
Antworten mit Zitat
Benutzer-Profile anzeigen
Hallo,

nun hab ich wieder ein problem. Ich wollte mir eine verschlüsselungs function bauen, aber aus irgend einem grund findet er den stream nicht!
Der ist aber da wo er sein soll. Hab ich vieleicht irgendwo einen fehler im Code? Wenn ja, bitte ich um hilfe.


BlitzBasic: [AUSKLAPPEN] 
Graphics 1024,768 
Dim bank(1024*768)
verschluesseln(\"test\",\"bmp\",111)

Function Verschluesseln(datei,ende,key)
stream = ReadFile(datei+\".\"+ende)
Local i = 0
While Not Eof(stream)
 bank(i) = ReadByte(stream)
 i = i + 1
Wend
CloseFile stream
stream = WriteFile(datei+\".dat\")
For k = 0 To i
 WriteByte(stream,bank(k)+key)
Next  
CloseFile stream 
End Function
(\_/)
(O.o)
(> <) This is Bunny. Copy Bunny into your signature to help him on his way to world domination.

simi

 BeitragSa, Jun 11, 2005 11:47
Antworten mit Zitat
Benutzer-Profile anzeigen
ich denke die Datei "0.0" existiert nicht......

Wenn du einen String übergibst musst du auch die Variablen in der Funktion als String deklarieren.... Wink

Sir Dan

 BeitragSa, Jun 11, 2005 11:49
Antworten mit Zitat
Benutzer-Profile anzeigen
Vielen dank! Das hab ich total vergessen, jetzt geht es
(\_/)
(O.o)
(> <) This is Bunny. Copy Bunny into your signature to help him on his way to world domination.

Neue Antwort erstellen


Übersicht BlitzBasic Beginners-Corner

Nach Oben

Gehe zu:

Powered by phpBB © 2001 - 2006, phpBB Group