Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.05.29;
Скачать: CL | DM;

Вниз

Шифрование, картинки в JPG и функции пересылки этих картинок   Найти похожие ветки 

 
VovansystemS   (2003-03-26 13:27) [0]

Требуется написать систему уд. администрирования, где можно видеть рабочий стол уд. компьютера. Картинки нужно преоразовывать в JPEG с кол-вом цветов, которое веберет пользоваель, шифровать их и предавать на серверсокет... Какие будут решения?


 
calm ©   (2003-03-26 13:32) [1]

Такие системы уже есть, причем без всяких картинок.
Поищи в сети.


 
VovansystemS   (2003-03-27 09:03) [2]

[quote]Такие системы уже есть, причем без всяких картинок.[/quote]

А что значит без картинок? Как по-другому передаётся изоражение?
Кинь линки...


 
Darg   (2003-03-27 09:48) [3]

Было время когда у меня была такая же задача и сделал так(это наихудший из возможных вариантов):

клиент:
procedure TForm1.Timer1Timer(Sender: TObject);
var bmp,bmp1: TBitmap; DC: HDC;
Str: TFileStream;
begin
bmp:=TBitmap.Create;
bmp.Height:=Trunc(Screen.Height);
bmp.Width:=Trunc(Screen.Width);
DC:=GetDC(0);
StretchBlt(bmp.Canvas.Handle,0,0,bmp.Width,bmp.Height,dc,0,0,Screen.Width,Screen.Height,SRCCopy);
bmp.SaveToFile("Screen.bmp");
//bmp.SaveToStream(Str);
ReleaseDC(0, DC);
bmp.Free;
Str:= TFileStream.Create("Screen.bmp", fmOpenRead);
try
NMStrm1.PostIt(Str);
finally
Str.Free;
end;
end;

сервер
procedure TForm1.NMStrmServ1MSG(Sender: TComponent; const sFrom: String;
strm: TStream);
var
FStream: TFileStream;
S:string;
bmp:TBitmap;
bmp1:TBitmap;
begin
Image1.Picture.Bitmap.LoadFromStream(strm);
end;
end;


 
Style   (2003-03-28 14:02) [4]

Через Socket экран будет передаваться довольно медленно!
Что бы ускорить передачу быстрее попробуйте поделить экран на части. Да и лучше наверное использовать компонентик из DelphiX,
DXPlay он несколько быстрее Delphiйного Socketa!


 
Style   (2003-03-28 14:04) [5]

Вот пример передачи целого экрана в JPG
http://sands.nm.ru/NMKScreenGrabber.pas


 
Алекс   (2003-03-29 08:44) [6]

Посмотрите программу Supervisor http://alexant.softdepia.com/plus
Там решены Ваши проблеммы .Я ее автор .Обрашайтесь.


 
SammIk ©   (2003-03-30 09:36) [7]

Удалено модератором



Страницы: 1 вся ветка

Текущий архив: 2003.05.29;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.022 c
6-94987
Gerda
2003-03-31 15:08
2003.05.29
ShellExecute или WinExec ? & TNMHTTP


14-95097
Dimaz-z
2003-05-11 16:45
2003.05.29
Как уменьшить размер exe шника без штук, типа UPX, KOL,...


14-95021
Пастор
2003-05-11 18:31
2003.05.29
Память, занимаемая программой


1-94898
Yakudza
2003-05-16 13:24
2003.05.29
Проверка полей в компоненте


14-95117
VEG
2003-04-26 18:24
2003.05.29
---|Ветка была без названия|---