der code ist zu langsam...

suncat · 20. Januar 2011, 10:46

hallo,
Der Server und der Client ist auf meinem Laptop.
wenn ich den Clinet Code auf meinem Laptop ausführe, dann reagiert der Server softort(weniger als eine Sek..

Wenn ich den Client Code in meinem Smart Device für PocketPC(der Code bleibt unverändert, auser die IP).

DANN WARTE ICH GANZ GENAU 5 SEKUNDEN bis die Nachtricht beim Server ankommt.

Jetzt kannn man sagen, liegt am Wlan ?!

Komisch ist dann, wenn ich bei meinem PocketPC den IE aufmache und als IP 192.168.2.111 eingeben,dass dann der Server SOFORT reagiert?

Ich spile mit dem Gadanke einen ASM Code oder c++ code einzufügen, oder den folgenden Code zu modifizieren?!

Code der zum Server eine Nachricht schickt.

VB.NET-Quellcode

Imports System.Net.Sockets
Imports System.IO
Public Class Form1
'Variablen:
Dim stream As NetworkStream
Dim streamw As StreamWriter
Dim streamr As StreamReader
Dim Client As New TcpClient
' Dim IP As String =
' Dim Port As Integer = 80
' Dim loginname As String = "abc" ' Diese Variable ist nicht Pflicht! Aber nützlich für ein Chatprogram...
'_________________
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Client.Connect("127.0.0.1", 80) 'Client verbindet sich mit IP: 192.168.111.17 und Port 4000
' If Client.Connected Then
stream = Client.GetStream ' Stream wird auf Client verwiesen
streamw = New StreamWriter(stream) ' Stream zum Senden wird deklariert
' streamr = New StreamReader(stream) ' Stream zum Empfangen wird deklariert
' streamw.WriteLine("onl " & loginname)
streamw.WriteLine("14#2#1!0!0!#2!3!0")
streamw.Flush()
' Else
' MsgBox("Verbidnung konnte nicht mit " & IP & " aufgebaut werden!")
' End If
End Sub ''vom knopf
End Class

picoflop · 20. Januar 2011, 10:54

suncat schrieb:

Jetzt kannn man sagen, liegt am Wlan ?!

Vermutlich eher nicht ...

Erstmal feststellen, WO es genau hakt! Aufbau der (ersten?) Verbindung? Senden selbst? Warten auf Antwort?

suncat · 20. Januar 2011, 11:43

thx,
ähh Senden selbst?
wie meinst du das?

picoflop · 20. Januar 2011, 11:48

suncat schrieb:

wie meinst du das?

Wie lange dauert es bis der nächste Befehl nach stream.writeline (oder .flush) ausgeführt wird? Wie lange dauert es vom BEENDEN des Sendens bis der Server "ok" sagt usw

suncat · 20. Januar 2011, 13:17

ich habe 2 Knöpfe erstellt.

1.Knopf connect
2.der Rest

Wenn ich knopf 1 drücke und nach 2 sec. den Knopf 2 drückt dann kommt der Absturtz.
Wenn ich Knopf 1 drücke und genau 5 sec warte, dann reagiert der Knopf 2 sehr schnell auf den Server.

suncat · 21. Januar 2011, 18:34

ok ist setze nochmal an:

Mein Server:

Mein Knopf "listen":
ES ist Cpp kein php

PHP-Quellcode

// TODO: Add your control notification handler code here
UpdateData(TRUE);
m_sListener.Create(m_port);
if(m_sListener.Listen()==FALSE)
{
m_sListener.Close();
return;
}
CString a,b,c;
a = m_log;
b = "Listening For Connections!!!";
c = "\r\n";
m_log= a +b+c;
UpdateData(FALSE);
m_listenbutton.EnableWindow(FALSE);
m_stopbutton.EnableWindow(TRUE);

Hier wird Acceptiert:
Es ist kein PHP sonder CPP

PHP-Quellcode

void CServerDlg::OnAccept()
{
CString strIP;
UINT port;
m_log += "Fehlera";
UpdateData(FALSE);
if(m_sListener.Accept(m_sConnected))
{
//m_sConnected.GetSockName(strIP,port);
CString a,b,c;
b = "Client Connected,IP :";
c = "\r\n";
a = m_log;
m_log = a +b +c;
/// hier
//m_sConnected.Send("Connected To Server",strlen("Connected To Server"));
UpdateData(FALSE);
}
else
{
m_log += "Fehler";
UpdateData(FALSE);
}
}

Mein Client:

Quellcode

VB
Imports System
Imports System.Text
Imports System.IO
Imports System.Net
Imports System.Net.Sockets
Imports System.Runtime.InteropServices
Public Class Form1
'Variablen:
Dim stream As NetworkStream
Dim streamw As StreamWriter
Dim streamr As StreamReader
Dim Client As New TcpClient
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
log.Text = log.Text + "log gehts"
Client.Connect("192.168.2.111", 80) 'Client verbindet sich
log.Text = log.Text + "connnet ist fertig"
stream = Client.GetStream ' Stream wird auf Client verwiesen
streamw = New StreamWriter(stream) ' Stream zum Senden wird deklariert
streamr = New StreamReader(stream)
streamw.WriteLine("14#2#1!0!0!#2!3!0")
log.Text = log.Text + "gesendet"
streamw.Flush()
log.Text = log.Text + "Flush ausgeführt"
Client.Close()
End Sub
End Class

Bei meinem Server(Laptop) drücke ich auf den Knopf "listen".
Bei meiner Client(PocketPC) drücke ich auf "connect"

Dann hängt er bei ...

Quellcode

Client.Connect("192.168.2.111", 80) 'Client verbindet sich

und stürtzt ab nach ca. 5 sec ab.

Wenn ich den VB kram bei meinem Desctop PC nutze, dann gehts ?!
PocketPC, Laptop und Desktop PC sind alles per Wlan verbunden.

Wenn ich mit dem IE vom PcoketPC auf den Server zugreife, dann reagiert er sofort.

Ich weis nicht wo ich anfangen soll den Fehler zusuchen,bzw wie soll ich ihn einkesseln?

suncat · 23. Januar 2011, 13:43

ok ist setze nochmal an:

Mein Server:

Mein Knopf "listen":
[cpp]
// TODO: Add your control notification handler code here
UpdateData(TRUE);
m_sListener.Create(m_port);
if(m_sListener.Listen()==FALSE)
{

m_sListener.Close();
return;
}
CString a,b,c;
a = m_log;

b = "Listening For Connections!!!";
c = "\r\n";
m_log= a +b+c;
UpdateData(FALSE);
m_listenbutton.EnableWindow(FALSE);
m_stopbutton.EnableWindow(TRUE);

[/cpp]

Hier wird Acceptiert:
[cpp]
void CServerDlg::OnAccept()
{
CString strIP;
UINT port;
m_log += "Fehlera";
UpdateData(FALSE);

if(m_sListener.Accept(m_sConnected))
{
//m_sConnected.GetSockName(strIP,port);

CString a,b,c;
b = "Client Connected,IP :";
c = "\r\n";
a = m_log;
m_log = a +b +c;
/// hier

//m_sConnected.Send("Connected To Server",strlen("Connected To Server"));
UpdateData(FALSE);
}
else
{
m_log += "Fehler";
UpdateData(FALSE);
}
}
[/cpp]

Mein Client:

Quellcode

VB
Imports System
Imports System.Text
Imports System.IO
Imports System.Net
Imports System.Net.Sockets
Imports System.Runtime.InteropServices
Public Class Form1
'Variablen:
Dim stream As NetworkStream
Dim streamw As StreamWriter
Dim streamr As StreamReader
Dim Client As New TcpClient
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
log.Text = log.Text + "log gehts"
Client.Connect("192.168.2.111", 80) 'Client verbindet sich
log.Text = log.Text + "connnet ist fertig"
stream = Client.GetStream ' Stream wird auf Client verwiesen
streamw = New StreamWriter(stream) ' Stream zum Senden wird deklariert
streamr = New StreamReader(stream)
streamw.WriteLine("14#2#1!0!0!#2!3!0")
log.Text = log.Text + "gesendet"
streamw.Flush()
log.Text = log.Text + "Flush ausgeführt"
Client.Close()
End Sub
End Class

Bei meinem Server(Laptop) drücke ich auf den Knopf "listen".
Bei meiner Client(PocketPC) drücke ich auf "connect"

Dann hängt er bei ...

Quellcode

Client.Connect("192.168.2.111", 80) 'Client verbindet sich

und stürtzt ab nach ca. 5 sec ab.

Wenn ich den VB kram bei meinem Desctop PC nutze, dann gehts ?!
PocketPC, Laptop und Desktop PC sind alles per Wlan verbunden.

Wenn ich mit dem IE vom PcoketPC auf den Server zugreife, dann reagiert er sofort.

Ich weis nicht wo ich anfangen soll den Fehler zusuchen,bzw wie soll ich ihn einkesseln?

Nachtrag:
23.01.2010 um 13.41

Wenn ich auf Details gehe kommt:

HTML-Quellcode

SocketException
Es konnte keiner Verbindung hergestellt
werden, da der Zeilcomputer die
Verbindung verweigerte
bei
System.Net.Sockets.Socket.ConnectNoCheck(EndPonit remoteEP)
bei
System.Net.Sockets,Socket.Connect(EndPonit remoteEP)
bei
System.Net.Sockets.TcpClient.Connext(IPEndPoint remoteEP)
bei
System.Net.Sockets.TcpClient.Connext(String hostname,Int32 port)
bei
System.Net.Sockets.TcpClient..ctor(String hostname,Int32 port)
bei
vb2.Form1senden_click(Object sender,EventArgs e)
... und eine ganze Late mehr...

Laut nach meinem Netzwerkmonitor kommt nichts,wirklich nichts am Server an, nicht einmal ein Sys.

jvbsl · 23. Januar 2011, 16:19

Serverprogramm gestartet? kommt ein Ping an? Sicher, dass der Port 80 für dein Serverprogramm zugelassen wird?
Flush ist bei NetworkStreams unnötig...
außerdem öffnest du mit dem Button1 die Verbindung, sendest etwas und schließt direkt wieder, ich denke es wäre besser die Verbindung vorübergehen aufrecht zu erhalten...

suncat · 23. Januar 2011, 17:15

-Serverprogramm gestartet?

Ja,100%

-kommt ein Ping an?

ja,100%

-Sicher, dass der Port 80 für dein Serverprogramm zugelassen wird?

ja,100%

-Flush ist bei NetworkStreams unnötig...

ok, das wuste ich nicht.

-außerdem öffnest du mit dem Button1 die Verbindung, sendest etwas und

schließt direkt wieder, ich denke es wäre besser die -Verbindung

vorübergehen aufrecht zu erhalten...

so dachte ich auch zuletzt,

Private Sub senden_Click(ByVal s.........................lblablalb

blalbalba.........

Client.Connect("192.168.2.111", 80) ' danach kommt nichts mehr, dann stützt mein Prog ab.

End Sub

Wenn ich den Quellcode für pc kompiliere dann läuft mein Prog 1a.Aber nicht für PocketPC.Warum?

der code ist zu langsam...

der code ist zu langsam...

VB.NET-Quellcode

suncat schrieb:

suncat schrieb:

PHP-Quellcode

PHP-Quellcode

Quellcode

Quellcode

Quellcode

Quellcode

HTML-Quellcode

Ähnliche Themen

2 Benutzer haben hier geschrieben