If ButtonClick then ??

0

Wlasnie chce zrobic cos takiego:

procedure TForm5.ServerSocket1ClientRead(Sender: TObject;
Socket: TCustomWinSocket);
begin
if Button_WyslijClick then
Begin
Socket.SendText(Edit.text);
end;
end;

ale niestety to nie dzila =[
Wiecie moze jak to powinno byc??

Z gory THX!

0

w OnClick Buttona:

ServerSocket1.Socket.SendText

0

Zrobilem tak w OnClick:

ServerSocket1.Socket.SendText(Edit.text);

Kiedy wysylam wiadomosci (ps. robie "mini" czat =P )
Z Clienta wszystko jest OK
Ale gdy chce wyslac z server to kaput =[ wyskakuje error:

"Windows socket error: Zadnaie wyslania badz odebrania danych zostalo zablokowane, poniewaz gniazdo nie jest podlaczone ...bla bla... nie podano adresu 10057 on API send"

0

ehh a wiec nikt nie wie jak poradzic sobie z tym errorem? =[

0

A z serwera wysylasz w ten sposob:

Server.Socket.Conections[numer_polaczenia].SendText('text');

??

Moze podaj jakis kodzik.

0

zrobilem buttona ipod niego:

procedure TForm5.Button_WyslijClick(Sender: TObject);
begin
ServerSocket1.Socket.Connections[2].SendText(Edit.text);
Edit.Clear;
end;

Ale gdy chce cos wyslac to wyskakuje "List index out of bounds (2)"

=[

0

"List index out of bounds (2)"

Probujesz wyslac jakis text do 3 polaczenia (klienta), a do serwera nie przylaczylo sie tylu klientow.
Funkcja:

Server.Socket.ActiveConnections

zwraca ci liczbe aktualnych polaczen z serwerem.
Wiec jesli powyzsza funkcja zwroci 0 to nikt nie jest polaczony. Jak chcesz wyslac text do wszystkich klientow to uzywasz petli:

var
i: integer;

begin

for i := 0 to Server.Socket.ActiveConnections -1 do
Server.Socket.Connections[i].SendText('TEXT');

0

hmmm tam jest podlaczony tylko 1 client zrobilem tak

begin
ServerSocket1.Socket.Connections[1].SendText('TEXT');
end;

I nie ma ERRORow =]]]

Ale teraz jest inny problem =P

w OnRead (servera i clienta) dalem:

begin
Memo2.lines.add(Socket.ReceiveText);
end;

W serverze to dzila jak powinno =]
Wszystko co napisze w Cliencie widac w (Memo) Servera =]]

Ale w Cliencie cos nie dziala =P
To co wysle z Servera nie widac w (Memo) Clienta =[[

Moze Client potrzebuje "specjalnej" procedury??

Macie jakies pomysly???

0

Był przykład "trojana" w artach i przesyłania plików na socketach. Wysil się na tyle i poszukaj!!

0

po 1 to nie trojan tylko czat

po 2 to nie przesylanie plikow tylko textu =]

Owszem czytalem arty... i zrobilem tak tak jak pisalo!!!

poza tym tam nic nie pisalo o przesylaniu typu "conectiong[1]"

Niormalnie dzialalo tylko kiedy dalem tego nieszczesnego buttona wyslij i chcialem aby po jego nanisniecu zostal wyslany text byly problemy =P

Teraz gdy sie z tym uporalem (z wasza pomoca) jest inny problem =[ =[

Wyslany text (w podany prze was sposow) nie jest odbierany prze Memo =[

Wiecie co moze byc problemem???

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0