Sítě v Delphi
 x   TIP: Přetáhni ikonu na hlavní panel pro připnutí webu
Reklama

Sítě v DelphiSítě v Delphi

 
Hledat
Moderní platforma pro vytvoření vašeho nového webu – Wix.com.
Nyní už můžete mít web zdarma.
Vybavení pro Laser Game
Spuštěn Filmový magazín
Laser Game Brno

Sítě v Delphi

Google       Google       21. 4. 2006       21 102×

V tomto díle se naučíme něco o sítích.

Reklama
Reklama

Jak jsem již slíbil, tento díl bude věnovaný počítačovým sítím. Naučíme se, jak pomocí protokolu TCP/IP komunikovat s ostatními počítači. Budeme k tomu potřebovat Delphi 6 a nižší, protože v Delphi 7 se vyskytují už trochu těžší komponenty pro práci se sítí. Jako ukázku si uděláme chat, přes který můžeme komunikovat s ostatními klienty, kteří se připojí. Pro otestování nebudeme potřebovat počítačovou síť, protože si to můžeme hned vyzkoušet na našem počítači. Náš program vlastně bude fungovat tak, že jeden z uživatelů vytvoří server a k němu se pak mohou další lidé (klienti) připojovat. Takže si vytvoříme dvě aplikace. První bude server.

Vytvoříme si formulář, na který naneseme jedno tlačítko, kterým budeme odesílat zprávy, dále jeden edit, do kterého budeme psát náš text, a memo, ve kterém se budou zobrazovat zprávy. Dále budem potřebovat komponentu ze záložky internet jménem ServerSocket. U komonenty memo si nastavíme vlastnost readonly na true.

U komponenty ServerSocket označuje Port, na jakém „kanálu“ bude server naslouchat klientům. Je pár rezervovaných portů, např. pro mail (25), ale my využijeme port 2006, který je volný.

Do procedury OnCreate vložíme toto:


procedure TForm1.FormCreate(Sender: TObject);
begin
 
  ServerSocket1.ServerType := stNonBlocking;  // server bude neblokujici
  ServerSocket1.Port := 2006;                // nastavíme port serveru
  ServerSocket1.Active := True;              // zapneme server

end;

Tímto jsme si vytvořili server, který je aktivní na portu číslo 2006. Dále budeme „naslouchat“, jestli se k nám nepokouší připojit klient:


{Jestliže se k nám připojí klient pak…}
procedure TForm1.ServerSocket1ClientConnect(Sender: TObject;
  Socket: TCustomWinSocket);

begin

  memo1.lines.Add('Připojil se k nám: ' + Socket.RemoteHost + '(' + Socket.RemoteAddress + ')'); //Socket.RemoteHost znamená že to vypíše
do mema od clienta co se připojí jeho jméno počítače a Socket.RemoteAddress vypíše jeho IP adresu

end;

To samé uděláme, když se klient odpojí:


procedure TForm1.ServerSocket1ClientDisconnect(Sender: TObject;
  Socket: TCustomWinSocket);
Begin

Memo1.lines.add('Odpojil se od nás ' + Socket.RemoteHost + '(' + Socket.RemoteAddress + ') ');
//do mema se přidá text, že se od nás odpojil client 

end;

Když se na server připojí klient, vypíše se to do našeho mema. Ale ještě si musíme vytvořit možnost odesílat zprávy. Upozorňuji, že tento program je velice jednoduchý a slouží jen k názorné ukázce, jak to funguje, a proto nebudeme dělat ochranu proti tomu, aby nebyly chyby, když budete odesílat zprávu a nebude připojen žádný klient apod. Zdroják odesílání zprávy po kliknutí na tlačítko:


procedure TForm1.Button1Click(Sender: TObject);
begin
 ServerSocket1.Socket.Connections[0].SendText(Edit1.text); 
 {Tímhle odešleme na clienta číslo které je v hranatých závorkách když budeme mít dva klienty, tak se odešle text pouze na toho clienta který se připojil jako první kdy když máme v connections nulu. Můžeme však i odesílat všem clientům např. pomocí cyklu for} 
end;

A zdroják pro příjem textu od klienta:


procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
Begin
//nastane když client odesílá data
 Memo1.lines.add(Socket.RemoteHost + ': '  + socket.ReceiveText); // Funkce RecieveText nám vrátí text který odeslal client
end;

Tímto máme hotový program Server. Teď se pustíme do klienta. U klienta už musíme mít bohužel více parametrů, jako např. IP adresu serveru, na který se máme připojit. Na formulář si dáme jedno tlačítko na připojení, jedno na odeslání zprávy a jedno na odpojení. Jedno memo na zobrazování zpráv a jeden edit na text, který budeme odesílat. A také samozřejmě to nejdůležitější, komponentu ClientSocket ze záložky internet.

