Hello, When the client close, does is generate a winsock error ? Same question for the datasocket at server side?
--- Rgds, Wilfried [TeamICS] http://www.overbyte.be/eng/overbyte/teamics.html http://www.mestdagh.biz Monday, August 14, 2006, 11:38, S S wrote: > Hello Everyone, > I have two units - > 1)CAENUnit > 2)MainUnit > There is a button "Start Server" in my main unit which when > clicked starts my server,starts my client,thereby on session connected > event the client sends commands to the reader to create notification > channel ,receives reply on data available event and then the server > starts receiving data from the reader > To stop,we click on "Stop server" button in main unit which in > turn stops the server and the client. > My program works fine till this point.But when I restart i.e., click on > start server again > the server connects,client connects but the client disconnects > after some time after sending the second command. > The section of main unit which calles CAEN unit is as follows > procedure TMainForm.StartButtonClick(Sender: TObject); > begin > if StartButton.ImageIndex = 0 then begin > // Starting a connection with a Reader > try > if ReaderComboBox.Text = 'Symbol' then begin > SymbolForm.ClearWorkArea; > SymbolForm.HttpServer.Start; > SymbolForm.ServerRunning := True; > end else if ReaderComboBox.Text = 'CAEN' then begin > CAENForm.ClearWorkArea; > CAENForm.StartTCPServer; > CAENForm.Connect; > CAENForm.ServerRunning := True; > end; > TestButton.Visible := True; > ReaderComboBox.Enabled := False; > DatabaseRepairMenu.Enabled := False; > except > SkinMessage.MessageDlg('Server could not be started. Please, > check IP and Port.',mtError,[mbOk],0); > exit; > end; > StartButton.ImageIndex := 1; > StartButton.Caption := 'Stop Server'; > end else begin > try > if ReaderComboBox.Text = 'Symbol' then begin > SymbolForm.HttpServer.Stop; > SymbolForm.ServerRunning := False; > end else if ReaderComboBox.Text = 'CAEN' then begin > CAENForm.StopTCPServer; > CAENForm.Close; > CAENForm.ServerRunning := False; > end; > TestButton.Visible := False; > TestButton.ImageIndex := 3; > TestButton.Caption := 'Start Testing'; > ReaderComboBox.Enabled := True; > DatabaseRepairMenu.Enabled := True; > except > SkinMessage.MessageDlg('Server could not be stopped.',mtError,[mbOk],0); > exit; > end; > StartButton.ImageIndex := 0; > StartButton.Caption := 'Start Server'; > end; > end; > I am attaching the code of CAEN unit. > Please suggest why does my client socket get disconnected after > sending the second command .i have no clue about it... > Please help. > Thanks > --------------------------------- > Do you Yahoo!? > Next-gen email? Have it all with the all-new Yahoo! Mail Beta. > --------------------------------- > Yahoo! Messenger with Voice. Make PC-to-Phone Calls to the US (and > 30+ countries) for 2ยข/min or less. -- To unsubscribe or change your settings for TWSocket mailing list please goto http://www.elists.org/mailman/listinfo/twsocket Visit our website at http://www.overbyte.be
