Аналог radmin

[DiME]

нужен пример как отправлять/принимать изображение с удаленного компа

[rzawm]

Делать скриншот, сохранять в файл затем файл отправлять, но для аналогии с радмином это не вариант

[DiME]

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

Делать скриншот, сохранять в файл затем файл отправлять, но для аналогии с радмином это не вариант

это понятно, но хотелось бы примерчик, в принципе достаточно только видеть удаленный рабочий стол, других функций пока не нужно

[KORN]

а зачем сохранять7 сохранил в буффер и отправил.... это уже обсуждалось и не раз... используй tcp и там есть sendstream;

[DiME]

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

а зачем сохранять7 сохранил в буффер и отправил.... это уже обсуждалось и не раз... используй tcp и там есть sendstream;

procedure TSCThread.GrabScreen(Stream:TStream;const ImgSize:TPoint);
var
 Desktop:HWnd;
 DesktopRect: TRect;
 DesktopDC:HDc;
begin
 Stream.Size:=0;
 Desktop:=GetDesktopWindow;
 GetWindowRect(Desktop,DesktopRect);
 Bitmap.Height:=ImgSize.Y;
 Bitmap.Width:=ImgSize.X;
 DesktopDC:=GetWindowDC(Desktop);
 try
   Win32Check(StretchBlt(Bitmap.Canvas.Handle,0,0,Bitmap.Width,Bitmap.Height,
             DesktopDC,DesktopRect.Left,DesktopRect.Top,DesktopRect.Right,DesktopRect.Bottom, SRCCOPY));
 finally
   ReleaseDC(Desktop,DesktopDC);
 end;
 Jpeg.Assign(Bitmap);
 Jpeg.SaveToStream(Stream);
end;

procedure TSCThread.ClientExecute;
var
 ScreenStream:TMemoryStream;
 Buf:array[0..1023] of byte;
 ImgSize:TPoint;
 size:integer;
begin
 while (not Terminated) and ClientSocket.Connected do
 try
   ScreenStream:=TMemoryStream.Create;
   try
     if ClientSocket.ReceiveBuf(ImgSize,SizeOf(ImgSize))<>SizeOf(ImgSize) then exit;
     GrabScreen(ScreenStream,ImgSize);
     ScreenStream.Position:=0;
     size:=ScreenStream.Size;
     ClientSocket.SendBuf(size,SizeOf(size));
     while ScreenStream.Position<ScreenStream.Size do
     begin
       size:=ScreenStream.Read(Buf,SizeOf(Buf));
       if ClientSocket.SendBuf(Buf,size)<>size then exit;
     end;
   finally
     ScreenStream.Free;
   end;
 except
   Terminate;
   HandleException;
 end;
end;

вот пример как это реализовано. (коддинг не мой) тут ничего и не сохраняется, сразу передается...

[KORN]

 finally
   ReleaseDC(Desktop,DesktopDC);
 end;
 Jpeg.Assign(Bitmap);
 Jpeg.SaveToStream(Stream);
end;

не сохраняешь говоришь7 не в буфер, так в поток

[DiME]

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

не сохраняешь говоришь7 не в буфер, так в поток

Есть другие примеры?

[KORN]

http://www.delphimaster.ru/cgi-bin/f...1227604925&n=4

а чем тебя этот не устраивает7

[DiME]

KORN, я как раз приводил кусок из этого кода как пример, просто хотелось узнать есть ли еще какие примеры...