![]() |
|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу. Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста". Название темы слишком короткое или не отражает сути вашего вопроса. Тема исчерпала себя, помните, один вопрос - одна тема Прочитайте правила и заново правильно создайте тему. |
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
/\/\Et@/\|/|$T
Пользователь
Регистрация: 26.03.2007
Сообщений: 89
|
![]()
Все приФед,
Такая фишка: Недавно нашёл такой компонентик borland socket components ,там их два это clietnsocket и serversocket, как вы уже догодались первый клиент второй сервер, ах да ---место расположения этого компонента Component-insall Packages-Add-Директория_Делфи/bin/dclsockets70.bpl чисто случайно наткнулся на это,, усердными поисками нашёл как программировать сервер, а вот как клиента? Кто с этим уже работал...?Помогите.!!.. с этими компонентами такие вещи написать наверно можно.. ухх..
there are no programmers there is no life
|
![]() |
![]() |
#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...
|
![]() |
![]() |
#3 |
/\/\Et@/\|/|$T
Пользователь
Регистрация: 26.03.2007
Сообщений: 89
|
![]()
эээ...а чё прикольно.. реальный трой написать можно....удобно...
это получается как...сервер открывает порт клиент на него шлёт скажем какоенить слово у того в свою очередь срабатывает условный оператор.....ууу......какая нужная вещь!!!!спасибо большое за помощь!!!
there are no programmers there is no life
|
![]() |
![]() |
#4 | |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
![]() Цитата:
![]()
I'm learning to live...
|
|
![]() |
![]() |
#5 | |
Пользователь
Регистрация: 10.08.2007
Сообщений: 43
|
![]() Цитата:
Комьютер не поддаётся законам физики:
Глюки появляются из неоткуда, файлы пропадают в никуда... Объём диска называется весом и измеряется в метрах... --------------------------------------------------- Дрова для модема находятся на диске, а дрова для дисковода - в интернете... |
|
![]() |
![]() |
#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 |