klient-serwer pomuzcie

dlaczego to nie dziala??
dla serwera
ServerSocket1.socket.sendtext('czesc tu ja serwer jest u mnie godzina i tu podaje czas');
dla klienta
procedure TForm1.ClientSocket1Read(Sender: TObject;
Socket: TCustomWinSocket);
var
Odbior : string;
begin
Odbior:=Socket.ReceiveText;
ShowMessage(Socket.ReceiveText) ;
prosze odpowiedzcie mi

A masz wlaczone obydwa komponenty (Active) i skonfigurowany host i port?

Rozumiem, ze w wysylanie tekstu nastepuje na klikniecie przycisku, tak?
Nawet jak nie, to musisz podac IP serwera, port, ktorym slucha serwer i uczynic ClientSocket aktywnym.
[code]
ClientSocket.Address:=jakis tam adres IP (na jednego kompa, w domu 127.0.0.1);
ClientSocket.Port:=jakis tam port;
ClientSocket.Active:=True;
ClientSocket.Socket.SendText('blablabla');
[/code]
Dla serwera juz masz i chyba jest ok... :-P

P.S.: Dodaj jeszcze przycisk (Caption=Rozłącz), w zdarzeniu onClick daj:
[code]
ClientSocket.Active:=False;
[/code]

przecieŻ wiem !!
mam to zrobione i jak daje zeby wyslal serwer do klienta to gowno!!
jak daje zeby klient do serwera to dziala
;-|

przecieŻ wiem !!
mam to zrobione i jak daje zeby wyslal serwer do klienta to gowno!!
jak daje zeby klient do serwera to dziala
;-|

Nie mam Delphi przy sobie, wiec z glowy.
[code]ServerSocket1.socket.sendtext('czesc tu ja serwer jest u mnie godzina i tu podaje czas');[/code] - w jakim zdarzeniu ten kod jest? O ile mi sie wydaje, to powinien byc w (ServerSocket) onClientRead. Tak masz?

Albo, moze nie rozumiem posta ;-) - Tobie chodzi o to, aby serwer automatycznie po polaczeniu takie cos wysylal? Bez wysylania tekstu przez klienta? Zobacz (jak mowilem pisze z glowy), czy ServerSocket nie ma zdarzenia onConnect. To chyba raczej to.

dlaczego to nie dziala??
dla serwera
ServerSocket1.socket.sendtext('czesc tu ja serwer jest u mnie godzina');

chyba ServerSocket1.socket.connections[0].sendtext() czy jakoś tak
ale na pewno jest tablica klientów

Sorki [wstyd] !!!

Sprawdziłem i wygeneruj zdarzenie onClientConnect, a tam:
[code]Socket.SendText('blablabla');[/code]

Będzie na połączenie klienta wysyłał tekst (od razu).