Hacking  
  Wrzesień 26 2017 11:08:22  
 
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: 3

. Użytkowników online: 0

. Łącznie użytkowników: 153,722
. Najnowszy użytkownik: ThomasRek
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ść.

05-09-2017 00:59
https://www.youtub
e.com/watch?v=fS0l
FNzl5uE

05-09-2017 00:58
https://www.youtub
e.com/watch?v=fS0l
FNzl5uE ZARABIANIE NA NECIE GRUBA FORSE BEZ INWESTYCIJ

30-08-2017 03:38
online payday loans direct lenders <a href="http://cashad
vances2017.com"
Chytry guaranteed payday loans</a> &lt;a href=&quot;http://c
ashadvances2017.co
m&quot;&gt; payda

07-08-2017 13:23

05-08-2017 00:33
forex trading online now blogspot search images http://anicinag.7m
.pl/qifyly/forex-m
ix-repinox-wikiped
ia-dictionary.html
forex omsk bird polandball philippines http://dandireli.7
m.pl/pylalyga

Licznik
30,422,099 unikalne wizyty