ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
22.11.2007, 12:46
|
|
Reservists Of Antichat - Level 6
Регистрация: 12.02.2006
Сообщений: 891
Провел на форуме:
1892597
Репутация:
836
|
|
компонент надо исправлять...
http://slil.ru/25115993
__________________
*********************************
*Я не волшебник ٩(๏̯͡๏)۶, только учусь...*
*********************************
Программы на заказ
Times to fly...
|
|
|
22.11.2007, 21:39
|
|
Постоянный
Регистрация: 05.01.2007
Сообщений: 508
Провел на форуме:
2360904
Репутация:
1393
|
|
У меня он исправленый
|
|
|
|
25.11.2007, 22:25
|
|
Новичок
Регистрация: 24.11.2007
Сообщений: 2
Провел на форуме:
6801
Репутация:
0
|
|
Для начала код:
Код:
var
Form1: TForm1;
ScreenDC: HDC;
Can: TCanvas;
procedure TForm1.Button1Click(Sender: TObject);
begin
Timer1.Enabled:= true;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Can:= TCanvas.Create;
Can.Handle:= GetDC(ScreenDC);
Image1.Canvas.CopyRect(Rect(1, 1, Image1.Width, Image1.Height), Can, Rect(1, 1, Screen.Width, Screen.Height));
Image1.Repaint;
ReleaseDC(Can.Handle, ScreenDC);
Can.Free;
end;
То, что было представлено выше, показывает содержимое экрана каждую секунду (типо программы Fraps).
А теперь вопрос:
Я хочу сделать клиент и сервер, которые будут запущены на разных тачках в локальной сети. Сервер на 1-ой, клиент на 2-ой. 1-ая тачка должна отсылать данные с содержимым своего экрана клиенту. Программа- клиент должна содержать на форме компонент TImage, который будет отображать содержимое экрана 1-ого компьютера. Как это реализовать и как пересылать данные? |
|
|
|
25.11.2007, 22:38
|
|
Постоянный
Регистрация: 16.04.2007
Сообщений: 398
Провел на форуме:
3371897
Репутация:
1462
|
|
Сообщение от ~utQ
пересылать данные?
даж если обновлять , проще через:
TIdTCPServer / TidTCPclient + SendStream()
шли через:
ImgStream := new TMemoryStream(this);
Image1.Bitmap.SaveToStream (ImgStream);
TIdTCPclient.SendStream(ImgStream);
принимаешь аналогично из потока...
|
|
|
|
25.11.2007, 22:33
|
|
Постоянный
Регистрация: 08.05.2006
Сообщений: 816
Провел на форуме:
1845671
Репутация:
1338
|
|
~utQ Ты хочешь в реальном времени получать картинки, т.е. их обновлять, или просто получить скрин удаленного рабочего стола???
|
|
|
|
25.11.2007, 22:40
|
|
Новичок
Регистрация: 24.11.2007
Сообщений: 2
Провел на форуме:
6801
Репутация:
0
|
|
~utQ Ты хочешь в реальном времени получать картинки, т.е. их обновлять, или просто получить скрин удаленного рабочего стола???
Да, хочу в реальном времени.
Хотел узнать как раз про потоки, спасибо.
Код:
Image1.Bitmap.SaveToStream (ImgStream);
Ошибочка. Должно быть так:
Код:
Image1.Picture.Bitmap.SaveToStream (ImgStream);
Последний раз редактировалось ~utQ; 25.11.2007 в 22:56..
|
|
|
|
25.11.2007, 22:57
|
|
Постоянный
Регистрация: 16.04.2007
Сообщений: 398
Провел на форуме:
3371897
Репутация:
1462
|
|
кам кажись Image1.Picture.Bitmap
|
|
|
|
26.11.2007, 09:58
|
|
Познающий
Регистрация: 27.03.2007
Сообщений: 95
Провел на форуме:
244822
Репутация:
37
|
|
Всем здрасте!
Поиск не дал желаемого результата по тому вопросу кот. у меня возник или я просто долблюсь в очи.
Вопрос такой, подскажите как можно реализовать следующее:
Написал небольшую прогу (сонсольную), дак вот как реализовать мне запуск с параметрами из строки (пример: c:\soft.exe -?),то выдал мне например по этой команде помощь, описание кот. находится в проге.
Всем спасибо!
|
|
|
|
26.11.2007, 11:26
|
|
Участник форума
Регистрация: 10.08.2006
Сообщений: 147
Провел на форуме:
404152
Репутация:
94
|
|
Сообщение от cyber$nake
Всем здрасте!
Поиск не дал желаемого результата по тому вопросу кот. у меня возник или я просто долблюсь в очи.
Вопрос такой, подскажите как можно реализовать следующее:
Написал небольшую прогу (сонсольную), дак вот как реализовать мне запуск с параметрами из строки (пример: c:\soft.exe -?),то выдал мне например по этой команде помощь, описание кот. находится в проге.
Всем спасибо!
Код:
program soft;
{$APPTYPE CONSOLE}
uses windows;
var
parameter: string;
begin
parameter:=ParamStr(1);
if parameter = '/message' then
Writeln('Parameter /message.')
else
Writeln('No actual parameters.');
write('Press key Enter for Exit');
readln;
end.
думаю коментарии излишни.
Последний раз редактировалось Exile1985; 28.11.2007 в 10:24..
|
|
|
|
26.11.2007, 12:00
|
|
Познающий
Регистрация: 27.03.2007
Сообщений: 95
Провел на форуме:
244822
Репутация:
37
|
|
Сообщение от Exile1985
Код:
program soft;
{$APPTYPE CONSOLE}
uses windows;
var
parameter: string;
begin
parameter:=ParamStr(1);
if parameter = '/message' then
begin
Writeln('Parameter /message.');
end
else
begin
Writeln('No actual parameters.');
end;
write('Press key Enter for Exit');
readln;
end.
думаю коментарии излишни.
спасибо большое за пример, сам допер (тупанул с утреца немнога-не выспался)
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Комбинированный вид