Асинхронный текст клиента и сервера

@NOVICHOK2012 · Регистрация: 13.04.2012

Author24 — интернет-сервис помощи студентам

Всем Доброго времени суток. На сервере текст отображается по-одному, на клиенте по другому. Где может быть ошибка?

Текст, который отображается в клиенте:
[System Process]
[System Process]
System
[System Process]
System
smss.exe
[System Process]
System
smss.exe
csrss.exe
[System Process]
System
smss.exe
csrss.exe
csrss.exe
[System Process]
System
smss.exe
csrss.exe
csrss.exe
wininit.exe
[System Process]
System
smss.exe
csrss.exe

Текст, который отображается на сервере.
[System Process]
System
smss.exe
csrss.exe
csrss.exe
wininit.exe
winlogon.exe
services.exe
lsass.exe
lsm.exe
svchost.exe
nvvsvc.exe
svchost.exe
...............................
PowerDVD13Agent.exe
ccsvchst.exe
NvNetworkService.exe
nvstreamsvc.exe
WCScheduler.exe
ccsvchst.exe

Код сервера:

Delphi

 l:=Pos('get process',s);
if l<>0 then
begin
result:=TStringList.Create;
FS:=CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,0);
FP.dwSize:=Sizeof(FP);
Co:=Process32First(FS,FP);
while integer(Co) <> 0 do
begin
result.Add(FP.szExeFile);
Co:=Process32Next(FS,FP);
end;
CloseHandle(FS);
Memo2.Clear;
for i := 0 to result.Count-1 do
begin
Memo2.Lines.Add(result[i]);
AContext.Connection.Socket.Write(Memo2.Text);

Код клиента:

Delphi

var
i:integer;
begin
 if idTcpClient1.Connected  then
  begin
   idTcpClient1.Socket.WriteLn(edit2.text);
   memo1.Lines.Add('['+Timetostr(time)+'] '+'Команда "'+ edit2.Text + '" послана серверу!');
   if edit2.Text='get process' then
  begin
  for i := 1 to 25 do
   Memo1.lines.add(IdTCPClient1.Socket.ReadLn);
 end
  end
else memo1.Lines.Add('['+Timetostr(time)+'] '+'Вы не подключены к серверу!');
end;

Еще не получается в клиенте показать точно все процессы, если в цикле от 1 до n, поставить то клиент виснет. Может попробовать определять количество процессов на сервере и отсылать это число клиенту, а клиент до этого числа и будет запускать цикл?

@mss · 03.05.2014, 22:11

От какой балды тут появилась "асинхронность" ?
Ни малейшего намека на нее, даже близко не пахнет.

@NOVICHOK2012 · 04.05.2014, 15:34 **[ТС]**

mss, согласен термин "асинхронность" к данной проблеме употребил неверно. Что в данном случае можно сделать? Почему код в клиенте не такой как на сервере?

@mss · 04.05.2014, 21:50

Потому что вызов метода AContext.Connection.Socket.Write(Memo2.Text) у тебя повторяется result.Count раз

@NOVICHOK2012 · 04.05.2014, 22:05 **[ТС]**

mss, большое спасибо. Оказывается надо было прописать end после

Delphi

1	Memo2.Lines.Add(result[i]);

и перед

Delphi

1	AContext.Connection.Socket.Write(Memo2.Text);

Еще не получается в клиенте показать точно все процессы, если в цикле от 1 до n, поставить то клиент виснет. Может попробовать определять количество процессов на сервере и отсылать это число клиенту, а клиент до этого числа и будет запускать цикл?

А как с этим поступить? Хотелось бы, чтобы весь текст, который на сервере передавался клиенту и в клиенте не надо было нажимать 100 раз кнопку. Если выполнить этот цикл, где i больше 30, то ПК зависает.

Delphi

1 2	for i := 1 to 25 do Memo1.lines.add(IdTCPClient1.Socket.ReadLn);

@mss · 04.05.2014, 22:14

Самый простой вариант - на стороне передатчика сохранить стринглист в стрим и передать его методом WriteStream, а на стороне приемника получить стрим вызовом ReadStream и загрузить стринглист из полученного стрима

@NOVICHOK2012 · 04.05.2014, 23:57 **[ТС]**

mss, что-то не получается.

Клиент:

Delphi

procedure TForm1.Button3Click(Sender: TObject);
var
i:integer;
Stream: TMemoryStream;
begin
 if idTcpClient1.Connected  then
  begin
   idTcpClient1.Socket.WriteLn(edit2.text);
   memo1.Lines.Add('['+Timetostr(time)+'] '+'Команда "'+ edit2.Text + '" послана серверу!');
    IdTCPClient1.IOHandler.ReadStream(Stream);
    Memo1.Lines.LoadFromStream(Stream);
  end
else memo1.Lines.Add('['+Timetostr(time)+'] '+'Вы не подключены к серверу!');
end;

Сервер:

Delphi

procedure TForm1.IdTCPServer1Execute(AContext: TIdContext);
var
result:Tstringlist;
stream:TMemoryStream;
l:integer;
begin
l:=Pos('get process',s);
if l<>0 then
begin
result:=TStringList.Create;
FS:=CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,0);
FP.dwSize:=Sizeof(FP);
Co:=Process32First(FS,FP);
while integer(Co) <> 0 do
begin
result.Add(FP.szExeFile);
Co:=Process32Next(FS,FP);
end;
CloseHandle(FS);
stream:=TMemoryStream.Create;
result.SaveToStream(stream);
AContext.Connection.IOHandler.Write(stream);
stream.Free;
end;
end;

@mss · 05.05.2014, 09:17

перед чтением из стрима следует как минимум установить в нуль позицию чтения (св-во Position)

@NOVICHOK2012 · 05.05.2014, 15:08 **[ТС]**

