Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > Интернет и сети
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Закрытая тема
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 17.05.2013, 15:47
Makar_79 Makar_79 вне форума
Прохожий
 
Регистрация: 17.05.2013
Сообщения: 4
Версия Delphi: Delphi 7
Репутация: 10
По умолчанию Передача файлов по сети (оповещение о входящем файле)

Реализовал с помощью TCP(сервер+клиент), всё работает, осталось лишь допилить оповещения, т.е если я нажимаю на сервере кнопку "отправить файл", то в клиенте в поле Memo должно быть написано "Входящий файл" и по нажатию кнопки файл принимается, кнопку уже сделал, нужно лишь допилить оповещение в поле мемо. Всё это делается ради курсача, а так я вообще не силён в делфи. Как это сделать?
  #2  
Старый 17.05.2013, 15:52
Аватар для NumLock
NumLock NumLock вне форума
Let Me Show You
 
Регистрация: 30.04.2010
Адрес: Северодвинск
Сообщения: 5,426
Версия Delphi: 7, XE5
Репутация: 59586
Смех

Код:
Memo1.Lines.Add('Входящий файл');
__________________
Пишу программы за еду.
__________________
Этот пользователь сказал Спасибо NumLock за это полезное сообщение:
Alegun (17.05.2013)
  #3  
Старый 17.05.2013, 16:02
Makar_79 Makar_79 вне форума
Прохожий
 
Регистрация: 17.05.2013
Сообщения: 4
Версия Delphi: Delphi 7
Репутация: 10
По умолчанию

Цитата:
Сообщение от NumLock
Код:
Memo1.Lines.Add('Входящий файл');
Лол, ну как кинуть сообщение в Мемо я знаю, в какой процедуре это прописать? На сервер я нажимаю "Послать файл" и тут же в клиенте должно появится "Входящий файл", после нажимаю "принять" и файл закачивается.
  #4  
Старый 17.05.2013, 17:02
Аватар для M.A.D.M.A.N.
M.A.D.M.A.N. M.A.D.M.A.N. вне форума
Sir Richard Abramson
 
Регистрация: 05.04.2008
Сообщения: 5,505
Версия Delphi: XE10
Репутация: выкл
По умолчанию

Ну протокол простенький замутить.

Пришел пакет с информацией, что хочем принять файл, жмем ОК, отправляется ответный пакет, что "все ок, жги давай".
__________________
— Как тебя понимать?
— Понимать меня не обязательно. Обязательно меня любить и кормить вовремя.


На Delphi, увы, больше не программирую.
Рекомендуемая литература по программированию
  #5  
Старый 17.05.2013, 17:11
Makar_79 Makar_79 вне форума
Прохожий
 
Регистрация: 17.05.2013
Сообщения: 4
Версия Delphi: Delphi 7
Репутация: 10
По умолчанию

Цитата:
Сообщение от M.A.D.M.A.N.
Ну протокол простенький замутить.

Пришел пакет с информацией, что хочем принять файл, жмем ОК, отправляется ответный пакет, что "все ок, жги давай".
Протоколы "мутить" не умею, примерчик был бы кстати.
  #6  
Старый 18.05.2013, 18:57
Аватар для NumLock
NumLock NumLock вне форума
Let Me Show You
 
Регистрация: 30.04.2010
Адрес: Северодвинск
Сообщения: 5,426
Версия Delphi: 7, XE5
Репутация: 59586
Смех

Цитата:
Сообщение от Makar_79
в какой процедуре это прописать?
прописывай в:
Код:
procedure ReceiveFile;
__________________
Пишу программы за еду.
__________________
  #7  
Старый 18.05.2013, 19:09
Аватар для PhoeniX
PhoeniX PhoeniX вне форума
Always hardcore!
 
Регистрация: 04.03.2009
Адрес: СПб
Сообщения: 3,239
Версия Delphi: GCC/FPC/FASM
Репутация: 62149
По умолчанию

Примеров хотят все. Пробуй сам, наткнёшься на трудности - возвращайся с кодом. Ну, и конечно - Гугл в помощь
__________________
Оставайтесь хорошими людьми...
VK id2634397, ds [at] phoenix [dot] dj
  #8  
Старый 18.05.2013, 20:44
Аватар для M.A.D.M.A.N.
M.A.D.M.A.N. M.A.D.M.A.N. вне форума
Sir Richard Abramson
 
Регистрация: 05.04.2008
Сообщения: 5,505
Версия Delphi: XE10
Репутация: выкл
По умолчанию

Цитата:
Сообщение от Makar_79
примерчик был бы кстати
__________________
— Как тебя понимать?
— Понимать меня не обязательно. Обязательно меня любить и кормить вовремя.


На Delphi, увы, больше не программирую.
Рекомендуемая литература по программированию
  #9  
Старый 19.05.2013, 11:39
Makar_79 Makar_79 вне форума
Прохожий
 
Регистрация: 17.05.2013
Сообщения: 4
Версия Delphi: Delphi 7
Репутация: 10
По умолчанию

Цитата:
Сообщение от PhoeniX
Примеров хотят все. Пробуй сам
Да на кой чёрт мне это изучать? Я не собираюсь программировать, по крайней мере на делфи, мне нужно это для галочки, российское образование, такое российское. В общем, до свидания. Ответов больше не нужно.
  #10  
Старый 19.05.2013, 12:27
Аватар для M.A.D.M.A.N.
M.A.D.M.A.N. M.A.D.M.A.N. вне форума
Sir Richard Abramson
 
Регистрация: 05.04.2008
Сообщения: 5,505
Версия Delphi: XE10
Репутация: выкл
По умолчанию

Vale!
_______
__________________
— Как тебя понимать?
— Понимать меня не обязательно. Обязательно меня любить и кормить вовремя.


На Delphi, увы, больше не программирую.
Рекомендуемая литература по программированию
Закрытая тема


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 14:58.


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2025