Нужно сделать консольный телнет клиент.
Для начала хотя бы копию WinNT+
Может у кого есть готовый, или хотя бы идеи как его делать.
т.к. консоль, то естественно нет никакого Forms. А без формзов у меня затыка с использованием Indy.
Как правильно передать индюкам управление и рулить евентами?

создай класс ( любой ) и назанач функции этого класса в обработчики инди

Это понятно, речь о другом: как мне заставить инди работать?
Допустим, я даю комманду Connect. О том, что коннект прошел корректно, я узнаю по событию OnConnect. Но, если у меня нет Application, то кто будет рулить евентами? Инди сама отказывается. Значит нужно это писать ручками. Как это сделать правильно?
Инди сделает коннект и отдаст управление дальше мне. т.к. приожение консольное, то модель приложения не событийная, а линейная. Как мне, оставляя приложение консольным, реализовать событийную модель???

какая разница кто событиями рулит? ты, как я сказал, делать пробовал?

Именно так я и пробовал делать. Даже не пробовал, а именно так и сделал - не работает. Поэтому и задал вопрос. Очевидно, что инди сама евенты не обслуживает, поскольку ей никто не сообщает о событиях. Если программа линейна, то я сам должен говорить, куда передать управление. Значит я сам должен ловить сообщения винды и решать, что с ними делать. Инди за меня тут не решит. Пока я ручками не передам ей управление, инди ничего не сделает и её евенты не работают.
Вот меня и интересует, как мне так по хитрому раздавать сообщения виндов, чтобы инди работало? Или проще воспольсоваться чем-нибудь, чтобы работало синхронно: врыйт в сокет, рид из сокета, а не мучаться с инди...
Хоть кто-нить вообще видел консольный телнет клиент на дельфи?

я, может, чего не понимаю, но такой:

Код

//--------------------------------------------------------------------------- #include <vcl.h> #pragma hdrstop #include <IdBaseComponent.hpp> #include <IdComponent.hpp> #include <IdHTTP.hpp> #include <IdTCPClient.hpp> #include <IdTCPConnection.hpp> //--------------------------------------------------------------------------- class Test { public:    void __fastcall Indy_OnWorkBegin(TObject *Sender, TWorkMode AWorkMode, const int AWorkCountMax);    Test(); }; Test::Test() { } void __fastcall Test::Indy_OnWorkBegin(TObject *Sender, TWorkMode AWorkMode, const int AWorkCountMax) {    bool stop = true; } #pragma argsused int main(int argc, char* argv[]) {    Test *test = new Test();    TIdHTTP *http = new TIdHTTP(NULL);      http->OnWorkBegin = test->Indy_OnWorkBegin;    http->Get("http://www.microsoft.com:80/");    return 0; } //---------------------------------------------------------------------------

код работает просто отлично ( извеняюсь за язык, но все должно быть понятно )

Snowy Выполняй всю работу в отдельном потоке. У меня сейчас так FTP клиент мой работает - потоку передается команда, он ее выполняет и переходит в режим ожидания(Susped) до следующей команды.

Это сообщение отредактировал(а) <Spawn> - 16.1.2005, 06:34

У меня сейчас делается так (упрощенный вариант):

Код

uses   Windows,  IdTelnet; type  TTelnet=class(TIdTelnet)      connected: boolean;      constructor Create(Server:string; Port:integer);overload;      procedure  ConnOk(Sender: TObject);  end; procedure TTelnet.ConnOk(Sender: TObject); begin connected:=true; end; constructor TTelnet.Create(Server:string; Port:integer); begin  inherited Create(nil);  Host:=Server;  self.Port:=Port;  connected:=false;  OnConnect:=ConnOk; end; var  T: TTelnet; BEGIN  T:=TTelnet.Create('127.0.0.1',23);  T.Connect(-1);  while not T.connected do;  WriteLn('Connected');  T.Disconnect;  T.Free;    ReadLn; END.

Хрень какая-то... Ведь не работало... А теперь работает... Непонятно.
Ладно. Буду ковырять дальше.
Добавлено @ 12:12
to Spawn:
А зачем телнету отдельный поток?
У него же принцип действия: отправил-получил. Асинхронность не нужна. Телнет вообще посимвольно работает. Нет смысла посылать комманды раньше, чем закончен вывод ответа.
Или может я чего не понимаю...

не могло оно не работать ( явно что-то где-то пропустил )