Server/Client на Delphi

[FlipOK]

Парни помогите пожалуйста с заданием по курсовой. Препод дал задание такое:
Сумма двух векторов.
С сервера препод задает координаты двух векторов. Отсылает их 3м машинам(клиентам) они складывают, векторы, и отсылают результаты на сервер.
Все это на форме, а не консоль.

С кодом суммы векторов я разобрался, а вот с другим нет. 6 дней сижу вообще ни что не получается))

Желательно до завтра(

[BARNEY]

заклвдка indy можно взять IdTCPServer/Client примеры использования можно нагуглить или найти тут на форуме..по моему нику..я выкладывал.

[Лубышев]

Вкладка Internet компоненты ClientSocket и ServerSocket
тыкаем их на форму, тыкаем кнопочку СтартСервер и тыкаем какое нить текстовое поле в котором будем писать на каком порту работает сервер.
итак чтобы сервер стартовал надо сделать так:

ServerSocket1.port:=StrToIntDef(edit1.text,5000);
ServerSocket1.Active:=true;

теперь клиент
ему надо два текстовых поля в одном будет IP сервера а во втором порт на котором работает сервак и кнопочку старта клиента в которой пишем примерно это:

ClientSocket1.Host:=edit2.text;
ClientSocket1.Port:=StrToIntDef(edit3.text,5000);
ClientSocket1.Active:=true;

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

type Ttwovector=record
a1:Tpoint;
b1:Tpoint;
a2:Tpoint;
b2:Tpoint;
end;

Собственно говоря переменные этого типа данных и будем передавать от сервака к клиентам.
Создаем кнопочку по клику на которую будем отсылать векторы с сервака и пишем примерно следующее:

procedure TForm1.Button1Click(Sender: TObject);
var vect:Ttwovector;
i:integer;
begin
....
//тут каким то образом препод заносит данные в переменную vect
...

for i:=0 to ServerSocket1.Socket.ActiveConnections do
begin
 ServerSocket1.Socket.Connections[i].SendBuf(vect,32);
end;
end;

число 32 - это размер пакета в байтах. в данном случае это 4 пары целых чисел каждое из которых занимает по 4 байта
4*2*4=32
теперь задача клиента принять пакет
тыкаем на иконку клиента на форме и выбираем event вкладку и ищем там onRead событие и там будем пытаться принять пакет от сервера

procedure TForm1.ClientSocket1Read(Sender: TObject;
  Socket: TCustomWinSocket);
var vect:Ttwovector;
begin
socket.ReceiveBuf(vect,32);//читаем из буфера 32 байта в переменную vect

...
//а дальше делайте с этой переменной то, что хотите

end;

PS по умолчанию эти компоненты отключены но они поставляются вмести с Delphi
Component->Install Packages->Add
и в появившемся окне открываем папку bin там где лежат файлики самой delphi и ищем вот такой пакет dclsockets70.bpl ставим его и на вкладочке Internet они появляются.
Все. если что не понятно разжовано то это уже во фриланс вам

[FlipOK]

Спасибо большое!!!! Простите конечно, у меня еще вопросик.
Как с клиента, результат, отправить на сервер, а на сервере вывелся результат?

[Лубышев]

с клиента отправляются сообщения точно так же как с сервера на клиент - это же двусторонняя связь и сокет сервера практически ни чем не отличается от сокета клиента за исключением того что сервак юзает мультисокет.

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

допустим вы вычислили результат и записали его в клиенте в переменную resvect которая является Ttwovector типом
итак во вновь созданной кнопке пишем примерно следующее

ClientSocket1.Socket.SendBuf(resvect,32);

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

теперь сервер должен принять переданное от какогото клиента результат.
на сервере тоже создадим переменную resvect и примем в нее результат по событию сервера onClientRead

procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
var resvect:Ttwovector;
begin
 Socket.ReceiveBuf(resvet,32);//читаем результат
...//делаем что хотим с результатом
end;