Форум на Исходниках.RU

Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=263561&view=findpost&p=2182538 Thu, 29 Jan 2009 16:57:33 +0000 Проблема с отправкой MemoryStream от сервера к клиенту https://forum.sources.ru/index.php?showtopic=263561&view=findpost&p=2182538 TRUE означает, что перед посылкой потока должен быть передан его размер (OnlineS.Size)]]> WildBear Delphi: Сетевое программирование https://forum.sources.ru/index.php?showtopic=263561&view=findpost&p=2182086 Thu, 29 Jan 2009 12:02:19 +0000 Проблема с отправкой MemoryStream от сервера к клиенту https://forum.sources.ru/index.php?showtopic=263561&view=findpost&p=2182086

client.WriteStream(OnlineS,true,FALSE);

a MemoryStream

client.WriteStream(OnlineS,true,TRUE,OnlineS.Size);

]]> ragnarek Delphi: Сетевое программирование https://forum.sources.ru/index.php?showtopic=263561&view=findpost&p=2182067 Thu, 29 Jan 2009 11:39:38 +0000 Проблема с отправкой MemoryStream от сервера к клиенту https://forum.sources.ru/index.php?showtopic=263561&view=findpost&p=2182067 WildBear Delphi: Сетевое программирование https://forum.sources.ru/index.php?showtopic=263561&view=findpost&p=2182040 Thu, 29 Jan 2009 11:03:39 +0000 Проблема с отправкой MemoryStream от сервера к клиенту https://forum.sources.ru/index.php?showtopic=263561&view=findpost&p=2182040 ragnarek Delphi: Сетевое программирование https://forum.sources.ru/index.php?showtopic=263561&view=findpost&p=2181989 Thu, 29 Jan 2009 10:03:06 +0000 Проблема с отправкой MemoryStream от сервера к клиенту https://forum.sources.ru/index.php?showtopic=263561&view=findpost&p=2181989 WildBear пишет:

client.WriteStream(OnlineS,true,true,OnlineS.Size); // посылай так

у меня во втором примере клиента вот как:

var i:Int64; //думал проблема в представлении чисел, но даже инт64 не помогает

.....

i:=OnlineS.Size;

client.WriteStream(OnlineS,true,false,i);

тогда в строчке сервера

AThread.Connection.ReadStream(OnlnS,-1,false);

возникает ошибка: Out of memory while expanding memory stream]]> ragnarek Delphi: Сетевое программирование https://forum.sources.ru/index.php?showtopic=263561&view=findpost&p=2181873 Thu, 29 Jan 2009 08:25:18 +0000 Проблема с отправкой MemoryStream от сервера к клиенту https://forum.sources.ru/index.php?showtopic=263561&view=findpost&p=2181873

client.WriteStream(OnlineS,true,true,OnlineS.Size); // посылай так

AThread.Connection.ReadStream(OnlnS,-1,false); // принимай так

А h:TStrings переделай в h:TStringList;
TStrings не годится, так как он абстрактный]]> WildBear Delphi: Сетевое программирование https://forum.sources.ru/index.php?showtopic=263561&view=findpost&p=2181714 Wed, 28 Jan 2009 23:25:23 +0000 Проблема с отправкой MemoryStream от сервера к клиенту https://forum.sources.ru/index.php?showtopic=263561&view=findpost&p=2181714 Код:

if(AThread.Connection.ReadLn()='clientexec')then begin

OnlnS := TMemoryStream.Create;

OnlnS.Position:=0;

ValueListEditor1.Strings.SaveToStream(OnlnS);

Athread.Connection.WriteStream(OnlnS,true,false);

//Athread.Connection.WriteInteger(5);

Onlns.Free;

end;

а вот клиент:
Код:

Client.Connect();

OnlineS := TMemoryStream.Create;

Client.WriteLn('clientexec');

OnlineS.Position:=0;

Client.ReadStream(OnlineS,-1,true); //в этой строчке таймаут!!!!

ValueListEditor1.Strings.LoadFromStream(OnlineS);

Client.Disconnect();

почему, возникает ошибка таймаута??? Помогите пожалуйста!

это было час назад. теперь я очень намудрил, и просто шлю мемористрим от клиента к серверу:
клиент:

procedure TForm1.FormCreate(Sender: TObject);

var i:Int64; //думал проблема в представлении чисел, но даже инт64 не помогает

p:TStringList;

begin

client.Connect();

OnlineS := TMemoryStream.Create;

p:=TStringList.Create;

p.Add('vovik');

client.WriteInteger(5);

//ValueListEditor1.Strings.SaveToStream(OnlineS);

p.SaveToStream(OnlineS);

//OnlineS.Position:=0;

i:=OnlineS.Size;

client.WriteStream(OnlineS,true,false,i);

client.Disconnect();

Onlines.Free;

end;

сервер:

procedure TForm1.ServerExecute(AThread: TIdPeerThread);

var

FN: String;

F: TFileStream;p:TStringList;h:TStrings;

begin

i:=AThread.Connection.ReadInteger(true);

h:=TStrings.Create;

ShowMessage(intToStr(i));

OnlnS := TMemoryStream.Create;

p:=TStringList.Create;

//AThread.Connection.ReadStream(OnlnS,-1,false); //если эта строка, то ошибка памяти

AThread.Connection.ReadStrings(h); //если эта(вообще не передаю поток), то ошибка абстрактного класса

ShowMessage('proverka svza');

OnlnS.Position:=0;

p.LoadFromStream(OnlnS);

p.Free;

OnlnS.Free;

помогите очень прошу!]]> ragnarek Delphi: Сетевое программирование