| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

TServerSocket [D5, Win95/98]

Serd_hhc ©   (2002-03-21 09:53:00) 

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

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

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

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

---

Digitman   (2002-03-21 14:43:00) [1]

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

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

---

Serd_hhc   (2002-03-21 14:06:00) [2]

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

---

Digitman   (2002-03-21 14:03:00) [3]

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

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

---

Serd_hhc   (2002-03-21 13:39:00) [4]

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

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

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

ЧТО ДЕЛАТЬ?

---

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

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

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

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

ЧТО ДЕЛАТЬ?

---

Digitman   (2002-03-21 13:14:00) [6]

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

GetMessage(Msg,HInstance,0,0)

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

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

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

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

---

Serd_hhc   (2002-03-21 10:23:00) [7]

Дело в том, что я запускаю бесконечный цикл, и когда коонекчусь на порт, какие-то глюки происходят, он даже не приветствует меня (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.


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

---

Serd_hhc   (2002-03-21 10:19:00) [8]

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

---

Digitman   (2002-03-21 10:10:00) [9]

uses
..., Scktcomp;

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

---

Наверх