TServerSocket

← →
Serd_hhc (2002-03-21 09:53) [0]

Уважаемые Мастера,

У меня к вам маленький вопрос....

Как сделать так, чтобы TServerSocket из консоли работал.
Т.е. мене пример нужен.

Заранее благодарен ответившим.:)

← →
Digitman (2002-03-21 10:10) [1]

uses
..., Scktcomp;

var
srvrsckt: TServerSocket;
...
srvrsckt := TServerSocket.Create(nil);
try
finally
srvrsckt.Free;
end;

← →
Serd_hhc (2002-03-21 10:19) [2]

Дело в том, что я запускаю бесконечный цикл, и когда коонекчусь на порт, какие-то глюки происходят, он даже не приветствует меня (OnClientConnect). Траббл.

← →
Serd_hhc (2002-03-21 10:23) [3]

Дело в том, что я запускаю бесконечный цикл, и когда коонекчусь на порт, какие-то глюки происходят, он даже не приветствует меня (OnClientConnect). Траббл.

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

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:14) [4]

1.начнем с того, что вот это

GetMessage(Msg,HInstance,0,0)

работать не будет. Вторым параметром д.б. передан хэндл окна, а не хэндл экз-ра модуля. Вопрос тебе : какого окна ? Если консоль не имеет своего окна ?

2.>>"я запускаю бесконечный цикл"
где этот цикл ?

3. >>"коонекчусь на порт"
где это самое "коонекчусь" ?

4. >>"какие-то глюки происходят"
и какие же ?

← →
Serd_hhc (2002-03-21 13:37) [5]

1-2) это и есть бесконечный цикл, но раз он не работает, то как быть?

3)Коннекчусь отдельно от проги телнетом на 19 порт ("telnet 127.0.0.1 19")

4)В ТЕЛНЕТ окне нифига не пишется, не рисуется, вообще ничего не происходит....

ЧТО ДЕЛАТЬ?

← →
Serd_hhc (2002-03-21 13:39) [6]

← →
Digitman (2002-03-21 14:03) [7]

1.во избежание пустой болтовни оперируй понятиями "клиент" и "сервер", а не "прога" и "отдельно от проги".

2. в цикле достаточно просто выполнять Application.ProcessMessages, предусмотрев какой-нибудь признак выхода из цикла

← →
Serd_hhc (2002-03-21 14:06) [8]

Я не использую Forms! Как тогда....

← →
Digitman (2002-03-21 14:43) [9]

используешь)
Загляни в "потроха" модуля scktcomp.pas и увидишь, что для его работы модуль Forms необходим. А, значит, смело можешь в uses своего конс.проекта добавить Forms... кашу маслом не испортишь)

Да, кстати, о том, что Forms используется (пусть и неявно), вполне можно было бы догадаться, оценив размер исп.файла своей консоли

TServerSocket Найти похожие ветки