IPB
ЛогинПароль:

> ВНИМАНИЕ!

Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.

Наладить общение поможет, если вы подпишитесь по почте на новые темы в этом форуме.

 
 Ответить  Открыть новую тему 
> Работа с сервером, Соединение с удалённым сервером и получение данных
сообщение
Сообщение #1


Пионер
**

Группа: Пользователи
Сообщений: 100
Пол: Мужской

Репутация: -  0  +


Доброе время суток, господа программисты. Возникла следующая проблема: требуется соединится по http протоколу с удалённым сервером и организовать приём передач и данных с ним.
Суть в следующем: клиент отправляет серверу набор данных, сервер на это должен отправить другой набор...
На текущий момент это сделано следующим образом:

Код

  idTCPClient1.Host:='***.***.***.***';
  idTCPClient1.Port:=****;
  idTCPClient1.Connect(-1);

  stream:=TMemoryStream.Create;

  I:=26;
  stream.Write(i,4);
  I:=12345;
  stream.Write(i,4);
  s:='abracadabraabra';
  stream.Write(s,14);
  I:=12345;
  stream.Write(i,4);
  s:='';

  idTCPClient1.OpenWriteBuffer;
  idTCPClient1.WriteStream(stream);
  idTCPClient1.CloseWriteBuffer;

  stream.Free;
  stream:=TMemoryStream.Create;

  While idTCPClient1.Connected do
      idTCPClient1.ReadStream(stream,-1,true);
  idTCPClient1.Disconnect;

  SetLength(s,Stream.size);
  stream.Seek(0,soFromBeginning);
  stream.Read(i,4);
  stream.Read(j,4);
  stream.Read(s,6);
  memo1.Lines.Add(s);
  stream.Read(k,4);
  stream.Read(i,4);

  stream.Free;



Как я понял в stream должны оказатся данные полученные от сервера, но их там нет... в чем проблемма?

Заранее спасибо!!!!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 1.11.2020 4:04
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name