mss, добавил установку позиции в 0, не работает и выдает ошибку.

Delphi

procedure TForm1.Button3Click(Sender: TObject);
var
i:integer;
Stream: TMemoryStream;
begin
 if idTcpClient1.Connected  then
  begin
   idTcpClient1.Socket.WriteLn(edit2.text);
   memo1.Lines.Add('['+Timetostr(time)+'] '+'Команда "'+ edit2.Text + '" послана серверу!');
    stream.position := 0;
    IdTCPClient1.IOHandler.ReadStream(Stream);
    Memo1.Lines.LoadFromStream(Stream);
  end
else memo1.Lines.Add('['+Timetostr(time)+'] '+'Вы не подключены к серверу!');
end;

http://storage9.static.itmages... 19153f.png

@mss · 05.05.2014, 15:45

Объект Stream за тебя Пушкин создавать должен ?)

@NOVICHOK2012 · 05.05.2014, 19:07 **[ТС]**

mss, что-то не получается с этими потоками работать, изменил в клиенте:

Delphi

stream:=TMemoryStream.Create;
stream.position := 0;
IdTCPClient1.IOHandler.ReadStream(Stream);
Memo1.Lines.LoadFromStream(Stream);
stream.Free;

Теперь вылетает ошибка Out of memory. Помогите пожалуйста.

Добавлено через 1 час 28 минут
mss, думаю, проблема с чтением в клиенте.
Попробовал на сервере вывести сохраненный stringlist в поток в memo на сервере, все вывелось без ошибок.

Измененный код сервера для вывода в memo:

Delphi

stream:=TMemoryStream.Create;
result.SaveToStream(stream);
stream.position:=0;
Memo1.lines.LoadfromStream(stream);
stream.Free;

Из-за чего происходит ошибка чтения в клиенте? (Out of memory)

@mss · 05.05.2014, 21:36

http://stackoverflow.com/quest... g-a-record

@NOVICHOK2012 · 05.05.2014, 22:15 **[ТС]**

mss, что-то я не понял как наоборот от сервера клиенту передать. И этот код одни ошибки выдает.

@mss · 05.05.2014, 22:18

Сообщение от NOVICHOK2012

я не понял как наоборот от сервера клиенту передать

В корень надо зрить - не рассуждать о том от кого кому передавать, а вникать в параметры вызовов методов Read/WriteStream.

@NOVICHOK2012 · 05.05.2014, 22:58 **[ТС]**

Сообщение от mss

вникать в параметры вызовов методов Read/WriteStream.

Где об этом прочитать? Нашел только примеры для старых версий делфи.

@mss · 05.05.2014, 23:09

В штатной документации, сопровождающей Indy10

@mss 2664 / 2270 / 279 Регистрация: 24.12.2010 Сообщений: 13,723
	05.05.2014, 23:09	16
	В штатной документации, сопровождающей Indy10 0

@mss 2664 / 2270 / 279 Регистрация: 24.12.2010 Сообщений: 13,723
	03.05.2014, 22:11	2
	От какой балды тут появилась "асинхронность" ? Ни малейшего намека на нее, даже близко не пахнет. 0

@NOVICHOK2012 6 / 6 / 0 Регистрация: 13.04.2012 Сообщений: 99
	04.05.2014, 15:34 [ТС]	3
	mss, согласен термин "асинхронность" к данной проблеме употребил неверно. Что в данном случае можно сделать? Почему код в клиенте не такой как на сервере? 0

@mss 2664 / 2270 / 279 Регистрация: 24.12.2010 Сообщений: 13,723
	04.05.2014, 21:50	4
	Сообщение было отмечено NOVICHOK2012 как решение Решение Потому что вызов метода AContext.Connection.Socket.Write(Memo2.Text) у тебя повторяется result.Count раз 1

@mss 2664 / 2270 / 279 Регистрация: 24.12.2010 Сообщений: 13,723
	04.05.2014, 22:14	6
	Самый простой вариант - на стороне передатчика сохранить стринглист в стрим и передать его методом WriteStream, а на стороне приемника получить стрим вызовом ReadStream и загрузить стринглист из полученного стрима 1

@mss 2664 / 2270 / 279 Регистрация: 24.12.2010 Сообщений: 13,723
	05.05.2014, 09:17	8
	перед чтением из стрима следует как минимум установить в нуль позицию чтения (св-во Position) 0

@mss 2664 / 2270 / 279 Регистрация: 24.12.2010 Сообщений: 13,723
	05.05.2014, 15:45	10
	Объект Stream за тебя Пушкин создавать должен ?) 0

@mss 2664 / 2270 / 279 Регистрация: 24.12.2010 Сообщений: 13,723
	05.05.2014, 21:36	12
	http://stackoverflow.com/quest... g-a-record 0

@NOVICHOK2012 6 / 6 / 0 Регистрация: 13.04.2012 Сообщений: 99
	05.05.2014, 22:15 [ТС]	13
	mss, что-то я не понял как наоборот от сервера клиенту передать. И этот код одни ошибки выдает. 0

@mss 2664 / 2270 / 279 Регистрация: 24.12.2010 Сообщений: 13,723
	05.05.2014, 22:18	14
	Сообщение от NOVICHOK2012 я не понял как наоборот от сервера клиенту передать В корень надо зрить - не рассуждать о том от кого кому передавать, а вникать в параметры вызовов методов Read/WriteStream. 0

@NOVICHOK2012 6 / 6 / 0 Регистрация: 13.04.2012 Сообщений: 99
	05.05.2014, 22:58 [ТС]	15
	Сообщение от mss вникать в параметры вызовов методов Read/WriteStream. Где об этом прочитать? Нашел только примеры для старых версий делфи. 0

Асинхронный текст клиента и сервера

Решение