Скачать: CL | DM;

Delphi Indy9   Найти похожие ветки 

← →
Anton   (2007-12-13 21:37) [0]

Доброго времени суток форумчане :) Надеюсь мой вопрос не останется без внимания !
Пытаюсь использовать 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) [1]

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

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

где SendBuff - массив

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.008 c