[VB.NET] Multiserver (TCP)

1
…
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
11
12
13
14
15
…
- 16
- 17
- 18
- 19
- 20
- 21
- 22
- 23
- 24
- 25
- 26
- 27
- 28
- 29
30

Black

Registrierter Benutzer

Beiträge: 6

Dabei seit: 8. August 2010

241

Dienstag, 24. August 2010, 13:50

Zitat von »Gugi«

wozu denn? die die chatten wollen, brauchen nur den client

naja ich mag das etwas ausbauen, und da soll die Server exe etwas mehr können

PS: Fehler1 Es wurde keine zugreifbare Main-Methode mit entsprechender Signatur in "MultiServer" gefunden.MultiServer

Das kommt dabei raus+

Ich hab das in die Form1 eingefügt, und es ging nicht, danach hab ich die Modul1.vb gelöscht, doch es ging immer noch nichts.

Visual Basic Quellcode

Sub Main()
  listbox1.items.add("Der Server läuft!")
  server = New TcpListener(ipendpoint)
  server.Start()
  While True ' wir warten auf eine neue verbindung...
     client = server.AcceptTcpClient
     Dim c As New Connection ' und erstellen für die neue verbindung eine neue connection...
     c.stream = client.GetStream
     c.streamr = New StreamReader(c.stream)
     c.streamw = New StreamWriter(c.stream)
     c.nick = c.streamr.ReadLine ' falls das mit dem nick nicht gewünscht, auch diese zeile entfernen.
     list.Add(c) ' und fügen sie der liste der clients hinzu.
     Console.WriteLine(c.nick & " has joined.")            ' falls alle anderen das auch lesen sollen können, an alle clients weiterleiten.

     Dim t As New Threading.Thread(AddressOf ListenToConnection)
     t.Start(c)
  End While
End Sub

Edit by der_Kurt:
* Code etwas 'lesbarer' gemacht *

Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von »der_Kurt« (24. August 2010, 17:03)

Zum Seitenanfang

Mom9000

Registrierter Benutzer

Beiträge: 5

Dabei seit: 6. März 2010

242

Mittwoch, 25. August 2010, 14:55

Lokal auf dem eigenen rechner funktioniert das aber im Netwerk nicht.

Ich bin Neu hier.

Zum Seitenanfang

Black

Registrierter Benutzer

Beiträge: 6

Dabei seit: 8. August 2010

243

Mittwoch, 25. August 2010, 15:08

Welches Netzwerk meinst du ?

Wenn du Hamachi nutzt, dann musst du bei der SampleClient diese Code Stelle ändern

	Visual Basic Quellcode
1	client.Connect("Deine HAMACHI IP", 8000) ' hier die ip des servers eintragen.

Wenn du DNSDyn nutzt, dann musst du
1. den Port 8000 im Router Freigeben
2. den Port 8000 in deiner Firewall freigeben
3. den Code abschnitt in

	Visual Basic Quellcode
1	client.Connect("Deine DNSDyn Adresse", 8000) ' hier die ip des servers eintragen.

Wenn du das ganze über Lan machst dann musst du den Code Abschnitt in

	Visual Basic Quellcode
1	client.Connect("Deine LAN IP", 8000) ' hier die ip des servers eintragen.

Zum Seitenanfang

Mom9000

Registrierter Benutzer

Beiträge: 5

Dabei seit: 6. März 2010

244

Dienstag, 31. August 2010, 15:50

ich habe es im lan ausprobiert das geht aber leider nicht ich weiß nicht warum.
muss ich uach iregendetwas am server eingeben oder etwas mit den ports machen oder so??

Ich bin Neu hier.

Zum Seitenanfang

gugi-zone.net

VB.NET & C# Programmierer

Beiträge: 1 506

Hilfreich-Bewertungen: 44

245

Dienstag, 31. August 2010, 17:29

Zitat

ich habe es im lan ausprobiert das geht aber leider nicht ich weiß nicht warum.
muss ich uach iregendetwas am server eingeben oder etwas mit den ports machen oder so??

ja, die ports müssen schon freigegeben sein!

Gruß, Gugi :thumbup:

gugi-zone.net

Zum Seitenanfang

Mom9000

Registrierter Benutzer

Beiträge: 5

Dabei seit: 6. März 2010

246

Freitag, 3. September 2010, 17:37

wie kann ich das herausfinden??

Ich bin Neu hier.

Zum Seitenanfang

jvbsl

Noob

Beiträge: 7 206

Dabei seit: 7. April 2010

Hilfreich-Bewertungen: 397

247

Freitag, 3. September 2010, 17:43

gib die IP deines Routers in deinen WebBrowser ein, dort den Usernamen sowie das Passwort und dann musst du halt entsprechend gucken, wo das steht(und wo du es konfigurieren kannst), dies sollte je nach Hersteller unterschiedlich, aber ähnlich sein...

Ich wollte auch mal ne total überflüssige Signatur:
---Leer---

Zum Seitenanfang

xzibitsebi

Registrierter Benutzer

Beiträge: 29

Dabei seit: 28. Juli 2008

248

Sonntag, 5. September 2010, 14:50

