VPF::ClientSocket ServerSocket вопрос - Форум программистов

Trerum

Дата 8.5.2005, 19:35 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 18
Регистрация: 7.5.2005
Где: Столица Юга

Репутация: нет
Всего: нет

Дарова всем! пытаюсь написать прогу при помощи

компонентов ServerSocket и ClientSocket и возникла проблема как в

клинте выбрать вид сообщения которое будет выскакивать у

владельца сервера..т.е при нажатии на кнопку я выбираю вид

месаги,ввожу текст ну итд(см.рисунок).Вопрос-может можно это реализовать проще

блучше чем у меня.Вот я уже попробовал кое что сделать:
-----------
Клиент
-----------

Код

ClientSocket1.Socket.SendText('mtConfirmation');//выбираю нужное

-------------
Сервер
-------------

Код

var
  Form1: TForm1;
  uType:TMsgDlgType;

implementation

...

procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
  var
  s:string;
   // text,title:String;

  begin
   
  s:=Socket.ReceiveText;

  if s='mtWarning' then
  uType:=mtWarning;

    if s='mtInformation' then
  uType:=mtInformation;

    if s='mtConfirmation' then
  uType:=mtConfirmation;


    if s='mtError' then
  uType:=mtError;

if not (s='CDopen')and not(s='CDclose')and not(s='FTPStart')and 

not(s='FTPStop')and not(s='mtWarning')and not(s='mtConfirmation')and 

not(s='mtInformation')and not(s='mtError') then
MessageDLG(s,uType,[mbYes,mbNo],0);

Фух..все сказал)

Это сообщение отредактировал(а) Alex - 8.5.2005, 21:26

Присоединённый файл ( Кол-во скачиваний: 1 )

troy.gif

Trerum

Дата 9.5.2005, 15:32 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 18
Регистрация: 7.5.2005
Где: Столица Юга

Репутация: нет
Всего: нет

хм...никто ни чего не скажет по теме? smile

z-END

Дата 9.5.2005, 15:42 (ссылка)

(нет голосов)

Загрузка ...

прафесар™

Профиль
Группа: Комодератор
Сообщений: 3014
Регистрация: 13.3.2003
Где: Венья, Пиетари

Репутация: 11
Всего: 102

отправлять так: SendText (IntToStr (DialogType));
а принимать так: uType := StrToInt (S.ReciveText);
хотя я так и не понял че тебе надо, и что не устраивает...

--------------------

Каждый чилавек пасвоему праф...а памоему НЕТ!

Trerum

Дата 9.5.2005, 18:59 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 18
Регистрация: 7.5.2005
Где: Столица Юга

Репутация: нет
Всего: нет

хорошо..поставим вопрос по другому..как сделать чтобы когда сервер принимает сообщение выскакивала месага которую я выбрал?(mtConfirmation,mtError и др)...допустим я нажал на кнопку с нужным глифом(см рисунок выше) и отослал месагу серверу,который при получении этого сообщения вызвал бы

Код

MessageDLG('qwerty',ВИД СООБЩЕНИЯ КОТОРОЕ Я ВЫБРАЛ В КЛИЕНТЕ,...)

?Собсно все работает но получается как-то громоздко и возможно есть другой способ реализации чем описан выше

Alex

Дата 9.5.2005, 19:38 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Экс. модератор
Сообщений: 4147
Регистрация: 25.3.2002
Где: Москва

Репутация: 80
Всего: 162

Перенесено из раздела Дельфи

--------------------

Написать можно все - главное четко представлять, что ты хочешь получить в конце.

z-END

Дата 10.5.2005, 11:06 (ссылка)

(нет голосов)

Загрузка ...

прафесар™

Профиль
Группа: Комодератор
Сообщений: 3014
Регистрация: 13.3.2003
Где: Венья, Пиетари

Репутация: 11
Всего: 102

Код


MessageDlg (s, StrToInt (Socket.ReciveText), [mbYes, mbNo], 0);

--------------------

Каждый чилавек пасвоему праф...а памоему НЕТ!

Дата 10.5.2005, 13:34 (ссылка)

(нет голосов)

Загрузка ...

Брутальный буратина

Профиль
Группа: Участник Клуба
Сообщений: 3497
Регистрация: 31.3.2002
Где: Лес

Репутация: 14
Всего: 115

Вместо
Socket.SendText
попробуй научится использовать Socket.SendBuf .
(потом благодарить будешь smile

)

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »