Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.012 c