Форум: "Потрепаться";
Текущий архив: 2002.04.25;
Скачать: [xml.tar.bz2];
ВнизНу помогите же, пожалуйста Найти похожие ветки
← →
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;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.01 c