| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Помогите сделать простое клиент-сервер приложение [D7, WinXP]

Страницы:   < 1 2 >

Святослав ©   (2006-10-20 03:38:00) 

Сервер:
unit Unit1;
interface
uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, StdCtrls, ComCtrls, ExtCtrls,ScktComp;

type
 TForm1 = class(TForm)
   Start: TButton;
   serv: TTcpServer;
   procedure Start(Sender: TObject);
   procedure servAccept(Sender: TObject; ClientSocket: TCustomIpClient);
   procedure servListening(Sender: TObject);
 private
   { Private declarations }
 public
   { Public declarations }
 end;

var
 Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Start(Sender: TObject);
begin
serv.LocalHost:='localhost';
serv.LocalPort:=’1025’;
serv.Open;
end;

procedure TForm1.servAccept(Sender: TObject;
 ClientSocket: TCustomIpClient);
begin
showmessage(serv.Receiveln());
end;

procedure TForm1.servListening(Sender: TObject);
begin
beep;
end;

end.

Клиент:
unit Unit2;
interface
uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, StdCtrls, ComCtrls, ExtCtrls,ScktComp;

type
 TForm1 = class(TForm)
   Start: TButton;
   Client: TTcpClient;
   procedure Start(Sender: TObject);
 private
   { Private declarations }
 public
   { Public declarations }
 end;

var
 Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Start(Sender: TObject);
begin
client.RemoteHost:=’localhost’;
client.RemotePort:=’1025’;
client.Open;
client.Sendln('hello');
end;

end.

---

Святослав   (2006-10-20 23:29:00) [21]

> Сергей М. ©   (20.10.06 08:13) [1]
> Чем же тебе помочь ?

Неработает :(((

---

Slym   (2006-10-20 10:00:00) [22]

http://www.delphimaster.ru/cgi-bin/forum.pl?id=1158428475&n=4

---

Сергей М.   (2006-10-20 08:13:00) [23]

Чем же тебе помочь ?

---

Страницы:   < 1 2 >

Наверх