передача скриншота

[olchick]

Здраствуйте, уважаемые форумчани.

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

1. При отображении изображения в image32 происходит какаето ерунда - такое ощущение, что по сети передается не одно изображение, а целая куча, причем с каждым разом все меньше и меньше их параметры(ширина и высота). В итоге в image32 сразу видно несколько, отличных по размеру, копий изображения.

2. Вторая проблема заключается в том, что не могу передать копию удаленного экрана во всем размере ,хотя и кодирую его в jpg. Приходиться передавать уменьшенную копию, к примеру 500 на 500. Можно и побольше, но качество надо уменьшить. Если передаю во весь размер Delphi выдает ошибку - переполнения буфера.

В работе использую компоненты indy для работы с udp.
Помогите разобраться...

Может быть непонятно объяснила проблемы - поэтому прикрепляю два файла. Когда протестируете все увидите сами...

Заранее спасибо...

[uberchel]

Так и будут люди запускать неизвестные exe от человека, во первых который создал только 1 тему. Тему в которой прикрепил только exe!!!
Во вторых если и понадобилась помощь с программой, то можно и было исходники или блок схему показать!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!

З.Ы и вообще на троян похоже (BackDoor).

[olchick]

Sorry.
Выкладываю исходники:

Если захотите заново откомпилировать, то перед этим прийдется скачать и установить
Полный дистрибутив SXSkinComponents

[uberchel]

Сначала надо одну команду, а потом уж грузить в image

procedure TForm1.IdUDPServer1UDPRead(Sender: TObject; AData: TStream;
  ABinding: TIdSocketHandle);
  begin try
   MemoryStream:= TMemoryStream.Create;
   MemoryStream.CopyFrom(AData, AData.Size);
   MemoryStream.SaveToFile('C:\logo.jpg');
   Finally
   MemoryStream.Free;
   end;
   if form3.Showing
   then
      begin
        form3.Image321.Bitmap.LoadFromFile('C:\logo.jpg');
        ClientSocket1.Socket.SendText('screen');
  end;
end;

[san72]

вообще UDP не настолько качественнен для передачи картинок или файлов, максимум что по нему можно безболезненно передать это текст какой-то, тоесть лучше использовать TCP/IP, тогда весь поток придёт в 100% сохранности.. но я могу ошибаться

[olchick]

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

Сначала надо одну команду, а потом уж грузить в image

procedure TForm1.IdUDPServer1UDPRead(Sender: TObject; AData: TStream;
  ABinding: TIdSocketHandle);
  begin try
   MemoryStream:= TMemoryStream.Create;
   MemoryStream.CopyFrom(AData, AData.Size);
   MemoryStream.SaveToFile('C:\logo.jpg');
   Finally
   MemoryStream.Free;
   end;
   if form3.Showing
   then
      begin
        form3.Image321.Bitmap.LoadFromFile('C:\logo.jpg');
        ClientSocket1.Socket.SendText('screen');
  end;
end;

Не помагает - результат такой же.

[uberchel]

Дай исходник клиента полный, ато нет формы в том, что дал в начале!
тогда и полегче будет разобратся!

только server!

[olchick]

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

Дай исходник клиента полный, ато нет формы в том, что дал в начале!
тогда и полегче будет разобратся!

только server!

Сервер, как раз весь, а клиент - действительно нет файла формы

Вот полный исходник клиента

[ikot]

такая проблема не только у вас, она встречается и у готовых уже продуктах, например Remote desctop Control

[Terran]

Подправил Ваши исходники. Теперь всё работает. Screen.rar
Немного добавлю. Посмотрите внимательно на порты и адреса сервера и клиента, чтобы данные шли куда нужно. Так же у Вас много лишнего кода. Я не стал там всё раскапывать, а просто подправил Ваш код, чтобы скриншот принимался и грузился в Image.