Код
unsigned DataHandle;
HPALETTE APalette;
Word Format;
HDC DC=GetDC(0);
Bitmap->Height=Screen->Height;
Bitmap->Width=Screen->Width;
BitBlt(Bitmap->Canvas->Handle , 0, 0, Screen->Width,Screen->Height,DC, 0, 0, SRCCOPY);
//Изображение экрана теперь в Bitmap, запишем его в бyфеp обмена
Bitmap->SaveToClipboardFormat(Format,DataHandle,APalette);
Clipboard()->SetAsHandle(Format,DataHandle);
Image1->Picture->LoadFromClipboardFormat(Format,DataHandle,APalette);
HPALETTE APalette;
Word Format;
HDC DC=GetDC(0);
Bitmap->Height=Screen->Height;
Bitmap->Width=Screen->Width;
BitBlt(Bitmap->Canvas->Handle , 0, 0, Screen->Width,Screen->Height,DC, 0, 0, SRCCOPY);
//Изображение экрана теперь в Bitmap, запишем его в бyфеp обмена
Bitmap->SaveToClipboardFormat(Format,DataHandle,APalette);
Clipboard()->SetAsHandle(Format,DataHandle);
Image1->Picture->LoadFromClipboardFormat(Format,DataHandle,APalette);
А подскажите как эту красоту отправить на другую машинку....
принемемать сервер должне с нескольких клиентов
Стоит ли сохранять картинку а потом слать, или слать напрмую!?
Слать быть может через ClientSocket или TCP что с вкладки индий!
Вообщем вопросов много, хочу получить ответы.....
СПОСИБО, заранее!
)
