-
Доброго времени суток форумчане :) Надеюсь мой вопрос не останется без внимания ! Пытаюсь использовать 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; ----------------
-
> <----------- что сюда добавить ?
IdTCPClient.WriteBuffer(SendBuff, SizeOf(SendBuff), true);
где SendBuff - массив
|