Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.06.25;
Скачать: CL | DM;

Вниз

Знатокам Kylix   Найти похожие ветки 

 
vidiv ©   (2006-05-29 01:55) [0]

Хочу написать демон для чата под линукс... до этого делал на PHP, а сейчас захотел сделать на delphi...
Стоит ли искать Kylix для решения этой задачи?
Подобный код будет работать под линксом как ожидалось?

program Project2;

{$APPTYPE CONSOLE}

uses
 IdTCPServer, Classes, SysUtils;

type TServerObject = class (TIdTCPServer)
   public
     constructor Create(Own:TComponent); override;
     procedure HndlExecute(AThread: TIdPeerThread);
 end;

{ TServerObject }

constructor TServerObject.Create;
begin
   inherited Create(Own);
   OnExecute := HndlExecute;
end;

procedure TServerObject.HndlExecute(AThread: TIdPeerThread);
begin
   AThread.Connection.Write("HelloUser");
   AThread.FreeOnTerminate := true;
   AThread.Terminate;
end;

var SrvObj : TServerObject;

begin
   SrvObj := TServerObject.Create(nil);
   SrvObj.Bindings.Clear;
   with (SrvObj.Bindings.Add) do begin
       IP := "0.0.0.0";
       Port := 1234;
   end;
   SrvObj.Active := true;
   readln;
end.


И еще, маленький вопрос: как можно вместо readln зациклить приложение, без загрузки процессора?


 
Джо ©   (2006-05-29 02:35) [1]

> как можно вместо readln зациклить приложение, без загрузки
> процессора?

А что ReadLn его так сильно загружает? Ну, можно еще в таком роде
 while SomeFlag do
 begin
   ...
   Sleep(1)
 end


 
vidiv ©   (2006-05-29 02:40) [2]


>  что ReadLn его так сильно загружает?

да нет... вообще не грузит... просто по идее в линухе нужно будет отсоедениться от консоли (демонизироваться) а зачем там этот ридлн? :)


 
TUser ©   (2006-05-29 04:30) [3]

Могу скинуть книгу по программированию под Linux. Она правда про FreePascal, но на Кайликс сам переведешь.


 
vidiv ©   (2006-05-29 05:07) [4]


> TUser ©   (29.05.06 04:30) [3]

Давай :))

вот мыло на всякий случай: vidiv (@) mail.ru


 
pasha_golub ©   (2006-05-29 10:26) [5]


> TUser ©   (29.05.06 04:30) [3]

И мне, пожалуйста! Спасибо заранее. Мыльце в анкете.


 
TUser ©   (2006-05-29 12:38) [6]

http://monkey.belozersky.msu.ru/~evgeniy/sysprfpc.zip

Где-то в тырнете нашел



Страницы: 1 вся ветка

Текущий архив: 2006.06.25;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.035 c
15-1149004065
Андреййй
2006-05-30 19:47
2006.06.25
GPS из под Delphi


9-1131388711
2Wish
2005-11-07 21:38
2006.06.25
Как ограничить FPS


3-1146133045
linx
2006-04-27 14:17
2006.06.25
Получить значение генератора


6-1140176269
MegaVolt
2006-02-17 14:37
2006.06.25
Как обработать исключения которые генерит TIdFTP?


4-1142453912
Lucefer
2006-03-15 23:18
2006.06.25
Передача сообщения из порождённого TThread в родительский сервис