Hey,
Ich bräuchte einmal eine Gedankenstütze und zwar geht es mir darum das ich gerne vom Server aus eine Datei verschicken möchte mein Gedanke war das ich als erstes ein String zum Client sende mit folgendem Inhalt.
Server -> Client = "Download-" & Bytes vom Programm
Client -> Server = Ready oder OK
Aber ich weiß nicht ob das Sinn macht wenn ich die Bytes von dem zu Schickendem Programm auslese und dann mitschicke sodass der Client die Bytes nur noch abspeichern und Starten muss.
Wäre das hier Sinnvoll? Oder muss ich mir was anderes ausdenken?

Zum Seitenanfang

jvbsl

Noob

Beiträge: 7 206

Dabei seit: 7. April 2010

Hilfreich-Bewertungen: 397

249

Sonntag, 5. September 2010, 15:22

das würde wohl kaum funktionieren, da du nicht so einfach Bytes in einen String umwandeln kannst(mit Convert.ToBase64String oder so ähnlich sollte es gehen)...
ich würde das ganze jedoch mit einem BinaryWriter und Reader machen, wobei du dann aber erst Download- abläufst und natürlich erst die darauffolgenden Bytes speicherst...

Ich wollte auch mal ne total überflüssige Signatur:
---Leer---

Zum Seitenanfang

basti2485

Registrierter Benutzer

Beiträge: 506

Dabei seit: 18. Januar 2009

Wohnort: Baden bez. [AUT]

Hilfreich-Bewertungen: 2

250

Samstag, 11. September 2010, 21:09

Bild vom Server zum Client übertragen

Hey,
wie kann man anhand des Codes hier, ein Bild vom Server zum Client übertragen?
So dass man einen Befehl eingibt diesen an den Server sendet und der Server es dann wo speichert, habe ich schon hinbekommen. Nun will ich aber, dass beim Client ein Fenster aufgeht wo das Bild dann angezeigt wird.
LG

LG, basti2485

http://wbas.ath.cx

Zum Seitenanfang

kevin89

Super Moderator

Beiträge: 3 881

Dabei seit: 16. April 2008

Hilfreich-Bewertungen: 155

251

Samstag, 11. September 2010, 21:13

Naja, binär halt. Geht z.B. indem du das Bild mit der Save-Methode in einem Memorystream speicherst und dessen Inhalt dann sendest. Auf der anderen Seite Image.FromStream nutzen.

Zum Seitenanfang

basti2485

Registrierter Benutzer

Beiträge: 506

Dabei seit: 18. Januar 2009

Wohnort: Baden bez. [AUT]

Hilfreich-Bewertungen: 2

252

Samstag, 11. September 2010, 21:32

danke schon mal

mein Code sieht so aus:

	Visual Basic Quellcode
1	System.IO.File.WriteAllBytes(mystream.ToString, buffer)

buffer ist das bild in einem array, mystream ist der memorystream. Hoffe so ists richtig ;D
Nur mein Problem ist, wie sende ich diesen jetzt?

LG, basti2485

http://wbas.ath.cx

Zum Seitenanfang

kevin89

Super Moderator

Beiträge: 3 881

Dabei seit: 16. April 2008

Hilfreich-Bewertungen: 155

253

Samstag, 11. September 2010, 21:41

Ne, nicht ganz

ungefähr sollte es so aussehen (ausm Kopf):

	Visual Basic Quellcode
1 2 3 4 5 6 7	' img ist dein Bild Dim ms As New IO.MemoryStream img.Save(ms, Imaging.Imageformat.Jpeg) Dim buffer() As Byte = ms.ToArray ms.Close() ms.Dispose() ' buffer jetzt versenden

Zum Seitenanfang

basti2485

Registrierter Benutzer

Beiträge: 506

Dabei seit: 18. Januar 2009

Wohnort: Baden bez. [AUT]

Hilfreich-Bewertungen: 2

254

Samstag, 11. September 2010, 21:47

:O
vor lauter bäumen seh ich den Wald gar nicht mehr. >.<
Das ist ja bereits in dem Code, den du mir damals gegeben hast drinnen.
den buffer, wie versende ich den nun?

LG, basti2485

http://wbas.ath.cx

Zum Seitenanfang

kevin89

Super Moderator

Beiträge: 3 881

Dabei seit: 16. April 2008

Hilfreich-Bewertungen: 155

255

Samstag, 11. September 2010, 22:50

Einfach in den Stream schreiben und flushen.

Zum Seitenanfang

Quadsoft.de.vu

Registrierter Benutzer

Beiträge: 196

Dabei seit: 11. Mai 2010

Wohnort: Flensburg

Hilfreich-Bewertungen: 48

256

Sonntag, 12. September 2010, 14:03

NetworkStream.Flush() hat wie ich schon so oft geschrieben habe keine Auswirkung, da NetworkStream nicht gepuffert ist

USBLock - PC per USB-Stick sperren

>> http://www.quadsoft.org

Zum Seitenanfang

Mom9000

Registrierter Benutzer

Beiträge: 5

Dabei seit: 6. März 2010

257

Montag, 13. September 2010, 16:36

ok danke dann werde ich mal gucken in der zwischenzeit könnte mir einer verraten wie man ein im code erstelltes label in der form einzeigen lassen kann??

Ich bin Neu hier.