|  | 
 
 | 
| 
 | |||||||
| Регистрация | << Правила форума >> | 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;
... | 
| 
			 
			#3  
			
			
			
			
		 | ||||
| 
 | ||||
|   все можно сделать проще есть компонент icqclient я с ним делал icqSHpiona который мог управлять компом с телефона но касперский его распознавал как троян попробуй у меня получилось и никакого IP | 
| 
			 
			#4  
			
			
			
			
		 | ||||
| 
 | ||||
|   Цитата: 
 |