Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Delphi Indy9 [WinXP]

Anton © (2007-12-13 21:37:00)
Доброго времени суток форумчане :) Надеюсь мой вопрос не останется без внимания !
Пытаюсь использовать IdTCPClient и IdTCPserver Indy10
Как передать массив P[i] в сервер из клиента, сервер вро де написал, а что писать в клиент ?

Сервер
----------------
procedure TForm1.Button2Click(Sender: TObject);
begin
Memo1.Clear;
IdTCPserver1.Active:=false;
Memo1.Lines.Add('Сервер остановлен и не слушает порт 127.0.0.1:11234');
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
I:=0;
end;

procedure TForm1.IdTCPServer1Execute(AContext: TIdContext);
begin
P[I]:=StrToFloat(AContext.Connection.IOHandler.ReadLn);
Inc(I);
end;
-----------------

Клиент
----------------
procedure TForm1.Button1Click(Sender: TObject);
begin
IdTCPClient1.Connect;
<----------- что сюда добавить ?
IdTCPClient1.DisConnect;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
for i:=1 to 10 do P[i]:='1';

end;
----------------

DVM (2007-12-13 23:14:00) [1]

> <----------- что сюда добавить ?

IdTCPClient.WriteBuffer(SendBuff, SizeOf(SendBuff), true);

где SendBuff - массив

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »