загадочные clietnsocket и serversocket!

[steck]

Все приФед,
Такая фишка:
Недавно нашёл такой компонентик borland socket components ,там их два это clietnsocket и serversocket, как вы уже догодались первый клиент второй сервер, ах да ---место расположения этого компонента
Component-insall Packages-Add-Директория_Делфи/bin/dclsockets70.bpl
чисто случайно наткнулся на это,, усердными поисками нашёл как программировать сервер, а вот как клиента? Кто с этим уже работал...?Помогите.!!.. с этими компонентами такие вещи написать наверно можно.. ухх..

[Stilet]

Все весьма просто. Вот пример :

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ScktComp, StdCtrls;

type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
ServerSocket1: TServerSocket;
ClientSocket1: TClientSocket;
procedure ServerSocket1ClientRead(Sender: TObject;
Socket: TCustomWinSocket);
procedure Edit1Change(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.ServerSocket1ClientRead(Send er: TObject;
Socket: TCustomWinSocket);
begin
Edit2.Text:=socket.ReceiveText;
end;

procedure TForm1.Edit1Change(Sender: TObject);
begin
ClientSocket1.Socket.SendText(Edit1 .Text);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
ServerSocket1.Port:=4;
ClientSocket1.Port:=4;
ClientSocket1.Host:='localhost';
ServerSocket1.Active:=true;
ClientSocket1.Active:=true;

end;

end.


Он показывает как в принципе передавать данные и получать. Ты же можеш раскинуть Клиент и Сервер в разные проги.

А вообще очень хорошо об этом описано в хелпе в примере компонента TNMMsg для метода PostIt.

[steck]

эээ...а чё прикольно.. реальный трой написать можно....удобно...
это получается как...сервер открывает порт клиент на него шлёт скажем какоенить слово у того в свою очередь срабатывает условный оператор.....ууу......какая нужная вещь!!!!спасибо большое за помощь!!!

[Stilet]

Сообщение от steck

эээ...а чё прикольно.. реальный трой написать можно....удобно...
это получается как...сервер открывает порт клиент на него шлёт скажем какоенить слово у того в свою очередь срабатывает условный оператор.....ууу......какая нужная вещь!!!!спасибо большое за помощь!!!

Ты ранно не радуйся, ибо на такие трои есть такая чтука как фаерволы.

[Master-Skull]

Ты ранно не радуйся, ибо на такие трои есть такая чтука как фаерволы.

...если конечно не знать как их обойти =)

[Квэнди]

тема закрыта