DevTrain Forum - SMTP Mail Server Socket Problem

Forum: VB.NET | Thema: SMTP Mail Server Socket Problem | Von: G. Guest ( 03.03.2005 11:09)

		Hallo zusammen 

Ich bin gerade dran, einen SMTP Server zu programmieren. 

Mit dem Sockets funktioniert alles wunderbar. Allerdings habe ich da noch ein problem. 

Ich kann maximal 1 Zeichen schreiben. D.H Wenn ich als erster Befehl HELO schreiben will (per Telnet), dann fährt er nach dem ersten Zeichen also mit H fort. 

Das ich mein Code wo die eingabe ankommt: 


While (True)
            'Wait for Client Command on this socket
            Dim bFlagNotToExitFromCommand As Boolean = False
            Dim SMTPCommand As String
            Dim byteArray(2048) As Byte
            Try

                Dim iBytes As Integer = ServerSocketForClient.Receive(byteArray, byteArray.Length, 0)
                Dim MessageFromClient As String = Encoding.ASCII.GetString(byteArray)
                If iBytes > 0 Then
                    SMTPCommand = ParseCommandFromMessage(MessageFromClient, SMTPLastCommand)
                Else
                    SMTPCommand = SMTPQUIT
                End If
                'There may be more than one file to be tranfered in the same connection
                'this will lead to close the file and open again for next file
                If SMTPCommand = SMTPRSET Then
                    If SMTPLastCommand = SMTPREQACCP Then
                        If Not pFile Is Nothing Then
                            pFileWriter.Close()
                            pFile.Close()
                            'open new file
                            pFile = CreateFileForSMTPClient(SMTPSpool & "\" & CStr(ClientCount & r.Next(1, 100)))
                            pFileWriter = New StreamWriter(pFile)
                        End If
                    End If
                Else
                    If SMTPCommand = SMTPMAIL And pFile Is Nothing Then
                        pFile = CreateFileForSMTPClient(SMTPSpool & "\" & CStr(ClientCount & r.Next(1, 100)))
                        pFileWriter = New StreamWriter(pFile)
                    End If
                    bFlagNotToExitFromCommand = SMTPHandleCommand(SMTPCommand, MessageFromClient, ServerSocketForClient, pFileWriter)
                End If
            Catch e As NotSupportedException
                Console.WriteLine(e.ToString)
            End Try
            If Not bFlagNotToExitFromCommand Then Exit While
        End While

Bei diesen Befehl kommen die Eingaben an: 


                Dim iBytes As Integer = ServerSocketForClient.Receive(byteArray, byteArray.Length, 0)

Was mache ich da falsch? Das Projekt ist nicht von mir, das habe ich im Internet gefunden! 

Vielen Dank für Eure Hilfe. 

Gruss Raffi


	

Betreff Von Datum

Re: SMTP Mail Server Socket Problem

Dieses Thema ist von mir. ich habe mich mittlerweilen noch registriert. Kennt sich niemand mit Sockets aus? Vielen Dank Gruss Raffi

Raphael Crivelli 03.03.2005 14:53

Re: SMTP Mail Server Socket Problem

hat niemand eine Idee? Es wäre schön wenn ich an meinem Projekt weiterarbeiten könnte. Vielen Dank Gruss Raffi

Raphael Crivelli 04.03.2005 12:51

Re: SMTP Mail Server Socket Problem

Was für ein Problem????

G. Guest 04.03.2005 15:06

Re: SMTP Mail Server Socket Problem

Wenn ich via Telnet telnet 127.0.0.1 25 zum MailServer connecte kann ich nur 1 Zeichen eingeben und danach ist fertig. Ich weiss nicht woran es liegt. Gruss Raffi

Raphael Crivelli 04.03.2005 15:14

Re: SMTP Mail Server Socket Problem

Ach ganz vergessen, wenn ich via Outlook eine Mail über den Mailserver versende, funktioniert es :S Gruss Raffi

Raphael Crivelli 04.03.2005 15:15

Re: SMTP Mail Server Socket Problem

Hallo zusammen Ich denke Ihr müsst mir nicht mehr helfen, da ich das Projekt "über Bord schmeisse" :) Aber trotzdem vielen Dank an die jenigen, die mein Problem angeschaut haben. Gruss Raffi

Raphael Crivelli 07.03.2005 09:40

Antworten Vorsicht bei der Eingabe: Die Zeichen ' oder -- sind nicht erlaubt!