Конференция "Сети" » Delphi Indy9 [WinXP]
 
  • Anton (13.12.07 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 © (13.12.07 23:14) [1]

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

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

    где SendBuff - массив
 
Конференция "Сети" » Delphi Indy9 [WinXP]
Есть новые Нет новых   [134431   +10][b:0][p:0]