|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу. Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста". Название темы слишком короткое или не отражает сути вашего вопроса. Тема исчерпала себя, помните, один вопрос - одна тема Прочитайте правила и заново правильно создайте тему. |
|
Опции темы | Поиск в этой теме |
16.08.2007, 07:52 | #1 |
/\/\Et@/\|/|$T
Пользователь
Регистрация: 26.03.2007
Сообщений: 89
|
загадочные clietnsocket и serversocket!
Все приФед,
Такая фишка: Недавно нашёл такой компонентик borland socket components ,там их два это clietnsocket и serversocket, как вы уже догодались первый клиент второй сервер, ах да ---место расположения этого компонента Component-insall Packages-Add-Директория_Делфи/bin/dclsockets70.bpl чисто случайно наткнулся на это,, усердными поисками нашёл как программировать сервер, а вот как клиента? Кто с этим уже работал...?Помогите.!!.. с этими компонентами такие вещи написать наверно можно.. ухх..
there are no programmers there is no life
|
16.08.2007, 08:55 | #2 |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
Все весьма просто. Вот пример :
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.
I'm learning to live...
|
16.08.2007, 11:20 | #3 |
/\/\Et@/\|/|$T
Пользователь
Регистрация: 26.03.2007
Сообщений: 89
|
эээ...а чё прикольно.. реальный трой написать можно....удобно...
это получается как...сервер открывает порт клиент на него шлёт скажем какоенить слово у того в свою очередь срабатывает условный оператор.....ууу......какая нужная вещь!!!!спасибо большое за помощь!!!
there are no programmers there is no life
|
16.08.2007, 12:22 | #4 |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
Ты ранно не радуйся, ибо на такие трои есть такая чтука как фаерволы.
I'm learning to live...
|
16.08.2007, 12:36 | #5 | |
Пользователь
Регистрация: 10.08.2007
Сообщений: 43
|
Цитата:
Комьютер не поддаётся законам физики:
Глюки появляются из неоткуда, файлы пропадают в никуда... Объём диска называется весом и измеряется в метрах... --------------------------------------------------- Дрова для модема находятся на диске, а дрова для дисковода - в интернете... |
|
16.08.2007, 14:48 | #6 |
Старожил
Регистрация: 13.12.2006
Сообщений: 3,859
|
тема закрыта
ICQ не для вопросов, а для предложений. Для вопросов используйте форум
IRC канал клуба программистов|Мои статьи |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Serversocket,clientsocket | prizrak1390 | Работа с сетью в Delphi | 10 | 21.04.2009 16:04 |
Вопрос про ServerSocket и ClientSocket | civic.qip | Работа с сетью в Delphi | 8 | 27.09.2008 02:04 |
Кто Етот ServerSocket ? | combays | Помощь студентам | 5 | 24.08.2008 21:40 |
Работа с Clientsocket и Serversocket | prizrak1390 | Работа с сетью в Delphi | 3 | 26.04.2008 22:59 |
Events в ServerSocket и ClientSocket | LiFeStyle | Работа с сетью в Delphi | 3 | 22.11.2007 22:26 |