Создать клиент и сервер. Delphi

[SPQR]

Мне нужно создать программу Сервера и Клиента.
Опишу как это выглядит: Есть клиент, БД и сервер. В клиенте содержится функции редактирования информации и ее просмотр. Также разумеется функция загрузки Базы Данных. После того как в клиенте загрузить и отредактировать что либо в БД, то после нажатия на кнопку - идет обращение к серверу, где информация заменяется. Ну вот собственно и все.
Очень вас прошу в следующем: Разумеется уговаривать вас не стану написать мне под корень такую систему целую разумеется делать сам буду, поэтому, дайте мне примерный исходник программы хотя бы слабого аналога того, что нужно мне и ссылку где можно почитать подробно и понятным языком все, что мне требуется для создания оной программы! Очень вас прошу, уважаемые. Спасибо.

[BOBAH13]

Ну раз задача стоит таким образом посоветую дельфийские компоненты для передачи данных по сети на TCP/IP. TServerSocket и TClientSocket. Оформите пакеты запросы и т.п. просто как строки ( деление данных текста на пакеты ввиде строк валяются на каждом 2м ресурсе в интернете ). Если требуеться более сложное построения пакетов запросов посоветую создать все на WinSock Api ( если конечно для Вас это не составит трудности ).

[SPQR]

Трудности это, уважаемый Владимир, составит большой. Даже приведу пример более корректно поставленной мною задачи: У меня имеется БД студентов колледжа. Вся информация о них и пр. в деканат необходимо поставить поставить клиенту и сервер на другой компьютер, к которому будет обращаться клиент. С помощью чего мне лучше это сделать - я не знаю, ибо с оной проблемой еще не сталкивался, вот и интересуюсь что бы вы мне могли посоветовать в данной ситуации.

[BOBAH13]

Я думаю лучше сделать на WinApi ( но если не хочеться возиться с сокетами то на T*Socket ( те что я выше описал )) а потом в отедльном юните описать типа такого:

сам типа

PPacket = ^TPacket;
TPacket = packed record
Header: WORD; // Ваш какой-то индефикатор ну допустим тот же $FFFF
Msg: DWORD; // индификатор сообщения - по нему и определите какие данные пришли
Num: DWORD; // Номер пакета, в ходе работы просто при отсылки увеличиваеться на 1
DataSize: DWORD; // Размер пакета
// ну и тут указатель на пакет в нашем случае
Data: Pointer;
end;

так же можно пойти дальше и описать Data

PDataPacket = ^TDataPacket;
TDataPacket = packed record
// тут два вариант юзать как куча памяти и описать пару процедур получения данных по указателю с определенным описанием или сделать описание данного типа как выбора
case Integer of
1: (
// тут определленые по типу данные
);
...
end;

function SendPacket(Socket: TSocket; Packet: PPacket): Integer;
function RecvPacket(Socket: TSocket; Packet: PPacket): Integer;
function MakePacket(Msg, Num: DWORD; Data: Pointer): PPacket;

function MakePacket(Msg, Num: DWORD; Data: Pointer; DataSize: DWORD): PPacket;
var
p: PPacket;
begin
new(p); // ну для удаления из памяти dispose(PPacket);
p.Header := $FFFF; // ну для примера
p.Msg := Msg;
p.Num := Num;
p.DataSize := DataSize;
p.Data := Data;
// все пакет сформирован
Result := p;
end;

всю отправку, прием пакетов и т.п. писать не буду есть очень хороший пример ( ну покрайней мере я так считаю ) на моем сайте http://nemecsx.narod.ru/mmpclient.rar недавно его еще писал...

p.s. ну думаю помог просто я сильно не юзал компоненты, пытаюсь это обходить, предпочитаю Api

[SPQR]

Владимир: Благодарю вас. Очень помогли. Спасибо