Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Работа с сетью в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 22.11.2013, 14:00   #1
Konstantin_ua
Не судите строго
Форумчанин
 
Аватар для Konstantin_ua
 
Регистрация: 31.03.2011
Сообщений: 202
Сообщение Совет по созданию БД работающей на сервере

Привет
У меня есть задача написать программу для отправления сотрудниками документов директору, его рассмотрение и сохранение.
Никогда не сталкивался с написанием програм работающих на удаленом сервере, можете дать какую нибуть литературу по етому поводу. Вообще не имею понятия как должна работать программа, ето должно быть одно приложение работающие на сервере просто с проверкой пользевателя и пароля, или должно стоять на каждом компе и отправлять даные как то на сервер??
Извените за глупость в вопросе, зарание спасибо за помощь
Konstantin_ua вне форума Ответить с цитированием
Старый 22.11.2013, 15:05   #2
Человек_Борща
Старожил
 
Аватар для Человек_Борща
 
Регистрация: 30.12.2009
Сообщений: 11,426
По умолчанию

Если вы студент то все просто:
Программа-клиент
Программа-сервер

Документ имеет обязательный атрибут ID,(Остальное по желаению)
клиент отсылает докумен с ID на сервер и записывает докумен как "доставлен", забывает о нем.
С сервера соответственно приходит простое уведоление: документ с ID, присвоен статус "Подписан"/"Отказан" и т.д. и т.п. Клиент находит документ с ID и меняет статус.

Как-то так:
Код:
TDocObject = record //Документ с клиента к серверу
ClientId:DWORD; уник. ID клиента.
ID:DWORD; //ID
TitleSize:Integer; //Размер заголовка описания
Title:array of char; //описание
BLOBSize:Integer; //размер буфера данных(что угодно)
BLOB:array of byte; //Байты данных
Size:Integer; //Размер пакета всего(на сервере пересчитывается для контроля)
end;

TDocAccept = record
ID:DWORD; //ID док-а
Status:DWORD; //Установленное состояние
Size:Integer; //Размер пакета
end;

//Хранение тут
type
  TDocCollector = class(TList<TDocObject>)
  private
    fIsServer:Boolean; //Указываем что работаем как сервер и может акцептовать документы.
    fClientSocket:TClientSocket;
    fServSocket:TServerSocket;
  public
  <Методы и свойства клиент-сервеного класса>
  end;
Вот вам класс-зеркало можно использовать в 2х проектах сразу, 1 писать как сервер и всегда fIsServer = true, второй как клиент.

Все очень легко и просто.

Если вы не студент и реально надо, то есть такая штука. Очень облегчает жизнь и документооборот в организации=)

Последний раз редактировалось Человек_Борща; 22.11.2013 в 15:08.
Человек_Борща вне форума Ответить с цитированием
Старый 22.11.2013, 19:07   #3
Konstantin_ua
Не судите строго
Форумчанин
 
Аватар для Konstantin_ua
 
Регистрация: 31.03.2011
Сообщений: 202
Радость

Огромное спасибо!!
Да студент) буду дерзать
Konstantin_ua вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Структура программы работающей с БД(JAVA) romadr Помощь студентам 0 20.03.2013 21:52
Нужен совет по созданию игры kopmec Gamedev - cоздание игр: Unity, OpenGL, DirectX 3 11.04.2012 15:50
Нужен совет по созданию проги! akaKolay Помощь студентам 3 16.10.2011 12:14
образ уже работающей на ПК программы Sasha811 Операционные системы общие вопросы 2 18.06.2010 22:23