Автор: kosyak 4.08.2008 14:55
Доброе время суток, господа программисты. Возникла следующая проблема: требуется соединится по 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 должны оказатся данные полученные от сервера, но их там нет... в чем проблемма?
Заранее спасибо!!!!