FTP-Zugang per TCP nutzen??

Übersicht

BlitzBasic

Allgemein

	Kryan Betreff: FTP-Zugang per TCP nutzen??	Mi, März 08, 2006 19:09 Antworten mit Zitat
Tach, wie kann man daten auf einen ftp-server schicken... also soweit weiß ich es schon: stream=OpenTCPStream(ftp$,21) und wie gehts dann weiter mfg kryan
Webspaceanbieter? Klick hier! Kultige Spieleschmiede? Klick hier!

Kryan

Betreff: FTP-Zugang per TCP nutzen??

Mi, März 08, 2006 19:09
Antworten mit Zitat

Tach,

wie kann man daten auf einen ftp-server schicken...

also soweit weiß ich es schon: stream=OpenTCPStream(ftp$,21)

und wie gehts dann weiter Shocked

mfg kryan

Webspaceanbieter?
Klick hier!
Kultige Spieleschmiede?
Klick hier!

	D2006 Administrator	Mi, März 08, 2006 19:18 Antworten mit Zitat
Auch FTP ist ähnlich wie HTTP ein Protokoll. Google nach "RFC FTP". MfG D2006
Intel Core i5 2500 \| 16 GB DDR3 RAM dualchannel \| ATI Radeon HD6870 (1024 MB RAM) \| Windows 7 Home Premium Intel Core 2 Duo 2.4 GHz \| 2 GB DDR3 RAM dualchannel \| Nvidia GeForce 9400M (256 MB shared RAM) \| Mac OS X Snow Leopard Intel Pentium Dual-Core 2.4 GHz \| 3 GB DDR2 RAM dualchannel \| ATI Radeon HD3850 (1024 MB RAM) \| Windows 7 Home Premium Chaos Interactive :: GoBang :: BB-Poker :: ChaosBreaker :: Hexagon :: ChaosRacer 2

D2006

Administrator

Mi, März 08, 2006 19:18
Antworten mit Zitat

Auch FTP ist ähnlich wie HTTP ein Protokoll.

Google nach "RFC FTP".

MfG
D2006

	Kryan	Mi, März 08, 2006 19:37 Antworten mit Zitat
wie kann man prüfen, ob ne nachricht in einem stream vorhanden ist?? weil wenn ich das mache:Code: [AUSKLAPPEN] [EINKLAPPEN] For cli.cl=Each cl mw$=ReadLine$(cli\handel) If mw$<>"" Then Print mw$ Next hat er keine lust mehr und schmiert ab ^^
Webspaceanbieter? Klick hier! Kultige Spieleschmiede? Klick hier!

Kryan

Mi, März 08, 2006 19:37
Antworten mit Zitat

wie kann man prüfen, ob ne nachricht in einem stream vorhanden ist??

weil wenn ich das mache:Code: [AUSKLAPPEN]

For cli.cl=Each cl
mw$=ReadLine$(cli\handel)
If mw$<>"" Then Print mw$
Next

hat er keine lust mehr und schmiert ab ^^

Webspaceanbieter?
Klick hier!
Kultige Spieleschmiede?
Klick hier!

	Hubsi	Mi, März 08, 2006 19:41 Antworten mit Zitat
ql:ReadAvail() ist dafür gedacht
Den ganzen Doag im Bett umanandflagga und iaz daherkema und meine Hendl`n fressn...

Hubsi

Mi, März 08, 2006 19:41
Antworten mit Zitat

ql:ReadAvail() ist dafür gedacht Very Happy

Den ganzen Doag im Bett umanandflagga und iaz daherkema und meine Hendl`n fressn...

	Kryan	Mi, März 08, 2006 19:46 Antworten mit Zitat
damit ich herausbekommen kann, was man schicken muss, hab ich einfach ein programm geschrieben, welches "server" spielt und guckt was so ankommt: Code: [AUSKLAPPEN] [EINKLAPPEN] AppTitle "Server" Graphics 640,480,0,2 server=CreateTCPServer(21) Type cl Field handel End Type Repeat client=AcceptTCPStream(server) If client Then cli.cl=New cl cli\handel=client WriteLine client,"Hallo" End If For cli.cl=Each cl While ReadAvail(cli\handel) mw$=ReadLine$(cli\handel) Print mw$ Wend Next Until KeyHit(1) CloseTCPServer(server) End mit filezilla hab ich dann das programm angesprochen, das programm schreibt aber nur "USER Peter" und mehr nicht also kein passwort oder sowas -.-
Webspaceanbieter? Klick hier! Kultige Spieleschmiede? Klick hier!

Kryan

Mi, März 08, 2006 19:46
Antworten mit Zitat

damit ich herausbekommen kann, was man schicken muss, hab ich einfach ein programm geschrieben, welches "server" spielt und guckt was so ankommt:
Code: [AUSKLAPPEN]

AppTitle "Server"
Graphics 640,480,0,2
server=CreateTCPServer(21)

Type cl
Field handel
End Type
Repeat
client=AcceptTCPStream(server)
If client Then
cli.cl=New cl
cli\handel=client
WriteLine client,"Hallo"
End If
For cli.cl=Each cl
While ReadAvail(cli\handel)
mw$=ReadLine$(cli\handel)
Print mw$
Wend
Next
Until KeyHit(1)

CloseTCPServer(server)

End

mit filezilla hab ich dann das programm angesprochen, das programm schreibt aber nur "USER Peter" und mehr nicht

also kein passwort oder sowas -.-

Webspaceanbieter?
Klick hier!
Kultige Spieleschmiede?
Klick hier!

	Hip Teen	Mi, März 08, 2006 19:51 Antworten mit Zitat
Wieso will jeder das Rad neu erfinden? Auf Blitzbasic.com im Codearchiv gibt es eine schöne Sammlung an Codes, mit dem man eigentlich alles wichtige mit einem FTP Server machen kann
Spruch der Woche: "Ahh, ein neues Gesicht?!" - "Nein, das hab ich schon länger"

Hip Teen

Mi, März 08, 2006 19:51
Antworten mit Zitat

Wieso will jeder das Rad neu erfinden?
Auf Blitzbasic.com im Codearchiv gibt es eine schöne Sammlung an Codes, mit dem man eigentlich alles wichtige mit einem FTP Server machen kann Very Happy

Spruch der Woche: "Ahh, ein neues Gesicht?!" - "Nein, das hab ich schon länger"