Удаленный просмотр экрана

[kostya67]

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

[Человек_Борща]

Наверное в том, что недостаточно памяти. Подключайте FastMM, и смотрите где утекает.

[Stilet]

MyJpeg.SaveToFile('Screen.jpg');

Вай... Ты это брось.
Зачем сохранять в файл, и читать потом в поток, если можно сразу в поток сохранить?.

после запуска пройдет немного времени и вылезет ошибка

После запуска чего?
Ты можешь запустить свои проги из под отладчика, и посмотреть где недостаточно памяти.

Еще такой момент: TClientSocket не умеет получать все сразу, ему возможно требуется склейка (http://yandex.ua/yandsearch?text=TCl...oc=10&lr=20554)
Не исключено (я внимательно не смотрел) что причина в этом.

[Slym]

у тебя логика сервера одноклиентная...
как только влетит второй клиент или отвалится первый то все ломается! кроме того нет ни одного try/finally

следующий вопрос автора будет- как увеличить FPS... 100%

procedure TForm1.getscreen(Socket: TCustomWinSocket);
var
  MS:TmemoryStream;
  MyJpeg: TJpegImage;
  bmp: Graphics.TBitmap;
  DC: HDC;
begin
  MS := TMemoryStream.Create; // Создаём буфер для файла
  try
    MyJpeg:= TJpegImage.Create;
    try
      bmp:=Graphics.TBitmap.Create;
      try
        bmp.Height:=Screen.Height;
        bmp.Width:=Screen.Width;
        DC:=GetDC(0);  //Дескpиптоp экpана
        bitblt(bmp.Canvas.Handle, 0, 0, Screen.Width, Screen.Height, DC, 0, 0, SRCCOPY);
        ReleaseDC(0, DC);
        bmp.IgnorePalette:=true;
        MyJpeg.Assign(bmp);
      finally
        bmp.Free;
      end;
      MyJpeg.SaveToStream(MS);
    finally
      MyJpeg.free;
    end;
    MS.Position := 0; // Переводим каретку в начало файла
    // Посылаем информацию о файл (команда # название # размер)
    Socket.SendText('file#'+'Screen.jpg'+'#'+IntToStr(MS.Size)+'#');
    Socket.SendStream(MS);
  finally
    MS.Free;
  end;
end;

[Slym]

вот 5 лет назад было так
http://www.delphimaster.ru/cgi-bin/f...1227604925&n=4
получилось типа так, даже шевеление мышки и месаджинг

[саша40]

Ошибка вылазит из-за того, что оперативная память переполнина. Оптимизируйте программу.