Hacking  
  Luty 18 2018 10:05:42  
 
Nawigacja
folder Portal
. Artykuły
. Download
. Forum
. Szukaj
. FAQ
. Regulamin
folder Hacking
. Gry Hakerskie
. Filmy
folder Delphi
. Kursy
. Faq
. Źródła
. Komponenty
. Artykuły
folderWebmaster
. JavaScripts
. Skrypty PHP
folderRóżne
. Kontakt
. Zlokalizuj ip
Aktualnie online
. Gości online: 4

. Użytkowników online: 0

. Łącznie użytkowników: 154,338
. Najnowszy użytkownik: Essay Online
Ostatnie artykuły
. Metoda ataku symlin...
. Asembler x86 w pigułce
. Binder plików z komp...
. [Asembler/MASM] Pobi...
. Braifuck 4 fun
Nawigacja
Artykuły » Delphi artykuły » Komunikator na socketach
Komunikator na socketach

Komunikator na socketach



Witam :) Tym razem pokaze jak napisac prosty komunikator oparty o sockety :P

a wiec na poczatek leci server:
forma : button 2x , memo 1x , edit 1x i ServerSocket 1x
w serversocket ustalamy port przez ktory laczyc sie bedzie client

a teraz kod naszego servera :)



procedure TForm1.Button1Click(Sender: TObject);
begin
Server.Active := True; // uaktywinij serwer
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Server.Active := false; // wylacz serwer
end;

procedure TForm1.ServerClientConnect(Sender: TObject;
Socket: TCustomWinSocket);
begin
Memo1.Lines.Add('Klient jest podlaczony') //poinformuj o polaczeniu
end;

procedure TForm1.ServerClientDisconnect(Sender: TObject;
Socket: TCustomWinSocket);
begin
Memo1.Lines.Add('Klient sie rozlaczyl') //poinformuj o rozlaczeniu
end;

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then // jesli wcisniesz ENTER
begin
Server.Socket.Connections[0].SendText(Edit1.Text); //wyslij text
Memo1.Lines.Add(Edit1.Text); //zapisz w //Memo text z pola Edit.Text
Edit1.Text := ''; //wyczysc pole Edit.Text
end;
end;

procedure TForm1.ServerClientRead(Sender: TObject;
Socket: TCustomWinSocket);
begin
Memo1.Lines.Add(' - '+Socket.ReceiveText); //odbierz wiadomoosc
end;

Mysle ze komentarze wszystko wyjasnily :)

a teraz client:
edit 3x , memo 1x , button 2x i clientsocket 1x

w clientsocket ustawiamy taki sam port jak w serverze :)

i kodujemy:


procedure TForm1.Button1Click(Sender: TObject);
begin
Client.Host := edit1.Text; // host na ktory chcemy sie laczyc
Client.Address := edit2.Text; //j/w
Client.Active := True; //aktywuj Clienta
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Client.Active := False; // wylacz clienta
end;

procedure TForm1.ClientConnect(Sender: TObject; Socket: TCustomWinSocket);
begin
memo1.Lines.Add('polaczony'); // poinformuj o //polaczeniu
end;

procedure TForm1.ClientDisconnect(Sender: TObject;
Socket: TCustomWinSocket);
begin
memo1.Lines.Add('polaczenie zerwane'); //poinformuj o zerwaniu polaczenia
end;

procedure TForm1.ClientError(Sender: TObject; Socket: TCustomWinSocket;
ErrorEvent: TErrorEvent; var ErrorCode: Integer);
begin
memo1.Lines.Add('nie znaleziono serwera na danym hoscie'); // poinforumuj w razie bledy //podczas laczenia
end;

procedure TForm1.ClientRead(Sender: TObject; Socket: TCustomWinSocket);
begin
Memo1.Lines.Add(' - '+Socket.ReceiveText); //czytaj wiadomosc
end;

procedure TForm1.Edit3KeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then //jezeli wcisniesz ENTER to...
begin
Client.Socket.SendText(Edit3.Text); //wyslij //text
Memo1.Lines.Add(Edit3.Text); //dodaj text //z pola Editdo Memo
Edit3.Text := ''; //wyczysc w Edit pole Text
end;
end;


i to wszystko :) oczywiscie to bardzo prosty komunikator ale mozna go w latwy sposob przerobic. Pozdrawiam :)


Logowanie
Nazwa użytkownika

Hasło



Nie masz jeszcze konta?
Zarejestruj się

Nie możesz się zalogować?
Poproś o nowe hasło
Shoutbox
Musisz zalogować się, aby móc dodać wiadomość.

18-02-2018 09:19
http://images.goog
le.co.ve/url?q=htt
p://slotswall.ru http://maps.google
.com.vn/url?q=http
://ninjaslots.ru http://eezzoo.net/
__media__/js/netso
ltrademark.php?d=s
lotswall.ru http://www.safethi
tch.net/__

18-02-2018 07:34
http://nemi.pw/?ht
tp://slotsmotion.r
u http://egorlykraio
n.ru/go.php?url=ht
tp://ninjaslots.gq
https://trueproxy.
net/?https://slots
trust.ru http://ads.macdesk
tops.com/openads/a
dclick.php?banneri
d=59&

18-02-2018 05:54
http://www.shankwh
olesalers.com/admi
n/Portal/LinkClick
.aspx?tabid=39&link
=http://trislots.r
u http://paranoid.co
m/__media__/js/net
soltrademark.php?d
=slotshappy.ru http://www.courtne
ythornesmith.com

18-02-2018 04:16
http://143offroad.
com/__media__/js/n
etsoltrademark.php
?d=ninjaslots.ml http://maps.google
.so/url?q=http://s
lotsplus.ru http://www.altener
gy-pro.com/__media
__/js/netsoltradem
ark.php?d=trislots
.ru http:

18-02-2018 00:12
http://www.salonwa
nd.net/__media__/j
s/netsoltrademark.
php?d=insurtopusa.
com http://jobsmain.co
m/__media__/js/net
soltrademark.php?d
=ninjaslots.ru http://cewekmontok
.com/__media__/js/
netsoltrademark.ph
p

Licznik
32,343,300 unikalne wizyty