![]() |
|
|
|||||||
| Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#1
|
|||
|
|||
|
Вообщем я хотел написать программу для дистанционного управления компьютером. Троян, проще говоря, но для мирных целей. Как только я приступил к работе - обнаружил отсутствие на вкладке 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;
... |
|
#3
|
||||
|
||||
|
все можно сделать проще
есть компонент icqclient я с ним делал icqSHpiona который мог управлять компом с телефона но касперский его распознавал как троян попробуй у меня получилось и никакого IP |
|
#4
|
||||
|
||||
|
Цитата:
|