Erro na API de Sockets...

Delphi

12/05/2004

Nesta procedure de OnConnect de um Server Socket:

[b:5003319d79]procedure[/b:5003319d79] Tprincipal.atlantesClientConnect(Sender: TObject;
Socket: TCustomWinSocket);
[b:5003319d79]begin[/b:5003319d79]
atlantes.Socket.SendText(boasvindas);
[b:5003319d79]end;[/b:5003319d79]

Após a compilação, quando um cliente conecta nesse servidor (aonde a ação de envio de variável é executada) ele dá esse erro:
[color=red:5003319d79][b:5003319d79]Access violation at address 00BD6969. Read of address BDD42BDC.[/b:5003319d79][/color:5003319d79]
No Run do Delphi, quando essa ação é executada:
[color=red:5003319d79][b:5003319d79]Project atlantes.exe raised exception class ESocketError with message ´Windows socket error: (10057), on API´send´´´. Process stopped. Use Step or Run to continue.[/b:5003319d79][/color:5003319d79]


Jasig Aurumalfa

Jasig Aurumalfa

Curtidas 0

Respostas

Euclides

Euclides

12/05/2004

Olá Jasig,


Não sei te explicar direito o porque mas em um projeto meu eu utilizo apenas :

procedure Tprincipal.atlantesClientConnect(Sender: TObject;
Socket: TCustomWinSocket);
begin
Socket.SendText(´boasvindas´);
end;

espero ter ajudado

Tente qualquer coisa posta aqui denovo .....

Abraços


GOSTEI 0
Jasig Aurumalfa

Jasig Aurumalfa

12/05/2004

Era isso mesmo, esqueci a regrinha dos componentes :D .
Obrigado.


GOSTEI 0
POSTAR