Нужна помощь с пакетной передачей

[Rin]

Если вы пишете на Delphi, то ищите исходники на delphisources.ru. Там есть примеры. Но вы не написали на каком языке у вас все реализуется, поэтому лучше задать вопрос Google:"open source\example client-server <Ваш язык программирования>", "Исходник клиент сервер <Ваш язык программирования>". Что-нибудь, да найдется.

[anghela]

мне нужно передать данные из текстовых полей на сервер, уже там проверить, можно ли их внести в бд, если можно, заносим данные, иначе отправляем на клиент соответствующее сообщение. По примеру не совсем понятно, как это сделать

[Stilet]

По примеру не совсем понятно, как это сделать

Спрашивай. Не стесняйся.

[anghela]

здесь только ведь отрывок сервера, типа если сообщение отправлено, то показывать его на сервере. Или я не правильно поняла? Мне нужно,чтоб данные не отображались на сервере, а записывались в бд. Выполнялись операции с полями бд (типа сложение, изменение значения поля) и отправлялись сообщение об изменениях на клиент. Причем руководитель настоятельно рекомендует использовать клиент и сервер сокет

[Stilet]

Мне нужно,чтоб данные не отображались на сервере, а записывались в бд.

Ты хотя-бы это сделай )
Полный код тебе никто не предоставит по одной простой причине - каждые СУБД требуют написания своего кода, и они в большинстве случаев разные (подходы), а соотетственно и код будет разный. Будь я экзаменатором я бы так и спросил: Под что и как заточена схема внесения данных в БД. И тут только два варианта:
1) указать в дипломе (как я и сказал) что это демо-версия, и в последствии требуется доработка под стандарты банка
2) Конкретно написать внесение с базу данных и... жестко обламаться из-за того что эта база тупо не запустится на компе, где будет проходить тестирование )
Я это не с потолка говорю. Я это своими глазами видел ) Поэтому в моем дипломе так и было написано - "Доработка по стандартам предприятия. Полная работа с базами в Демо версии отсутствует". Угадай на сколько я сдал?
Хочешь запрос посмотреть? Ладно:

procedure TForm1.IdHTTPServer1CommandGet(AThread: TIdPeerThread;
  RequestInfo: TIdHTTPRequestInfo; ResponseInfo: TIdHTTPResponseInfo);
begin
 if RequestInfo.Document='/insert' then begin
  with adoQuery1 do begin
   sql.text:='insert into bank (iduser,money) values ('+
    RequestInfo.Params['id']+','
    RequestInfo.Params['money']+','
   +')';
  execsql;
  end;
 end;
end;

Где:
adoQuery1 - компонент доступа к базе.
запрос: http://сайтег/insert?id=123456789&money=123.56

Вот так примитивно можно вносить данные в базу.

[anghela]

только перед тем, как это писать, надо что на форме разместить?

[Stilet]

Из вкладки Indy Servers компонент IdHTTPServer - это для серверной части
IDHTTP - для клиента.

Но это нужно не писать а читать.
Читать о том как эти компоненты работают. Они не сложные, но базовых знаний требуют обязательно. И ксати это всего лишь один из множества вариантов передачи по сети.

[anghela]

именно с помощью клиент и сервер сокет мне и нужно реализовать программу. Только как это сделать? Пишу соединение с сервером для TClientSocket:
Код:

 ClientSocket1.Host:='78.85.164.232';
  ClientSocket1.Port:=1001;
  ClientSocket1.Open;
  ShowMessage('Соединение установлено');
  ClientSocket1.Socket.SendText(Edit1_ssud_schet.Text);

Затем пишу на сервере:

Код:
procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
  var mail:String;
begin
  mail:=Socket.ReceiveText;
  Memo1.Lines.Add(mail);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
ServerSocket1.Open;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
   ServerSocket1.Close;
end;

procedure TForm1.ServerSocket1ClientConnect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
Memo1.Lines.Add('Подключился клиент с IP адресом '+Socket.RemoteAddress);
end;

в итоге подключение не происходит

[Stilet]

ClientSocket1.Open;
ShowMessage('Соединение установлено');

Неверно. Open еще не говорит что соединение прошло или нет.

ShowMessage('Соединение установлено');
ClientSocket1.Socket.SendText(Edit1 _ssud_schet.Text);

Эти строки я рекомендую перенести в событие OnConnect компонента. Тогда соединение гарантировано.

в итоге подключение не происходит

В чем это выражается? В ошибке? В том что строка серверу не приходит?

именно с помощью клиент и сервер сокет мне и нужно реализовать программу.

Соболезную... Хотя можно и ими.