Problemas com Socket e Delphi7
30/03/2006
0
Gostaria que vocês me ajudassem com uma dúvida! Fiz um simples servidor com o ServerCLient da aba Internet, então abri o programa TELNET, ativei o servidor, e mandei o programa telnet conectar... o telnet exibiu a mensagem Conectando... e ficou só naquilo!!!
Eu gostaria de saber qual o problema com o servidor, e pq esta dando esse erro... aqui vai o código:
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ScktComp, StdCtrls; type TForm1 = class(TForm) Server: TServerSocket; Memo1: TMemo; Button2: TButton; Button3: TButton; procedure Button2Click(Sender: TObject); procedure ServerClientRead(Sender: TObject; Socket: TCustomWinsocket); procedure ServerClientConnect(Sender: TObject; Socket: TCustomWinSocket); procedure Button3Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.ServerClientRead(Sender: TObject; Socket: TCustomWinsocket); var s1: string; begin s1 := Socket.ReceiveText; Memo1.Lines.Add(s1); end; procedure TForm1.ServerClientConnect(Sender: TObject; Socket: TCustomWinSocket); begin Memo1.Lines.Add(´Cliente se Conectou´); end; procedure TForm1.Button2Click(Sender: TObject); begin Server.Active:= True; Server.Open; Memo1.Lines.Add(´Aberto para Conexoes...´); end; procedure TForm1.Button3Click(Sender: TObject); begin Server.Active:= False; end; end.
Espero que me ajudem, agradeço desde já! Obrigado.
Tunneler
Posts
30/03/2006
Thomaz_prg
30/03/2006
Tunneler
30/03/2006
Tunneler
Porém eu nao sabia que tinha que mexer nos events, por exemplo, caso o client se conect chamar o accept... entendemmm =]
Eu gostaria duma explicação a respeito desses events !!
30/03/2006
Ipc$
É no evento onAccept que o Server efetiva a conexão podendo ou não aceitá-la nesse evento.
Clique aqui para fazer login e interagir na Comunidade :)