Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.04.25;
Скачать: CL | DM;

Вниз

Ну помогите же, пожалуйста   Найти похожие ветки 

 
Serd_hhc   (2002-03-21 11:39) [0]

Уважаемые мастера,
Хотел бы у вас спросить, почему не работает этот код (точнее работает, но при коннекте на порт, мне не выводиться предусмотренный текст, и вообще не могу с программой общаться.
:( ):

Вот текст проекта:


program MyProgInetTrojan;
uses
Windows, MyPass, Messages;
var
Msg:TMsg;
TrojanSocket:TRojan;
begin
TrojanSocket:=TRojan.Create;
while GetMessage(Msg,HInstance,0,0) do
begin
TranslateMessage(msg);
DispatchMessage(msg);
end;
TrojanSocket.Destroy;
end.


А вот Юнита


unit MyPass;
interface
uses
Windows, Messages, ScktComp;
type
TRojan = class
Server: TServerSocket;
procedure ClientRead(Sender: TObject; Socket: TCustomWinSocket);
procedure ClientError(Sender: TObject; Socket: TCustomWinSocket; ErrorEvent: TErrorEvent; var ErrorCode: Integer);
procedure ClientConnect(Sender: TObject; Socket: TCustomWinSocket);
constructor Create;
destructor Destroy; override;
private
public
end;
implementation

constructor TRojan.Create;
begin
Server:=TServerSocket.Create(nil);
Server.OnClientRead:=ClientRead;
Server.OnClientError:=ClientError;
Server.OnClientConnect:=ClientConnect;
Server.ServerType:=stNonBlocking;
Server.Port:=19;
Server.Open;
end;

destructor TRojan.Destroy;
begin
Server.Close;
Server.Free;
inherited Destroy;
end;

procedure TRojan.ClientRead(Sender: TObject; Socket: TCustomWinSocket);
var
s:String;
begin
s:=Socket.ReceiveText;
if s="Help" then Socket.SendText("Helo!"#13#10);
if s="Stop" then PostQuitMessage(WM_QUIT);
end;

procedure TRojan.ClientError(Sender: TObject; Socket: TCustomWinSocket; ErrorEvent: TErrorEvent; var ErrorCode: Integer);
begin
ErrorCode:=0;
end;

procedure TRojan.ClientConnect(Sender: TObject; Socket: TCustomWinSocket);
begin
Socket.SendText("Good time of day. :)"#13#10);
end;

end.


И не работает....:(


 
Digitman ©   (2002-03-21 13:23) [1]

консольное приложение не имеет своего окна



Страницы: 1 вся ветка

Текущий архив: 2002.04.25;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.013 c
3-80830
saf
2002-04-03 10:46
2002.04.25
Запрос SQL


6-81019
Alexey80
2002-02-14 08:33
2002.04.25
Снифер


3-80817
Zak
2002-04-05 08:38
2002.04.25
Печать МЕМО записей в Qreport


3-80803
trever
2002-04-05 10:22
2002.04.25
Помогите советом, пожалуйста!


7-81093
VS
2002-01-31 09:35
2002.04.25
Как при поиске файла на диске переключиться на следующий диск