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!
w OnClick Buttona:
ServerSocket1.Socket.SendText
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"
ehh a wiec nikt nie wie jak poradzic sobie z tym errorem? =[
A z serwera wysylasz w ten sposob:
Server.Socket.Conections[numer_polaczenia].SendText('text');
??
Moze podaj jakis kodzik.
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)"
=[
"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');
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???
Był przykład "trojana" w artach i przesyłania plików na socketach. Wysil się na tyle i poszukaj!!
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???
dobrze najpierw by było najpierw połączyć się z serwerem, co pozwoli wysyłać informacje z clienta i serwa. Poczytaj kurs o trojanach (mimo że twój program nie ma być trojanem) znajdziesz tam na pewno pożyteczne informacje.