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

Sítě v DelphiSítě v Delphi

 

Sítě v Delphi

Google       Google       21. 4. 2006       19 614×

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 NEWTON Media prohledá 200  milionů mediálních zpráv během sekund díky Cisco UCS

NEWTON Media prohledá 200 milionů mediálních zpráv během sekund díky Cisco UCS

Česká společnost NEWTON Media provozuje největší archiv mediálních zpráv ve střední a východní Evropě. Mezi její zákazníky patří například ministerstva, evropské instituce nebo komerční firmy z nejrůznějších oborů. NEWTON Media rozesílá svým zákazníkům každý den monitoring médií podle nastavených klíčových slov a nabízí online službu, kde lze vyhledat mediální výstupy v plném znění od roku 1996.

Reklama
Reklama
Obrázek ke článku Delphi 10.1.2 (Berlin Update 2) – na co se můžeme těšit

Delphi 10.1.2 (Berlin Update 2) – na co se můžeme těšit

Touto roční dobou, kdy je zem pokrytá barevným listím a prsty křehnou v mrazivých ránech, se obvykle těšíme na zbrusu novou verzi RAD Studia. Letos si však ale budeme muset počkat na Godzillu a Linux až do jara. Vezměme tedy za vděk alespoň updatem 2 a jelikož dle vyjádření pánů z Embarcadero se budou nové věci objevovat průběžně, pojďme se na to tedy podívat.

Obrázek ke článku Konference: Moderní datová centra pro byznys dneška se koná už 24. 11.

Konference: Moderní datová centra pro byznys dneška se koná už 24. 11.

Stále rostoucí zájem o cloudové služby i maximální důraz na pružnost, spolehlivost a bezpečnost IT vedou k výrazným inovacím v datových centrech. V infrastruktuře datových center hraje stále významnější roli software a stále častěji se lze setkat s hybridními přístupy k jejich budování i provozu.

Obrázek ke článku Konference: Mobilní technologie mají velký potenciál pro byznys

Konference: Mobilní technologie mají velký potenciál pro byznys

Firmy by se podle analytiků společnosti Gartner měly  rychle přizpůsobit skutečnosti, že mobilní technologie už zdaleka nejsou horkou novinkou, ale standardní součástí byznysu. I přesto - nebo možná právě proto - tu nabízejí velký potenciál. Kde tedy jsou ty největší příležitosti? I tomu se bude věnovat již čtvrtý ročník úspěšné konference Mobilní řešení pro business.

loadingtransparent (function() { var po = document.createElement('script'); po.type = 'text/javascript'; po.async = true; po.src = 'https://apis.google.com/js/plusone.js'; var s = document.getElementsByTagName('script')[0]; s.parentNode.insertBefore(po, s); })();
Hostujeme u Českého hostingu       ISSN 1801-1586       ⇡ Nahoru Webtea.cz logo © 20032016 Programujte.com
Zasadilo a pěstuje Webtea.cz, šéfredaktor Lukáš Churý