|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Проблема с TServerSocket
Вообщем я хотел написать программу для дистанционного управления компьютером. Троян, проще говоря, но для мирных целей. Как только я приступил к работе - обнаружил отсутствие на вкладке Internet компонентов TServer и TClientSocket. Я попробовал создать вручную обьект Vr: TServerSocket, но к нему не привязываются процедуры. Что делать?
Вообщем есть код Vr.OnClientRead := VrClientRead; Я так понял, он должен привязать процедуру VrClientRead к событию OnClientRead, но компилятор сказал что: Incomatible Types: Method Pointer and Regular Procedure... Компоненты отсутствуют и в Delphi 7 и в Delphi 2009. Можно их как-нибудь запихнуть на вкладку Internet? Последний раз редактировалось MacroBloxx, 19.04.2009 в 13:17. |
#2
|
||||
|
||||
Компоненты можно установить:
Components -> Install Packages -> Add -> ".../Borland/Delphi 7/Bin/dclsockets70.bpl". (это для семёрки). Твой вариант не работает потому, что нельзя привязывать обычную процедуру как обработчик. Попробуй сделать её как модуль формы Код:
interface uses .....; type TForm1=class(TForm) ... ... public ... procedure VrClientRead(Sender:TObject;Socket:TCustomWinSocket); end; ... implementation ... procedure TForm1.VrClientRead(Sender:TObject;Socket:TCustomWinSocket); begin ... end; ... Оставайтесь хорошими людьми... VK id2634397, ds [at] phoenix [dot] dj |
#3
|
||||
|
||||
все можно сделать проще
есть компонент icqclient я с ним делал icqSHpiona который мог управлять компом с телефона но касперский его распознавал как троян попробуй у меня получилось и никакого IP |
#4
|
||||
|
||||
Цитата:
|