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

Вниз

Скриншот в консольном приложении   Найти похожие ветки 

 
Ezorcist   (2006-04-30 19:06) [0]

Как сделать скриншот и запихнуть его в поток?


 
Eraser ©   (2006-04-30 19:18) [1]

BitBlt + TBitmap.SaveToStream


 
Ezorcist   (2006-04-30 20:07) [2]

Можно пример?


 
Ezorcist   (2006-04-30 21:18) [3]

procedure MakeScreenshot (Bmp: TBitmap);
var
DC: HDC;
begin
Bmp.Width := GetSystemMetrics(0);
Bmp.Height := GetSystemMetrics(1);
DC := GetDC (GetDesktopWindow);
try
  BitBlt (
    Bmp.Canvas.Handle,
    0,0,Bmp.Width,Bmp.Height,
    DC,
    0,0,
    SRCCOPY);
finally
  ReleaseDC (GetDesktopWindow,DC);
end;
end;

...var bit:tbitmap; ms:tmemotystream;
begin
      bit:=tbitmap.Create;
      ms:=tmemorystream.Create;
      MakeScreenshot(bit);
      bit.SaveToStream(ms);
     socket.SendStream(ms);
end;

Почему-то клиенту данных не приходит(
Если сделать так:
      bit:=tbitmap.Create;
      ms:=tmemorystream.Create;
      MakeScreenshot(bit);

Не работает штука
      Image1.Picture.Bitmap.LoadFromStream(MS);
А это работает
      Image1.Picture.Bitmap:=Bit;


 
Ezorcist   (2006-05-01 08:58) [4]

??


 
Eraser ©   (2006-05-01 17:35) [5]


> Ezorcist   (30.04.06 21:18) [3]


> Почему-то клиенту данных не приходит(


>  MakeScreenshot(bit);
>       bit.SaveToStream(ms);
>      socket.SendStream(ms);

перед socket.SendStream(ms); вставь
ms.Position := 0;



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

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

Наверх




Память: 0.47 MB
Время: 0.045 c
2-1146331673
cardexc
2006-04-29 21:27
2006.05.21
другой ПК


15-1145728332
Petr V. Abramov
2006-04-22 21:52
2006.05.21
"подними правую руку вверх,


2-1146232505
Mark86rus
2006-04-28 17:55
2006.05.21
Как при перекодировке из Win 1251 в KOI8 избавиться от значений?


9-1130540296
adolf
2005-10-29 02:58
2006.05.21
help for delphix


2-1146654847
Perf2k2
2006-05-03 15:14
2006.05.21
Данные из базы в ComboBox - не получается