[PhoeniX]

Люди, короче, вот в чём проблема: надо сделать программу, которая подключает из ДВУХ (!!!) DLL ДВА (!!!) TCP-сервера, и принимает от них логи (кратко - управляющая программа и лог-окно.) Вроде бы, всё правильно, логирование работает, но когда ставлю

Код:

ServerSocket1.Active:=true;

вылетает ошибка. что-то вроде стандартной Windows-ошибки

Access violation...

или что-то типо того. Кому не сложно, разберитесь плз...

обработчики принимаемых команд и ответы пока не сделал, протокол не доработан... пока важно просто ВКЛЮЧИТЬ сервер...

PS: исходники и прога в архиве. для запуска надо жмакнуть в правом верхнем углу на кнопку start.
P.S.S: http://dump.ru/file/2317470

[PhoeniX]

Люди, АУ! Ну что, сюда вообще никто не заходит?????

[Ferra]

Вот что я тебе скажу.. Хм.. Я сам не пробовал в TDataModulе ставить сокет. Подозреваю что проблема в нём. А может и в том что сокет в длл. Короче при создании сокета вероятнее всего в конструктор поступает нил, или указатель на экземпляр библиотеки, а для него это не есть хорошо и он требует экземпляр приложения. хм.. Но это лишь мои домыслы.

На практике сделал так: (рабочий вариант)

Код:

var
 s : TServerSocket;
begin
  AddLog('Starting server...');
//  ServerSocket1.Active:=true;
  s:=TServerSocket.Create(self);
  s.Port:=21734;
  s.Active:=True;
  AddLog('Server started');
....
end;

[PhoeniX]

Пасибо... щас не дома, приду - опробую.

[PhoeniX]

Заряботало... щас попробую прикрутить и законнектиться... После проверки отпишусь.

[PhoeniX]

Немного видоизменил:

Код:

var
 s : TServerSocket;  // - сделал глобальной.
begin
  AddLog('Starting server...');
  s:=TServerSocket.Create(nil);
  s.Port:=21734;
  s.Active:=True;
  AddLog('Server started');
....
end;

Ругалась именно из-за DataModule. С nilом работает стабильно. Дата модуль вообще убрал, оставил только отдельный Юнит.