![]() |
Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.
![]() ![]() |
![]() |
kosyak |
![]()
Сообщение
#1
|
Пионер ![]() ![]() Группа: Пользователи Сообщений: 100 Пол: Мужской Репутация: ![]() ![]() ![]() |
Доброе время суток, господа программисты. Возникла следующая проблема: требуется соединится по 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 должны оказатся данные полученные от сервера, но их там нет... в чем проблемма? Заранее спасибо!!!! |
![]() ![]() |
![]() |
Текстовая версия | 11.07.2025 8:14 |