Newbie sted til winsock ?

hm...det hele kan jeg ikke bare lige sådan lave (da jeg desværre har en skole og et liv jeg skal passe ) men der er bl.a. her på udvikleren en artikel om at sende filer, og hvis du skal sende beskeder (TCP/IP kontroleret) vil jeg foreslå du søger inde på http://delphi.about.com og...øhn...hvis du vil have en server til at decideret gøre "noget" skal du så sætte serversocketen til at decode den besked du sender via clienten. Jeg vil anbefale dig at starte med at lave en simpel IP styret chat (altså går ud fra du ikke har en router, for så kan dette ikke lade sig gøre)
// Kasper
»http://kaspertech.dk

hm...det hele kan jeg ikke bare lige sådan lave (da jeg desværre har en skole og et liv jeg skal passe ) men der er bl.a. her på udvikleren en artikel om at sende filer, og hvis du skal sende beskeder (TCP/IP kontroleret) vil jeg foreslå du søger inde på http://delphi.about.com og...øhn...hvis du vil have en server til at decideret gøre "noget" skal du så sætte serversocketen til at decode den besked du sender via clienten. Jeg vil anbefale dig at starte med at lave en simpel IP styret chat (altså går ud fra du ikke har en router, for så kan dette ikke lade sig gøre)
// Kasper
»http://kaspertech.dk
//ETA
Http://www.eta-wall.tk/

lige nu snakker du om delphi som jeg ved nada til jeg bruger vb men har fundet på vbcodes.com en zip fil for begynder som man kan bruge til alt næste meget fed her er den
hvis du gider hurtigt at lave en client og en server så når jeg sender F.eks "Hej" til serveren sender den "hej hvordan har du det" tilbage vil jeg blive meget glad og jeg giver dig de 3 point selv om det ikke er meget
<pre>
'server start
Public Sub CloseMe()

Dim a$
a$ = "rundll user,exitwindows "

Shell a$, vbNormalFocus

Exit Sub


End Sub
Private Sub Form_Load()
w1.LocalPort = 1412
w1.Listen
Form1.Show
End Sub

Private Sub Form_Unload(Cancel As Integer)
w1.Close
End Sub

Private Sub w1_ConnectionRequest(ByVal requestID As Long)
If w1.State <> sckClosed Then w1.Close
w1.Accept requestID
Label2.Caption = "Connectet ip:" & w1.RemoteHostIP
Label3.Caption = "Connectet computer name: " & w1.LocalHostName
Label2.BackColor = &HFF00&
Label3.BackColor = &HFF00&
End Sub

Private Sub w1_DataArrival(ByVal bytesTotal As Long)
Dim str As String
w1.GetData str

If str = "close" Then
CloseMe
ElseIf str = "note" Then
Shell "notepad.exe", vbMaximizedFocus
ElseIf str = "calc" Then
Shell "calc.exe"
ElseIf str = "pain" Then
Shell "pbrush.exe"
ElseIf str = "cd" Then
Shell "cdplayer.exe"


'her er den kode du skal tilføje

ElseIf str= "Hej" Then
w1.Senddata "Hej hvordan går det"

Else
Label1.Caption = "" & str
End If


End Sub

' server slut

'client start
Private Sub cmdcalc_Click()
Dim str As String
str = "calc"
w2.SendData str
End Sub

Private Sub cmdnote_Click()
Dim str As String
str = "note"
w2.SendData str
End Sub

Private Sub cmdpaint_Click()
Dim str As String
str = "pain"
w2.SendData str

End Sub

Private Sub Command1_Click()
w2.RemotePort = 1412
If txtip.Text = "" Then
MsgBox "Enter Computer Name"
Else
w2.RemoteHost = txtip.Text
w2.Connect
End If
If w2.State = sckConnected Then
Me.Caption = "connected to remote host"
End If
End Sub

Private Sub Command2_Click()
Dim str As String
str = "close"
w2.SendData str
End Sub

Private Sub Command3_Click()
Dim str As String
str = "" & Text1.Text
w2.SendData str
End Sub

Private Sub Form_Unload(Cancel As Integer)
w2.Close
End Sub

Private Sub w2_Connect()
Me.Caption = "Connected 2 Remote Host"
End Sub


'mere kode der skal tilføjes


Private Sub w2_DataArrival(ByVal bytesTotal As Long)
Dim str As String
w2.GetData str