Obrázek, jak bude náš Client vypadat:

Když zmáčkneme tlačítko Conect:


procedure TForm1.Button1Click(Sender: TObject);
begin
  // Když nebude edit2 (edit pro IP) prázdný pak…
  If Trim(Edit2.text) <> '' then begin
     ClientSocket1.Port := 2006;  // budeme komunikovat se serverem na portu číslo 2006
     ClientSocket1.ClientType := ctNonBlocking;    // nastavíme klienta na neblokujícího
     ClientSocket1.address := Edit2.text;
     ClientServer1.Active := true; //zapneme klienta 
  end else 
      ShowMessage('Musíte zadat IP adresu serveru');

end;

Tlačítko disconect:


procedure TForm1.Button2Click(Sender: TObject);
begin
   ClientSocket1.active := false;  //tímto odpojíme klienta od serveru   
end;

A konečně odesílání zpráv na server:


Procedure TForm1.Button3.Click(Sender: TObject);
Begin
  ClientSocket1.Socket.SendText(edit1.Text); //odešleme text na server 
 
end;

A nakonec uděláme proceduru OnRead, která nastane, když nám server pošle data:


procedure TForm1.ClientSocket1Read(Sender: TObject;
  Socket: TCustomWinSocket);
begin
   Memo1.lines.add(socket.RemoteHost  +  ': ' + socket.ReceiveText);
end;

Náš chat je dodělán a měl by fungovat. Jako IP adresu, pokud to chcete zkoušet na svém PC, zadejte 127.0.0.1 = to je loopback adresa (localhost). Příště si povíme něco o registrech a INI souborech.

×Odeslání článku na tvůj Kindle

Zadej svůj Kindle e-mail a my ti pošleme článek na tvůj Kindle.
Musíš mít povolený příjem obsahu do svého Kindle z naší e-mailové adresy kindle@programujte.com.

E-mailová adresa (např. novak@kindle.com):

TIP: Pokud chceš dostávat naše články každé ráno do svého Kindle, koukni do sekce Články do Kindle.

Hlasování bylo ukončeno    
0 hlasů
Google
Autor programoval v Visual Basicu, Delphi, nyní jen v Jave!

Nové články

Obrázek ke článku NVIDIA shrnuje přehled novinek na E3 2018

NVIDIA shrnuje přehled novinek na E3 2018

Společnost NVIDIA si u příležitosti E3 2018 připravila řadu novinek, které uvádí v kompletním přehledu, Například nové hry s podporou NVIDIA Highlights, která je součástí aplikace GeForce Experience, i nadále nabírá na obrátkách. Kromě výše zmíněné Shadow of the Tomb Raider získaly podporu také hry Dirty Bomb a Switchblade.

Reklama
Reklama
Obrázek ke článku SODAT vidí budoucnost datové bezpečnosti ve strojovém učení

SODAT vidí budoucnost datové bezpečnosti ve strojovém učení

Firmy chrání svá citlivá data často nedostatečně. Podle průzkumu společnosti SODAT se v minulém roce setkalo až 80 % z nich s bezpečnostním incidentem ztráty nebo úniku dat. Jedna z pilotních firem, která testovala novou verzi řešení SODAT Protection & Analytics 2.0pro bezpečností analýzu a monitoring dat díky novince zjistila, kdo z disku smazal důležité výkresy a mohla na incident včas reagovat.

Obrázek ke článku Kontrolujete pracovní emaily i na dovolené? 7 tipů odborníka, jak nepřijít o data

Kontrolujete pracovní emaily i na dovolené? 7 tipů odborníka, jak nepřijít o data

Letní měsíce jsou pro většinu zaměstnanců spojené s každoroční dovolenou. Z údajů Českého statistického úřadu vyplývá, že v roce 2017 podnikli Češi přes 13 milionů delších cest (tzn. s více než čtyřmi noclehy). Přitom právě na období července, srpna a září připadá více než 7,5 milionů z nich. Nicméně tradiční představu o dovolené jako o čase, kdy má práci na starost někdo jiný, Češi boří. 

Obrázek ke článku 10 SEO mýtů, které už nemusíte v roce 2018 řešit

10 SEO mýtů, které už nemusíte v roce 2018 řešit

„Kolik má být na stránce klíčových slov?“, „Nemáš vyplněný meta tag keywords, to nebude fungovat.“, „Katalogy jsou mrtvý“. Také jste už slyšeli některé z těchto otázek? Pojďme si na ně konečně jednou provždy odpovědět.

Hostujeme u Českého hostingu       ISSN 1801-1586       ⇡ Nahoru Webtea.cz logo © 20032018 Programujte.com
Zasadilo a pěstuje Webtea.cz, šéfredaktor Lukáš Churý