ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
 |
|
22.11.2007, 02:38
|
|
Постоянный
Регистрация: 05.01.2007
Сообщений: 508
Провел на форуме:
2360904
Репутация:
1393
|
|
У меня на форме, висят 100 компонентов TICQClient.
Как можно вывести их всех 100 в онлайн, через цикл, т.е. не сидеть и писать вручную
ICQClient1.Login();
ICQClient2.Login();
ICQClient3.Login();
...
ICQClient100.Login();
|
|
|
22.11.2007, 02:42
|
|
Banned
Регистрация: 18.05.2005
Сообщений: 1,981
Провел на форуме:
1941233
Репутация:
2726
|
|
Последний раз редактировалось begin_end; 22.11.2007 в 03:07..
Причина: мат
|
|
|
|
22.11.2007, 02:42
|
|
Banned
Регистрация: 13.09.2006
Сообщений: 523
Провел на форуме:
2869410
Репутация:
925
|
|
Сообщение от z01b
У меня на форме, висят 100 компонентов TICQClient.
Как можно вывести их всех 100 в онлайн, через цикл, т.е. не сидеть и писать вручную
ICQClient1.Login();
ICQClient2.Login();
ICQClient3.Login();
...
ICQClient100.Login();
Блин ребят,я фигею 
var
Mass : array[0..100] of TICQClient;
i : dword;
begin
for i:=0 to 100 do Mass[i].Login;
Уж мозги не раскинуть для такой ерунды 
|
|
|
|
22.11.2007, 08:59
|
|
Reservists Of Antichat - Level 6
Регистрация: 12.02.2006
Сообщений: 891
Провел на форуме:
1892597
Репутация:
836
|
|
код не сработает по 1 простой причине, TICQClient не создается и в твоем примере банальная ошибка с Can't read memory (кажется)
итак...
ради этого скачал+установил компонент =\
Код:
var
i: Byte;
m: array [0..99] of TICQClient;
begin
for i:=0 to 99 do
begin
m[i]:=TICQClient.Create(nil);
with m[i] do
begin
UIN:=00000000;
Password:='qwerty';
Login();
end;
end;
Уж мозги не раскинуть для такой ерунды
мда... =\
__________________
*********************************
*Я не волшебник ٩(๏̯͡๏)۶, только учусь...*
*********************************
Программы на заказ
Times to fly...
Последний раз редактировалось W!z@rD; 23.11.2007 в 01:30..
|
|
|
|
22.11.2007, 09:54
|
|
Постоянный
Регистрация: 05.01.2007
Сообщений: 508
Провел на форуме:
2360904
Репутация:
1393
|
|
Сообщение от zl0y
Блин ребят,я фигею
var
Mass : array[0..100] of TICQClient;
i : dword;
begin
for i:=0 to 100 do Mass[i].Login;
Уж мозги не раскинуть для такой ерунды Я это попробовал + ищо пару вариантов, но не пахает (
З.Ы. Зачем умничать то?
|
|
|
|
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:33
|
|
Постоянный
Регистрация: 08.05.2006
Сообщений: 816
Провел на форуме:
1845671
Репутация:
1338
|
|
~utQ Ты хочешь в реальном времени получать картинки, т.е. их обновлять, или просто получить скрин удаленного рабочего стола???
|
|
|
|
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);
принимаешь аналогично из потока...
|
|
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Линейный вид