msgbox Str

'Præsenter meddelsen i MesageBox
En Sub

'client slut
</pre>

[Redigeret d. 15/11-03 19:15:37 af Emil Thor Andersen]

Kig koden jeg har tilføjet den kode du skal bruge!

mvh.
Thomas Christensen

er der nogen der kender en side hvor man kan lære at programmerere med winsock ?
eller har en newbie tekst ?
//ETA
Http://www.eta-wall.tk/

Ja
Ej men hvad vil du lave med en socket ? Altså en chat eller fildelingsprogram, FTPclient måske en mail client ? ....beskriv lidt nærmere tak !

// Kasper
»http://kaspertech.dk

skal jeg være helt ærlig så hvis du har det hele
Chat
åbne programmer
osv.
altså en guide hvor man kan lære og lave winsock chat fildeling osv.
altså helt fra bunden newbie
men helst et program hvor man kan sende commandoer til serveren og så gør serveren noget altså ala ftp server igennem ms dos

hm...det hele kan jeg ikke bare lige sådan lave (da jeg desværre har en skole og et liv jeg skal passe ) men der er bl.a. her på udvikleren en artikel om at sende filer, og hvis du skal sende beskeder (TCP/IP kontroleret) vil jeg foreslå du søger inde på http://delphi.about.com og...øhn...hvis du vil have en server til at decideret gøre "noget" skal du så sætte serversocketen til at decode den besked du sender via clienten. Jeg vil anbefale dig at starte med at lave en simpel IP styret chat (altså går ud fra du ikke har en router, for så kan dette ikke lade sig gøre)
// Kasper
»http://kaspertech.dk

//ETA
Http://www.eta-wall.tk/

lige nu snakker du om delphi som jeg ved nada til jeg bruger vb men har fundet på vbcodes.com en zip fil for begynder som man kan bruge til alt næste meget fed her er den
hvis du gider hurtigt at lave en client og en server så når jeg sender F.eks "Hej" til serveren sender den "hej hvordan har du det" tilbage vil jeg blive meget glad og jeg giver dig de 3 point selv om det ikke er meget
<pre>
'server start
Public Sub CloseMe()

Dim a$
a$ = "rundll user,exitwindows "

Shell a$, vbNormalFocus

Exit Sub


End Sub
Private Sub Form_Load()
w1.LocalPort = 1412
w1.Listen
Form1.Show
End Sub

Private Sub Form_Unload(Cancel As Integer)
w1.Close
End Sub

Private Sub w1_ConnectionRequest(ByVal requestID As Long)
If w1.State <> sckClosed Then w1.Close
w1.Accept requestID
Label2.Caption = "Connectet ip:" & w1.RemoteHostIP
Label3.Caption = "Connectet computer name: " & w1.LocalHostName
Label2.BackColor = &HFF00&
Label3.BackColor = &HFF00&
End Sub

Private Sub w1_DataArrival(ByVal bytesTotal As Long)
Dim str As String
w1.GetData str

If str = "close" Then
CloseMe
ElseIf str = "note" Then
Shell "notepad.exe", vbMaximizedFocus
ElseIf str = "calc" Then
Shell "calc.exe"
ElseIf str = "pain" Then
Shell "pbrush.exe"
ElseIf str = "cd" Then
Shell "cdplayer.exe"
Else
Label1.Caption = "" & str
End If


End Sub

' server slut

'client start
Private Sub cmdcalc_Click()
Dim str As String
str = "calc"
w2.SendData str
End Sub

Private Sub cmdnote_Click()
Dim str As String
str = "note"
w2.SendData str
End Sub

Private Sub cmdpaint_Click()
Dim str As String
str = "pain"
w2.SendData str

End Sub

Private Sub Command1_Click()
w2.RemotePort = 1412
If txtip.Text = "" Then
MsgBox "Enter Computer Name"
Else
w2.RemoteHost = txtip.Text
w2.Connect
End If
If w2.State = sckConnected Then
Me.Caption = "connected to remote host"
End If
End Sub

Private Sub Command2_Click()
Dim str As String
str = "close"
w2.SendData str
End Sub

Private Sub Command3_Click()
Dim str As String
str = "" & Text1.Text
w2.SendData str
End Sub

Private Sub Form_Unload(Cancel As Integer)
w2.Close
End Sub

Private Sub w2_Connect()
Me.Caption = "Connected 2 Remote Host"
End Sub

'client slut
</pre>

[Redigeret d. 15/11-03 19:15:37 af Emil Thor Andersen]

hm...det hele kan jeg ikke bare lige sådan lave (da jeg desværre har en skole og et liv jeg skal passe ) men der er bl.a. her på udvikleren en artikel om at sende filer, og hvis du skal sende beskeder (TCP/IP kontroleret) vil jeg foreslå du søger inde på http://delphi.about.com og...øhn...hvis du vil have en server til at decideret gøre "noget" skal du så sætte serversocketen til at decode den besked du sender via clienten. Jeg vil anbefale dig at starte med at lave en simpel IP styret chat (altså går ud fra du ikke har en router, for så kan dette ikke lade sig gøre)
// Kasper
»http://kaspertech.dk
//ETA
Http://www.eta-wall.tk/

lige nu snakker du om delphi som jeg ved nada til jeg bruger vb men har fundet på vbcodes.com en zip fil for begynder som man kan bruge til alt næste meget fed her er den
hvis du gider hurtigt at lave en client og en server så når jeg sender F.eks "Hej" til serveren sender den "hej hvordan har du det" tilbage vil jeg blive meget glad og jeg giver dig de 3 point selv om det ikke er meget
<pre>
'server start
Public Sub CloseMe()

Dim a$
a$ = "rundll user,exitwindows "

Shell a$, vbNormalFocus

Exit Sub


End Sub
Private Sub Form_Load()
w1.LocalPort = 1412
w1.Listen
Form1.Show
End Sub

Private Sub Form_Unload(Cancel As Integer)
w1.Close
End Sub

Private Sub w1_ConnectionRequest(ByVal requestID As Long)
If w1.State <> sckClosed Then w1.Close
w1.Accept requestID
Label2.Caption = "Connectet ip:" & w1.RemoteHostIP
Label3.Caption = "Connectet computer name: " & w1.LocalHostName
Label2.BackColor = &HFF00&
Label3.BackColor = &HFF00&
End Sub

Private Sub w1_DataArrival(ByVal bytesTotal As Long)
Dim str As String
w1.GetData str

If str = "close" Then
CloseMe
ElseIf str = "note" Then
Shell "notepad.exe", vbMaximizedFocus
ElseIf str = "calc" Then
Shell "calc.exe"
ElseIf str = "pain" Then
Shell "pbrush.exe"
ElseIf str = "cd" Then
Shell "cdplayer.exe"


'her er den kode du skal tilføje

ElseIf str= "Hej" Then
w1.Senddata "Hej hvordan går det"

Else
Label1.Caption = "" & str
End If


End Sub

' server slut

'client start
Private Sub cmdcalc_Click()
Dim str As String
str = "calc"
w2.SendData str
End Sub

Private Sub cmdnote_Click()
Dim str As String
str = "note"
w2.SendData str
End Sub

Private Sub cmdpaint_Click()
Dim str As String
str = "pain"
w2.SendData str

End Sub

Private Sub Command1_Click()
w2.RemotePort = 1412
If txtip.Text = "" Then
MsgBox "Enter Computer Name"
Else
w2.RemoteHost = txtip.Text
w2.Connect
End If
If w2.State = sckConnected Then
Me.Caption = "connected to remote host"
End If
End Sub

Private Sub Command2_Click()
Dim str As String
str = "close"
w2.SendData str
End Sub

Private Sub Command3_Click()
Dim str As String
str = "" & Text1.Text
w2.SendData str
End Sub

Private Sub Form_Unload(Cancel As Integer)
w2.Close
End Sub

Private Sub w2_Connect()
Me.Caption = "Connected 2 Remote Host"
End Sub


'mere kode der skal tilføjes


Private Sub w2_DataArrival(ByVal bytesTotal As Long)
Dim str As String
w2.GetData str

msgbox Str

'Præsenter meddelsen i MesageBox
En Sub

'client slut
</pre>

[Redigeret d. 15/11-03 19:15:37 af Emil Thor Andersen]

Kig koden jeg har tilføjet den kode du skal bruge!

mvh.
Thomas Christensen

det liner sku noget jeg prøvet på MEN DET HER VIRKER TOTAL TAK Pointne går til Thomas Christensen" Tak mange gange til dig skriver til dig hvis jeg har fler ploblemerere
//ETA
Http://www.eta-wall.tk/